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])

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

   
OnChar [destroyall]
end

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