#2865 BBTK Feature New Normal - new option in CleanExternalPlane DimImage+2 (Type 1)

[bbtk.git] / packages / toolsbbtk / bbs / appli / GUICreatePackage.bbs

diff --git a/packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs b/packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs
index 7acc43da376462bf7b0498fb4e27a333a23c62b6..a2a00660aa07e6f361551d46a26b5bef3acb3b67 100644 (file)
--- a/packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs
+++ b/packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs
@@ -1,3 +1,29 @@
+# ---------------------------------------------------------------------
+#
+# 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"
 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"


@@ -28,18 +54,18 @@ new InputText description
     set description.Title "Description            (html format)"
     set description.In "_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 cancelButton
+#    set cancelButton.In "print **CANCEL**"
+#    set cancelButton.Label "Cancel"

 
 new CommandButton createButton
 
 new CommandButton createButton

-    set createButton.In "print $concatStr.Out$; exec command;"
+    set createButton.In "print $concatStr.Out$; exec command; exec Box02;"

     set createButton.Label "Run"
     
 
 new LayoutLine buttons
     set buttons.Orientation Horizontal
     set createButton.Label "Run"
     
 
 new LayoutLine buttons
     set buttons.Orientation Horizontal

-    connect cancelButton.Widget buttons.Widget1
+#    connect cancelButton.Widget buttons.Widget1

     connect createButton.Widget buttons.Widget2
 
 new LayoutLine main
     connect createButton.Widget buttons.Widget2
 
 new LayoutLine main


@@ -56,7 +82,7 @@ new LayoutLine main
 
 new MultipleInputs close
     connect close.Out main.WinClose
 
 new MultipleInputs close
     connect close.Out main.WinClose

-    connect cancelButton.BoxChange close.In1
+#    connect cancelButton.BoxChange close.In1

     connect createButton.BoxChange close.In2
 
 #-----------------------------------------------------------------------------
     connect createButton.BoxChange close.In2
 
 #-----------------------------------------------------------------------------


@@ -98,32 +124,53 @@ new ConcatStrings descriptionStr
 
 new ConcatStrings concatStrCommand
     set concatStrCommand.In1 " "
 
 new ConcatStrings concatStrCommand
     set concatStrCommand.In1 " "

-    connect dquote.Out                 concatStrCommand.In2
-    connect conf.BinPath               concatStrCommand.In3
-    connect conf.FileSeparator         concatStrCommand.In4
+#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"
     set                                        concatStrCommand.In5  "bbCreatePackage"

-    connect dquote.Out                 concatStrCommand.In6
+#EED-20-02-2012    connect dquote.Out                  concatStrCommand.In6

     set                                        concatStrCommand.In7  " "
 
 new ConcatStrings concatStr
     set                                        concatStrCommand.In7  " "
 
 new ConcatStrings concatStr

-    connect dquote.Out                 concatStr.In1
+#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
     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

-    connect dquote.Out                 concatStr.In7
+#EED-20-02-2012    connect dquote.Out                  concatStr.In7

 
 new ExecSystemCommand command
     connect concatStr.Out command.In
 
 /*
 
 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 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
 exec dir
 #message all 9
 exec main