packages/wx/bbs/appli/exampleComplexLayoutLine_In_LayoutLine.bbs

   1 description "More complicated example of wx::LayoutLine widgets"
   2 author "jean-pierre.roux@creatis.univ-lyon1.fr"
   3 category "example"
   4
   5 load std
   6 load wx
   7
   8
   9 #----- I N T E R F A C E  -------------------------------------
  10
  11 // Just to see the mess when you want something not so simple...
  12
  13 //                          upLeft    upRight
  14 //                        ----------|-----------|
  15 //                        |         |           |
  16 //                        |         |           |
  17 //                        |         |           |
  18 //      UP                |---------|           |
  19 //                        |         |           |
  20 //                        |         |           |
  21 //                        |         |           |
  22 //     ----------         -----------------------
  23 //                        |                     |
  24 //                        |                     |
  25 //                        |                     |
  26 //                        |                     |
  27 //        DOWN            ----------|-----------|
  28 //                        |         |           |
  29 //                        |         |           |
  30 //                        |         |           |  downDown
  31 //                        |         |           |
  32 //                        ----------------------
  33 new LayoutLine main
  34  set main.Orientation V
  35
  36 new LayoutLine up
  37   set up.Orientation H
  38
  39 new LayoutLine down
  40   set down.Orientation V
  41   new Slider s1Down
  42       set s1Down.Title "s1Down"
  43   connect s1Down.Widget   down.Widget1
  44
  45  new LayoutLine downDown
  46   set downDown.Orientation H
  47   connect downDown.Widget down.Widget2
  48
  49   new RadioButton rb1
  50     set rb1.Title "Rad But DownLeft"
  51     set rb1.In0 "Choix 1"
  52     set rb1.In1 "Choix 2"
  53     set rb1.In2 "Choix 3"
  54     set rb1.In3 "Choix 4"
  55     set rb1.In 1
  56    connect rb1.Widget downDown.Widget1
  57
  58
  59   new RadioButton rb2
  60     set rb2.Title "Rad But DownLeft"
  61     set rb2.In0 "Choix 1"
  62     set rb2.In1 "Choix 2"
  63     set rb2.In2 "Choix 3"
  64     set rb2.In3 "Choix 4"
  65     set rb2.In 4
  66    connect rb2.Widget downDown.Widget2
  67
  68
  69   connect up.Widget   main.Widget1
  70   connect down.Widget main.Widget2
  71
  72   new LayoutLine upLeft
  73
  74     new Slider sUpLeft10
  75       set sUpLeft10.Title "sUpLeft10"
  76     connect sUpLeft10.Widget upLeft.Widget1
  77     new Slider sUpLeft11
  78       set sUpLeft11.Title "sUpLeft11"
  79     connect sUpLeft11.Widget upLeft.Widget2
  80     new Slider sUpLeft12
  81       set sUpLeft12.Title "sUpLeft12"
  82     connect sUpLeft12.Widget upLeft.Widget3
  83     new Slider sUpLeft13
  84       set sUpLeft13.Title "sUpLeft13"
  85     connect sUpLeft13.Widget upLeft.Widget4
  86
  87     new Slider sUpLeft14
  88       set sUpLeft14.Title "sUpLeft14"
  89     connect sUpLeft14.Widget upLeft.Widget5
  90     new Slider sUpLeft15
  91       set sUpLeft15.Title "sUpLeft15"
  92     connect sUpLeft15.Widget upLeft.Widget6
  93     new Slider sUpLeft16
  94       set sUpLeft16.Title "sUpLeft16"
  95     connect sUpLeft16.Widget upLeft.Widget7
  96     new Slider sUpLeft17
  97       set sUpLeft17.Title "sUpLeft17"
  98     connect sUpLeft17.Widget upLeft.Widget8
  99   connect upLeft.Widget up.Widget1
 100
 101   new LayoutLine upRight
 102     set upRight.Orientation H
 103     new Slider s1
 104     set s1.Orientation V
 105     set s1.Title "s1"
 106     new Slider s2
 107     set s2.Orientation V
 108     set s2.Title "s2"
 109     new Slider s3
 110     set s3.Orientation V
 111     set s3.Title "s3"
 112     new Slider s4
 113     set s4.Orientation V
 114     set s4.Title "s4"
 115     connect s1.Widget upRight.Widget1
 116     connect s2.Widget upRight.Widget2
 117     connect s3.Widget upRight.Widget3
 118     connect s4.Widget upRight.Widget4
 119   connect upRight.Widget up.Widget2
 120
 121 #------p i p e l i n e---------------------------------------
 122 #...
 123 #------------------------------------------------------------
 124
 125
 126 //graph
 127 #set main.WinDialog 1
 128 exec main
 129
 130
 131 set s1.BoxProcessMode 1
 132
 133
 134 //print rb=$rb.Out$\n
 135
 136 /*
 137 print s1=$s1.Out$\n
 138 print s2=$s2.Out$\n
 139 print s3=$s3.Out$\n
 140 print s4=$s4.Out$\n
 141 print sUpLeft=$sUpLeft.Out$\n
 142 print sDown=$sDown.Out$\n
 143 */
 144