+# ---------------------------------------------------------------------
+#
+# 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
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
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: "
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
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
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