projects / occt.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
0024786: Move functionality of WOK command wgenproj to OCCT tool genproj
[occt.git] / adm / genconf.tcl
CommitLineData
910970ab 1#!/usr/bin/tclsh
2
3package require Tk
4
5source "./adm/genconfdeps.tcl"
6
7set aRowIter 0
8frame .myFrame -padx 5 -pady 5
9pack .myFrame -fill both -expand 1
10
11set SYS_VS_LIST {}
12set SYS_VC_LIST {}
13set SYS_VCVARS_LIST {}
14
15# detect installed Visual Studio instances from global environment
16if { [info exists ::env(VS130COMNTOOLS)] } {
17 lappend ::SYS_VS_LIST "Visual Studio 201x (vc13)"
18 lappend ::SYS_VC_LIST "vc13"
19 lappend ::SYS_VCVARS_LIST "%VS130COMNTOOLS%..\\..\\VC\\vcvarsall.bat"
20}
21if { [info exists ::env(VS120COMNTOOLS)] } {
22 lappend ::SYS_VS_LIST "Visual Studio 2013 (vc12)"
23 lappend ::SYS_VC_LIST "vc12"
24 lappend ::SYS_VCVARS_LIST "%VS120COMNTOOLS%..\\..\\VC\\vcvarsall.bat"
25}
26if { [info exists ::env(VS110COMNTOOLS)] } {
27 lappend ::SYS_VS_LIST "Visual Studio 2012 (vc11)"
28 lappend ::SYS_VC_LIST "vc11"
29 lappend ::SYS_VCVARS_LIST "%VS110COMNTOOLS%..\\..\\VC\\vcvarsall.bat"
30}
31if { [info exists ::env(VS100COMNTOOLS)] } {
32 lappend ::SYS_VS_LIST "Visual Studio 2010 (vc10)"
33 lappend ::SYS_VC_LIST "vc10"
34 lappend ::SYS_VCVARS_LIST "%VS100COMNTOOLS%..\\..\\VC\\vcvarsall.bat"
35}
36if { [info exists ::env(VS90COMNTOOLS)] } {
37 lappend ::SYS_VS_LIST "Visual Studio 2008 (vc9)"
38 lappend ::SYS_VC_LIST "vc9"
39 lappend ::SYS_VCVARS_LIST "%VS90COMNTOOLS%..\\..\\VC\\vcvarsall.bat"
40}
41if { [info exists ::env(VS80COMNTOOLS)] } {
42 lappend ::SYS_VS_LIST "Visual Studio 2005 (vc8)"
43 lappend ::SYS_VC_LIST "vc8"
44 lappend ::SYS_VCVARS_LIST "%VS80COMNTOOLS%..\\..\\VC\\vcvarsall.bat"
45}
46lappend ::SYS_VS_LIST "Custom"
47lappend ::SYS_VC_LIST "vcX"
48lappend ::SYS_VCVARS_LIST "%VSXXCOMNTOOLS%..\\..\\VC\\vcvarsall.bat"
49
50set aVcVerIndex [lsearch $::SYS_VC_LIST $::VCVER]
51set ::VSVER [lindex $::SYS_VS_LIST $aVcVerIndex]
52if { "$::VCVARS" == "" } {
53 set ::VCVARS [lindex $::SYS_VCVARS_LIST $aVcVerIndex]
54}
55
56proc wokdep:gui:Close {} {
57 # if changed ask
58 exit
59}
60
61proc wokdep:gui:SwitchConfig {} {
62 set ::VCVER [lindex $::SYS_VC_LIST [.myFrame.myVsCombo current]]
63 set ::VCVARS [lindex $::SYS_VCVARS_LIST [.myFrame.myVsCombo current]]
64
65 set ::CSF_OPT_INC {}
66 set ::CSF_OPT_LIB32 {}
67 set ::CSF_OPT_LIB64 {}
68 set ::CSF_OPT_BIN32 {}
69 set ::CSF_OPT_BIN64 {}
70 wokdep:gui:UpdateList
71}
72
73proc wokdep:gui:SwitchArch {} {
74 if { "$::ARCH" == "32" } {
75 wokdep:gui:Show32Bitness ::aRowIter
76 }
77 if { "$::ARCH" == "64" } {
78 wokdep:gui:Show64Bitness ::aRowIter
79 }
80
81 if { [llength [grid info .myFrame.mySave]] != 0 } {
82 grid forget .myFrame.mySave .myFrame.myClose
83 }
84
85 # Bottom section
86 grid .myFrame.mySave -row $::aRowIter -column 4 -columnspan 2
87 grid .myFrame.myClose -row $::aRowIter -column 6 -columnspan 2
88}
89
90proc wokdep:gui:UpdateList {} {
91 set anIncErrs {}
92 set anLib32Errs {}
93 set anLib64Errs {}
94 set anBin32Errs {}
95 set anBin64Errs {}
96 wokdep:SearchTclTk anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
97 wokdep:SearchFreeType anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
98 wokdep:SearchX11 anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
99 if { "$::HAVE_FREEIMAGE" == "true" } {
100 wokdep:SearchFreeImage anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
101 }
102 if { "$::HAVE_GL2PS" == "true" } {
103 wokdep:SearchGL2PS anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
104 }
105 if { "$::HAVE_TBB" == "true" } {
106 wokdep:SearchTBB anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
107 }
108 if { "$::HAVE_OPENCL" == "true" } {
109 wokdep:SearchOpenCL anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
110 }
111 if { "$::HAVE_VTK" == "true" } {
112 wokdep:SearchVTK anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
113 }
114 if { "$::CHECK_QT4" == "true" } {
115 wokdep:SearchQt4 anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
116 }
117 if { "$::CHECK_JDK" == "true" } {
118 wokdep:SearchJDK anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
119 }
120
121 .myFrame.myIncErrLbl configure -text [join $anIncErrs "\n"]
122 .myFrame.myLib32ErrLbl configure -text [join $anLib32Errs "\n"]
123 .myFrame.myLib64ErrLbl configure -text [join $anLib64Errs "\n"]
124 .myFrame.myBin32ErrLbl configure -text [join $anBin32Errs "\n"]
125 .myFrame.myBin64ErrLbl configure -text [join $anBin64Errs "\n"]
126}
127
128proc wokdep:gui:BrowseVcVars {} {
129 set aResult [tk_chooseDirectory -initialdir $::VCVARS -title "Choose a directory"]
130 if { "$aResult" != "" } {
131 set ::VCVARS $aResult
132 }
133}
134
135proc wokdep:gui:BrowsePartiesRoot {} {
136 set aResult [tk_chooseDirectory -initialdir $::PRODUCTS_PATH -title "Choose a directory"]
137 if { "$aResult" != "" } {
138 set ::PRODUCTS_PATH $aResult
139 wokdep:gui:UpdateList
140 }
141}
142
143proc wokdep:gui:AddIncPath {} {
144 set aResult [tk_chooseDirectory -title "Choose a directory"]
145 if { "$aResult" != "" } {
146 lappend ::CSF_OPT_INC "$aResult"
147 wokdep:gui:UpdateList
148 }
149}
150
151proc wokdep:gui:AddLib32Path {} {
152 set aResult [tk_chooseDirectory -title "Choose a directory"]
153 if { "$aResult" != "" } {
154 lappend ::CSF_OPT_LIB32 "$aResult"
155 wokdep:gui:UpdateList
156 }
157}
158
159proc wokdep:gui:AddLib64Path {} {
160 set aResult [tk_chooseDirectory -title "Choose a directory"]
161 if { "$aResult" != "" } {
162 lappend ::CSF_OPT_LIB64 "$aResult"
163 wokdep:gui:UpdateList
164 }
165}
166
167proc wokdep:gui:AddBin32Path {} {
168 set aResult [tk_chooseDirectory -title "Choose a directory"]
169 if { "$aResult" != "" } {
170 lappend ::CSF_OPT_BIN32 "$aResult"
171 wokdep:gui:UpdateList
172 }
173}
174
175proc wokdep:gui:AddBin64Path {} {
176 set aResult [tk_chooseDirectory -title "Choose a directory"]
177 if { "$aResult" != "" } {
178 lappend ::CSF_OPT_BIN64 "$aResult"
179 wokdep:gui:UpdateList
180 }
181}
182
183proc wokdep:gui:RemoveIncPath {} {
184 set aSelIndices [.myFrame.myIncList curselection]
185 if { [llength $aSelIndices] != 0 } {
186 .myFrame.myIncList delete [lindex $aSelIndices 0]
187 }
188 wokdep:gui:UpdateList
189}
190
191proc wokdep:gui:RemoveLib32Path {} {
192 set aSelIndices [.myFrame.myLib32List curselection]
193 if { [llength $aSelIndices] != 0 } {
194 .myFrame.myLib32List delete [lindex $aSelIndices 0]
195 }
196 wokdep:gui:UpdateList
197}
198
199proc wokdep:gui:RemoveLib64Path {} {
200 set aSelIndices [.myFrame.myLib64List curselection]
201 if { [llength $aSelIndices] != 0 } {
202 .myFrame.myLib64List delete [lindex $aSelIndices 0]
203 }
204 wokdep:gui:UpdateList
205}
206
207proc wokdep:gui:RemoveBin32Path {} {
208 set aSelIndices [.myFrame.myBin32List curselection]
209 if { [llength $aSelIndices] != 0 } {
210 .myFrame.myBin32List delete [lindex $aSelIndices 0]
211 }
212 wokdep:gui:UpdateList
213}
214
215proc wokdep:gui:RemoveBin64Path {} {
216 set aSelIndices [.myFrame.myBin64List curselection]
217 if { [llength $aSelIndices] != 0 } {
218 .myFrame.myBin64List delete [lindex $aSelIndices 0]
219 }
220 wokdep:gui:UpdateList
221}
222
223proc wokdep:gui:ResetIncPath {} {
224 set ::CSF_OPT_INC {}
225 wokdep:gui:UpdateList
226}
227
228proc wokdep:gui:ResetLib32Path {} {
229 set ::CSF_OPT_LIB32 {}
230 wokdep:gui:UpdateList
231}
232
233proc wokdep:gui:ResetLib64Path {} {
234 set ::CSF_OPT_LIB64 {}
235 wokdep:gui:UpdateList
236}
237
238proc wokdep:gui:ResetBin32Path {} {
239 set ::CSF_OPT_BIN32 {}
240 wokdep:gui:UpdateList
241}
242
243proc wokdep:gui:ResetBin64Path {} {
244 set ::CSF_OPT_BIN64 {}
245 wokdep:gui:UpdateList
246}
247
248proc wokdep:gui:Show32Bitness { theRowIter } {
249 upvar $theRowIter aRowIter
250
251 if { [llength [grid info .myFrame.myLib64Lbl]] != 0 } {
252 grid forget .myFrame.myLib64Lbl .myFrame.myLib64List .myFrame.myLib64Scrl
253 grid forget .myFrame.myLib64Add .myFrame.myLib64Remove .myFrame.myLib64Clear .myFrame.myLib64ErrLbl
254 grid forget .myFrame.myBin64Lbl .myFrame.myBin64List .myFrame.myBin64Scrl
255 grid forget .myFrame.myBin64Add .myFrame.myBin64Remove .myFrame.myBin64Clear .myFrame.myBin64ErrLbl
256 }
257
258 # Additional libraries (32-bit) search paths
259 grid .myFrame.myLib32Lbl -row $aRowIter -column 0 -columnspan 10 -sticky w
260 incr aRowIter
261 grid .myFrame.myLib32List -row $aRowIter -column 0 -rowspan 4 -columnspan 5
262 grid .myFrame.myLib32Scrl -row $aRowIter -column 5 -rowspan 4
263 grid .myFrame.myLib32Add -row $aRowIter -column 6
264 incr aRowIter
265 #grid .myFrame.myLib32Edit -row $aRowIter -column 6
266 incr aRowIter
267 grid .myFrame.myLib32Remove -row $aRowIter -column 6
268 incr aRowIter
269 grid .myFrame.myLib32Clear -row $aRowIter -column 6
270 incr aRowIter
271 grid .myFrame.myLib32ErrLbl -row $aRowIter -column 0 -columnspan 10 -sticky w
272 incr aRowIter
273
274 # Additional executables (32-bit) search paths
275 grid .myFrame.myBin32Lbl -row $aRowIter -column 0 -columnspan 10 -sticky w
276 incr aRowIter
277 grid .myFrame.myBin32List -row $aRowIter -column 0 -rowspan 4 -columnspan 5
278 grid .myFrame.myBin32Scrl -row $aRowIter -column 5 -rowspan 4
279 grid .myFrame.myBin32Add -row $aRowIter -column 6
280 incr aRowIter
281 #grid .myFrame.myBin32Edit -row $aRowIter -column 6
282 incr aRowIter
283 grid .myFrame.myBin32Remove -row $aRowIter -column 6
284 incr aRowIter
285 grid .myFrame.myBin32Clear -row $aRowIter -column 6
286 incr aRowIter
287 grid .myFrame.myBin32ErrLbl -row $aRowIter -column 0 -columnspan 10 -sticky w
288 incr aRowIter
289}
290
291proc wokdep:gui:Show64Bitness { theRowIter } {
292 upvar $theRowIter aRowIter
293
294 if { [llength [grid info .myFrame.myLib32Lbl]] != 0 } {
295 grid forget .myFrame.myLib32Lbl .myFrame.myLib32List .myFrame.myLib32Scrl
296 grid forget .myFrame.myLib32Add .myFrame.myLib32Remove .myFrame.myLib32Clear .myFrame.myLib32ErrLbl
297 grid forget .myFrame.myBin32Lbl .myFrame.myBin32List .myFrame.myBin32Scrl
298 grid forget .myFrame.myBin32Add .myFrame.myBin32Remove .myFrame.myBin32Clear .myFrame.myBin32ErrLbl
299 }
300
301 # Additional libraries (64-bit) search paths
302 grid .myFrame.myLib64Lbl -row $aRowIter -column 0 -columnspan 10 -sticky w
303 incr aRowIter
304 grid .myFrame.myLib64List -row $aRowIter -column 0 -rowspan 4 -columnspan 5
305 grid .myFrame.myLib64Scrl -row $aRowIter -column 5 -rowspan 4
306 grid .myFrame.myLib64Add -row $aRowIter -column 6
307 incr aRowIter
308 #grid .myFrame.myLib64Edit -row $aRowIter -column 6
309 incr aRowIter
310 grid .myFrame.myLib64Remove -row $aRowIter -column 6
311 incr aRowIter
312 grid .myFrame.myLib64Clear -row $aRowIter -column 6
313 incr aRowIter
314 grid .myFrame.myLib64ErrLbl -row $aRowIter -column 0 -columnspan 10 -sticky w
315 incr aRowIter
316
317 # Additional executables (64-bit) search paths
318 grid .myFrame.myBin64Lbl -row $aRowIter -column 0 -columnspan 10 -sticky w
319 incr aRowIter
320 grid .myFrame.myBin64List -row $aRowIter -column 0 -rowspan 4 -columnspan 5
321 grid .myFrame.myBin64Scrl -row $aRowIter -column 5 -rowspan 4
322 grid .myFrame.myBin64Add -row $aRowIter -column 6
323 incr aRowIter
324 #grid .myFrame.myBin64Edit -row $aRowIter -column 6
325 incr aRowIter
326 grid .myFrame.myBin64Remove -row $aRowIter -column 6
327 incr aRowIter
328 grid .myFrame.myBin64Clear -row $aRowIter -column 6
329 incr aRowIter
330 grid .myFrame.myBin64ErrLbl -row $aRowIter -column 0 -columnspan 10 -sticky w
331 incr aRowIter
332}
333
334# Header
335ttk::label .myFrame.myVsLbl -text "Visual Studio configuration" -relief solid -padding {5 5 80 5}
336ttk::combobox .myFrame.myVsCombo -values $SYS_VS_LIST -state readonly -textvariable VSVER -width 30
337ttk::combobox .myFrame.myArchCombo -values { {32} {64} } -textvariable ARCH -state readonly -width 6
338entry .myFrame.myVcEntry -textvariable VCVER -width 6
339entry .myFrame.myVcVarsEntry -textvariable VCVARS -width 70
340ttk::button .myFrame.myVcBrowseBtn -text "Browse" -command wokdep:gui:BrowseVcVars
341
342#
343ttk::label .myFrame.myOcctBuildLbl -text "OCCT headers configuration" -relief solid -padding {5 5 80 5}
344checkbutton .myFrame.myScutsCheck -offvalue "false" -onvalue "true" -variable SHORTCUT_HEADERS
345ttk::label .myFrame.myScutsLbl -text "Short-cut headers instead original ones in inc"
346
347#
348ttk::label .myFrame.mySrchLbl -text "3rd-parties search path" -relief solid -padding {5 5 80 5}
349entry .myFrame.mySrchEntry -textvariable PRODUCTS_PATH -width 80
350ttk::button .myFrame.mySrchBrowseBtn -text "Browse" -command wokdep:gui:BrowsePartiesRoot
351checkbutton .myFrame.myFImageCheck -offvalue "false" -onvalue "true" -variable HAVE_FREEIMAGE -command wokdep:gui:UpdateList
352ttk::label .myFrame.myFImageLbl -text "Use FreeImage"
353checkbutton .myFrame.myGl2psCheck -offvalue "false" -onvalue "true" -variable HAVE_GL2PS -command wokdep:gui:UpdateList
354ttk::label .myFrame.myGl2psLbl -text "Use GL2PS"
355checkbutton .myFrame.myTbbCheck -offvalue "false" -onvalue "true" -variable HAVE_TBB -command wokdep:gui:UpdateList
356ttk::label .myFrame.myTbbLbl -text "Use Intel TBB"
357checkbutton .myFrame.myOpenClCheck -offvalue "false" -onvalue "true" -variable HAVE_OPENCL -command wokdep:gui:UpdateList
358ttk::label .myFrame.myOpenClLbl -text "Use OpenCL"
359checkbutton .myFrame.myMacGLXCheck -offvalue "false" -onvalue "true" -variable MACOSX_USE_GLX
360ttk::label .myFrame.myMacGLXLbl -text "Use X11 for windows drawing"
361ttk::label .myFrame.myVtkLbl -text "Use VTK"
362checkbutton .myFrame.myVtkCheck -offvalue "false" -onvalue "true" -variable HAVE_VTK -command wokdep:gui:UpdateList
363checkbutton .myFrame.myQt4Check -offvalue "false" -onvalue "true" -variable CHECK_QT4 -command wokdep:gui:UpdateList
364ttk::label .myFrame.myQt4Lbl -text "Search Qt4"
365checkbutton .myFrame.myJDKCheck -offvalue "false" -onvalue "true" -variable CHECK_JDK -command wokdep:gui:UpdateList
366ttk::label .myFrame.myJDKLbl -text "Search JDK"
367
368# Additional headers search paths
369ttk::label .myFrame.myIncLbl -text "Additional headers search paths" -relief solid -padding {5 5 80 5}
370scrollbar .myFrame.myIncScrl -command ".myFrame.myIncList yview"
371listbox .myFrame.myIncList -listvariable CSF_OPT_INC -width 80 -height 5 -yscrollcommand ".myFrame.myIncScrl set"
372ttk::button .myFrame.myIncAdd -text "Add" -command wokdep:gui:AddIncPath
373ttk::button .myFrame.myIncEdit -text "Edit"
374ttk::button .myFrame.myIncRemove -text "Remove" -command wokdep:gui:RemoveIncPath
375ttk::button .myFrame.myIncClear -text "Reset" -command wokdep:gui:ResetIncPath
376ttk::label .myFrame.myIncErrLbl -text "Error: " -foreground red -padding {5 5 5 5}
377
378# Additional libraries (32-bit) search paths
379ttk::label .myFrame.myLib32Lbl -text "Additional libraries (32-bit) search paths" -relief solid -padding {5 5 80 5}
380scrollbar .myFrame.myLib32Scrl -command ".myFrame.myLib32List yview"
381listbox .myFrame.myLib32List -listvariable CSF_OPT_LIB32 -width 80 -height 5 -yscrollcommand ".myFrame.myLib32Scrl set"
382ttk::button .myFrame.myLib32Add -text "Add" -command wokdep:gui:AddLib32Path
383ttk::button .myFrame.myLib32Edit -text "Edit"
384ttk::button .myFrame.myLib32Remove -text "Remove" -command wokdep:gui:RemoveLib32Path
385ttk::button .myFrame.myLib32Clear -text "Reset" -command wokdep:gui:ResetLib32Path
386ttk::label .myFrame.myLib32ErrLbl -text "Error: " -foreground red -padding {5 5 5 5}
387
388# Additional libraries (64-bit) search paths
389ttk::label .myFrame.myLib64Lbl -text "Additional libraries (64-bit) search paths" -relief solid -padding {5 5 80 5}
390scrollbar .myFrame.myLib64Scrl -command ".myFrame.myLib64List yview"
391listbox .myFrame.myLib64List -listvariable CSF_OPT_LIB64 -width 80 -height 5 -yscrollcommand ".myFrame.myLib64Scrl set"
392ttk::button .myFrame.myLib64Add -text "Add" -command wokdep:gui:AddLib64Path
393ttk::button .myFrame.myLib64Edit -text "Edit"
394ttk::button .myFrame.myLib64Remove -text "Remove" -command wokdep:gui:RemoveLib64Path
395ttk::button .myFrame.myLib64Clear -text "Reset" -command wokdep:gui:ResetLib64Path
396ttk::label .myFrame.myLib64ErrLbl -text "Error: " -foreground red -padding {5 5 5 5}
397
398# Additional executables (32-bit) search paths
399ttk::label .myFrame.myBin32Lbl -text "Additional executables (32-bit) search paths" -relief solid -padding {5 5 80 5}
400scrollbar .myFrame.myBin32Scrl -command ".myFrame.myBin32List yview"
401listbox .myFrame.myBin32List -listvariable CSF_OPT_BIN32 -width 80 -height 5 -yscrollcommand ".myFrame.myBin32Scrl set"
402ttk::button .myFrame.myBin32Add -text "Add" -command wokdep:gui:AddBin32Path
403ttk::button .myFrame.myBin32Edit -text "Edit"
404ttk::button .myFrame.myBin32Remove -text "Remove" -command wokdep:gui:RemoveBin32Path
405ttk::button .myFrame.myBin32Clear -text "Reset" -command wokdep:gui:ResetBin32Path
406ttk::label .myFrame.myBin32ErrLbl -text "Error: " -foreground red -padding {5 5 5 5}
407
408# Additional executables (64-bit) search paths
409ttk::label .myFrame.myBin64Lbl -text "Additional executables (64-bit) search paths" -relief solid -padding {5 5 80 5}
410scrollbar .myFrame.myBin64Scrl -command ".myFrame.myBin64List yview"
411listbox .myFrame.myBin64List -listvariable CSF_OPT_BIN64 -width 80 -height 5 -yscrollcommand ".myFrame.myBin64Scrl set"
412ttk::button .myFrame.myBin64Add -text "Add" -command wokdep:gui:AddBin64Path
413ttk::button .myFrame.myBin64Edit -text "Edit"
414ttk::button .myFrame.myBin64Remove -text "Remove" -command wokdep:gui:RemoveBin64Path
415ttk::button .myFrame.myBin64Clear -text "Reset" -command wokdep:gui:ResetBin64Path
416ttk::label .myFrame.myBin64ErrLbl -text "Error: " -foreground red -padding {5 5 5 5}
417
418# Bottom
419ttk::button .myFrame.mySave -text "Save" -command wokdep:SaveCustom
420ttk::button .myFrame.myClose -text "Close" -command wokdep:gui:Close
421
422# Create grid
423# Header
424if { "$tcl_platform(platform)" == "windows" } {
425 grid .myFrame.myVsLbl -row $aRowIter -column 0 -columnspan 10 -sticky w
426 incr aRowIter
427 grid .myFrame.myVsCombo -row $aRowIter -column 0 -columnspan 2 -sticky w
428 grid .myFrame.myArchCombo -row $aRowIter -column 2 -sticky w
429 incr aRowIter
430 grid .myFrame.myVcEntry -row $aRowIter -column 0
431 grid .myFrame.myVcVarsEntry -row $aRowIter -column 1 -columnspan 4 -sticky w
432 grid .myFrame.myVcBrowseBtn -row $aRowIter -column 6
433 incr aRowIter
434}
435
436#
437grid .myFrame.myOcctBuildLbl -row $aRowIter -column 0 -columnspan 10 -sticky w
438incr aRowIter
439grid .myFrame.myScutsCheck -row $aRowIter -column 0 -sticky e
440grid .myFrame.myScutsLbl -row $aRowIter -column 1 -columnspan 2 -sticky w
441incr aRowIter
442#
443grid .myFrame.mySrchLbl -row $aRowIter -column 0 -columnspan 10 -sticky w
444incr aRowIter
445grid .myFrame.mySrchEntry -row $aRowIter -column 0 -columnspan 5
446grid .myFrame.mySrchBrowseBtn -row $aRowIter -column 6
447incr aRowIter
448grid .myFrame.myFImageCheck -row $aRowIter -column 0 -sticky e
449grid .myFrame.myFImageLbl -row $aRowIter -column 1 -sticky w
450grid .myFrame.myQt4Check -row $aRowIter -column 2 -sticky e
451grid .myFrame.myQt4Lbl -row $aRowIter -column 3 -sticky w
452incr aRowIter
453grid .myFrame.myGl2psCheck -row $aRowIter -column 0 -sticky e
454grid .myFrame.myGl2psLbl -row $aRowIter -column 1 -sticky w
455grid .myFrame.myJDKCheck -row $aRowIter -column 2 -sticky e
456grid .myFrame.myJDKLbl -row $aRowIter -column 3 -sticky w
457incr aRowIter
458grid .myFrame.myTbbCheck -row $aRowIter -column 0 -sticky e
459grid .myFrame.myTbbLbl -row $aRowIter -column 1 -sticky w
460incr aRowIter
461grid .myFrame.myOpenClCheck -row $aRowIter -column 0 -sticky e
462grid .myFrame.myOpenClLbl -row $aRowIter -column 1 -sticky w
463incr aRowIter
464grid .myFrame.myVtkCheck -row $aRowIter -column 0 -sticky e
465grid .myFrame.myVtkLbl -row $aRowIter -column 1 -sticky w
466incr aRowIter
467if { "$::tcl_platform(os)" == "Darwin" } {
468 grid .myFrame.myMacGLXCheck -row $aRowIter -column 0 -sticky e
469 grid .myFrame.myMacGLXLbl -row $aRowIter -column 1 -sticky w
470 incr aRowIter
471}
472
473# Additional headers search paths
474grid .myFrame.myIncLbl -row $aRowIter -column 0 -columnspan 10 -sticky w
475incr aRowIter
476grid .myFrame.myIncList -row $aRowIter -column 0 -rowspan 4 -columnspan 5
477grid .myFrame.myIncScrl -row $aRowIter -column 5 -rowspan 4
478grid .myFrame.myIncAdd -row $aRowIter -column 6
479incr aRowIter
480#grid .myFrame.myIncEdit -row $aRowIter -column 6
481incr aRowIter
482grid .myFrame.myIncRemove -row $aRowIter -column 6
483incr aRowIter
484grid .myFrame.myIncClear -row $aRowIter -column 6
485incr aRowIter
486grid .myFrame.myIncErrLbl -row $aRowIter -column 0 -columnspan 10 -sticky w
487incr aRowIter
488
489# Additional 32-bit search paths
490if { "$ARCH" == "32" } {
491 wokdep:gui:Show32Bitness aRowIter
492}
493
494# Additional 64-bit search paths
495if { "$ARCH" == "64" } {
496 wokdep:gui:Show64Bitness aRowIter
497}
498
499# Bottom section
500grid .myFrame.mySave -row $aRowIter -column 4 -columnspan 2
501grid .myFrame.myClose -row $aRowIter -column 6 -columnspan 2
502
503# Bind events
504bind .myFrame.myVsCombo <<ComboboxSelected>> {
505 wokdep:gui:SwitchConfig
506}
507bind .myFrame.myArchCombo <<ComboboxSelected>> {
508 wokdep:gui:SwitchArch
509}
510
511.myFrame.mySrchEntry configure -validate all -validatecommand {
512 #return [file exists "$::PRODUCTS_PATH"]
513 wokdep:gui:UpdateList
514 return 1
515}
516
517wokdep:gui:UpdateList
Open CASCADE Technology repository