packages/wx/bbs/boxes/bbLayoutTDown.bbs

   1 load std
   2 load wx
   3 //                       ---------------
   4 //                       |      |      |
   5 //                       |  W1  |  W2  |
   6 //                       |-------------|
   7 //                       |             |
   8 //                       |     W3      |
   9 //                       ---------------
  10
  11 define LayoutTDown wx
  12
  13 description "Creates a complex box : Down {UpLeft, UpRight} "
  14 author "jean-pierre.roux@creatis.univ-lyon1.fr"
  15 category "complex box, widget"
  16
  17 new LayoutSplit currentBox
  18  set currentBox.Orientation V
  19  new LayoutSplit up
  20
  21  connect up.Widget currentBox.Widget1
  22
  23  set up.Orientation H
  24
  25  input Widget1 up.Widget1         "UpLeft"
  26  input Widget2 up.Widget2         "UpRight"
  27  input Widget3 currentBox.Widget2 "Down"
  28
  29 endefine