X-Git-Url: https://git.creatis.insa-lyon.fr/pubgit/?a=blobdiff_plain;f=packages%2Ftoolsbbtk%2Fbbs%2Fappli%2FCreatePackage.bbs;h=54fecd0e0b2e106a15ce08658a2906321384fbad;hb=4a17a289103f77885e288aaae250e57c91ae3424;hp=e424dbe71be73c2a9b3a13995503ed57c03e75a8;hpb=8b08a96679e9c6f02040a3fbec3714e674884bfd;p=bbtk.git

diff --git a/packages/toolsbbtk/bbs/appli/CreatePackage.bbs b/packages/toolsbbtk/bbs/appli/CreatePackage.bbs
index e424dbe..54fecd0 100644
--- a/packages/toolsbbtk/bbs/appli/CreatePackage.bbs
+++ b/packages/toolsbbtk/bbs/appli/CreatePackage.bbs
@@ -5,57 +5,99 @@ category "bbtk tool"
 load wx
 load std 
 
+new OutputText windowTitle
+  set windowTitle.In "Package informations"
+
 new DirectorySelector dir
-set dir.Title "Select the location of your new package"
+    set dir.Message "Select the location of your new package"
 
 new InputText name
-set name.Title "Name"
-set name.In "NEW_PACKAGE"
+    set name.Title "Name         (1 word)"
+    set name.In "NEW_PACKAGE"
 
 new InputText author
-set author.Title "Author(s)"
-set author.In " "
+    set author.Title "Author(s)           (caracters   '<',  '>' not accepted...)"
+    set author.In "_author_"
 
 new InputText description
-set description.Title "Description"
-set description.In " "
-
-new LayoutLine info
-connect name.Widget info.Widget1
-connect author.Widget info.Widget2
-connect description.Widget info.Widget3
-
-set info.WinDialog true
-exec info
-
-new ConcatStrings concat1
-set concat1.In1 "bbCreatePackage "
-connect dir.Out concat1.In2
-new ConcatStrings concat2
-connect concat1.Out concat2.In1
-set concat2.In2 " "
-new ConcatStrings concat3
-connect concat2.Out concat3.In1
-connect name.Out concat3.In2
-new ConcatStrings concat4
-connect concat3.Out concat4.In1
-set concat4.In2 " '"
-new ConcatStrings concat5
-connect concat4.Out concat5.In1
-connect author.Out concat5.In2
-new ConcatStrings concat6
-connect concat5.Out concat6.In1
-set concat6.In2 "' '"
-new ConcatStrings concat7
-connect concat6.Out concat7.In1
-connect description.Out concat7.In2
-new ConcatStrings concat8
-connect concat7.Out concat8.In1
-set concat8.In2 "'"
+    set description.Title "Description            (caracters   '<',  '>' not accepted...)"
+    set description.In "_description_"
+
+#new CommandButton cancelButton
+#    set cancelButton.In "quit"
+#    set cancelButton.Label "Cancel"
+
+new CommandButton createButton
+    set createButton.In "print $concatStr.Out$; exec command; "
+    set createButton.Label "Run"
+
+new LayoutLine buttons
+    set buttons.Orientation Horizontal
+ #   connect cancelButton.Widget buttons.Widget1
+    connect createButton.Widget buttons.Widget2
+
+new LayoutLine main
+    connect windowTitle.Widget main.Widget1
+    connect name.Widget main.Widget2
+    connect author.Widget main.Widget3
+    connect description.Widget main.Widget4
+    connect buttons.Widget main.Widget5
+    set main.WinTitle "Create new black box package"
+    set main.WinDialog true
+    set main.WinWidth 400 
+    set main.WinHeight 250 
+
+
+new ASCII ascii
+  set ascii.In 34
+
+new ConcatStrings dirStr
+ set dirStr.In1 " "
+ connect ascii.Out dirStr.In2
+ connect dir.Out dirStr.In3
+ connect ascii.Out dirStr.In4
+ set dirStr.In5 " "
+
+new ConcatStrings nameStr
+ set nameStr.In1 "  "
+ connect name.Out nameStr.In2
+ set nameStr.In3 " "
+
+new ConcatStrings authorStr
+ set authorStr.In1 " '"
+ connect author.Out authorStr.In2
+ set authorStr.In3 "' "
+
+new ConcatStrings descriptionStr
+ set descriptionStr.In1 " '"
+ connect description.Out descriptionStr.In2
+ set descriptionStr.In3 "' "
+
+
+
+new Configuration conf
+new ConcatStrings concatStrCommand
+    set concatStrCommand.In1 " "
+    connect ascii.Out			concatStrCommand.In2
+    connect conf.BinPath		concatStrCommand.In3
+    connect conf.FileSeparator	concatStrCommand.In4
+    set						concatStrCommand.In5  "bbCreatePackage"
+    connect ascii.Out			concatStrCommand.In6
+    set						concatStrCommand.In7  " "
+
+new ConcatStrings concatStr
+    connect ascii.Out				concatStr.In1
+    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 ascii.Out				concatStr.In7
+
 
 new ExecSystemCommand command
-connect concat8.Out command.In
-print $concat8.Out$
-exec command
-#seg fault :
-#quit
+    connect concatStr.Out command.In
+
+exec dir
+exec main
+