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.49.0