packages/wx/bbs/boxes/bbLayoutTLeft.bbs

   1 load std
   2 load wx
   3
   4 define LayoutTLeft wx
   5
   6 description "Creates a complex box : Left {RigthUp, Rightright}"
   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 right
  13
  14  connect right.Widget currentBox.Widget2
  15
  16  set right.Orientation V
  17
  18  input Widget1 currentBox.Widget1 "Up"
  19  input Widget2 right.Widget1       "RightUp"
  20  input Widget3 right.Widget2       "RightDown"
  21
  22 endefine