*** empty log message ***

[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 54fecd0e0b2e106a15ce08658a2906321384fbad..51be17ca89e602ab187b05a9380e674c163ac519 100644 (file)
--- a/packages/toolsbbtk/bbs/appli/CreatePackage.bbs
+++ b/packages/toolsbbtk/bbs/appli/CreatePackage.bbs
@@ -1,16 +1,21 @@
 description "Creates a new bbtk package file structure on disk (Graphical user interface for the script bbCreatePackage)."
 author "laurent.guigues at creatis.insa-lyon.fr"
-category "bbtk tool"
+category "toolsbbtk"
 
 load wx
 load std 
 
-new OutputText windowTitle
-  set windowTitle.In "Package informations"
 
 new DirectorySelector dir
     set dir.Message "Select the location of your new package"
 
+#-----------------------------------------------------------------------------
+new OutputText dirOutput
+  connect dir.Out dirOutput.In
+
+new OutputText windowTitle
+  set windowTitle.In "Package informations"
+
 new InputText name
     set name.Title "Name         (1 word)"
     set name.In "NEW_PACKAGE"
@@ -38,15 +43,17 @@ new LayoutLine buttons
 
 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
+    connect dirOutput.Widget main.Widget2
+    connect name.Widget main.Widget3
+    connect author.Widget main.Widget4
+    connect description.Widget main.Widget5
+    connect buttons.Widget main.Widget6
     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