-new LayoutLine info
- connect windowTitle.Widget info.Widget1
- connect name.Widget info.Widget2
- connect author.Widget info.Widget3
- connect description.Widget info.Widget4
- set info.WinDialog true
- set info.WinWidth 400
- set info.WinHeight 250
-exec info
+#new CommandButton cancelButton
+# set cancelButton.In "quit"
+# set cancelButton.Label "Cancel"
+
+new CommandButton createButton
+ 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 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 "' "
+