bbCreatePackage

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

diff --git a/packages/toolsbbtk/bbs/appli/CreatePackage.bbs b/packages/toolsbbtk/bbs/appli/CreatePackage.bbs
index e424dbe71be73c2a9b3a13995503ed57c03e75a8..26fa6ad4980a7f0794b6e7946e02f223d163023d 100644 (file)
--- a/packages/toolsbbtk/bbs/appli/CreatePackage.bbs
+++ b/packages/toolsbbtk/bbs/appli/CreatePackage.bbs
@@ -14,11 +14,11 @@ set name.In "NEW_PACKAGE"
 
 new InputText author
 set author.Title "Author(s)"
-set author.In " "
+set author.In "<author>"
 
 new InputText description
 set description.Title "Description"
-set description.In " "
+set description.In "<description>"
 
 new LayoutLine info
 connect name.Widget info.Widget1
@@ -28,34 +28,21 @@ 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 "'"
+new ConcatStrings concatStr
+set concatStr.In1 "./bbCreatePackage "
+connect dir.Out concatStr.In2 
+set concatStr.In3 " "
+connect name.Out concatStr.In4 
+set concatStr.In5 " '"
+connect author.Out concatStr.In6 
+set concatStr.In7 "' '"
+connect description.Out concatStr.In8 
+set concatStr.In9 "'"
+
 
 new ExecSystemCommand command
-connect concat8.Out command.In
-print $concat8.Out$
+connect concatStr.Out command.In
+print $concatStr.Out$
 exec command
 #seg fault :
 #quit