Feature #1774

[bbtk.git] / packages / toolsbbtk / bbs / appli / GUIPlugPackage.bbs

diff --git a/packages/toolsbbtk/bbs/appli/GUIPlugPackage.bbs b/packages/toolsbbtk/bbs/appli/GUIPlugPackage.bbs
index 4fb5a19114984e52139805efec7c150e2696b703..f01f8be50ad590e119dece765198b98ebec281eb 100644 (file)
--- a/packages/toolsbbtk/bbs/appli/GUIPlugPackage.bbs
+++ b/packages/toolsbbtk/bbs/appli/GUIPlugPackage.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.
+# ------------------------------------------------------------------------ */
+
+
 # ----------------------------------
 # - BBTKGEditor v 1.3 BBS BlackBox Script
 # - /home/daniel/Documents/TrabajosCreaTools/Proyectos/PlugPackageBBS/GUIPlugPackage.bbs
@@ -11,8 +37,8 @@ include itkvtk
 include wx
 include std
 
-author "Daniel F Gonzalez"
-description "Plug Package script"
+author "Daniel Gonzalez"
+description "Plug Package Script"
 category "Core Script"
 
 new DirectorySelector directorySelect
@@ -20,7 +46,9 @@ new DirectorySelector directorySelect
   set directorySelect.Title "Select Package"
 
 new LayoutLine Layout
+  set Layout.WinHeight "200"
   set Layout.WinTitle "Plug Package"
+  set Layout.WinWidth "500"
 
 new OutputText title
   set title.In "Plug package directory: "
@@ -28,7 +56,7 @@ new OutputText title
 new ExecSystemCommand execution
 
 new CommandButton plugButton
-  set plugButton.In "print $lineToExecute.Out$; exec execution;"
+  set plugButton.In "print $lineToExecute.Out$;"
   set plugButton.Label "Plug it!"
 
 new ConcatStrings lineToExecute
@@ -36,6 +64,26 @@ new ConcatStrings lineToExecute
 
 new OutputText pathText
 
+new StringSelect resultString
+  set resultString.In0 "Packaged Successfully Plugged"
+  set resultString.In1 "An error occurred while plugging the package. Please check the command line."
+  set resultString.In2 "An error 2 occurred while plugging the package. Please check the command line."
+  set resultString.In3 "An error 3 occurred while plugging the package. Please check the command line."
+  set resultString.In4 "An error 4 occurred while plugging the package. Please check the command line."
+  set resultString.In5 "An error 5 occurred while plugging the package. Please check the command line."
+  set resultString.In6 "An error 6 occurred while plugging the package. Please check the command line."
+  set resultString.In7 "An error 7 occurred while plugging the package. Please check the command line."
+  set resultString.In8 "An error 8 occurred while plugging the package. Please check the command line."
+  set resultString.In9 "An error 9 occurred while plugging the package. Please check the command line."
+
+new LayoutLine resultDialog
+  set resultDialog.WinDialog "true"
+  set resultDialog.WinHeight "100"
+  set resultDialog.WinTitle "Result"
+  set resultDialog.WinWidth "400"
+
+new OutputText textLabel
+
 
 connect title.Widget Layout.Widget1
 connect lineToExecute.Out execution.In
@@ -43,6 +91,13 @@ connect plugButton.Widget Layout.Widget3
 connect directorySelect.Out lineToExecute.In2
 connect directorySelect.Out pathText.In
 connect pathText.Widget Layout.Widget2
+connect plugButton.BoxChange execution.BoxExecute
+connect textLabel.Widget resultDialog.Widget1
+connect plugButton.BoxChange resultDialog.BoxExecute
+connect plugButton.BoxChange textLabel.BoxExecute
+connect execution.Return resultString.In
+connect resultString.Out textLabel.In
+connect plugButton.BoxChange resultString.BoxExecute
 
 exec directorySelect
 exec Layout