home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / FileMover / HF-OM1.DMS / in.adf / CoreMagellan.lha / Storage / Modules / container.dopus5 < prev    next >
Encoding:
Text File  |  1996-07-29  |  721 b   |  32 lines
  1. /*
  2.  
  3.    $VER: container.dopus5 1.0 (29.07.96)
  4.  
  5.    Example of an 'arexx module'. This program adds an "Open Container" item
  6.    to the popup menu for left-out icons. When selected, this item will
  7.    open a new lister with the parent directory of the icon loaded, and
  8.    will select the file automatically.
  9.  
  10.    This program must go in the DOpus5:Modules directory.
  11.  
  12. */
  13.  
  14. parse arg portname ' ' function ' ' source ' ' dest ' ' file
  15. address value portname
  16. options results
  17.  
  18. /* Initialise */
  19.  
  20. if function='init' then do
  21.     dopus command "Container" program "container" private ext "'Open Container'" type leftout
  22.     exit
  23.     end
  24.  
  25.  
  26. /* Container function */
  27.  
  28. if function='Container' then do
  29.     command scandir file new container
  30.     exit
  31.     end
  32.