home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / graphic / painting / arteffectdemo / shellscripts / windowlist < prev   
Encoding:
Text File  |  1995-07-10  |  222 b   |  16 lines
  1. /* list commands and their templates
  2.  */
  3.  
  4. options results
  5.  
  6. address "ArtEffect"
  7.  
  8. windowlist STEM me.
  9.  
  10. say "open windows: " || me.windowlist.count
  11. say
  12.  
  13. do i=0 to me.windowlist.count-1
  14.     say i+1 || ": " || me.windowlist.i
  15. end
  16.