aUCBLogo Demos and Tests / floatcontroltest

to floatcontroltest
   clearScreen
   x=0
   y=0
;   f=(Frame [][MyFrame]
;      wxDefault_Frame_Style+wxStay_on_Top
;      [400 300][300 300])

   fcx=(FloatControl [] [X] -400 0 400 1.01 5
      [   x=FloatControlValue
         ;(pr "x= x)
         setXY x y
         updateGraph
      ] 2 0 [10 20][-1 -1])

   fcy=(FloatControl [][Y] -300 10 300 1.1 3
      [   y=FloatControlValue
         ;(pr "y y)
         setXY x y
         updateGraph
      ] 1 0 [10 100][-1 -1])

   OnChar [destroyall]
end

to destroyall
   er [[][fcx fcy]]
   OnChar []
   (GC true)
end