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