home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Resources / System / BoingBag1 / Contributions / Workbench / ARexx / CloseWin.rexx < prev    next >
OS/2 REXX Batch file  |  1999-12-20  |  296b  |  18 lines
  1. /*
  2.    $VER: CloseWin.rexx 1.0 (27.8.99) Copyright (c) Nils Görs.
  3.  
  4.  Closes all windows except "root" on Workbench.
  5. */
  6.  
  7. options results
  8.  
  9. address workbench
  10.  
  11. GETATTR WINDOWS STEM WINDOW
  12.  
  13. IF WINDOW.COUNT = 1 THEN EXIT
  14.  
  15. do i = 0 to WINDOW.count-1
  16.   IF WINDOW.i ~= "root" THEN WINDOW WINDOW.i CLOSE
  17. END
  18.