aUCBLogo Demos and Tests / windowtest

to windowtest
   w=(Slider [][Slider1] 10 15 20
      [print SliderValue]
      wxVERTICAL+wxSL_TICKS+wxVSCROLL [10 20][30 40])
   WindowCenter w wxHORIZONTAL
   WindowCenterOnParent w wxBOTH
   (WindowEnable w false)
   WindowEnable w
   WindowSetBackgroundColor w "green
   WindowClearBackground w
   WindowSetClientSize w 100 60
   WindowSetFocus w
   print WindowFindFocus
   show WindowFindWindowById 111
   show WindowFindWindowByLabel [Slider1]
   show WindowFindWindowByName [Slider1]
   WindowSetFontName w "Arial
   WindowSetFontSize w 25
   WindowSetFontStyle w wxFONTSTYLE_ITALIC
   WindowSetFontWeight w wxFONTWEIGHT_BOLD
   WindowSetForegroundColor w "red
   bs=BoxSizer wxVERTICAL
   WindowSetSizer w bs
   WindowFitInside w
   WindowFit w
   WindowFreeze w
   WindowThaw w
   show WindowGetBackgroundColor w
   show WindowGetBackgroundStyle w
   show WindowGetBestSize w
   show WindowGetCapture
   show WindowGetCaret w
   show WindowGetCharHeight w
   show WindowGetCharWidth w
   show WindowGetClientSize w
   show WindowGetCursor w
   show WindowGetExtraStyle w
   show WindowGetForegroundColor w
   show WindowGetGrandParent w
   show WindowGetHandle w
   show WindowGetHelpText w
   show WindowGetId w
   show WindowGetLabel w
   show WindowGetMaxSize w
   show WindowGetMinSize w
   show WindowGetName w
   show WindowGetParent w
   show WindowGetPosition w
   show WindowGetRect w
   WindowSetVirtualSize w 100 300
   WindowSetScrollPos w wxVERTICAL 100 true
   WindowClose w
   ConsoleSetFocus
end