packages/wx/bbs/boxes/bbLayoutTUp.bbs

   1 load std
   2 load wx
   3 //                       ----------------
   4 //                       |    W1        |
   5 //                       |              |
   6 //                       |------|-------|
   7 //                       | W3   |  W2   |
   8 //                       |      |       |
   9 //                       ----------------
  10 define LayoutTUp wx
  11
  12 description "Creates a 'T like' complex container : Up {DownLeft, DownRight} as w1{w2,w3}"
  13 author "jean-pierre.roux@creatis.univ-lyon1.fr"
  14 category "complex box, widget"
  15
  16 new LayoutSplit currentBox
  17  set currentBox.Orientation V
  18  new LayoutSplit down
  19
  20  connect down.Widget currentBox.Widget2
  21
  22  set down.Orientation H
  23
  24  input Widget1 currentBox.Widget1 "Up container"
  25  input Widget2 down.Widget1       "DownLeft container"
  26  input Widget3 down.Widget2       "DownRight container"
  27
  28 endefine