From fd7b0886c60e7a34bafadd13709ce8e08f1feb8c Mon Sep 17 00:00:00 2001
From: Eduardo Davila <Eduardo.Davila@creatis.insa-lyon.fr>
Date: Mon, 20 Feb 2012 11:10:07 +0000
Subject: [PATCH] no message

---
 .../toolsbbtk/bbs/appli/GUICreateBlackBox.bbs | 19 +++++++++++++-
 .../toolsbbtk/bbs/appli/GUICreatePackage.bbs  | 25 +++++++++++++++++--
 2 files changed, 41 insertions(+), 3 deletions(-)

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