set description.Title "Description (caracters '<', '>' not accepted...)"
set description.In "_description_"
-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
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