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 Slider s1
   9 new Slider s2
  10 new Slider s3
  11
  12 new Split split1
  13 new Split split2
  14
  15 connect s1.Widget     split1.Widget1
  16 connect split2.Widget split1.Widget2
  17
  18 set split2.Orientation 1
  19 connect s2.Widget split2.Widget1
  20 connect s3.Widget split2.Widget2
  21
  22 #set s1.BoxProcessMode 2
  23 #set s2.BoxProcessMode 2
  24
  25 #set split1.WinDialog true
  26
  27 print s1=$s1.Out$\n
  28 print s2=$s2.Out$\n
  29 print s3=$s3.Out$\n
  30