home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / graphic / painting / arteffectdemo / shellscripts / currentinfo next >
Encoding:
Text File  |  1995-07-10  |  505 b   |  29 lines
  1. /*
  2.  * getinfo rexx
  3.  */
  4.  
  5. options results
  6.  
  7. address "ArtEffect"
  8.  
  9. 'activatewindow current'
  10.  
  11. getinfo STEM info.
  12.  
  13. say "Name: " info.name
  14.  
  15. if ~(info.changed=0) then say "modified"
  16. else say "not modified"
  17.  
  18. say "Width: " info.width
  19. say "Height: " info.height
  20. say "Number of Views: " info.views
  21. say "Screen Width: " info.scrwidth
  22. say "Screen Height: " info.scrheight
  23. say "Screen Bar: " info.scrbarheight
  24. say "Window Borders:"
  25. say "   " info.winbtop
  26. say info.winbleft "   " info.winbright
  27. say "   " info.winbbottom
  28.  
  29.