connect dir.Out dirOutput.In
new OutputText windowTitle
- set windowTitle.In "Package informations"
+ set windowTitle.In "Create new package folder in :"
new InputText name
set name.Title "Name (1 word)"
connect description.Widget main.Widget5
connect buttons.Widget main.Widget6
set main.WinTitle "Create new black box package"
- set main.WinDialog true
+# set main.WinDialog true
set main.WinWidth 400
- set main.WinHeight 250
+ set main.WinHeight 400
new MultipleInputs close
connect close.Out main.WinClose
connect descriptionStr.Out concatStr.In6
connect dquote.Out concatStr.In7
-
new ExecSystemCommand command
connect concatStr.Out command.In
/*
-new OutputText FinalMessage
-set FinalMessage.WinWidth 100
-set FinalMessage.WinHeight 100
-set FinalMessage.In "Done !"
+#new OutputText FinalMessage
+#set FinalMessage.WinWidth 100
+#set FinalMessage.WinHeight 100
+#set FinalMessage.In "Done !"
*/
exec dir