home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Resources / System / BoingBag1 / Contributions / Workbench / ARexx / Open.rexx < prev    next >
OS/2 REXX Batch file  |  1999-12-20  |  528b  |  21 lines
  1. /*
  2.    $VER: Open.rexx 1.3 (06.11.99) Copyright (c) Nils Görs & Luca Danelon.
  3.  
  4.    Opens an drawer or starts an tool. I recommend to install this script as
  5.    hotkey placed on the [RETURN] button.
  6.    Using the argument YES will open a new drawer but root drawer become active
  7.    window again.
  8. */
  9.  
  10. options results
  11. PARSE ARG keeporig
  12.  
  13. ADDRESS WORKBENCH
  14.  
  15. GETATTR OBJECT WINDOWS.ACTIVE
  16. activewin = result
  17.  
  18. MENU WINDOW '"' || activewin || '"' INVOKE ICONS.OPEN
  19.  
  20. IF keeporig = "YES" THEN WINDOW WINDOWS '"' || activewin || '"' ACTIVATE
  21.