aUCBLogo Demos and Tests / gaugetest


to gaugetest
   
f=Frame [][MyFrame]
      
wxDefault_Frame_Style+wxStay_on_Top
      
[400 300][210 250]
   
FrameSetBackgroundColor [.9 .9 .82]

   
hs=(Slider [X0 100 400
      
[   x=SliderValue
         
GaugeSetValue hg x
      
]
      
wxSL_horizontal+wxSL_Labels+wxSL_Ticks)

   
hg=(Gauge [Gauge1400 100 
      
wxGA_horizontal+wxGA_smooth)
   
GaugeSetColor hg "red
   
GaugeSetBackgroundColor hg "blue

   
bclose=(Button " 
   
[   destroyAll
   
[0 150][100 30wxID_Close)
   
   
bs=BoxSizer wxVertical
   
BoxSizerAdd bs hs 100 wxExpand 0
   
BoxSizerAdd bs hg 100 wxExpand 0
   
BoxSizerAdd bs bclose 100 wxExpand+wxAll 20
   
FrameSetSizer f bs
end

to destroyAll
   
er [[][f hs hg bclose]] 
   
OnChar [] 
   
GC
end