1 # ---------------------------------------------------------------------
3 # Copyright (c) CREATIS (Centre de Recherche en Acquisition et Traitement de l'Image
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
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.
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
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 # ------------------------------------------------------------------------ */
27 # ----------------------------------
28 # - BBTKGEditor v 1.3 BBS BlackBox Script
29 # - /home/daniel/Documents/TrabajosCreaTools/Proyectos/PlugPackageBBS/GUIPlugPackage.bbs
30 # ----------------------------------
33 # ----------------------
40 author "Daniel Gonzalez"
41 description "Plug Package Script"
42 category "Core Script"
44 new DirectorySelector directorySelect
45 set directorySelect.Message "Select the location of the package"
46 set directorySelect.Title "Select Package"
49 set Layout.WinHeight "200"
50 set Layout.WinTitle "Plug Package"
51 set Layout.WinWidth "500"
54 set title.In "Plug package directory: "
56 new ExecSystemCommand execution
58 new CommandButton plugButton
59 set plugButton.In "print $lineToExecute.Out$;"
60 set plugButton.Label "Plug it!"
62 new ConcatStrings lineToExecute
63 set lineToExecute.In1 "bbPlugPackage "
65 new OutputText pathText
67 new StringSelect resultString
68 set resultString.In0 "Packaged Successfully Plugged"
69 set resultString.In1 "An error occurred while plugging the package. Please check the command line."
70 set resultString.In2 "An error 2 occurred while plugging the package. Please check the command line."
71 set resultString.In3 "An error 3 occurred while plugging the package. Please check the command line."
72 set resultString.In4 "An error 4 occurred while plugging the package. Please check the command line."
73 set resultString.In5 "An error 5 occurred while plugging the package. Please check the command line."
74 set resultString.In6 "An error 6 occurred while plugging the package. Please check the command line."
75 set resultString.In7 "An error 7 occurred while plugging the package. Please check the command line."
76 set resultString.In8 "An error 8 occurred while plugging the package. Please check the command line."
77 set resultString.In9 "An error 9 occurred while plugging the package. Please check the command line."
79 new LayoutLine resultDialog
80 set resultDialog.WinDialog "true"
81 set resultDialog.WinHeight "100"
82 set resultDialog.WinTitle "Result"
83 set resultDialog.WinWidth "400"
85 new OutputText textLabel
88 connect title.Widget Layout.Widget1
89 connect lineToExecute.Out execution.In
90 connect plugButton.Widget Layout.Widget3
91 connect directorySelect.Out lineToExecute.In2
92 connect directorySelect.Out pathText.In
93 connect pathText.Widget Layout.Widget2
94 connect plugButton.BoxChange execution.BoxExecute
95 connect textLabel.Widget resultDialog.Widget1
96 connect plugButton.BoxChange resultDialog.BoxExecute
97 connect plugButton.BoxChange textLabel.BoxExecute
98 connect execution.Return resultString.In
99 connect resultString.Out textLabel.In
100 connect plugButton.BoxChange resultString.BoxExecute