# ---------------------------------------------------------------------
#
# 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
# ----------------------------------

# BBTK GEditor Script
# ----------------------

include std
include itkvtk
include wx
include std

author "Daniel Gonzalez"
description "Plug Package Script"
category "Core Script"

new DirectorySelector directorySelect
  set directorySelect.Message "Select the location of the package"
  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$;"
  set plugButton.Label "Plug it!"

new ConcatStrings lineToExecute
  set lineToExecute.In1 "bbPlugPackage "

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 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