10 ! *********************************************************************
20 ! Example: CLOCK Widget
30 !
40 ! This program creates a default CLOCK widget.
50 !
60 ! ***************************************************
70 !
80 ASSIGN @Clock TO WIDGET "CLOCK"
90 CONTROL @Clock;SET ("TITLE":" Example: CLOCK Widget")
100 CONTROL @Clock;SET ("HEIGHT":150,"WIDTH":250)
110 CONTROL @Clock;SET ("X":50,"Y":25)
120 CONTROL @Clock;SET ("SYSTEM MENU":"Quit")
130 ON EVENT @Clock,"SYSTEM MENU" GOTO Finis
140 LOOP
150 WAIT FOR EVENT
160 END LOOP
170 Finis: !
180 ASSIGN @Clock TO * ! Delete CLOCK widget
190 END
