*** empty log message ***

[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..9253935d167407e58e6aa9ac471986a8dec1ba6e 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,19 +100,19 @@ 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