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
   9 #----- I N T E R F A C E  -------------------------------------
  10
  11
  12 new Split main
  13  set main.Orientation H
  14
  15 new Sizer up
  16 set up.Orientation 0
  17
  18 new Sizer down
  19   set down.Orientation 1
  20   new Slider sDown
  21   connect sDown.Widget   down.Widget1
  22   new RadioButton rb
  23     set rb.Title "Rad But"
  24     set rb.In0 "Choix 1"
  25     set rb.In1 "Choix 2"
  26     set rb.In2 "Choix 3"
  27     set rb.In3 "Choix 4"
  28     set rb.In 1
  29    connect rb.Widget down.Widget2
  30
  31
  32 connect up.Widget   main.Widget1
  33 connect down.Widget main.Widget2
  34
  35
  36   new Split upLeft
  37     #set upLeft.Proportion 80
  38     new Slider eed
  39     connect eed.Widget upLeft.Widget1
  40     new Slider sUpLeft
  41     connect sUpLeft.Widget upLeft.Widget2
  42   connect upLeft.Widget up.Widget1
  43
  44
  45   new Sizer upRight
  46     set upRight.Orientation 0
  47     new Slider s1
  48     set s1.Orientation 1
  49     set s1.Title "s1"
  50     new Slider s2
  51     set s2.Orientation 1
  52     set s2.Title "s2"
  53     new Slider s3
  54     set s3.Orientation 1
  55     set s3.Title "s3"
  56     new Slider s4
  57     set s4.Orientation 1
  58     set s4.Title "s4"
  59     connect s1.Widget upRight.Widget1
  60     connect s2.Widget upRight.Widget2
  61     connect s3.Widget upRight.Widget3
  62     connect s4.Widget upRight.Widget4
  63   connect upRight.Widget up.Widget2
  64
  65 #------p i p e l i n e---------------------------------------
  66 #...
  67 #------------------------------------------------------------
  68
  69
  70 graph
  71 #set main.WinDialog 1
  72 exec main
  73
  74 set s1.BoxProcessMode 1
  75
  76 print rb=$rb.Out$\n
  77 print s1=$s1.Out$\n
  78 print s2=$s2.Out$\n
  79 print s3=$s3.Out$\n
  80 print s4=$s4.Out$\n
  81 print sUpLeft=$sUpLeft.Out$\n
  82 print sDown=$sDown.Out$\n
  83
  84