packages/wx/bbs/appli/testSplitOrientation.bbs

   1 description "Simple test of wx::Split widgets"
   2 author "jean-pierre.roux@creatis.univ-lyon1.fr"
   3 category "test"
   4
   5 load std
   6 load wx
   7
   8 new Split main
   9  set main.Orientation H
  10 new Split split2
  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 split2.Widget main.Widget2
  21
  22 set split2.Orientation V
  23 connect s2.Widget split2.Widget1
  24 connect s3.Widget split2.Widget2
  25
  26 print s1=$s1.Out$\n
  27 print s2=$s2.Out$\n
  28 print s3=$s3.Out$\n
  29
  30 exec main