home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 15 / MA_Cover_15.iso / workbench / s / closealldrawers.rexx
Encoding:
OS/2 REXX Batch file  |  2000-04-02  |  248 b   |  17 lines
  1. /*
  2.    $VER: CloseAllDrawers.rexx 1.0 (21.12.99)
  3.  
  4.   closes all drawers except root.
  5. */
  6.  
  7. options results
  8.  
  9. address WORKBENCH
  10.  
  11. GETATTR WINDOWS STEM WINDOW
  12.  
  13. do i = 0 to WINDOW.count-1
  14.   IF WINDOW.i ~= "root" THEN
  15.     WINDOW '"'||WINDOW.i||'"' CLOSE
  16. END
  17.