3 # =======================================================================
4 # Created on: 2012-01-26
5 # Created by: Kirill GAVRILOV
6 # Copyright (c) 2012 OPEN CASCADE SAS
8 # This file is part of Open CASCADE Technology software library.
10 # This library is free software; you can redistribute it and/or modify it under
11 # the terms of the GNU Lesser General Public License version 2.1 as published
12 # by the Free Software Foundation, with special exception defined in the file
13 # OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
14 # distribution for complete text of the license and disclaimer of any warranty.
16 # Alternatively, this file may be used under the terms of Open CASCADE
17 # commercial license or contractual agreement.
19 # =======================================================================
20 # GUI procedure for search of third-party tools and generation of environment
21 # customization script
22 # =======================================================================
25 source [file join [file dirname [info script]] genconfdeps.tcl]
31 frame .myFrame -padx 5 -pady 5
32 pack .myFrame -fill both -expand 1
33 frame .myFrame.myVsFrame
34 frame .myFrame.myHxxChecks
35 frame .myFrame.myChecks
39 set SYS_VCVARS_LIST {}
41 # detect installed Visual Studio 2017 instances by running vswhere.exe
42 if { ! [catch {exec vswhere.exe -version "\[15.0,15.99\]" -latest -requires Microsoft.VisualStudio.Workload.NativeDesktop -property installationPath} res] } {
43 lappend ::SYS_VS_LIST "Visual Studio 2017 (15, toolset v141)"
44 lappend ::SYS_VC_LIST "vc141"
45 lappend ::SYS_VCVARS_LIST "$res\\VC\\vcvarsall.bat"
47 if { ! [catch {exec vswhere.exe -version "\[15.0,15.99\]" -latest -requires Microsoft.VisualStudio.Workload.Universal -property installationPath} res] } {
48 lappend ::SYS_VS_LIST "Visual Studio 2017 (15, toolset v141) UWP"
49 lappend ::SYS_VC_LIST "vc141-uwp"
50 lappend ::SYS_VCVARS_LIST "$res\\VC\\vcvarsall.bat"
53 # detect installed Visual Studio instances from global environment
54 if { [info exists ::env(VS140COMNTOOLS)] } {
55 lappend ::SYS_VS_LIST "Visual Studio 2015 (14, toolset v140)"
56 lappend ::SYS_VC_LIST "vc14"
57 lappend ::SYS_VCVARS_LIST "%VS140COMNTOOLS%..\\..\\VC\\vcvarsall.bat"
59 lappend ::SYS_VS_LIST "Visual Studio 2015 (14, toolset v140) UWP"
60 lappend ::SYS_VC_LIST "vc14-uwp"
61 lappend ::SYS_VCVARS_LIST "%VS140COMNTOOLS%..\\..\\VC\\vcvarsall.bat"
63 if { [info exists ::env(VS120COMNTOOLS)] } {
64 lappend ::SYS_VS_LIST "Visual Studio 2013 (12, toolset v120)"
65 lappend ::SYS_VC_LIST "vc12"
66 lappend ::SYS_VCVARS_LIST "%VS120COMNTOOLS%..\\..\\VC\\vcvarsall.bat"
68 if { [info exists ::env(VS110COMNTOOLS)] } {
69 lappend ::SYS_VS_LIST "Visual Studio 2012 (11, toolset v110)"
70 lappend ::SYS_VC_LIST "vc11"
71 lappend ::SYS_VCVARS_LIST "%VS110COMNTOOLS%..\\..\\VC\\vcvarsall.bat"
73 if { [info exists ::env(VS100COMNTOOLS)] } {
74 lappend ::SYS_VS_LIST "Visual Studio 2010 (10, toolset v100)"
75 lappend ::SYS_VC_LIST "vc10"
76 lappend ::SYS_VCVARS_LIST "%VS100COMNTOOLS%..\\..\\VC\\vcvarsall.bat"
78 if { [info exists ::env(VS90COMNTOOLS)] } {
79 lappend ::SYS_VS_LIST "Visual Studio 2008 (9, toolset v90)"
80 lappend ::SYS_VC_LIST "vc9"
81 lappend ::SYS_VCVARS_LIST "%VS90COMNTOOLS%..\\..\\VC\\vcvarsall.bat"
83 if { [info exists ::env(VS80COMNTOOLS)] } {
84 lappend ::SYS_VS_LIST "Visual Studio 2005 (8, toolset v80)"
85 lappend ::SYS_VC_LIST "vc8"
86 lappend ::SYS_VCVARS_LIST "%VS80COMNTOOLS%..\\..\\VC\\vcvarsall.bat"
88 lappend ::SYS_VS_LIST "Custom"
89 lappend ::SYS_VC_LIST "vcX"
90 lappend ::SYS_VCVARS_LIST "%VSXXCOMNTOOLS%..\\..\\VC\\vcvarsall.bat"
92 set aVcVerIndex [lsearch $::SYS_VC_LIST $::VCVER]
93 set ::VSVER [lindex $::SYS_VS_LIST $aVcVerIndex]
94 if { "$::VCVARS" == "" } {
95 set ::VCVARS [lindex $::SYS_VCVARS_LIST $aVcVerIndex]
98 proc wokdep:gui:Close {} {
103 proc wokdep:gui:SwitchConfig {} {
104 set ::VCVER [lindex $::SYS_VC_LIST [.myFrame.myVsFrame.myVsCombo current]]
105 set ::VCVARS [lindex $::SYS_VCVARS_LIST [.myFrame.myVsFrame.myVsCombo current]]
108 set ::CSF_OPT_LIB32 {}
109 set ::CSF_OPT_LIB64 {}
110 set ::CSF_OPT_BIN32 {}
111 set ::CSF_OPT_BIN64 {}
112 wokdep:gui:UpdateList
115 proc wokdep:gui:SwitchArch {} {
116 if { "$::ARCH" == "32" } {
117 wokdep:gui:Show32Bitness ::aRowIter
119 if { "$::ARCH" == "64" } {
120 wokdep:gui:Show64Bitness ::aRowIter
123 if { [llength [grid info .myFrame.mySave]] != 0 } {
124 grid forget .myFrame.mySave .myFrame.myClose
128 grid .myFrame.mySave -row $::aRowIter -column 4 -columnspan 2
129 grid .myFrame.myClose -row $::aRowIter -column 6 -columnspan 2
132 proc wokdep:gui:UpdateList {} {
138 wokdep:SearchTclTk anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
139 wokdep:SearchFreeType anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
140 wokdep:SearchX11 anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
141 if { "$::HAVE_GLES2" == "true" } {
142 if { "$::HAVE_GL2PS" == "true" } {
143 lappend anIncErrs "Error: gl2ps can not be used with OpenGL ES"
145 if { "$::HAVE_D3D" == "true" } {
146 lappend anIncErrs "Error: Direct3D can not be used with OpenGL ES"
148 wokdep:SearchEGL anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
149 wokdep:SearchGLES anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
151 if { "$::HAVE_FREEIMAGE" == "true" } {
152 wokdep:SearchFreeImage anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
154 if { "$::HAVE_FFMPEG" == "true" } {
155 wokdep:SearchFFmpeg anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
157 if { "$::HAVE_GL2PS" == "true" } {
158 wokdep:SearchStandardLibrary anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs "gl2ps" "gl2ps.h" "gl2ps" {"gl2ps"}
160 if { "$::HAVE_TBB" == "true" } {
161 wokdep:SearchTBB anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
163 # if { "$::HAVE_OPENCL" == "true" } {
164 # wokdep:SearchOpenCL anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
166 if { "$::HAVE_VTK" == "true" } {
167 wokdep:SearchVTK anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
170 if { "$::HAVE_ZLIB" == "true" } {
171 wokdep:SearchStandardLibrary anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs "zlib" "zlib.h" "zlib" {"zlib"}
173 if { "$::HAVE_LIBLZMA" == "true" } {
175 if { "$::tcl_platform(platform)" == "windows" } {
176 set aCheckLib "liblzma"
178 wokdep:SearchStandardLibrary anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs "liblzma" "lzma.h" "$aCheckLib" {"lzma" "xz"}
181 if { "$::CHECK_QT4" == "true" } {
182 wokdep:SearchQt4 anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
184 if { "$::CHECK_JDK" == "true" } {
185 wokdep:SearchJDK anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
188 .myFrame.myIncErrLbl configure -text [join $anIncErrs "\n"]
189 .myFrame.myLib32ErrLbl configure -text [join $anLib32Errs "\n"]
190 .myFrame.myLib64ErrLbl configure -text [join $anLib64Errs "\n"]
191 .myFrame.myBin32ErrLbl configure -text [join $anBin32Errs "\n"]
192 .myFrame.myBin64ErrLbl configure -text [join $anBin64Errs "\n"]
195 proc wokdep:gui:BrowseVcVars {} {
196 set aResult [tk_chooseDirectory -initialdir $::VCVARS -title "Choose a directory"]
197 if { "$aResult" != "" } {
198 set ::VCVARS $aResult
202 proc wokdep:gui:BrowsePartiesRoot {} {
203 set aResult [tk_chooseDirectory -initialdir $::PRODUCTS_PATH -title "Choose a directory"]
204 if { "$aResult" != "" } {
205 set ::PRODUCTS_PATH $aResult
206 wokdep:gui:UpdateList
210 proc wokdep:gui:AddIncPath {} {
211 set aResult [tk_chooseDirectory -title "Choose a directory"]
212 if { "$aResult" != "" } {
213 lappend ::CSF_OPT_INC "$aResult"
214 wokdep:gui:UpdateList
218 proc wokdep:gui:AddLib32Path {} {
219 set aResult [tk_chooseDirectory -title "Choose a directory"]
220 if { "$aResult" != "" } {
221 lappend ::CSF_OPT_LIB32 "$aResult"
222 wokdep:gui:UpdateList
226 proc wokdep:gui:AddLib64Path {} {
227 set aResult [tk_chooseDirectory -title "Choose a directory"]
228 if { "$aResult" != "" } {
229 lappend ::CSF_OPT_LIB64 "$aResult"
230 wokdep:gui:UpdateList
234 proc wokdep:gui:AddBin32Path {} {
235 set aResult [tk_chooseDirectory -title "Choose a directory"]
236 if { "$aResult" != "" } {
237 lappend ::CSF_OPT_BIN32 "$aResult"
238 wokdep:gui:UpdateList
242 proc wokdep:gui:AddBin64Path {} {
243 set aResult [tk_chooseDirectory -title "Choose a directory"]
244 if { "$aResult" != "" } {
245 lappend ::CSF_OPT_BIN64 "$aResult"
246 wokdep:gui:UpdateList
250 proc wokdep:gui:RemoveIncPath {} {
251 set aSelIndices [.myFrame.myIncList curselection]
252 if { [llength $aSelIndices] != 0 } {
253 .myFrame.myIncList delete [lindex $aSelIndices 0]
255 wokdep:gui:UpdateList
258 proc wokdep:gui:RemoveLib32Path {} {
259 set aSelIndices [.myFrame.myLib32List curselection]
260 if { [llength $aSelIndices] != 0 } {
261 .myFrame.myLib32List delete [lindex $aSelIndices 0]
263 wokdep:gui:UpdateList
266 proc wokdep:gui:RemoveLib64Path {} {
267 set aSelIndices [.myFrame.myLib64List curselection]
268 if { [llength $aSelIndices] != 0 } {
269 .myFrame.myLib64List delete [lindex $aSelIndices 0]
271 wokdep:gui:UpdateList
274 proc wokdep:gui:RemoveBin32Path {} {
275 set aSelIndices [.myFrame.myBin32List curselection]
276 if { [llength $aSelIndices] != 0 } {
277 .myFrame.myBin32List delete [lindex $aSelIndices 0]
279 wokdep:gui:UpdateList
282 proc wokdep:gui:RemoveBin64Path {} {
283 set aSelIndices [.myFrame.myBin64List curselection]
284 if { [llength $aSelIndices] != 0 } {
285 .myFrame.myBin64List delete [lindex $aSelIndices 0]
287 wokdep:gui:UpdateList
290 proc wokdep:gui:ResetIncPath {} {
292 wokdep:gui:UpdateList
295 proc wokdep:gui:ResetLib32Path {} {
296 set ::CSF_OPT_LIB32 {}
297 wokdep:gui:UpdateList
300 proc wokdep:gui:ResetLib64Path {} {
301 set ::CSF_OPT_LIB64 {}
302 wokdep:gui:UpdateList
305 proc wokdep:gui:ResetBin32Path {} {
306 set ::CSF_OPT_BIN32 {}
307 wokdep:gui:UpdateList
310 proc wokdep:gui:ResetBin64Path {} {
311 set ::CSF_OPT_BIN64 {}
312 wokdep:gui:UpdateList
315 proc wokdep:gui:Show32Bitness { theRowIter } {
316 upvar $theRowIter aRowIter
318 if { [llength [grid info .myFrame.myLib64Lbl]] != 0 } {
319 grid forget .myFrame.myLib64Lbl .myFrame.myLib64List .myFrame.myLib64Scrl
320 grid forget .myFrame.myLib64Add .myFrame.myLib64Remove .myFrame.myLib64Clear .myFrame.myLib64ErrLbl
321 grid forget .myFrame.myBin64Lbl .myFrame.myBin64List .myFrame.myBin64Scrl
322 grid forget .myFrame.myBin64Add .myFrame.myBin64Remove .myFrame.myBin64Clear .myFrame.myBin64ErrLbl
325 # Additional libraries (32-bit) search paths
326 grid .myFrame.myLib32Lbl -row $aRowIter -column 0 -columnspan 10 -sticky w
328 grid .myFrame.myLib32List -row $aRowIter -column 0 -rowspan 4 -columnspan 5
329 grid .myFrame.myLib32Scrl -row $aRowIter -column 5 -rowspan 4
330 grid .myFrame.myLib32Add -row $aRowIter -column 6
332 #grid .myFrame.myLib32Edit -row $aRowIter -column 6
334 grid .myFrame.myLib32Remove -row $aRowIter -column 6
336 grid .myFrame.myLib32Clear -row $aRowIter -column 6
338 grid .myFrame.myLib32ErrLbl -row $aRowIter -column 0 -columnspan 10 -sticky w
341 # Additional executables (32-bit) search paths
342 grid .myFrame.myBin32Lbl -row $aRowIter -column 0 -columnspan 10 -sticky w
344 grid .myFrame.myBin32List -row $aRowIter -column 0 -rowspan 4 -columnspan 5
345 grid .myFrame.myBin32Scrl -row $aRowIter -column 5 -rowspan 4
346 grid .myFrame.myBin32Add -row $aRowIter -column 6
348 #grid .myFrame.myBin32Edit -row $aRowIter -column 6
350 grid .myFrame.myBin32Remove -row $aRowIter -column 6
352 grid .myFrame.myBin32Clear -row $aRowIter -column 6
354 grid .myFrame.myBin32ErrLbl -row $aRowIter -column 0 -columnspan 10 -sticky w
358 proc wokdep:gui:Show64Bitness { theRowIter } {
359 upvar $theRowIter aRowIter
361 if { [llength [grid info .myFrame.myLib32Lbl]] != 0 } {
362 grid forget .myFrame.myLib32Lbl .myFrame.myLib32List .myFrame.myLib32Scrl
363 grid forget .myFrame.myLib32Add .myFrame.myLib32Remove .myFrame.myLib32Clear .myFrame.myLib32ErrLbl
364 grid forget .myFrame.myBin32Lbl .myFrame.myBin32List .myFrame.myBin32Scrl
365 grid forget .myFrame.myBin32Add .myFrame.myBin32Remove .myFrame.myBin32Clear .myFrame.myBin32ErrLbl
368 # Additional libraries (64-bit) search paths
369 grid .myFrame.myLib64Lbl -row $aRowIter -column 0 -columnspan 10 -sticky w
371 grid .myFrame.myLib64List -row $aRowIter -column 0 -rowspan 4 -columnspan 5
372 grid .myFrame.myLib64Scrl -row $aRowIter -column 5 -rowspan 4
373 grid .myFrame.myLib64Add -row $aRowIter -column 6
375 #grid .myFrame.myLib64Edit -row $aRowIter -column 6
377 grid .myFrame.myLib64Remove -row $aRowIter -column 6
379 grid .myFrame.myLib64Clear -row $aRowIter -column 6
381 grid .myFrame.myLib64ErrLbl -row $aRowIter -column 0 -columnspan 10 -sticky w
384 # Additional executables (64-bit) search paths
385 grid .myFrame.myBin64Lbl -row $aRowIter -column 0 -columnspan 10 -sticky w
387 grid .myFrame.myBin64List -row $aRowIter -column 0 -rowspan 4 -columnspan 5
388 grid .myFrame.myBin64Scrl -row $aRowIter -column 5 -rowspan 4
389 grid .myFrame.myBin64Add -row $aRowIter -column 6
391 #grid .myFrame.myBin64Edit -row $aRowIter -column 6
393 grid .myFrame.myBin64Remove -row $aRowIter -column 6
395 grid .myFrame.myBin64Clear -row $aRowIter -column 6
397 grid .myFrame.myBin64ErrLbl -row $aRowIter -column 0 -columnspan 10 -sticky w
402 ttk::label .myFrame.myVsFrame.myVsLbl -text "Visual Studio configuration:" -padding {5 5 20 5}
403 ttk::combobox .myFrame.myVsFrame.myVsCombo -values $SYS_VS_LIST -state readonly -textvariable VSVER -width 40
404 ttk::combobox .myFrame.myVsFrame.myArchCombo -values { {32} {64} } -textvariable ARCH -state readonly -width 6
405 entry .myFrame.myVcEntry -textvariable VCVER -width 10
406 entry .myFrame.myVcVarsEntry -textvariable VCVARS -width 70
407 ttk::button .myFrame.myVcBrowseBtn -text "Browse" -command wokdep:gui:BrowseVcVars
408 ttk::label .myFrame.myHxxChecks.myRelDebInfoLbl -text "Release with Debug info"
409 checkbutton .myFrame.myHxxChecks.myRelDebInfoCheck -offvalue "false" -onvalue "true" -variable HAVE_RelWithDebInfo
412 ttk::combobox .myFrame.myHxxChecks.myScutsCombo -values { {ShortCut} {Copy} {HardLink} } -textvariable SHORTCUT_HEADERS -state readonly -width 12
413 ttk::label .myFrame.myHxxChecks.myScutsLbl -text "Strategy for filling headers folder inc:"
416 ttk::label .myFrame.mySrchLbl -text "3rd-parties search path:" -padding {5 5 80 5}
417 entry .myFrame.mySrchEntry -textvariable PRODUCTS_PATH -width 80
418 ttk::button .myFrame.mySrchBrowseBtn -text "Browse" -command wokdep:gui:BrowsePartiesRoot
419 checkbutton .myFrame.myChecks.myFImageCheck -offvalue "false" -onvalue "true" -variable HAVE_FREEIMAGE -command wokdep:gui:UpdateList
420 ttk::label .myFrame.myChecks.myFImageLbl -text "Use FreeImage"
421 checkbutton .myFrame.myChecks.myGl2psCheck -offvalue "false" -onvalue "true" -variable HAVE_GL2PS -command wokdep:gui:UpdateList
422 ttk::label .myFrame.myChecks.myGl2psLbl -text "Use GL2PS"
423 checkbutton .myFrame.myChecks.myTbbCheck -offvalue "false" -onvalue "true" -variable HAVE_TBB -command wokdep:gui:UpdateList
424 ttk::label .myFrame.myChecks.myTbbLbl -text "Use Intel TBB"
425 if { "$::tcl_platform(os)" != "Darwin" } {
426 checkbutton .myFrame.myChecks.myGlesCheck -offvalue "false" -onvalue "true" -variable HAVE_GLES2 -command wokdep:gui:UpdateList
427 ttk::label .myFrame.myChecks.myGlesLbl -text "Use OpenGL ES"
429 if { "$::tcl_platform(platform)" == "windows" } {
430 checkbutton .myFrame.myChecks.myD3dCheck -offvalue "false" -onvalue "true" -variable HAVE_D3D -command wokdep:gui:UpdateList
431 ttk::label .myFrame.myChecks.myD3dLbl -text "Use Direct3D"
433 checkbutton .myFrame.myChecks.myFFmpegCheck -offvalue "false" -onvalue "true" -variable HAVE_FFMPEG -command wokdep:gui:UpdateList
434 ttk::label .myFrame.myChecks.myFFmpegLbl -text "Use FFmpeg"
435 #checkbutton .myFrame.myChecks.myOpenClCheck -offvalue "false" -onvalue "true" -variable HAVE_OPENCL -command wokdep:gui:UpdateList
436 #ttk::label .myFrame.myChecks.myOpenClLbl -text "Use OpenCL"
437 checkbutton .myFrame.myChecks.myMacGLXCheck -offvalue "false" -onvalue "true" -variable MACOSX_USE_GLX
438 ttk::label .myFrame.myChecks.myMacGLXLbl -text "Use X11 for windows drawing"
439 ttk::label .myFrame.myChecks.myVtkLbl -text "Use VTK"
440 checkbutton .myFrame.myChecks.myVtkCheck -offvalue "false" -onvalue "true" -variable HAVE_VTK -command wokdep:gui:UpdateList
442 checkbutton .myFrame.myChecks.myZLibCheck -offvalue "false" -onvalue "true" -variable HAVE_ZLIB -command wokdep:gui:UpdateList
443 ttk::label .myFrame.myChecks.myZLibLbl -text "Use zlib"
444 checkbutton .myFrame.myChecks.myLzmaCheck -offvalue "false" -onvalue "true" -variable HAVE_LIBLZMA -command wokdep:gui:UpdateList
445 ttk::label .myFrame.myChecks.myLzmaLbl -text "Use liblzma"
447 checkbutton .myFrame.myChecks.myQt4Check -offvalue "false" -onvalue "true" -variable CHECK_QT4 -command wokdep:gui:UpdateList
448 ttk::label .myFrame.myChecks.myQt4Lbl -text "Search Qt4"
449 checkbutton .myFrame.myChecks.myJDKCheck -offvalue "false" -onvalue "true" -variable CHECK_JDK -command wokdep:gui:UpdateList
450 ttk::label .myFrame.myChecks.myJDKLbl -text "Search JDK"
452 # Additional headers search paths
453 ttk::label .myFrame.myIncLbl -text "Additional headers search paths:" -padding {5 5 80 5}
454 scrollbar .myFrame.myIncScrl -command ".myFrame.myIncList yview"
455 listbox .myFrame.myIncList -listvariable CSF_OPT_INC -width 80 -height 5 -yscrollcommand ".myFrame.myIncScrl set"
456 ttk::button .myFrame.myIncAdd -text "Add" -command wokdep:gui:AddIncPath
457 ttk::button .myFrame.myIncEdit -text "Edit"
458 ttk::button .myFrame.myIncRemove -text "Remove" -command wokdep:gui:RemoveIncPath
459 ttk::button .myFrame.myIncClear -text "Reset" -command wokdep:gui:ResetIncPath
460 ttk::label .myFrame.myIncErrLbl -text "Error: " -foreground red -padding {5 5 5 5}
462 # Additional libraries (32-bit) search paths
463 ttk::label .myFrame.myLib32Lbl -text "Additional libraries (32-bit) search paths:" -padding {5 5 80 5}
464 scrollbar .myFrame.myLib32Scrl -command ".myFrame.myLib32List yview"
465 listbox .myFrame.myLib32List -listvariable CSF_OPT_LIB32 -width 80 -height 5 -yscrollcommand ".myFrame.myLib32Scrl set"
466 ttk::button .myFrame.myLib32Add -text "Add" -command wokdep:gui:AddLib32Path
467 ttk::button .myFrame.myLib32Edit -text "Edit"
468 ttk::button .myFrame.myLib32Remove -text "Remove" -command wokdep:gui:RemoveLib32Path
469 ttk::button .myFrame.myLib32Clear -text "Reset" -command wokdep:gui:ResetLib32Path
470 ttk::label .myFrame.myLib32ErrLbl -text "Error: " -foreground red -padding {5 5 5 5}
472 # Additional libraries (64-bit) search paths
473 ttk::label .myFrame.myLib64Lbl -text "Additional libraries (64-bit) search paths:" -padding {5 5 80 5}
474 scrollbar .myFrame.myLib64Scrl -command ".myFrame.myLib64List yview"
475 listbox .myFrame.myLib64List -listvariable CSF_OPT_LIB64 -width 80 -height 5 -yscrollcommand ".myFrame.myLib64Scrl set"
476 ttk::button .myFrame.myLib64Add -text "Add" -command wokdep:gui:AddLib64Path
477 ttk::button .myFrame.myLib64Edit -text "Edit"
478 ttk::button .myFrame.myLib64Remove -text "Remove" -command wokdep:gui:RemoveLib64Path
479 ttk::button .myFrame.myLib64Clear -text "Reset" -command wokdep:gui:ResetLib64Path
480 ttk::label .myFrame.myLib64ErrLbl -text "Error: " -foreground red -padding {5 5 5 5}
482 # Additional executables (32-bit) search paths
483 ttk::label .myFrame.myBin32Lbl -text "Additional executables (32-bit) search paths:" -padding {5 5 80 5}
484 scrollbar .myFrame.myBin32Scrl -command ".myFrame.myBin32List yview"
485 listbox .myFrame.myBin32List -listvariable CSF_OPT_BIN32 -width 80 -height 5 -yscrollcommand ".myFrame.myBin32Scrl set"
486 ttk::button .myFrame.myBin32Add -text "Add" -command wokdep:gui:AddBin32Path
487 ttk::button .myFrame.myBin32Edit -text "Edit"
488 ttk::button .myFrame.myBin32Remove -text "Remove" -command wokdep:gui:RemoveBin32Path
489 ttk::button .myFrame.myBin32Clear -text "Reset" -command wokdep:gui:ResetBin32Path
490 ttk::label .myFrame.myBin32ErrLbl -text "Error: " -foreground red -padding {5 5 5 5}
492 # Additional executables (64-bit) search paths
493 ttk::label .myFrame.myBin64Lbl -text "Additional executables (64-bit) search paths:" -padding {5 5 80 5}
494 scrollbar .myFrame.myBin64Scrl -command ".myFrame.myBin64List yview"
495 listbox .myFrame.myBin64List -listvariable CSF_OPT_BIN64 -width 80 -height 5 -yscrollcommand ".myFrame.myBin64Scrl set"
496 ttk::button .myFrame.myBin64Add -text "Add" -command wokdep:gui:AddBin64Path
497 ttk::button .myFrame.myBin64Edit -text "Edit"
498 ttk::button .myFrame.myBin64Remove -text "Remove" -command wokdep:gui:RemoveBin64Path
499 ttk::button .myFrame.myBin64Clear -text "Reset" -command wokdep:gui:ResetBin64Path
500 ttk::label .myFrame.myBin64ErrLbl -text "Error: " -foreground red -padding {5 5 5 5}
503 ttk::button .myFrame.mySave -text "Save" -command wokdep:SaveCustom
504 ttk::button .myFrame.myClose -text "Close" -command wokdep:gui:Close
508 if { "$tcl_platform(platform)" == "windows" } {
509 grid .myFrame.myVsFrame -row $aRowIter -column 0 -columnspan 10 -sticky w
510 grid .myFrame.myVsFrame.myVsLbl -row 0 -column 0
511 grid .myFrame.myVsFrame.myVsCombo -row 0 -column 1 -padx 5
512 grid .myFrame.myVsFrame.myArchCombo -row 0 -column 2
514 grid .myFrame.myVcEntry -row $aRowIter -column 0
515 grid .myFrame.myVcVarsEntry -row $aRowIter -column 1 -columnspan 4 -sticky w
516 grid .myFrame.myVcBrowseBtn -row $aRowIter -column 6
521 grid .myFrame.myHxxChecks -row $aRowIter -column 0 -columnspan 10 -sticky w
522 grid .myFrame.myHxxChecks.myScutsLbl -row 0 -column 0
523 grid .myFrame.myHxxChecks.myScutsCombo -row 0 -column 1
524 if { "$tcl_platform(platform)" == "windows" } {
525 grid .myFrame.myHxxChecks.myRelDebInfoCheck -row 0 -column 2
526 grid .myFrame.myHxxChecks.myRelDebInfoLbl -row 0 -column 3
530 grid .myFrame.mySrchLbl -row $aRowIter -column 0 -columnspan 10 -sticky w
532 grid .myFrame.mySrchEntry -row $aRowIter -column 0 -columnspan 5
533 grid .myFrame.mySrchBrowseBtn -row $aRowIter -column 6
536 grid .myFrame.myChecks -row $aRowIter -column 0 -columnspan 10 -sticky w
538 grid .myFrame.myChecks.myFImageCheck -row $aCheckRowIter -column 0 -sticky e
539 grid .myFrame.myChecks.myFImageLbl -row $aCheckRowIter -column 1 -sticky w
540 grid .myFrame.myChecks.myTbbCheck -row $aCheckRowIter -column 2 -sticky e
541 grid .myFrame.myChecks.myTbbLbl -row $aCheckRowIter -column 3 -sticky w
542 if { "$::tcl_platform(os)" != "Darwin" } {
543 grid .myFrame.myChecks.myGlesCheck -row $aCheckRowIter -column 4 -sticky e
544 grid .myFrame.myChecks.myGlesLbl -row $aCheckRowIter -column 5 -sticky w
546 #grid .myFrame.myChecks.myOpenClCheck -row $aCheckRowIter -column 6 -sticky e
547 #grid .myFrame.myChecks.myOpenClLbl -row $aCheckRowIter -column 7 -sticky w
548 grid .myFrame.myChecks.myZLibCheck -row $aCheckRowIter -column 6 -sticky e
549 grid .myFrame.myChecks.myZLibLbl -row $aCheckRowIter -column 7 -sticky w
551 grid .myFrame.myChecks.myGl2psCheck -row $aCheckRowIter -column 8 -sticky e
552 grid .myFrame.myChecks.myGl2psLbl -row $aCheckRowIter -column 9 -sticky w
554 grid .myFrame.myChecks.myQt4Check -row $aCheckRowIter -column 10 -sticky e
555 grid .myFrame.myChecks.myQt4Lbl -row $aCheckRowIter -column 11 -sticky w
558 grid .myFrame.myChecks.myFFmpegCheck -row $aCheckRowIter -column 0 -sticky e
559 grid .myFrame.myChecks.myFFmpegLbl -row $aCheckRowIter -column 1 -sticky w
560 grid .myFrame.myChecks.myVtkCheck -row $aCheckRowIter -column 2 -sticky e
561 grid .myFrame.myChecks.myVtkLbl -row $aCheckRowIter -column 3 -sticky w
562 if { "$::tcl_platform(platform)" == "windows" } {
563 grid .myFrame.myChecks.myD3dCheck -row $aCheckRowIter -column 4 -sticky e
564 grid .myFrame.myChecks.myD3dLbl -row $aCheckRowIter -column 5 -sticky w
566 grid .myFrame.myChecks.myLzmaCheck -row $aCheckRowIter -column 6 -sticky e
567 grid .myFrame.myChecks.myLzmaLbl -row $aCheckRowIter -column 7 -sticky w
568 grid .myFrame.myChecks.myJDKCheck -row $aCheckRowIter -column 10 -sticky e
569 grid .myFrame.myChecks.myJDKLbl -row $aCheckRowIter -column 11 -sticky w
572 if { "$::tcl_platform(os)" == "Darwin" } {
573 grid .myFrame.myChecks.myMacGLXCheck -row $aCheckRowIter -column 0 -sticky e
574 grid .myFrame.myChecks.myMacGLXLbl -row $aCheckRowIter -column 1 -sticky w
578 # Additional headers search paths
579 grid .myFrame.myIncLbl -row $aRowIter -column 0 -columnspan 10 -sticky w
581 grid .myFrame.myIncList -row $aRowIter -column 0 -rowspan 4 -columnspan 5
582 grid .myFrame.myIncScrl -row $aRowIter -column 5 -rowspan 4
583 grid .myFrame.myIncAdd -row $aRowIter -column 6
585 #grid .myFrame.myIncEdit -row $aRowIter -column 6
587 grid .myFrame.myIncRemove -row $aRowIter -column 6
589 grid .myFrame.myIncClear -row $aRowIter -column 6
591 grid .myFrame.myIncErrLbl -row $aRowIter -column 0 -columnspan 10 -sticky w
594 # Additional 32-bit search paths
595 if { "$ARCH" == "32" } {
596 wokdep:gui:Show32Bitness aRowIter
599 # Additional 64-bit search paths
600 if { "$ARCH" == "64" } {
601 wokdep:gui:Show64Bitness aRowIter
605 grid .myFrame.mySave -row $aRowIter -column 4 -columnspan 2
606 grid .myFrame.myClose -row $aRowIter -column 6 -columnspan 2
609 bind .myFrame.myVsFrame.myVsCombo <<ComboboxSelected>> {
610 wokdep:gui:SwitchConfig
612 bind .myFrame.myVsFrame.myArchCombo <<ComboboxSelected>> {
613 wokdep:gui:SwitchArch
616 .myFrame.mySrchEntry configure -validate all -validatecommand {
617 #return [file exists "$::PRODUCTS_PATH"]
618 wokdep:gui:UpdateList
622 wokdep:gui:UpdateList