no message

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

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