no message

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