packages/wx/bbs/appli/testSizerOrientation.bbs

   1 description "Simple test of wx::Sizer widgets"
   2 author "jean-pierre.roux@creatis.univ-lyon1.fr"
   3 category "test"
   4
   5 load std
   6 load wx
   7
   8 new Sizer main
   9  set main.Orientation H
  10 new Sizer Sizer2
  11
  12 new Slider s1
  13    set s1.Title "SliderUp"
  14 new Slider s2
  15    set s2.Title "SliderDownLeft"
  16 new Slider s3
  17    set s3.Title "SliderDownRight"
  18
  19 connect s1.Widget     main.Widget1
  20 connect Sizer2.Widget main.Widget2
  21
  22 set Sizer2.Orientation V
  23 connect s2.Widget Sizer2.Widget1
  24 connect s3.Widget Sizer2.Widget2
  25
  26 print s1=$s1.Out$\n
  27 print s2=$s2.Out$\n
  28 print s3=$s3.Out$\n
  29
  30 exec main