# Command string creation
new ConcatStrings concatStrCommand
set concatStrCommand.In1 " "
- connect dquote.Out concatStrCommand.In2
- connect conf.BinPath concatStrCommand.In3
- connect conf.FileSeparator concatStrCommand.In4
+#EED-20-02-2012 connect dquote.Out concatStrCommand.In2
+#EED-20-02-2012 connect conf.BinPath concatStrCommand.In3
+#EED-20-02-2012 connect conf.FileSeparator concatStrCommand.In4
set concatStrCommand.In5 "bbCreateBlackBox"
- connect dquote.Out concatStrCommand.In6
+#EED-20-02-2012 connect dquote.Out concatStrCommand.In6
set concatStrCommand.In7 " "
# Params string creation
# Command + parameters string creation
new ConcatStrings concatStr
- connect dquote.Out concatStr.In1
+#EED-20-02-2012 connect dquote.Out concatStr.In1
connect concatStrCommand.Out concatStr.In2
connect concatStrParam.Out concatStr.In3
- connect dquote.Out concatStr.In4
+#EED-20-02-2012 connect dquote.Out concatStr.In4
# Box which executes the command
new ExecSystemCommand command
set description.Title "Description (html format)"
set description.In "_description_"
-new CommandButton cancelButton
- set cancelButton.In "print **CANCEL**"
- set cancelButton.Label "Cancel"
+#new CommandButton cancelButton
+# set cancelButton.In "print **CANCEL**"
+# set cancelButton.Label "Cancel"
new CommandButton createButton
set createButton.In "print $concatStr.Out$; exec command;"
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
new ConcatStrings concatStrCommand
set concatStrCommand.In1 " "
- connect dquote.Out concatStrCommand.In2
- connect conf.BinPath concatStrCommand.In3
- connect conf.FileSeparator concatStrCommand.In4
+#EED-20-02-2012 connect dquote.Out concatStrCommand.In2
+#EED-20-02-2012 connect conf.BinPath concatStrCommand.In3
+#EED-20-02-2012 connect conf.FileSeparator concatStrCommand.In4
set concatStrCommand.In5 "bbCreatePackage"
- connect dquote.Out concatStrCommand.In6
+#EED-20-02-2012 connect dquote.Out concatStrCommand.In6
set concatStrCommand.In7 " "
new ConcatStrings concatStr
- connect dquote.Out concatStr.In1
+#EED-20-02-2012 connect dquote.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 dquote.Out concatStr.In7
+#EED-20-02-2012 connect dquote.Out concatStr.In7
new ExecSystemCommand command
connect concatStr.Out command.In