+description "Creates the XML or C++ code for a new black box"
+author "eduardo.davila at creatis.insa-lyon.fr"
+category "toolsbbtk"
+
+load std
+load wx
+
+new OutputText windowTitle
+ set windowTitle.In "- - - - - - - - - - - - - - Create Blackbox - - - - - - - - - - - - - -"
+
+new DirectorySelector dir
+ set dir.Title "Select the location of your new package"
+
+new InputText nameBlackbox
+ set nameBlackbox.Title "Blackbox name (1 word)"
+ set nameBlackbox.In "NEW_BLACKBOX"
+
+new InputText namePackage
+ set namePackage.Title "Package name (1 word)"
+ set namePackage.In "__PACKAGE__"
+
+
+new InputText author
+ set author.Title "Author(s) (caracters '<', '>' not accepted...)"
+ set author.In "_author_"
+
+new InputText description
+ set description.Title "Description (caracters '<', '>' not accepted...)"
+ set description.In "_description_"
+
+#---------------------------------------------------------------------
+
+
+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 "
+
+new StringSelect stringselectorType
+ set stringselectorType.In0 "std"
+ set stringselectorType.In1 "VTK_PolyDataAlgorithm"
+ set stringselectorType.In2 "VTK_ImageAlgorithm"
+ set stringselectorType.In3 "widget"
+ connect typeBlackbox.Out stringselectorType.In
+
+#---------------------------------------------------------------------
+
+new RadioButton formatBlackbox
+ set formatBlackbox.Title "Format of the output file :"
+ set formatBlackbox.In 0
+ set formatBlackbox.In0 "C++"
+ set formatBlackbox.In1 "XML"
+
+new StringSelect stringselectorFormat
+ set stringselectorFormat.In0 "C++"
+ set stringselectorFormat.In1 "XML"
+ connect formatBlackbox.Out stringselectorFormat.In
+
+#---------------------------------------------------------------------
+
+new LayoutLine layoutHor
+ set layoutHor.Orientation H
+ 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 ConcatStrings dirStr
+ connect dir.Out dirStr.In1
+ set dirStr.In2 " "
+
+new ConcatStrings packageNameStr
+ connect namePackage.Out packageNameStr.In1
+ set packageNameStr.In2 " "
+
+new ConcatStrings blackboxNameStr
+ connect nameBlackbox.Out blackboxNameStr.In1
+ set blackboxNameStr.In2 " "
+
+new ConcatStrings typeStr
+ connect stringselectorType.Out typeStr.In1
+ set typeStr.In2 " "
+
+new ConcatStrings formatStr
+ connect stringselectorFormat.Out formatStr.In1
+ set formatStr.In2 " "
+
+new ConcatStrings authorStr
+ connect author.Out authorStr.In1
+ set authorStr.In2 " "
+
+new ConcatStrings descriptionStr
+ connect description.Out descriptionStr.In1
+ set descriptionStr.In2 " "
+
+new Configuration conf
+
+new ConcatStrings commandStr
+ set commandStr.In1 "."
+ connect conf.FileSeparator commandStr.In2
+ set commandStr.In3 "bbCreateBlackBox "
+
+new ConcatStrings concatStr
+ connect commandStr.Out concatStr.In1
+ connect dirStr.Out concatStr.In2
+ connect packageNameStr.Out concatStr.In3
+ connect blackboxNameStr.Out concatStr.In4
+ connect typeStr.Out concatStr.In5
+ connect formatStr.Out concatStr.In6
+ connect authorStr.Out concatStr.In7
+ connect descriptionStr.Out concatStr.In8
+
+
+new ExecSystemCommand command
+ connect concatStr.Out command.In
+ print $concatStr.Out$
+
+exec command
+
+#seg fault :
+#quit
\ No newline at end of file