Tigr-m2/tvision-m2/examples/empty.mod

MODULE empty;

(* Smallest possible program: an empty desktop with a status line. *)

FROM InOut IMPORT WriteString, WriteLn;
IMPORT tv;

VAR e : tv.Event; quit : BOOLEAN; st : tv.ViewPtr;

BEGIN
    IF NOT tv.Init() THEN WriteString("not a tty"); WriteLn; HALT END;
    st := tv.NewView(tv.VText, 0, tv.Rows() - 1, tv.Cols(), 1);
    tv.SetText(st, " Empty TVision app - press Esc to quit");
    tv.AddView(tv.Desk(), st);
    tv.Finish;
    quit := FALSE;
    WHILE NOT quit DO
        IF tv.Resized() THEN tv.Finish END;
        IF tv.ReadEvent(e) THEN
            IF (e.kind = tv.evKey) AND (e.key = tv.kEsc) THEN quit := TRUE END;
            IF NOT quit THEN tv.Finish END
        END
    END;
    tv.Done
END empty.