Fixed :

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

diff --git a/packages/toolsbbtk/bbs/appli/CreatePackage.bbs b/packages/toolsbbtk/bbs/appli/CreatePackage.bbs
index ecd1cd6d6bbfc3b5b07740e2765a6f12fbac0232..54fecd0e0b2e106a15ce08658a2906321384fbad 100644 (file)
--- a/packages/toolsbbtk/bbs/appli/CreatePackage.bbs
+++ b/packages/toolsbbtk/bbs/appli/CreatePackage.bbs
@@ -23,43 +23,81 @@ new InputText description
     set description.Title "Description            (caracters   '<',  '>' not accepted...)"
     set description.In "_description_"
 
+#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 createButton.Widget buttons.Widget2
 
 new LayoutLine main
     connect windowTitle.Widget main.Widget1
     connect name.Widget main.Widget2
     connect author.Widget main.Widget3
     connect description.Widget main.Widget4
-    connect createButton.Widget main.Widget5
+    connect buttons.Widget main.Widget5
     set main.WinTitle "Create new black box package"
     set main.WinDialog true
     set main.WinWidth 400 
     set main.WinHeight 250 
 
 
+new ASCII ascii
+  set ascii.In 34
+
+new ConcatStrings dirStr
+ set dirStr.In1 " "
+ connect ascii.Out dirStr.In2
+ connect dir.Out dirStr.In3
+ connect ascii.Out dirStr.In4
+ set dirStr.In5 " "
+
+new ConcatStrings nameStr
+ set nameStr.In1 "  "
+ connect name.Out nameStr.In2
+ set nameStr.In3 " "
+
+new ConcatStrings authorStr
+ set authorStr.In1 " '"
+ connect author.Out authorStr.In2
+ set authorStr.In3 "' "
+
+new ConcatStrings descriptionStr
+ set descriptionStr.In1 " '"
+ connect description.Out descriptionStr.In2
+ set descriptionStr.In3 "' "
+
+
+
 new Configuration conf
 new ConcatStrings concatStrCommand
-#    set concatStrCommand.In1 "."
-    connect conf.BinPath concatStrCommand.In1
-    connect conf.FileSeparator concatStrCommand.In2 
-    set concatStrCommand.In3 "bbCreatePackage "
+    set concatStrCommand.In1 " "
+    connect ascii.Out                  concatStrCommand.In2
+    connect conf.BinPath               concatStrCommand.In3
+    connect conf.FileSeparator concatStrCommand.In4
+    set                                                concatStrCommand.In5  "bbCreatePackage"
+    connect ascii.Out                  concatStrCommand.In6
+    set                                                concatStrCommand.In7  " "
+
 new ConcatStrings concatStr
-    connect  concatStrCommand.Out concatStr.In1 
-    connect dir.Out concatStr.In2 
-    set concatStr.In3 " "
-    connect name.Out concatStr.In4 
-    set concatStr.In5 " '"
-    connect author.Out concatStr.In6 
-    set concatStr.In7 "' '"
-    connect description.Out concatStr.In8 
-    set concatStr.In9 "'"
+    connect ascii.Out                          concatStr.In1
+    connect  concatStrCommand.Out concatStr.In2
+    connect dirStr.Out                         concatStr.In3
+    connect nameStr.Out                        concatStr.In4 
+    connect authorStr.Out                      concatStr.In5 
+    connect descriptionStr.Out         concatStr.In6
+    connect ascii.Out                          concatStr.In7
 
 
 new ExecSystemCommand command
     connect concatStr.Out command.In
-    print $concatStr.Out$
 
+exec dir
 exec main