packages/toolsbbtk/bbs/appli/GUIPlugPackage.bbs

   1 # ---------------------------------------------------------------------
   2 #
   3 # Copyright (c) CREATIS (Centre de Recherche en Acquisition et Traitement de l'Image
   4 #                        pour la SantÈ)
   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
   8 #
   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.
  15 #
  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
  20 #  liability.
  21 #
  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 # ------------------------------------------------------------------------ */
  25
  26
  27 # ----------------------------------
  28 # - BBTKGEditor v 1.3 BBS BlackBox Script
  29 # - /home/daniel/Documents/TrabajosCreaTools/Proyectos/PlugPackageBBS/GUIPlugPackage.bbs
  30 # ----------------------------------
  31
  32 # BBTK GEditor Script
  33 # ----------------------
  34
  35 include std
  36 include itkvtk
  37 include wx
  38 include std
  39
  40 author "Daniel Gonzalez"
  41 description "Plug Package Script"
  42 category "Core Script"
  43
  44 new DirectorySelector directorySelect
  45   set directorySelect.Message "Select the location of the package"
  46   set directorySelect.Title "Select Package"
  47
  48 new LayoutLine Layout
  49   set Layout.WinHeight "200"
  50   set Layout.WinTitle "Plug Package"
  51   set Layout.WinWidth "500"
  52
  53 new OutputText title
  54   set title.In "Plug package directory: "
  55
  56 new ExecSystemCommand execution
  57
  58 new CommandButton plugButton
  59   set plugButton.In "print $lineToExecute.Out$;"
  60   set plugButton.Label "Plug it!"
  61
  62 new ConcatStrings lineToExecute
  63   set lineToExecute.In1 "bbPlugPackage "
  64
  65 new OutputText pathText
  66
  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."
  78
  79 new LayoutLine resultDialog
  80   set resultDialog.WinDialog "true"
  81   set resultDialog.WinHeight "100"
  82   set resultDialog.WinTitle "Result"
  83   set resultDialog.WinWidth "400"
  84
  85 new OutputText textLabel
  86
  87
  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
 101
 102 exec directorySelect
 103 exec Layout