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