*** 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 896fe064f2e56a209b04724d9ec4da436b06611b..7acc43da376462bf7b0498fb4e27a333a23c62b6 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
   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)"
 
 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)           "
 
 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"
     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.WinWidth 400 

-    set main.WinHeight 250 
+    set main.WinHeight 400 

 
 new MultipleInputs close
     connect close.Out main.WinClose
 
 new MultipleInputs close
     connect close.Out main.WinClose


@@ -107,14 +107,13 @@ new ConcatStrings concatStrCommand
 
 new ConcatStrings concatStr
     connect dquote.Out                 concatStr.In1
 
 new ConcatStrings concatStr
     connect dquote.Out                 concatStr.In1

-    connect  concatStrCommand.Out      concatStr.In2
+    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
 
     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
 

-

 new ExecSystemCommand command
     connect concatStr.Out command.In
 
 new ExecSystemCommand command
     connect concatStr.Out command.In