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