home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / SYS / Rexx / ViewLha.IDesk < prev   
Text File  |  1995-04-05  |  541b  |  27 lines
  1. /* looks for images in lha archives and views them */
  2.  
  3. /* --------------------- standard startup ----------------------- */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. if( ADDRESS() ~= "IDESK_REXXPORT" ) then
  8.     ADDRESS IDESK_REXXPORT
  9.  
  10. /* -------------------------------------------------------------- */
  11.  
  12. IDGETFILE '"Select lha archive"'
  13. if (RC > 0) then exit
  14. filename = RESULT
  15.  
  16. ADDRESS COMMAND
  17. 'lha -q -x0 e 'filename' t:ID/'
  18.  
  19. ADDRESS IDESK_REXXPORT
  20. VIEWPATH 't:ID'
  21.  
  22. ADDRESS COMMAND
  23. 'delete t:ID ALL QUIET'
  24.  
  25. ADDRESS IDESK_REXXPORT
  26. IDREQUEST OK '"Script executed"'
  27.