/* "Tools|Edit Text File..." command */

OPTIONS RESULTS
ADDRESS "WORKBENCH"

GETATTR WINDOWS.ACTIVE
SourceFile = RESULT
IF SourceFile = "" THEN DO
    ADDRESS COMMAND 'SYS:Tools/EditPad'
    EXIT
END

GETATTR WINDOW.ICONS.SELECTED.COUNT NAME SourceFile
IF RESULT = 0 THEN DO
    ADDRESS COMMAND 'SYS:Tools/EditPad'
    EXIT
END

GETATTR WINDOW.ICONS.SELECTED NAME SourceFile STEM ActiveWinIcons
IF RIGHT(SourceFile,1) ~= ":" THEN SourceFile = SourceFile || "/"
SourceFile = SourceFile || ActiveWinIcons.0.NAME
ADDRESS COMMAND 'SYS:Tools/EditPad "'SourceFile'"'