From: Eduardo Davila <Eduardo.Davila@creatis.insa-lyon.fr>
Date: Mon, 20 Feb 2012 11:10:07 +0000 (+0000)
Subject: no message
X-Git-Url: https://git.creatis.insa-lyon.fr/pubgit/?a=commitdiff_plain;h=fd7b0886c60e7a34bafadd13709ce8e08f1feb8c;p=bbtk.git

no message
---

diff --git a/packages/toolsbbtk/bbs/appli/GUICreateBlackBox.bbs b/packages/toolsbbtk/bbs/appli/GUICreateBlackBox.bbs
index 38cbd77..65d3e9c 100644
--- a/packages/toolsbbtk/bbs/appli/GUICreateBlackBox.bbs
+++ b/packages/toolsbbtk/bbs/appli/GUICreateBlackBox.bbs
@@ -78,7 +78,7 @@ new LayoutSplit layoutTypeFormat
   set layoutTypeFormat.Proportion 60
 
 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 layoutButtons
@@ -191,6 +191,23 @@ new ConcatStrings concatStr
 new ExecSystemCommand command
     connect concatStr.Out command.In
 
+## ------------------------------------------------
+new OutputText Box01
+   set Box01.In "            OK... Box 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
 exec main
diff --git a/packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs b/packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs
index 8a56b2e..f1f31dd 100644
--- a/packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs
+++ b/packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs
@@ -33,7 +33,7 @@ new InputText description
 #    set cancelButton.Label "Cancel"
 
 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"
     
 
@@ -56,7 +56,7 @@ new LayoutLine main
 
 new MultipleInputs close
     connect close.Out main.WinClose
-    connect cancelButton.BoxChange close.In1
+#    connect cancelButton.BoxChange close.In1
     connect createButton.BoxChange close.In2
 
 #-----------------------------------------------------------------------------
@@ -124,6 +124,27 @@ new ExecSystemCommand command
 #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