# --------------------------------------------------------------------- # # Copyright (c) CREATIS (Centre de Recherche en Acquisition et Traitement de l'Image # pour la SantÈ) # Authors : Eduardo Davila, Frederic Cervenansky, Claire Mouton # Previous Authors : Laurent Guigues, Jean-Pierre Roux # CreaTools website : www.creatis.insa-lyon.fr/site/fr/creatools_accueil # # This software is governed by the CeCILL-B license under French law and # abiding by the rules of distribution of free software. You can use, # modify and/ or redistribute the software under the terms of the CeCILL-B # license as circulated by CEA, CNRS and INRIA at the following URL # http://www.cecill.info/licences/Licence_CeCILL-B_V1-en.html # or in the file LICENSE.txt. # # As a counterpart to the access to the source code and rights to copy, # modify and redistribute granted by the license, users are provided only # with a limited warranty and the software's author, the holder of the # economic rights, and the successive licensors have only limited # liability. # # The fact that you are presently reading this means that you have had # knowledge of the CeCILL-B license and that you accept its terms. # ------------------------------------------------------------------------ */ load std load wx // --------------- // | | | // | W1 | W2 | // |-------------| // | | | // | W3 | W4 | // --------------- define LayoutX4 wx description "Creates a '+ like' complex container : {UpLeft, UpRight} {DownLeft, DownRigth} " author "jean-pierre.roux@creatis.univ-lyon1.fr" category "complex box, widget" new LayoutSplit currentBox set currentBox.Orientation V new LayoutSplit up set up.Orientation H new LayoutSplit down set down.Orientation H connect up.Widget currentBox.Widget1 connect down.Widget currentBox.Widget2 /* connect upLeft.Widget up.Widget1 connect upRight.Widget up.Widget2 connect downLeft.Widget down.Widget1 connect downRight.Widget down.Widget2 */ new MultipleInputs m connect currentBox.BoxChange m.In1 connect up.BoxChange m.In2 connect down.BoxChange m.In3 input WinTitle currentBox.WinTitle "Title of the window (*)" input WinHeight currentBox.WinHeight "Height of the window (*)" input WinHide currentBox.WinHide "Any signal received hides the window (*)" input WinClose currentBox.WinClose "Any signal received closes the window (*)" input WinWidth currentBox.WinWidth "Width of the window (* : only used if the widget is not connected to a Layout box)" input Widget1 up.Widget1 "UpLeft container" input Widget2 up.Widget2 "UpRight container" input Widget3 down.Widget1 "DownLeft container" input Widget4 down.Widget2 "DownRight container" output Widget currentBox.Widget "Widget" output BoxChange m.Out "BoxChange" endefine