no message

diff --git a/packages/toolsbbtk/bbs/appli/GUICreateBlackBox.bbs b/packages/toolsbbtk/bbs/appli/GUICreateBlackBox.bbs
index 38cbd77f9195b49235fd2e24cb3a2ee7a9d4f172..65d3e9c40b42105ebc76371b49e5af4f80744a2b 100644 (file)
--- 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 8a56b2ebcdab56a6efbbe93e258164fb992c5bbe..f1f31dd0c48f38ab888f1e29c582c5e93aa14248 100644 (file)
--- 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