Anonymous user
Simple windowed application: Difference between revisions
m
Modula-3 (added pragma to supress unhandled exception warning)
(Modula-3) |
m (Modula-3 (added pragma to supress unhandled exception warning)) |
||
Line 621:
<lang modula3>MODULE Click EXPORTS Main;
IMPORT Fmt, TextVBT, ButtonVBT, VBT, Axis, HVSplit, TrestleComm, Trestle;
VAR label := TextVBT.New("There have been no clicks yet.");
Line 634:
END Clicked;
<*FATAL TrestleComm.Failure*>
BEGIN
Trestle.Install(main);
|