packages/wx/bbs/boxes/bbLayoutTUp.bbs

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