packages/wx/bbs/boxes/bbLayoutTLeft.bbs

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