Creating a Slide Bar btn.smov = 8 btn.sup = 9 btn.dclk = 3 ; Slide bar position and start-up values x = 20 y = 60 length = 200 max.pos = 100 arrow_inc = 10 handle_pos = 50 ; Enable monitoring of slide bars and pointer drags FSET (glun) "/event object move_b2" ; Display the slide bar GSLIDE (glun, 0) 1 = x, y, length, max_pos, arrow_inc, handle_pos ; Begin monitoring events and take action when the slide bar ; is moved.
Monitor ; events until a double click is detected, then delete the ; slide bar DO GETEVENT (glun) event[] IF (event[0] == btn.smov) OR (event[0] == btn.sup THEN ; Your code to monitor the slide bar value (event[2]) goes ; here END UNTIL event[0] == btn.dclk ; Delete the slide bar GSLIDE (glun, 1) 1 eV+Language User's Guide, v2.x, 18318-000 Rev A Page 173