aUCBLogo Demos and Tests / intcontroltest

to intcontroltest
   clearScreen
   x=0
   y=0
   h=(IntControl [][X] -400 0 400
      [   x=IntControlValue
         ;(pr "x= x)
         setXY x y
         updateGraph
      ] wxSP_Arrow_Keys [10 20][80 -1])

   v=(IntControl [][Y] -300 10 300
      [   y=IntControlValue
         ;(pr "y y)
         setXY x y
         updateGraph
      ] wxSP_Arrow_Keys [10 60][80 -1])

   OnChar [er [[][h v]] OnChar [] GC]
end