X-Git-Url: https://git.creatis.insa-lyon.fr/pubgit/?a=blobdiff_plain;ds=sidebyside;f=packages%2Ftoolsbbtk%2Fbbs%2Fappli%2FGUICreatePackage.bbs;h=7acc43da376462bf7b0498fb4e27a333a23c62b6;hb=80c01320fbade82fcc5bc972f2ed9f3e65239987;hp=896fe064f2e56a209b04724d9ec4da436b06611b;hpb=633a2d8ff58454192289298734ec36c7ae699805;p=bbtk.git diff --git a/packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs b/packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs index 896fe06..7acc43d 100644 --- 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 @@ -107,14 +107,13 @@ new ConcatStrings concatStrCommand 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 - new ExecSystemCommand command connect concatStr.Out command.In