/* looks for images in lha archives and views them */

/* --------------------- standard startup ----------------------- */

OPTIONS RESULTS

if( ADDRESS() ~= "IDESK_REXXPORT" ) then
    ADDRESS IDESK_REXXPORT

/* -------------------------------------------------------------- */

IDGETFILE '"Select lha archive"'
if (RC > 0) then exit
filename = RESULT

ADDRESS COMMAND
'lha -q -x0 e 'filename' t:ID/'

ADDRESS IDESK_REXXPORT
VIEWPATH 't:ID'

ADDRESS COMMAND
'delete t:ID ALL QUIET'

ADDRESS IDESK_REXXPORT
IDREQUEST OK '"Script executed"'