Example: Scrollbar Widget
|
10 ! *********************************************************************
20 ! Example: SCROLLBAR Widget
30 !
40 ! This program generates a horizontal SCROLLBAR widget
50 ! and displays the value set with the slider.
60 !
70 ! **************************************************
80 !
90 ASSIGN @Scroll TO WIDGET "SCROLLBAR"
100 CONTROL @Scroll;SET ("TITLE":" Example: SCROLLBAR Widget")
110 CONTROL @Scroll;SET ("ORIENTATION":"HORIZONTAL")
120 CONTROL @Scroll;SET ("X":50,"Y":25,"HEIGHT":50,"WIDTH":275)
130 CONTROL @Scroll;SET ("SYSTEM MENU":"Quit")
140 !
150 ON EVENT @Scroll,"SYSTEM MENU" GOTO Finis
160 ON EVENT @Scroll,"DONE" GOSUB Dispval
170 LOOP
180 WAIT FOR EVENT
190 END LOOP
200 !
210 Dispval: !
220 STATUS @Scroll;RETURN ("VALUE":Scrollval)
230 DISP Scrollval
240 RETURN
250 !
260 Finis: !
270 CLEAR SCREEN
280 ASSIGN @Scroll TO * ! Delete SCROLLBAR widget
290 END