# ---------------------------------------------------------------------
#
# 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.
# ------------------------------------------------------------------------ */


description "Creates a new bbtk package file structure on disk (Graphical user interface for the shell script bbCreatePackage)."
author "laurent.guigues@creatis.insa-lyon.fr"
category "toolsbbtk"

load wx
load std 


new DirectorySelector dir
    set dir.Message "Select the location of your new package"

#-----------------------------------------------------------------------------
new OutputText dirOutput
  connect dir.Out dirOutput.In

new OutputText windowTitle
  set windowTitle.In "Create new package folder in :"

new InputText name
    set name.Title "Name         (1 word)"
    set name.In "PACKAGE_NAME"

new InputText author
    set author.Title "Author(s)           "
    set author.In "_author_"

new InputText description
    set description.Title "Description            (html format)"
    set description.In "_description_"

#new CommandButton cancelButton
#    set cancelButton.In "print **CANCEL**"
#    set cancelButton.Label "Cancel"

new CommandButton createButton
    set createButton.In "print $concatStr.Out$; exec command; exec Box02;"
    set createButton.Label "Run"
    

new LayoutLine buttons
    set buttons.Orientation Horizontal
#    connect cancelButton.Widget buttons.Widget1
    connect createButton.Widget buttons.Widget2

new LayoutLine main
    connect windowTitle.Widget main.Widget1
    connect dirOutput.Widget main.Widget2
    connect name.Widget main.Widget3
    connect author.Widget main.Widget4
    connect description.Widget main.Widget5
    connect buttons.Widget main.Widget6
    set main.WinTitle "Create new black box package"
#    set main.WinDialog true
    set main.WinWidth 400 
    set main.WinHeight 400 

new MultipleInputs close
    connect close.Out main.WinClose
#    connect cancelButton.BoxChange close.In1
    connect createButton.BoxChange close.In2

#-----------------------------------------------------------------------------
new Configuration conf
# on windows : enclose paths between double quotes 
# if system==0 (Linux) dquote=space (ascci code 32)
# if system==1 (Win) dquote==" (ascii code 34)
new StringSelect onsystem
set onsystem.In0 "32"
set onsystem.In1 "34"
new ASCII dquote
connect conf.SystemType onsystem.In
connect onsystem.Out dquote.In
#set dquote.In 34

new ConcatStrings dirStr
 set dirStr.In1 " "
 connect dquote.Out dirStr.In2
 connect dir.Out dirStr.In3
 connect dquote.Out dirStr.In4
 set dirStr.In5 " "

new ConcatStrings nameStr
 set nameStr.In1 "  "
 connect name.Out nameStr.In2
 set nameStr.In3 " "

new ConcatStrings authorStr
 set authorStr.In1 " '"
 connect author.Out authorStr.In2
 set authorStr.In3 "' "

new ConcatStrings descriptionStr
 set descriptionStr.In1 " '"
 connect description.Out descriptionStr.In2
 set descriptionStr.In3 "' "



new ConcatStrings concatStrCommand
    set concatStrCommand.In1 " "
#EED-20-02-2012    connect dquote.Out			concatStrCommand.In2
#EED-20-02-2012    connect conf.BinPath		concatStrCommand.In3
#EED-20-02-2012    connect conf.FileSeparator		concatStrCommand.In4
    set					concatStrCommand.In5  "bbCreatePackage"
#EED-20-02-2012    connect dquote.Out			concatStrCommand.In6
    set					concatStrCommand.In7  " "

new ConcatStrings concatStr
#EED-20-02-2012    connect dquote.Out			concatStr.In1
    connect concatStrCommand.Out 	concatStr.In2
    connect dirStr.Out			concatStr.In3
    connect nameStr.Out			concatStr.In4 
    connect authorStr.Out		concatStr.In5 
    connect descriptionStr.Out		concatStr.In6
#EED-20-02-2012    connect dquote.Out			concatStr.In7

new ExecSystemCommand command
    connect concatStr.Out command.In

/*
#new OutputText FinalMessage
#set FinalMessage.WinWidth 100
#set FinalMessage.WinHeight 100
#set FinalMessage.In "Done !"
*/


## ------------------------------------------------
new OutputText Box01
   set Box01.In "            OK... Package created..."
   set Box01.WinDialog true
   set Box01.WinHeight 100
   set Box01.WinTitle Confirmation
   set Box01.WinWidth 400
 
new LayoutLine Box02
   set Box02.WinDialog true
   set Box02.WinHeight 200
   set Box02.WinTitle Confirmation
   set Box02.WinWidth 400
   connect Box01.Widget Box02.Widget2
 
 new OutputText Box03
   connect Box03.Widget Box02.Widget1



exec dir
#message all 9
exec main