X-Git-Url: https://git.creatis.insa-lyon.fr/pubgit/?a=blobdiff_plain;f=packages%2Ftoolsbbtk%2Fbbs%2Fappli%2FGUICreatePackage.bbs;h=a2a00660aa07e6f361551d46a26b5bef3acb3b67;hb=620982e33be3ad63c78dc1e6d7cfcf8af1cb0c14;hp=8a56b2ebcdab56a6efbbe93e258164fb992c5bbe;hpb=6ca1e9e935cdf36d2db70451088e87c09550564b;p=bbtk.git diff --git a/packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs b/packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs index 8a56b2e..a2a0066 100644 --- a/packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs +++ b/packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs @@ -1,3 +1,29 @@ +# --------------------------------------------------------------------- +# +# 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. +# ------------------------------------------------------------------------ */ + + description "Creates a new bbtk package file structure on disk (Graphical user interface for the shell script bbCreatePackage)." author "laurent.guigues@creatis.insa-lyon.fr" category "toolsbbtk" @@ -33,7 +59,7 @@ new InputText description # set cancelButton.Label "Cancel" new CommandButton createButton - set createButton.In "print $concatStr.Out$; exec command;" + set createButton.In "print $concatStr.Out$; exec command; exec Box02;" set createButton.Label "Run" @@ -56,7 +82,7 @@ new LayoutLine main new MultipleInputs close connect close.Out main.WinClose - connect cancelButton.BoxChange close.In1 +# connect cancelButton.BoxChange close.In1 connect createButton.BoxChange close.In2 #----------------------------------------------------------------------------- @@ -124,6 +150,27 @@ new ExecSystemCommand command #set FinalMessage.In "Done !" */ + +## ------------------------------------------------ +new OutputText Box01 + set Box01.In " OK... Package created..." + set Box01.WinDialog true + set Box01.WinHeight 100 + set Box01.WinTitle Confirmation + set Box01.WinWidth 400 + +new LayoutLine Box02 + set Box02.WinDialog true + set Box02.WinHeight 200 + set Box02.WinTitle Confirmation + set Box02.WinWidth 400 + connect Box01.Widget Box02.Widget2 + + new OutputText Box03 + connect Box03.Widget Box02.Widget1 + + + exec dir #message all 9 exec main