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
   9 new Sizer main
  10  set main.Orientation H
  11 new Sizer Sizer2
  12
  13 new Slider s1
  14    set s1.Title "SliderUp"
  15 new Slider s2
  16    set s2.Title "SliderDownLeft"
  17 new Slider s3
  18    set s3.Title "SliderDownRight"
  19
  20 connect s1.Widget     main.Widget1
  21 connect Sizer2.Widget main.Widget2
  22
  23 set Sizer2.Orientation V
  24 connect s2.Widget Sizer2.Widget1
  25 connect s3.Widget Sizer2.Widget2
  26
  27 print s1=$s1.Out$\n
  28 print s2=$s2.Out$\n
  29 print s3=$s3.Out$\n
  30
  31 exec main