BUGs CPACK + BUGs CreatePackage CreateBlackBox windows

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

diff --git a/packages/toolsbbtk/bbs/appli/CreateBlackBox.bbs b/packages/toolsbbtk/bbs/appli/CreateBlackBox.bbs
index 25d6c1553e1c663157468d948c5aba6e037d409b..12547923efd52ca4830b70e22fd14b3739db02c8 100644 (file)
--- a/packages/toolsbbtk/bbs/appli/CreateBlackBox.bbs
+++ b/packages/toolsbbtk/bbs/appli/CreateBlackBox.bbs
@@ -65,17 +65,17 @@ new LayoutLine layoutHor
   connect typeBlackbox.Widget layoutHor.Widget1
   connect formatBlackbox.Widget layoutHor.Widget2
 
-new CommandButton cancelButton
-    set cancelButton.In "quit"
-    set cancelButton.Label "Cancel"
+#new CommandButton cancelButton
+#    set cancelButton.In "quit"
+#    set cancelButton.Label "Cancel"
 
 new CommandButton createButton
-    set createButton.In "exec command; quit"
-    set createButton.Label "Go"
+    set createButton.In "print $concatStr.Out$; exec command; "
+    set createButton.Label "Run"
 
 new LayoutLine buttons
     set buttons.Orientation Horizontal
-    connect cancelButton.Widget buttons.Widget1
+#    connect cancelButton.Widget buttons.Widget1
     connect createButton.Widget buttons.Widget2
 
 new LayoutLine main
@@ -93,9 +93,15 @@ new LayoutLine main
 
 #---------------------------------------------------------------------
 
+new ASCII ascii
+  set ascii.In 34
+
 new ConcatStrings dirStr
- connect dir.Out dirStr.In1
- set dirStr.In2 " "
+ set dirStr.In1 " "
+ connect ascii.Out dirStr.In2
+ connect dir.Out dirStr.In3
+ connect ascii.Out dirStr.In4
+ set dirStr.In5 " "
 
 new ConcatStrings packageNameStr
  connect namePackage.Out packageNameStr.In1
@@ -114,19 +120,26 @@ new ConcatStrings formatStr
  set formatStr.In2 " "
 
 new ConcatStrings authorStr
- connect author.Out authorStr.In1
- set authorStr.In2 " "
+ set authorStr.In1 " '"
+ connect author.Out authorStr.In2
+ set authorStr.In3 "' "
 
 new ConcatStrings descriptionStr
- connect description.Out descriptionStr.In1
- set descriptionStr.In2 " "
+ set descriptionStr.In1 " '"
+ connect description.Out descriptionStr.In2
+ set descriptionStr.In3 "' "
 
 new Configuration conf
 
 new ConcatStrings commandStr
-    connect conf.BinPath commandStr.In1        
-    connect conf.FileSeparator commandStr.In2 
-    set commandStr.In3 "bbCreateBlackBox "
+    set                                                commandStr.In1 " "
+    connect ascii.Out                  commandStr.In2
+    connect conf.BinPath               commandStr.In3
+    connect conf.FileSeparator commandStr.In4
+    set                                                commandStr.In5 "bbCreateBlackBox"
+    connect ascii.Out                  commandStr.In6
+    set                                                commandStr.In7 " "
+
 
 new ConcatStrings concatStr
     connect  commandStr.Out            concatStr.In1 
@@ -138,10 +151,14 @@ new ConcatStrings concatStr
     connect authorStr.Out                      concatStr.In7
     connect descriptionStr.Out         concatStr.In8
 
+new ConcatStrings concatStr2
+    connect  ascii.Out                         concatStr2.In1 
+    connect concatStr.Out                      concatStr2.In2 
+    connect ascii.Out                          concatStr2.In3
 
 new ExecSystemCommand command
-    connect concatStr.Out command.In
-    print $concatStr.Out$
+    connect concatStr2.Out command.In
 
+exec dir
 exec main