*** empty log message ***

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

diff --git a/packages/toolsbbtk/bbs/appli/CreateBlackBox.bbs b/packages/toolsbbtk/bbs/appli/CreateBlackBox.bbs
index 232ac05c0521e0fba1808a167405b9e60b6390aa..b7630939d9aa2cd02a6ccefe0f7b304815e01b4f 100644 (file)
--- a/packages/toolsbbtk/bbs/appli/CreateBlackBox.bbs
+++ b/packages/toolsbbtk/bbs/appli/CreateBlackBox.bbs
@@ -6,10 +6,10 @@ load std
 load wx
 
 new OutputText windowTitle
-  set windowTitle.In "- - - - - - - - - - - - - -  Create Blackbox  - - - - - - - - - - - - - -"
+  set windowTitle.In "Black box informations"
 
 new DirectorySelector dir
-    set dir.Title "Select the location of your new package"
+    set dir.Message "Select the location of your new black box"
 
 new InputText nameBlackbox
     set nameBlackbox.Title "Blackbox name         (1 word)"
@@ -65,18 +65,22 @@ new LayoutLine layoutHor
   connect typeBlackbox.Widget layoutHor.Widget1
   connect formatBlackbox.Widget layoutHor.Widget2
 
-new LayoutLine info
-    connect windowTitle.Widget info.Widget1
-    connect nameBlackbox.Widget info.Widget2
-    connect namePackage.Widget info.Widget3
-    connect author.Widget info.Widget4
-    connect description.Widget info.Widget5
-    connect layoutHor.Widget info.Widget6
-    set info.WinDialog true
-    set info.WinWidth 350 
-    set info.WinHeight 500 
-exec info
-
+new CommandButton createButton
+    set createButton.In "exec command; quit"
+    set createButton.Label "Go"
+
+new LayoutLine main
+    connect windowTitle.Widget main.Widget1
+    connect nameBlackbox.Widget main.Widget2
+    connect namePackage.Widget main.Widget3
+    connect author.Widget main.Widget4
+    connect description.Widget main.Widget5
+    connect layoutHor.Widget main.Widget6
+    connect createButton.Widget main.Widget7
+    set main.WinTitle "Create new black box"
+    set main.WinDialog true
+    set main.WinWidth 350 
+    set main.WinHeight 500 
 
 #---------------------------------------------------------------------
 
@@ -111,7 +115,7 @@ new ConcatStrings descriptionStr
 new Configuration conf
 
 new ConcatStrings commandStr
-    set commandStr.In1 "."
+    connect conf.BinPath commandStr.In1        
     connect conf.FileSeparator commandStr.In2 
     set commandStr.In3 "bbCreateBlackBox "
 
@@ -130,7 +134,5 @@ new ExecSystemCommand command
     connect concatStr.Out command.In
     print $concatStr.Out$
 
-exec command
+exec main
 
-#seg fault :
-#quit
\ No newline at end of file