packages/wx/bbs/boxes/bbLayoutTDown.bbs

   1
   2 load std
   3 load wx
   4 //                       ---------------
   5 //                       |      |      |
   6 //                       |  W1  |  W2  |
   7 //                       |-------------|
   8 //                       |             |
   9 //                       |     W3      |
  10 //                       ---------------
  11
  12 define LayoutTDown wx
  13
  14 description "Creates a 'T like' complex container : Down {UpLeft, UpRight} "
  15 author "jean-pierre.roux@creatis.univ-lyon1.fr"
  16 category "complex box, widget"
  17
  18 new LayoutSplit currentBox
  19  set currentBox.Orientation V
  20  new LayoutSplit up
  21
  22  connect up.Widget currentBox.Widget1
  23
  24  set up.Orientation H
  25
  26 new MultipleInputs m
  27  connect currentBox.BoxChange m.In1
  28  connect up.BoxChange         m.In2
  29
  30  input  WinTitle  currentBox.WinTitle  "Title of the window (*)"
  31  input  WinHeight currentBox.WinHeight "Height of the window (*)"
  32  input  WinHide   currentBox.WinHide   "Any signal received hides the window (*)"
  33  input  WinClose  currentBox.WinClose  "Any signal received closes the window (*)"
  34  input  WinWidth  currentBox.WinWidth  "Width of the window (* : only used if the widget is not connected to a Layout box)"
  35
  36  input  Widget1   up.Widget1           "UpLeft container"
  37  input  Widget2   up.Widget2           "UpRight container"
  38  input  Widget3   currentBox.Widget2   "Down container"
  39  output Widget    currentBox.Widget    "Widget"
  40
  41  output BoxChange m.Out                "BoxChange"
  42
  43 endefine
  44