1 description "Creates the XML or C++ code for a new black box"
2 author "eduardo.davila at creatis.insa-lyon.fr"
8 new OutputText windowTitle
9 set windowTitle.In "- - - - - - - - - - - - - - Create Blackbox - - - - - - - - - - - - - -"
11 new DirectorySelector dir
12 set dir.Title "Select the location of your new package"
14 new InputText nameBlackbox
15 set nameBlackbox.Title "Blackbox name (1 word)"
16 set nameBlackbox.In "NEW_BLACKBOX"
18 new InputText namePackage
19 set namePackage.Title "Package name (1 word)"
20 set namePackage.In "__PACKAGE__"
24 set author.Title "Author(s) (caracters '<', '>' not accepted...)"
25 set author.In "_author_"
27 new InputText description
28 set description.Title "Description (caracters '<', '>' not accepted...)"
29 set description.In "_description_"
31 #---------------------------------------------------------------------
34 new RadioButton typeBlackbox
35 set typeBlackbox.Title "Type of the blackbox :"
36 set typeBlackbox.In0 "std-template"
37 set typeBlackbox.In1 "VTK_PolyDataAlgorithm-template"
38 set typeBlackbox.In2 "VTK_ImageAlgorithm-template"
39 set typeBlackbox.In3 "widget-template "
41 new StringSelect stringselectorType
42 set stringselectorType.In0 "std"
43 set stringselectorType.In1 "VTK_PolyDataAlgorithm"
44 set stringselectorType.In2 "VTK_ImageAlgorithm"
45 set stringselectorType.In3 "widget"
46 connect typeBlackbox.Out stringselectorType.In
48 #---------------------------------------------------------------------
50 new RadioButton formatBlackbox
51 set formatBlackbox.Title "Format of the output file :"
52 set formatBlackbox.In 0
53 set formatBlackbox.In0 "C++"
54 set formatBlackbox.In1 "XML"
56 new StringSelect stringselectorFormat
57 set stringselectorFormat.In0 "C++"
58 set stringselectorFormat.In1 "XML"
59 connect formatBlackbox.Out stringselectorFormat.In
61 #---------------------------------------------------------------------
63 new LayoutLine layoutHor
64 set layoutHor.Orientation H
65 connect typeBlackbox.Widget layoutHor.Widget1
66 connect formatBlackbox.Widget layoutHor.Widget2
69 connect windowTitle.Widget info.Widget1
70 connect nameBlackbox.Widget info.Widget2
71 connect namePackage.Widget info.Widget3
72 connect author.Widget info.Widget4
73 connect description.Widget info.Widget5
74 connect layoutHor.Widget info.Widget6
75 set info.WinDialog true
77 set info.WinHeight 500
81 #---------------------------------------------------------------------
83 new ConcatStrings dirStr
84 connect dir.Out dirStr.In1
87 new ConcatStrings packageNameStr
88 connect namePackage.Out packageNameStr.In1
89 set packageNameStr.In2 " "
91 new ConcatStrings blackboxNameStr
92 connect nameBlackbox.Out blackboxNameStr.In1
93 set blackboxNameStr.In2 " "
95 new ConcatStrings typeStr
96 connect stringselectorType.Out typeStr.In1
99 new ConcatStrings formatStr
100 connect stringselectorFormat.Out formatStr.In1
101 set formatStr.In2 " "
103 new ConcatStrings authorStr
104 connect author.Out authorStr.In1
105 set authorStr.In2 " "
107 new ConcatStrings descriptionStr
108 connect description.Out descriptionStr.In1
109 set descriptionStr.In2 " "
111 new Configuration conf
113 new ConcatStrings commandStr
114 set commandStr.In1 "."
115 connect conf.FileSeparator commandStr.In2
116 set commandStr.In3 "bbCreateBlackBox "
118 new ConcatStrings concatStr
119 connect commandStr.Out concatStr.In1
120 connect dirStr.Out concatStr.In2
121 connect packageNameStr.Out concatStr.In3
122 connect blackboxNameStr.Out concatStr.In4
123 connect typeStr.Out concatStr.In5
124 connect formatStr.Out concatStr.In6
125 connect authorStr.Out concatStr.In7
126 connect descriptionStr.Out concatStr.In8
129 new ExecSystemCommand command
130 connect concatStr.Out command.In
131 print $concatStr.Out$