packages/wx/bbs/appli/testSplitInSplit.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 Split main
   9 #set main.Orientation 1
  10
  11 new Sizer up
  12 set up.Orientation 0
  13
  14 new Sizer down
  15 set down.Orientation 1
  16
  17 new Sizer upRight
  18 set upRight.Orientation 0
  19
  20 new Split upLeft
  21 #set upLeft.Proportion 80
  22
  23 connect up.Widget   main.Widget1
  24 connect down.Widget main.Widget2
  25
  26 connect upLeft.Widget  up.Widget1
  27 connect upRight.Widget up.Widget2
  28
  29 # -- todo : add it, again later
  30 # --        (when RadioButton exists again)
  31
  32 new RadioButton rb
  33 set rb.Title "Rad But"
  34 set rb.In0 "Choix 1"
  35 set rb.In1 "Choix 2"
  36 set rb.In2 "Choix 3"
  37 set rb.In3 "Choix 4"
  38 set rb.In 1
  39
  40
  41 new Slider sUpLeft
  42 new Slider sDown
  43
  44 new Slider s1
  45 set s1.Orientation 1
  46 set s1.Title "s1"
  47 new Slider s2
  48 set s2.Orientation 1
  49 set s2.Title "s2"
  50 new Slider s3
  51 set s3.Orientation 1
  52 set s3.Title "s3"
  53 new Slider s4
  54 set s4.Orientation 1
  55 set s4.Title "s4"
  56
  57 connect s1.Widget upRight.Widget1
  58 connect s2.Widget upRight.Widget2
  59 connect s3.Widget upRight.Widget3
  60 connect s4.Widget upRight.Widget4
  61
  62 connect sUpLeft.Widget upLeft.Widget1
  63 connect rb.Widget      down.Widget2
  64 connect sDown.Widget   down.Widget1
  65
  66 #graph
  67 #set main.WinDialog 1
  68 exec main
  69
  70 set s1.BoxProcessMode 1
  71
  72 print rb=$rb.Out$\n
  73 print s1=$s1.Out$\n
  74 print s2=$s2.Out$\n
  75 print s3=$s3.Out$\n
  76 print s4=$s4.Out$\n
  77 print sUpLeft=$sUpLeft.Out$\n
  78 print sDown=$sDown.Out$\n
  79
  80