Feature #1894 Black box to clip a polydata with a plane.

[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..898c4b078d52cf542527e733353481d72f5ccf23 100644 (file)
--- a/packages/toolsbbtk/bbs/appli/GUICreateBlackBox.bbs
+++ b/packages/toolsbbtk/bbs/appli/GUICreateBlackBox.bbs
@@ -1,18 +1,44 @@
-description "Creates the XML or C++ code for a new black box"
-author "eduardo.davila at creatis.insa-lyon.fr"
+# ---------------------------------------------------------------------
+#
+# Copyright (c) CREATIS (Centre de Recherche en Acquisition et Traitement de l'Image
+#                        pour la SantÈ)
+# Authors : Eduardo Davila, Frederic Cervenansky, Claire Mouton
+# Previous Authors : Laurent Guigues, Jean-Pierre Roux
+# CreaTools website : www.creatis.insa-lyon.fr/site/fr/creatools_accueil
+#
+#  This software is governed by the CeCILL-B license under French law and
+#  abiding by the rules of distribution of free software. You can  use,
+#  modify and/ or redistribute the software under the terms of the CeCILL-B
+#  license as circulated by CEA, CNRS and INRIA at the following URL
+#  http://www.cecill.info/licences/Licence_CeCILL-B_V1-en.html
+#  or in the file LICENSE.txt.
+#
+#  As a counterpart to the access to the source code and  rights to copy,
+#  modify and redistribute granted by the license, users are provided only
+#  with a limited warranty  and the software's author,  the holder of the
+#  economic rights,  and the successive licensors  have only  limited
+#  liability.
+#
+#  The fact that you are presently reading this means that you have had
+#  knowledge of the CeCILL-B license and that you accept its terms.
+# ------------------------------------------------------------------------ */
+
+
+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 +58,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 +90,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
 
 new CommandButton createButton

-    set createButton.In "print $concatStr.Out$; exec command; "
+    set createButton.In "print $concatStr.Out$; exec command; exec Box02;"

     set createButton.Label "Run"
 
     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 

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


@@ -158,11 +189,11 @@ new ConcatStrings descriptionStr
 # Command string creation
 new ConcatStrings concatStrCommand
     set concatStrCommand.In1 " "
 # Command string creation
 new ConcatStrings concatStrCommand
     set concatStrCommand.In1 " "

-    connect dquote.Out                 concatStrCommand.In2
-    connect conf.BinPath               concatStrCommand.In3
-    connect conf.FileSeparator concatStrCommand.In4
+#EED-20-02-2012    connect dquote.Out                  concatStrCommand.In2
+#EED-20-02-2012    connect conf.BinPath                concatStrCommand.In3
+#EED-20-02-2012    connect conf.FileSeparator  concatStrCommand.In4

     set                concatStrCommand.In5  "bbCreateBlackBox"
     set                concatStrCommand.In5  "bbCreateBlackBox"

-    connect dquote.Out                 concatStrCommand.In6
+#EED-20-02-2012    connect dquote.Out                  concatStrCommand.In6

     set                concatStrCommand.In7  " "
 
 # Params string creation
     set                concatStrCommand.In7  " "
 
 # Params string creation


@@ -177,15 +208,32 @@ new ConcatStrings concatStrParam
     
 # Command + parameters string creation
 new ConcatStrings concatStr
     
 # Command + parameters string creation
 new ConcatStrings concatStr

-    connect dquote.Out                         concatStr.In1
+#EED-20-02-2012    connect dquote.Out                          concatStr.In1

     connect concatStrCommand.Out       concatStr.In2
     connect concatStrParam.Out                 concatStr.In3
     connect concatStrCommand.Out       concatStr.In2
     connect concatStrParam.Out                 concatStr.In3

-    connect dquote.Out                         concatStr.In4
+#EED-20-02-2012    connect dquote.Out                          concatStr.In4

 
 # Box which executes the command
 new ExecSystemCommand command
     connect concatStr.Out command.In
 
 
 # Box which executes the command
 new ExecSystemCommand command
     connect concatStr.Out command.In
 

+## ------------------------------------------------
+new OutputText Box01
+   set Box01.In "            OK... Box created..."
+   set Box01.WinDialog true
+   set Box01.WinHeight 100
+   set Box01.WinTitle Confirmation
+   set Box01.WinWidth 400
+ 
+new LayoutLine Box02
+   set Box02.WinDialog true
+   set Box02.WinHeight 200
+   set Box02.WinTitle Confirmation
+   set Box02.WinWidth 400
+   connect Box01.Widget Box02.Widget2
+ 
+ new OutputText Box03
+   connect Box03.Widget Box02.Widget1

 
 exec dir
 exec main
 
 exec dir
 exec main