home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / graphic / painting / arteffectdemo / macros / macros.lzh / examples / addview next >
Encoding:
Text File  |  1995-02-08  |  526 b   |  28 lines
  1. /* Window Example: new, activatewindow, addview
  2.  */
  3.  
  4. options results
  5.  
  6. address "ArtEffect"
  7.  
  8. options results
  9.  
  10. activatewindow toolbox
  11. getinfo stem tb.
  12.  
  13. new 128 128 "Test"
  14. getinfo stem win.
  15. left=tb.leftedge + tb.width + tb.winbleft + tb.winbright
  16. top=tb.topedge
  17. width=win.width + win.winbleft + win.winbright
  18. height=win.height + win.winbtop + win.winbbottom
  19.  
  20. 'changewindow l 'left' t 'top
  21. addview
  22. 'changewindow l 'left+width' t 'top
  23. addview
  24. 'changewindow l 'left' t 'top+height
  25. addview
  26. 'changewindow l 'left+width' t 'top+height
  27.  
  28.