/* 

   $VER: Execute.filer 1.3 (12.6.95)

   Author:
    Matthias Scheler <tron@lyssa.owl.de>

   Function:
    Opens a string requester, asks for a command and its args and then
    executes the comand in the directory of the current directory listview.

    It's Filer's equivalent for the Workbench's "Execute" menu item.

   History:
    1.2   removed unnecessary ADDRESS 'FilerRexx'
    1.3   added "CALL" before "SETCLIP" to prevent search for "1.rexx"

   Call from Filer:
    EXECUTE

   Example for "Filer.RC":
    BUTTON ...,...,"Execute","EXECUTE"

*/

OPTIONS RESULTS

'STATUS Execute command'
PANEL OFF

Command=GETCLIP('FILER_COMMAND')
'SETSTRING' Command

GETSTRING 'Enter command and args:'
IF RESULT="RESULT" THEN
 DO
  PANEL ON
  'STATUS Execution aborted'
  EXIT 5
 END

Command=RESULT
CALL SETCLIP('FILER_COMMAND',Command)

'EXECANDWAIT' Command
UPDATESOURCEDIR

PANEL ON
'HISTORY Command "'||Command||'" executed.'