packages/wx/bbs/boxes/bbLayoutTDown.bbs

   1 # ---------------------------------------------------------------------
   2 #
   3 # Copyright (c) CREATIS (Centre de Recherche en Acquisition et Traitement de l'Image
   4 #                        pour la SantÈ)
   5 # Authors : Eduardo Davila, Frederic Cervenansky, Claire Mouton
   6 # Previous Authors : Laurent Guigues, Jean-Pierre Roux
   7 # CreaTools website : www.creatis.insa-lyon.fr/site/fr/creatools_accueil
   8 #
   9 #  This software is governed by the CeCILL-B license under French law and
  10 #  abiding by the rules of distribution of free software. You can  use,
  11 #  modify and/ or redistribute the software under the terms of the CeCILL-B
  12 #  license as circulated by CEA, CNRS and INRIA at the following URL
  13 #  http://www.cecill.info/licences/Licence_CeCILL-B_V1-en.html
  14 #  or in the file LICENSE.txt.
  15 #
  16 #  As a counterpart to the access to the source code and  rights to copy,
  17 #  modify and redistribute granted by the license, users are provided only
  18 #  with a limited warranty  and the software's author,  the holder of the
  19 #  economic rights,  and the successive licensors  have only  limited
  20 #  liability.
  21 #
  22 #  The fact that you are presently reading this means that you have had
  23 #  knowledge of the CeCILL-B license and that you accept its terms.
  24 # ------------------------------------------------------------------------ */
  25
  26
  27
  28 load std
  29 load wx
  30 //                       ---------------
  31 //                       |      |      |
  32 //                       |  W1  |  W2  |
  33 //                       |-------------|
  34 //                       |             |
  35 //                       |     W3      |
  36 //                       ---------------
  37
  38 define LayoutTDown wx
  39
  40 description "Creates a 'T like' complex container : Down {UpLeft, UpRight} "
  41 author "jean-pierre.roux@creatis.univ-lyon1.fr"
  42 category "complex box, widget"
  43
  44 new LayoutSplit currentBox
  45  set currentBox.Orientation V
  46  new LayoutSplit up
  47
  48  connect up.Widget currentBox.Widget1
  49
  50  set up.Orientation H
  51
  52 new MultipleInputs m
  53  connect currentBox.BoxChange m.In1
  54  connect up.BoxChange         m.In2
  55
  56  input  WinTitle  currentBox.WinTitle  "Title of the window (*)"
  57  input  WinHeight currentBox.WinHeight "Height of the window (*)"
  58  input  WinHide   currentBox.WinHide   "Any signal received hides the window (*)"
  59  input  WinClose  currentBox.WinClose  "Any signal received closes the window (*)"
  60  input  WinWidth  currentBox.WinWidth  "Width of the window (* : only used if the widget is not connected to a Layout box)"
  61
  62  input  Widget1   up.Widget1           "UpLeft container"
  63  input  Widget2   up.Widget2           "UpRight container"
  64  input  Widget3   currentBox.Widget2   "Down container"
  65  output Widget    currentBox.Widget    "Widget"
  66
  67  output BoxChange m.Out                "BoxChange"
  68
  69 endefine
  70