no message

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

diff --git a/packages/toolsbbtk/bbs/appli/GUICreateBlackBox.bbs b/packages/toolsbbtk/bbs/appli/GUICreateBlackBox.bbs
index a23fc3c25ea9e5bf298f775b9db97b56929025d3..0a83f8a242726f2066d986abaf873510d6934297 100644 (file)
--- a/packages/toolsbbtk/bbs/appli/GUICreateBlackBox.bbs
+++ b/packages/toolsbbtk/bbs/appli/GUICreateBlackBox.bbs
@@ -1,18 +1,18 @@
-description "Creates the XML or C++ code for a new black box"
-author "eduardo.davila at creatis.insa-lyon.fr"
+description "Creates the XML or C++ code for a new black box (interface for bbCreateBlackBox)"
+author "eduardo.davila@creatis.insa-lyon.fr"

 category "toolsbbtk"
 
 load std 
 load wx
 
 new OutputText windowTitle
 category "toolsbbtk"
 
 load std 
 load wx
 
 new OutputText windowTitle

-  set windowTitle.In "Black box informations"
+  set windowTitle.In "Create new black box in folder :"

 
 new DirectorySelector dir
     set dir.Message "Select the location of your new black box"
 
 new InputText nameBlackbox
 
 new DirectorySelector dir
     set dir.Message "Select the location of your new black box"
 
 new InputText nameBlackbox

-    set nameBlackbox.Title "Blackbox name         (1 word)"
+    set nameBlackbox.Title "Black box name         (1 word)"

     set nameBlackbox.In "BLACKBOX_NAME"
 
 new InputText namePackage
     set nameBlackbox.In "BLACKBOX_NAME"
 
 new InputText namePackage


@@ -32,17 +32,18 @@ new InputText description
 
 
 new RadioButton typeBlackbox
 
 
 new RadioButton typeBlackbox

-  set typeBlackbox.Title "Type of the blackbox :"
-  set typeBlackbox.In0 "std-template"
-  set typeBlackbox.In1 "VTK_PolyDataAlgorithm-template"
-  set typeBlackbox.In2 "VTK_ImageAlgorithm-template"
-  set typeBlackbox.In3 "widget-template "
+  set typeBlackbox.Title "Type of the black box :"
+  set typeBlackbox.In0 "Basic  (inherits AtomicBlackBox, no particular Input/Output)"
+  set typeBlackbox.In1 "Widget (inherits WxBlackBox, has output 'Widget' of type 'wxWindow*')"
+  set typeBlackbox.In2 "VTK PolyDataAlgorithm (inherits AtomicBlackBox and a vtkPolyDataAlgorithm, has standard vtk I/O)"
+  set typeBlackbox.In3 "VTK ImageAlgorithm    (inherits AtomicBlackBox and a vtkImageAlgorithm, has standard vtk I/O)"
+

 
 new StringSelect stringselectorType
   set stringselectorType.In0 "std"
 
 new StringSelect stringselectorType
   set stringselectorType.In0 "std"

-  set stringselectorType.In1 "VTK_PolyDataAlgorithm"
-  set stringselectorType.In2 "VTK_ImageAlgorithm"
-  set stringselectorType.In3 "widget"
+  set stringselectorType.In1 "widget"
+  set stringselectorType.In2 "VTK_PolyDataAlgorithm"
+  set stringselectorType.In3 "VTK_ImageAlgorithm"

   connect  typeBlackbox.Out stringselectorType.In
 
 #---------------------------------------------------------------------
   connect  typeBlackbox.Out stringselectorType.In
 
 #---------------------------------------------------------------------


@@ -63,37 +64,41 @@ new StringSelect stringselectorFormat
 new OutputText dirOutput
   connect dir.Out dirOutput.In
 
 new OutputText dirOutput
   connect dir.Out dirOutput.In
 

-new LayoutLine layoutHor
-  set  layoutHor.Orientation H
-  connect typeBlackbox.Widget layoutHor.Widget1
-  connect formatBlackbox.Widget layoutHor.Widget2
+new LayoutLine layoutTop
+  connect windowTitle.Widget layoutTop.Widget1
+  connect dirOutput.Widget layoutTop.Widget2
+  connect nameBlackbox.Widget layoutTop.Widget3
+  connect namePackage.Widget layoutTop.Widget4
+  connect author.Widget layoutTop.Widget5
+  connect description.Widget layoutTop.Widget6

 
 

-#new CommandButton cancelButton
-#    set cancelButton.In "quit"
-#    set cancelButton.Label "Cancel"
+new LayoutSplit layoutTypeFormat
+  connect typeBlackbox.Widget layoutTypeFormat.Widget1
+  connect formatBlackbox.Widget layoutTypeFormat.Widget2
+  set layoutTypeFormat.Proportion 60

 
 new CommandButton createButton
     set createButton.In "print $concatStr.Out$; exec command; "
     set createButton.Label "Run"
 
 
 new CommandButton createButton
     set createButton.In "print $concatStr.Out$; exec command; "
     set createButton.Label "Run"
 

-new LayoutLine buttons
-    set buttons.Orientation Horizontal
+new LayoutLine layoutButtons
+    set layoutButtons.Orientation Horizontal

 #    connect cancelButton.Widget buttons.Widget1
 #    connect cancelButton.Widget buttons.Widget1

-    connect createButton.Widget buttons.Widget2
-
-new LayoutLine main
-    connect windowTitle.Widget main.Widget1
-    connect dirOutput.Widget main.Widget2
-    connect nameBlackbox.Widget main.Widget3
-    connect namePackage.Widget main.Widget4
-    connect author.Widget main.Widget5
-    connect description.Widget main.Widget6
-    connect layoutHor.Widget main.Widget7
-    connect buttons.Widget main.Widget8
+    connect createButton.Widget layoutButtons.Widget2
+
+new LayoutSplit layoutBot
+    connect layoutTypeFormat.Widget layoutBot.Widget1
+    connect layoutButtons.Widget layoutBot.Widget2
+    set layoutBot.Proportion 70
+
+new LayoutSplit main
+    connect layoutTop.Widget main.Widget1
+    connect layoutBot.Widget main.Widget2
+    set main.Proportion 50

     set main.WinTitle "Create new black box"
     set main.WinTitle "Create new black box"

-    set main.WinDialog true
-    set main.WinWidth 350 
-    set main.WinHeight 520 
+#    set main.WinDialog true
+    set main.WinWidth 700 
+    set main.WinHeight 600 

 
 #---------------------------------------------------------------------
 
 
 #---------------------------------------------------------------------