packages/wx/bbs/boxes/bbLayoutTDown.bbs

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