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_"
 
     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
 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
 
 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 
 
 
     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
 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
 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
 
 
 new ExecSystemCommand command
     connect concatStr.Out command.In

-    print $concatStr.Out$

 
 

+exec dir

 exec main
 
 exec main