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 upLeft.Widget  currentBox.Widget1
  28  connect upRight.Widget currentBox.Widget2
  29
  30  connect upLeft.Widget  up.Widget1
  31  connect upRight.Widget up.Widget2
  32
  33  connect downLeft.Widget  down.Widget1
  34  connect downRight.Widget down.Widget2
  35
  36 new MultipleInputs m
  37  connect currentBox.BoxChange m.In1
  38  connect upLeft.BoxChange     m.In2
  39  connect upRight.BoxChange    m.In3
  40  connect downLeft.BoxChange   m.In5
  41  connect downRight.BoxChange  m.In5
  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   currentBox.Widget2   "DownLeft container"
  52  input  Widget4   currentBox.Widget4   "DownRight container"
  53  output Widget    currentBox.Widget    "Widget"
  54
  55  output BoxChange m.Out                "BoxChange"
  56
  57 endefine
  58