home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Resources / System / BoingBag1 / Contributions / Workbench / ARexx / Delete.rexx < prev    next >
OS/2 REXX Batch file  |  1999-12-20  |  326b  |  16 lines
  1. /*
  2.    $VER: Delete.rexx 1.1 (06.11.99) Copyright (c) Nils Görs & Luca Danelon.
  3.  
  4.    deletes selected icon(s). I recommend to install script as
  5.    hotkey placed on the [DEL] button.
  6. */
  7.  
  8. options results
  9.  
  10. ADDRESS WORKBENCH
  11.  
  12. GETATTR OBJECT WINDOWS.ACTIVE
  13. activewin = result
  14.  
  15. MENU WINDOW '"' || activewin || '"' INVOKE ICONS.DELETE
  16.