packages/wx/bbs/boxes/bbLayoutX4.bbs

   1
   2 load std
   3 load wx
   4 //                       ---------------
   5 //                       |      |      |
   6 //                       |  W1  |  W2  |
   7 //                       |-------------|
   8 //                       |      |      |
   9 //                       |  W3  |  W4  |
  10 //                       ---------------
  11
  12 define LayoutX4 wx
  13
  14 description "Creates a '+ like' complex container : {UpLeft, UpRight} {DownLeft, DownRigth} "
  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
  21 new LayoutSplit up
  22   set up.Orientation H
  23
  24 new LayoutSplit down
  25   set down.Orientation H
  26
  27  connect up.Widget   currentBox.Widget1
  28  connect down.Widget currentBox.Widget2
  29
  30 /*
  31  connect upLeft.Widget  up.Widget1
  32  connect upRight.Widget up.Widget2
  33
  34  connect downLeft.Widget  down.Widget1
  35  connect downRight.Widget down.Widget2
  36 */
  37
  38 new MultipleInputs m
  39  connect currentBox.BoxChange m.In1
  40  connect up.BoxChange         m.In2
  41  connect down.BoxChange       m.In3
  42
  43  input  WinTitle  currentBox.WinTitle  "Title of the window (*)"
  44  input  WinHeight currentBox.WinHeight "Height of the window (*)"
  45  input  WinHide   currentBox.WinHide   "Any signal received hides the window (*)"
  46  input  WinClose  currentBox.WinClose  "Any signal received closes the window (*)"
  47  input  WinWidth  currentBox.WinWidth  "Width of the window (* : only used if the widget is not connected to a Layout box)"
  48
  49  input  Widget1   up.Widget1           "UpLeft container"
  50  input  Widget2   up.Widget2           "UpRight container"
  51  input  Widget3   down.Widget1         "DownLeft container"
  52  input  Widget4   down.Widget2         "DownRight container"
  53  output Widget    currentBox.Widget    "Widget"
  54
  55  output BoxChange m.Out                "BoxChange"
  56
  57 endefine
  58