home *** CD-ROM | disk | FTP | other *** search
/ DOpus Plus / DOpus Plus.iso / Tutorial / ARexx Tutorial / TuteRexx / Delete.dopus5 < prev    next >
Encoding:
Text File  |  1998-09-14  |  552 b   |  19 lines
  1. /*
  2. $VER: Delete.dopus5 1.0 (8.9.98)
  3. When you hit Delete, will copy of selected entries to the Trashcan before
  4. deleting them.
  5. */
  6. options results
  7. parse arg port func srce dest args .
  8. address value port
  9.  
  10. if func = 'init' then do
  11.   dopus command "DeleteTC" program "Delete" desc "'Move selected to Trashcan'"
  12.   dopus command "EmptyTC" program "Delete" desc "'Empty the trash'"
  13.   exit
  14.   end
  15.  
  16. if func = 'DeleteTC' then command source srce original move 'TO SYS:Trashcan'
  17. if func = 'EmptyTC' then address command 'Delete SYS:Trashcan/#? QUIET FORCE ALL'
  18. exit
  19.