Fix

[bbtk.git] / packages / toolsbbtk / bbs / appli / GUICreatePackage.bbs

diff --git a/packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs b/packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs
index 1a57bc96f5e886dc6050246a2cfb8dd7c9345b2b..15f4a8d17f1998cc81d3809012e9c0f74f800b34 100644 (file)
--- a/packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs
+++ b/packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs
@@ -14,11 +14,11 @@ new OutputText dirOutput
   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)"
-    set name.In "NEW_PACKAGE"
+    set name.In "PACKAGE_NAME"
 
 new InputText author
     set author.Title "Author(s)           "
@@ -50,9 +50,9 @@ new LayoutLine main
     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
@@ -100,29 +100,28 @@ new ConcatStrings concatStrCommand
     set concatStrCommand.In1 " "
     connect dquote.Out                 concatStrCommand.In2
     connect conf.BinPath               concatStrCommand.In3
-    connect conf.FileSeparator concatStrCommand.In4
-    set                                                concatStrCommand.In5  "bbCreatePackage"
+    connect conf.FileSeparator         concatStrCommand.In4
+    set                                        concatStrCommand.In5  "bbCreatePackage"
     connect dquote.Out                 concatStrCommand.In6
-    set                                                concatStrCommand.In7  " "
+    set                                        concatStrCommand.In7  " "
 
 new ConcatStrings concatStr
-    connect dquote.Out                         concatStr.In1
-    connect  concatStrCommand.Out concatStr.In2
-    connect dirStr.Out                         concatStr.In3
+    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 authorStr.Out              concatStr.In5 
     connect descriptionStr.Out         concatStr.In6
-    connect dquote.Out                         concatStr.In7
-
+    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