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