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