aUCBLogo Demos and Tests / slidertest


to slidertest
   
x=0
   
y=0
   
horizontalSlider=(Slider [][X] -400 0 400
      
[   x=SliderValue
         
;(pr "x= x)
         
setXY x y
         
updateGraph
      
]
      
wxSL_horizontal+wxSL_Labels+wxSL_Ticks
      
[10 220][200 80])

   
verticalSlider=(Slider [][Y] -300 0 300
      
[   y=SliderValue
         
;(pr "y y)
         
setXY x y
         
updateGraph
      
]
      
wxSL_vertical+wxSL_Labels+wxSL_Ticks+wxSL_inverse
      
[10 5][80 200])

   
OnChar 
   
[   erase [[][verticalSlider horizontalSlider]]      
      
OnChar [] 
      
(GC true)
   
]
end