aUCBLogo Demos and Tests / gaugetest

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

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

   hg=(Gauge f [Gauge1] 400 100
      wxGA_horizontal+wxGA_smooth)
   GaugeSetColor hg "red
   GaugeSetBackgroundColor hg "blue

   bclose=(Button f "
   [   destroyAll
   ] 0 [0 150][100 30] wxID_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