DEFINE VARIABLE cLogFile AS CHARACTER INITIAL "logs/log.txt" NO-UNDO.
DEFINE VARIABLE cLogViewer AS CHARACTER VIEW-AS EDITOR NO-WORD-WRAP
SCROLLBAR-HORIZONTAL SCROLLBAR-VERTICAL
LARGE SIZE 70 BY 18 NO-UNDO.
FORM
cLogViewer
WITH FRAME frMain NO-LABELS.
DO WITH FRAME frMain ON ENDKEY UNDO, LEAVE:
DISPLAY cLogViewer.
ASSIGN cLogViewer:READ-ONLY = TRUE.
cLogViewer:INSERT-FILE( cLogFile ) NO-ERROR.
ENABLE cLogViewer.
WAIT FOR END-ERROR OF FRAME frMain.
END.