projects / occt.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
0032306: Draw Harness, ViewerTest - move window message processing to TKService
[occt.git] / adm / genconf.tcl
CommitLineData
910970ab 1#!/usr/bin/tclsh
2
d1a67b9d 3# =======================================================================
4# Created on: 2012-01-26
5# Created by: Kirill GAVRILOV
6# Copyright (c) 2012 OPEN CASCADE SAS
7#
8# This file is part of Open CASCADE Technology software library.
9#
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.
15#
16# Alternatively, this file may be used under the terms of Open CASCADE
17# commercial license or contractual agreement.
18
19# =======================================================================
20# GUI procedure for search of third-party tools and generation of environment
21# customization script
22# =======================================================================
910970ab 23
d1a67b9d 24# load tools
25source [file join [file dirname [info script]] genconfdeps.tcl]
26
f4b0c772 27# proxy variable for implicit file path normalization
28set PRODUCTS_PATH_INPUT "$::PRODUCTS_PATH"
29
d1a67b9d 30package require Tk
910970ab 31
32set aRowIter 0
ea991a6e 33set aCheckRowIter 0
910970ab 34frame .myFrame -padx 5 -pady 5
35pack .myFrame -fill both -expand 1
aafe169f 36frame .myFrame.myPrjFrame
ea991a6e 37frame .myFrame.myVsFrame
38frame .myFrame.myHxxChecks
39frame .myFrame.myChecks
910970ab 40
aafe169f 41# project file format
42set SYS_PRJFMT_LIST {}
43set SYS_PRJNAME_LIST {}
44if { "$::tcl_platform(platform)" == "windows" } {
45 lappend ::SYS_PRJFMT_LIST "vcxproj"
46 lappend ::SYS_PRJNAME_LIST "Visual Studio (.vcxproj)"
47}
48if { "$tcl_platform(os)" == "Darwin" } {
49 lappend ::SYS_PRJFMT_LIST "xcd"
50 lappend ::SYS_PRJNAME_LIST "XCode (.xcd)"
51}
52lappend ::SYS_PRJFMT_LIST "cbp"
53lappend ::SYS_PRJNAME_LIST "Code Blocks (.cbp)"
54lappend ::SYS_PRJFMT_LIST "pro"
55lappend ::SYS_PRJNAME_LIST "Qt Creator (.pro)"
56
57set aPrjIndex [lsearch $::SYS_PRJFMT_LIST $::PRJFMT]
58set ::PRJNAME [lindex $::SYS_PRJNAME_LIST $aPrjIndex]
59
910970ab 60set SYS_VS_LIST {}
61set SYS_VC_LIST {}
62set SYS_VCVARS_LIST {}
63
c8428cb3 64# detect installed Visual Studio 2017+ instances by running vswhere.exe
d6cda17a 65if { ! [catch {exec vswhere.exe -version "\[15.0,15.99\]" -latest -requires Microsoft.VisualStudio.Workload.NativeDesktop -property installationPath} res] } {
66 lappend ::SYS_VS_LIST "Visual Studio 2017 (15, toolset v141)"
67 lappend ::SYS_VC_LIST "vc141"
68 lappend ::SYS_VCVARS_LIST "$res\\VC\\vcvarsall.bat"
69}
70if { ! [catch {exec vswhere.exe -version "\[15.0,15.99\]" -latest -requires Microsoft.VisualStudio.Workload.Universal -property installationPath} res] } {
71 lappend ::SYS_VS_LIST "Visual Studio 2017 (15, toolset v141) UWP"
72 lappend ::SYS_VC_LIST "vc141-uwp"
73 lappend ::SYS_VCVARS_LIST "$res\\VC\\vcvarsall.bat"
39bff09c 74}
c8428cb3 75if { ! [catch {exec vswhere.exe -version "\[16.0,16.99\]" -latest -requires Microsoft.VisualStudio.Workload.NativeDesktop -property installationPath} res] } {
76 lappend ::SYS_VS_LIST "Visual Studio 2019 (16, toolset v142)"
77 lappend ::SYS_VC_LIST "vc142"
78 lappend ::SYS_VCVARS_LIST "$res\\VC\\vcvarsall.bat"
79}
80if { ! [catch {exec vswhere.exe -version "\[16.0,16.99\]" -latest -requires Microsoft.VisualStudio.Workload.Universal -property installationPath} res] } {
81 lappend ::SYS_VS_LIST "Visual Studio 2019 (16, toolset v142) UWP"
82 lappend ::SYS_VC_LIST "vc142-uwp"
83 lappend ::SYS_VCVARS_LIST "$res\\VC\\vcvarsall.bat"
84}
1bd04b5a 85if { ! [catch {exec vswhere.exe -version "\[16.0,16.99\]" -latest -requires Microsoft.VisualStudio.Component.VC.ClangCL -property installationPath} res] } {
86 lappend ::SYS_VS_LIST "Visual Studio 2019 (16, toolset ClangCL)"
87 lappend ::SYS_VC_LIST "vclang"
88 lappend ::SYS_VCVARS_LIST "$res\\VC\\vcvarsall.bat"
89}
d6cda17a 90
91# detect installed Visual Studio instances from global environment
39bff09c 92if { [info exists ::env(VS140COMNTOOLS)] } {
d6cda17a 93 lappend ::SYS_VS_LIST "Visual Studio 2015 (14, toolset v140)"
39bff09c 94 lappend ::SYS_VC_LIST "vc14"
95 lappend ::SYS_VCVARS_LIST "%VS140COMNTOOLS%..\\..\\VC\\vcvarsall.bat"
d6cda17a 96
97 lappend ::SYS_VS_LIST "Visual Studio 2015 (14, toolset v140) UWP"
98 lappend ::SYS_VC_LIST "vc14-uwp"
99 lappend ::SYS_VCVARS_LIST "%VS140COMNTOOLS%..\\..\\VC\\vcvarsall.bat"
910970ab 100}
101if { [info exists ::env(VS120COMNTOOLS)] } {
d6cda17a 102 lappend ::SYS_VS_LIST "Visual Studio 2013 (12, toolset v120)"
910970ab 103 lappend ::SYS_VC_LIST "vc12"
104 lappend ::SYS_VCVARS_LIST "%VS120COMNTOOLS%..\\..\\VC\\vcvarsall.bat"
105}
106if { [info exists ::env(VS110COMNTOOLS)] } {
d6cda17a 107 lappend ::SYS_VS_LIST "Visual Studio 2012 (11, toolset v110)"
910970ab 108 lappend ::SYS_VC_LIST "vc11"
109 lappend ::SYS_VCVARS_LIST "%VS110COMNTOOLS%..\\..\\VC\\vcvarsall.bat"
110}
111if { [info exists ::env(VS100COMNTOOLS)] } {
d6cda17a 112 lappend ::SYS_VS_LIST "Visual Studio 2010 (10, toolset v100)"
910970ab 113 lappend ::SYS_VC_LIST "vc10"
114 lappend ::SYS_VCVARS_LIST "%VS100COMNTOOLS%..\\..\\VC\\vcvarsall.bat"
115}
116if { [info exists ::env(VS90COMNTOOLS)] } {
d6cda17a 117 lappend ::SYS_VS_LIST "Visual Studio 2008 (9, toolset v90)"
910970ab 118 lappend ::SYS_VC_LIST "vc9"
119 lappend ::SYS_VCVARS_LIST "%VS90COMNTOOLS%..\\..\\VC\\vcvarsall.bat"
120}
121if { [info exists ::env(VS80COMNTOOLS)] } {
d6cda17a 122 lappend ::SYS_VS_LIST "Visual Studio 2005 (8, toolset v80)"
910970ab 123 lappend ::SYS_VC_LIST "vc8"
124 lappend ::SYS_VCVARS_LIST "%VS80COMNTOOLS%..\\..\\VC\\vcvarsall.bat"
125}
126lappend ::SYS_VS_LIST "Custom"
127lappend ::SYS_VC_LIST "vcX"
128lappend ::SYS_VCVARS_LIST "%VSXXCOMNTOOLS%..\\..\\VC\\vcvarsall.bat"
129
130set aVcVerIndex [lsearch $::SYS_VC_LIST $::VCVER]
131set ::VSVER [lindex $::SYS_VS_LIST $aVcVerIndex]
132if { "$::VCVARS" == "" } {
133 set ::VCVARS [lindex $::SYS_VCVARS_LIST $aVcVerIndex]
134}
135
136proc wokdep:gui:Close {} {
137 # if changed ask
138 exit
139}
140
141proc wokdep:gui:SwitchConfig {} {
aafe169f 142 set ::PRJFMT [lindex $::SYS_PRJFMT_LIST [.myFrame.myPrjFrame.myPrjCombo current]]
ea991a6e 143 set ::VCVER [lindex $::SYS_VC_LIST [.myFrame.myVsFrame.myVsCombo current]]
144 set ::VCVARS [lindex $::SYS_VCVARS_LIST [.myFrame.myVsFrame.myVsCombo current]]
910970ab 145
146 set ::CSF_OPT_INC {}
147 set ::CSF_OPT_LIB32 {}
148 set ::CSF_OPT_LIB64 {}
149 set ::CSF_OPT_BIN32 {}
150 set ::CSF_OPT_BIN64 {}
151 wokdep:gui:UpdateList
152}
153
154proc wokdep:gui:SwitchArch {} {
155 if { "$::ARCH" == "32" } {
156 wokdep:gui:Show32Bitness ::aRowIter
157 }
158 if { "$::ARCH" == "64" } {
159 wokdep:gui:Show64Bitness ::aRowIter
160 }
161
162 if { [llength [grid info .myFrame.mySave]] != 0 } {
163 grid forget .myFrame.mySave .myFrame.myClose
164 }
165
166 # Bottom section
167 grid .myFrame.mySave -row $::aRowIter -column 4 -columnspan 2
168 grid .myFrame.myClose -row $::aRowIter -column 6 -columnspan 2
169}
170
171proc wokdep:gui:UpdateList {} {
172 set anIncErrs {}
173 set anLib32Errs {}
174 set anLib64Errs {}
175 set anBin32Errs {}
176 set anBin64Errs {}
177 wokdep:SearchTclTk anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
5c9493b3 178 if { "$::HAVE_FREETYPE" == "true" } {
179 wokdep:SearchFreeType anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
180 }
910970ab 181 wokdep:SearchX11 anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
1ce0716b 182 if { "$::HAVE_GLES2" == "true" } {
1ce0716b 183 wokdep:SearchEGL anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
184 wokdep:SearchGLES anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
185 }
910970ab 186 if { "$::HAVE_FREEIMAGE" == "true" } {
187 wokdep:SearchFreeImage anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
188 }
e22105a9 189 if { "$::HAVE_FFMPEG" == "true" } {
190 wokdep:SearchFFmpeg anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
191 }
b40cdc2b 192 if { "$::HAVE_OPENVR" == "true" } {
193 wokdep:SearchOpenVR anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
194 }
910970ab 195 if { "$::HAVE_TBB" == "true" } {
196 wokdep:SearchTBB anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
197 }
944d808c 198# if { "$::HAVE_OPENCL" == "true" } {
199# wokdep:SearchOpenCL anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
200# }
910970ab 201 if { "$::HAVE_VTK" == "true" } {
202 wokdep:SearchVTK anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
203 }
e22105a9 204
205 if { "$::HAVE_ZLIB" == "true" } {
6a56fe92 206 set aCheckLib "z"
207 if { "$::tcl_platform(platform)" == "windows" } {
208 set aCheckLib "zlib"
209 }
210 wokdep:SearchStandardLibrary anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs "zlib" "zlib.h" "$aCheckLib" {"zlib"}
e22105a9 211 }
212 if { "$::HAVE_LIBLZMA" == "true" } {
213 set aCheckLib "lzma"
214 if { "$::tcl_platform(platform)" == "windows" } {
215 set aCheckLib "liblzma"
216 }
217 wokdep:SearchStandardLibrary anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs "liblzma" "lzma.h" "$aCheckLib" {"lzma" "xz"}
218 }
27bd52b5 219 if { "$::HAVE_E57" == "true" } {
220 wokdep:SearchStandardLibrary anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs "e57" "e57/E57Foundation.h" "E57RefImpl" {"e57"}
221 set aCheckLib "xerces-c"
222 if { "$::tcl_platform(platform)" == "windows" } {
223 set aCheckLib "xerces-c_3"
224 }
225 wokdep:SearchStandardLibrary anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs "xerces-c" "xercesc/sax2/XMLReaderFactory.hpp" "$aCheckLib" {"xerces"}
226 }
0a419c51 227 if { "$::HAVE_RAPIDJSON" == "true" } {
228 wokdep:SearchRapidJson anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
229 }
e22105a9 230
f6d8ca74 231 if {"$::BUILD_Inspector" == "true" } {
232 set ::CHECK_QT "true"
910970ab 233 }
f6d8ca74 234
235 if { "$::CHECK_QT" == "true" } {
236 wokdep:SearchQt anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
237 }
238
910970ab 239 if { "$::CHECK_JDK" == "true" } {
240 wokdep:SearchJDK anIncErrs anLib32Errs anLib64Errs anBin32Errs anBin64Errs
241 }
242
243 .myFrame.myIncErrLbl configure -text [join $anIncErrs "\n"]
244 .myFrame.myLib32ErrLbl configure -text [join $anLib32Errs "\n"]
245 .myFrame.myLib64ErrLbl configure -text [join $anLib64Errs "\n"]
246 .myFrame.myBin32ErrLbl configure -text [join $anBin32Errs "\n"]
247 .myFrame.myBin64ErrLbl configure -text [join $anBin64Errs "\n"]
248}
249
250proc wokdep:gui:BrowseVcVars {} {
251 set aResult [tk_chooseDirectory -initialdir $::VCVARS -title "Choose a directory"]
252 if { "$aResult" != "" } {
253 set ::VCVARS $aResult
254 }
255}
256
257proc wokdep:gui:BrowsePartiesRoot {} {
f4b0c772 258 set aResult [tk_chooseDirectory -initialdir $::PRODUCTS_PATH_INPUT -title "Choose a directory"]
910970ab 259 if { "$aResult" != "" } {
f4b0c772 260 set ::PRODUCTS_PATH_INPUT $aResult
910970ab 261 wokdep:gui:UpdateList
262 }
263}
264
265proc wokdep:gui:AddIncPath {} {
266 set aResult [tk_chooseDirectory -title "Choose a directory"]
267 if { "$aResult" != "" } {
268 lappend ::CSF_OPT_INC "$aResult"
269 wokdep:gui:UpdateList
270 }
271}
272
273proc wokdep:gui:AddLib32Path {} {
274 set aResult [tk_chooseDirectory -title "Choose a directory"]
275 if { "$aResult" != "" } {
276 lappend ::CSF_OPT_LIB32 "$aResult"
277 wokdep:gui:UpdateList
278 }
279}
280
281proc wokdep:gui:AddLib64Path {} {
282 set aResult [tk_chooseDirectory -title "Choose a directory"]
283 if { "$aResult" != "" } {
284 lappend ::CSF_OPT_LIB64 "$aResult"
285 wokdep:gui:UpdateList
286 }
287}
288
289proc wokdep:gui:AddBin32Path {} {
290 set aResult [tk_chooseDirectory -title "Choose a directory"]
291 if { "$aResult" != "" } {
292 lappend ::CSF_OPT_BIN32 "$aResult"
293 wokdep:gui:UpdateList
294 }
295}
296
297proc wokdep:gui:AddBin64Path {} {
298 set aResult [tk_chooseDirectory -title "Choose a directory"]
299 if { "$aResult" != "" } {
300 lappend ::CSF_OPT_BIN64 "$aResult"
301 wokdep:gui:UpdateList
302 }
303}
304
305proc wokdep:gui:RemoveIncPath {} {
306 set aSelIndices [.myFrame.myIncList curselection]
307 if { [llength $aSelIndices] != 0 } {
308 .myFrame.myIncList delete [lindex $aSelIndices 0]
309 }
310 wokdep:gui:UpdateList
311}
312
313proc wokdep:gui:RemoveLib32Path {} {
314 set aSelIndices [.myFrame.myLib32List curselection]
315 if { [llength $aSelIndices] != 0 } {
316 .myFrame.myLib32List delete [lindex $aSelIndices 0]
317 }
318 wokdep:gui:UpdateList
319}
320
321proc wokdep:gui:RemoveLib64Path {} {
322 set aSelIndices [.myFrame.myLib64List curselection]
323 if { [llength $aSelIndices] != 0 } {
324 .myFrame.myLib64List delete [lindex $aSelIndices 0]
325 }
326 wokdep:gui:UpdateList
327}
328
329proc wokdep:gui:RemoveBin32Path {} {
330 set aSelIndices [.myFrame.myBin32List curselection]
331 if { [llength $aSelIndices] != 0 } {
332 .myFrame.myBin32List delete [lindex $aSelIndices 0]
333 }
334 wokdep:gui:UpdateList
335}
336
337proc wokdep:gui:RemoveBin64Path {} {
338 set aSelIndices [.myFrame.myBin64List curselection]
339 if { [llength $aSelIndices] != 0 } {
340 .myFrame.myBin64List delete [lindex $aSelIndices 0]
341 }
342 wokdep:gui:UpdateList
343}
344
345proc wokdep:gui:ResetIncPath {} {
346 set ::CSF_OPT_INC {}
347 wokdep:gui:UpdateList
348}
349
350proc wokdep:gui:ResetLib32Path {} {
351 set ::CSF_OPT_LIB32 {}
352 wokdep:gui:UpdateList
353}
354
355proc wokdep:gui:ResetLib64Path {} {
356 set ::CSF_OPT_LIB64 {}
357 wokdep:gui:UpdateList
358}
359
360proc wokdep:gui:ResetBin32Path {} {
361 set ::CSF_OPT_BIN32 {}
362 wokdep:gui:UpdateList
363}
364
365proc wokdep:gui:ResetBin64Path {} {
366 set ::CSF_OPT_BIN64 {}
367 wokdep:gui:UpdateList
368}
369
370proc wokdep:gui:Show32Bitness { theRowIter } {
371 upvar $theRowIter aRowIter
372
373 if { [llength [grid info .myFrame.myLib64Lbl]] != 0 } {
374 grid forget .myFrame.myLib64Lbl .myFrame.myLib64List .myFrame.myLib64Scrl
375 grid forget .myFrame.myLib64Add .myFrame.myLib64Remove .myFrame.myLib64Clear .myFrame.myLib64ErrLbl
376 grid forget .myFrame.myBin64Lbl .myFrame.myBin64List .myFrame.myBin64Scrl
377 grid forget .myFrame.myBin64Add .myFrame.myBin64Remove .myFrame.myBin64Clear .myFrame.myBin64ErrLbl
378 }
379
380 # Additional libraries (32-bit) search paths
381 grid .myFrame.myLib32Lbl -row $aRowIter -column 0 -columnspan 10 -sticky w
382 incr aRowIter
383 grid .myFrame.myLib32List -row $aRowIter -column 0 -rowspan 4 -columnspan 5
384 grid .myFrame.myLib32Scrl -row $aRowIter -column 5 -rowspan 4
385 grid .myFrame.myLib32Add -row $aRowIter -column 6
386 incr aRowIter
387 #grid .myFrame.myLib32Edit -row $aRowIter -column 6
388 incr aRowIter
389 grid .myFrame.myLib32Remove -row $aRowIter -column 6
390 incr aRowIter
391 grid .myFrame.myLib32Clear -row $aRowIter -column 6
392 incr aRowIter
393 grid .myFrame.myLib32ErrLbl -row $aRowIter -column 0 -columnspan 10 -sticky w
394 incr aRowIter
395
396 # Additional executables (32-bit) search paths
397 grid .myFrame.myBin32Lbl -row $aRowIter -column 0 -columnspan 10 -sticky w
398 incr aRowIter
399 grid .myFrame.myBin32List -row $aRowIter -column 0 -rowspan 4 -columnspan 5
400 grid .myFrame.myBin32Scrl -row $aRowIter -column 5 -rowspan 4
401 grid .myFrame.myBin32Add -row $aRowIter -column 6
402 incr aRowIter
403 #grid .myFrame.myBin32Edit -row $aRowIter -column 6
404 incr aRowIter
405 grid .myFrame.myBin32Remove -row $aRowIter -column 6
406 incr aRowIter
407 grid .myFrame.myBin32Clear -row $aRowIter -column 6
408 incr aRowIter
409 grid .myFrame.myBin32ErrLbl -row $aRowIter -column 0 -columnspan 10 -sticky w
410 incr aRowIter
411}
412
413proc wokdep:gui:Show64Bitness { theRowIter } {
414 upvar $theRowIter aRowIter
415
416 if { [llength [grid info .myFrame.myLib32Lbl]] != 0 } {
417 grid forget .myFrame.myLib32Lbl .myFrame.myLib32List .myFrame.myLib32Scrl
418 grid forget .myFrame.myLib32Add .myFrame.myLib32Remove .myFrame.myLib32Clear .myFrame.myLib32ErrLbl
419 grid forget .myFrame.myBin32Lbl .myFrame.myBin32List .myFrame.myBin32Scrl
420 grid forget .myFrame.myBin32Add .myFrame.myBin32Remove .myFrame.myBin32Clear .myFrame.myBin32ErrLbl
421 }
422
423 # Additional libraries (64-bit) search paths
424 grid .myFrame.myLib64Lbl -row $aRowIter -column 0 -columnspan 10 -sticky w
425 incr aRowIter
426 grid .myFrame.myLib64List -row $aRowIter -column 0 -rowspan 4 -columnspan 5
427 grid .myFrame.myLib64Scrl -row $aRowIter -column 5 -rowspan 4
428 grid .myFrame.myLib64Add -row $aRowIter -column 6
429 incr aRowIter
430 #grid .myFrame.myLib64Edit -row $aRowIter -column 6
431 incr aRowIter
432 grid .myFrame.myLib64Remove -row $aRowIter -column 6
433 incr aRowIter
434 grid .myFrame.myLib64Clear -row $aRowIter -column 6
435 incr aRowIter
436 grid .myFrame.myLib64ErrLbl -row $aRowIter -column 0 -columnspan 10 -sticky w
437 incr aRowIter
438
439 # Additional executables (64-bit) search paths
440 grid .myFrame.myBin64Lbl -row $aRowIter -column 0 -columnspan 10 -sticky w
441 incr aRowIter
442 grid .myFrame.myBin64List -row $aRowIter -column 0 -rowspan 4 -columnspan 5
443 grid .myFrame.myBin64Scrl -row $aRowIter -column 5 -rowspan 4
444 grid .myFrame.myBin64Add -row $aRowIter -column 6
445 incr aRowIter
446 #grid .myFrame.myBin64Edit -row $aRowIter -column 6
447 incr aRowIter
448 grid .myFrame.myBin64Remove -row $aRowIter -column 6
449 incr aRowIter
450 grid .myFrame.myBin64Clear -row $aRowIter -column 6
451 incr aRowIter
452 grid .myFrame.myBin64ErrLbl -row $aRowIter -column 0 -columnspan 10 -sticky w
453 incr aRowIter
454}
455
456# Header
aafe169f 457ttk::label .myFrame.myPrjFrame.myPrjLbl -text "Project format:" -padding {5 5 20 5}
458ttk::combobox .myFrame.myPrjFrame.myPrjCombo -values $SYS_PRJNAME_LIST -state readonly -textvariable PRJNAME -width 40
d6cda17a 459ttk::label .myFrame.myVsFrame.myVsLbl -text "Visual Studio configuration:" -padding {5 5 20 5}
460ttk::combobox .myFrame.myVsFrame.myVsCombo -values $SYS_VS_LIST -state readonly -textvariable VSVER -width 40
ea991a6e 461ttk::combobox .myFrame.myVsFrame.myArchCombo -values { {32} {64} } -textvariable ARCH -state readonly -width 6
d6cda17a 462entry .myFrame.myVcEntry -textvariable VCVER -width 10
910970ab 463entry .myFrame.myVcVarsEntry -textvariable VCVARS -width 70
464ttk::button .myFrame.myVcBrowseBtn -text "Browse" -command wokdep:gui:BrowseVcVars
26cfd29c 465ttk::label .myFrame.myHxxChecks.myRelDebInfoLbl -text "Release with Debug info"
466checkbutton .myFrame.myHxxChecks.myRelDebInfoCheck -offvalue "false" -onvalue "true" -variable HAVE_RelWithDebInfo
910970ab 467
468#
5951a088 469ttk::combobox .myFrame.myHxxChecks.myScutsCombo -values { {ShortCut} {Copy} {HardLink} } -textvariable SHORTCUT_HEADERS -state readonly -width 12
470ttk::label .myFrame.myHxxChecks.myScutsLbl -text "Strategy for filling headers folder inc:"
910970ab 471
472#
72c37458 473ttk::label .myFrame.mySrchLbl -text "3rd-parties search path:" -padding {5 5 80 5}
f4b0c772 474entry .myFrame.mySrchEntry -textvariable PRODUCTS_PATH_INPUT -width 80
910970ab 475ttk::button .myFrame.mySrchBrowseBtn -text "Browse" -command wokdep:gui:BrowsePartiesRoot
5c9493b3 476checkbutton .myFrame.myChecks.myFreeTypeCheck -offvalue "false" -onvalue "true" -variable HAVE_FREETYPE -command wokdep:gui:UpdateList
477ttk::label .myFrame.myChecks.myFreeTypeLbl -text "Use FreeType"
ea991a6e 478checkbutton .myFrame.myChecks.myFImageCheck -offvalue "false" -onvalue "true" -variable HAVE_FREEIMAGE -command wokdep:gui:UpdateList
479ttk::label .myFrame.myChecks.myFImageLbl -text "Use FreeImage"
ea991a6e 480checkbutton .myFrame.myChecks.myTbbCheck -offvalue "false" -onvalue "true" -variable HAVE_TBB -command wokdep:gui:UpdateList
481ttk::label .myFrame.myChecks.myTbbLbl -text "Use Intel TBB"
b40cdc2b 482checkbutton .myFrame.myChecks.myOpenVrCheck -offvalue "false" -onvalue "true" -variable HAVE_OPENVR -command wokdep:gui:UpdateList
483ttk::label .myFrame.myChecks.myOpenVrLbl -text "Use OpenVR"
1ce0716b 484if { "$::tcl_platform(os)" != "Darwin" } {
485 checkbutton .myFrame.myChecks.myGlesCheck -offvalue "false" -onvalue "true" -variable HAVE_GLES2 -command wokdep:gui:UpdateList
486 ttk::label .myFrame.myChecks.myGlesLbl -text "Use OpenGL ES"
487}
a9b51f49 488if { "$::tcl_platform(platform)" == "windows" } {
489 checkbutton .myFrame.myChecks.myD3dCheck -offvalue "false" -onvalue "true" -variable HAVE_D3D -command wokdep:gui:UpdateList
490 ttk::label .myFrame.myChecks.myD3dLbl -text "Use Direct3D"
491}
e22105a9 492checkbutton .myFrame.myChecks.myFFmpegCheck -offvalue "false" -onvalue "true" -variable HAVE_FFMPEG -command wokdep:gui:UpdateList
493ttk::label .myFrame.myChecks.myFFmpegLbl -text "Use FFmpeg"
944d808c 494#checkbutton .myFrame.myChecks.myOpenClCheck -offvalue "false" -onvalue "true" -variable HAVE_OPENCL -command wokdep:gui:UpdateList
495#ttk::label .myFrame.myChecks.myOpenClLbl -text "Use OpenCL"
27bd52b5 496checkbutton .myFrame.myChecks.myRapidJsonCheck -offvalue "false" -onvalue "true" -variable HAVE_RAPIDJSON -command wokdep:gui:UpdateList
497ttk::label .myFrame.myChecks.myRapidJsonLbl -text "Use RapidJSON"
498
ea991a6e 499checkbutton .myFrame.myChecks.myMacGLXCheck -offvalue "false" -onvalue "true" -variable MACOSX_USE_GLX
500ttk::label .myFrame.myChecks.myMacGLXLbl -text "Use X11 for windows drawing"
501ttk::label .myFrame.myChecks.myVtkLbl -text "Use VTK"
502checkbutton .myFrame.myChecks.myVtkCheck -offvalue "false" -onvalue "true" -variable HAVE_VTK -command wokdep:gui:UpdateList
e22105a9 503
504checkbutton .myFrame.myChecks.myZLibCheck -offvalue "false" -onvalue "true" -variable HAVE_ZLIB -command wokdep:gui:UpdateList
505ttk::label .myFrame.myChecks.myZLibLbl -text "Use zlib"
506checkbutton .myFrame.myChecks.myLzmaCheck -offvalue "false" -onvalue "true" -variable HAVE_LIBLZMA -command wokdep:gui:UpdateList
507ttk::label .myFrame.myChecks.myLzmaLbl -text "Use liblzma"
27bd52b5 508checkbutton .myFrame.myChecks.myE57Check -offvalue "false" -onvalue "true" -variable HAVE_E57 -command wokdep:gui:UpdateList
509ttk::label .myFrame.myChecks.myE57Lbl -text "Use E57"
0a419c51 510
f6d8ca74 511checkbutton .myFrame.myChecks.myQtCheck -offvalue "false" -onvalue "true" -variable CHECK_QT -command wokdep:gui:UpdateList
512ttk::label .myFrame.myChecks.myQtLbl -text "Search Qt"
ea991a6e 513checkbutton .myFrame.myChecks.myJDKCheck -offvalue "false" -onvalue "true" -variable CHECK_JDK -command wokdep:gui:UpdateList
514ttk::label .myFrame.myChecks.myJDKLbl -text "Search JDK"
910970ab 515
f6d8ca74 516if { "$::tcl_platform(platform)" == "windows" } {
517 checkbutton .myFrame.myChecks.myInspectorBuild -offvalue "false" -onvalue "true" -variable BUILD_Inspector -command wokdep:gui:UpdateList
518 ttk::label .myFrame.myChecks.myInspectorLbl -text "Build Inspector"
519}
520
910970ab 521# Additional headers search paths
72c37458 522ttk::label .myFrame.myIncLbl -text "Additional headers search paths:" -padding {5 5 80 5}
910970ab 523scrollbar .myFrame.myIncScrl -command ".myFrame.myIncList yview"
524listbox .myFrame.myIncList -listvariable CSF_OPT_INC -width 80 -height 5 -yscrollcommand ".myFrame.myIncScrl set"
525ttk::button .myFrame.myIncAdd -text "Add" -command wokdep:gui:AddIncPath
526ttk::button .myFrame.myIncEdit -text "Edit"
527ttk::button .myFrame.myIncRemove -text "Remove" -command wokdep:gui:RemoveIncPath
528ttk::button .myFrame.myIncClear -text "Reset" -command wokdep:gui:ResetIncPath
529ttk::label .myFrame.myIncErrLbl -text "Error: " -foreground red -padding {5 5 5 5}
530
531# Additional libraries (32-bit) search paths
72c37458 532ttk::label .myFrame.myLib32Lbl -text "Additional libraries (32-bit) search paths:" -padding {5 5 80 5}
910970ab 533scrollbar .myFrame.myLib32Scrl -command ".myFrame.myLib32List yview"
534listbox .myFrame.myLib32List -listvariable CSF_OPT_LIB32 -width 80 -height 5 -yscrollcommand ".myFrame.myLib32Scrl set"
535ttk::button .myFrame.myLib32Add -text "Add" -command wokdep:gui:AddLib32Path
536ttk::button .myFrame.myLib32Edit -text "Edit"
537ttk::button .myFrame.myLib32Remove -text "Remove" -command wokdep:gui:RemoveLib32Path
538ttk::button .myFrame.myLib32Clear -text "Reset" -command wokdep:gui:ResetLib32Path
539ttk::label .myFrame.myLib32ErrLbl -text "Error: " -foreground red -padding {5 5 5 5}
540
541# Additional libraries (64-bit) search paths
72c37458 542ttk::label .myFrame.myLib64Lbl -text "Additional libraries (64-bit) search paths:" -padding {5 5 80 5}
910970ab 543scrollbar .myFrame.myLib64Scrl -command ".myFrame.myLib64List yview"
544listbox .myFrame.myLib64List -listvariable CSF_OPT_LIB64 -width 80 -height 5 -yscrollcommand ".myFrame.myLib64Scrl set"
545ttk::button .myFrame.myLib64Add -text "Add" -command wokdep:gui:AddLib64Path
546ttk::button .myFrame.myLib64Edit -text "Edit"
547ttk::button .myFrame.myLib64Remove -text "Remove" -command wokdep:gui:RemoveLib64Path
548ttk::button .myFrame.myLib64Clear -text "Reset" -command wokdep:gui:ResetLib64Path
549ttk::label .myFrame.myLib64ErrLbl -text "Error: " -foreground red -padding {5 5 5 5}
550
551# Additional executables (32-bit) search paths
72c37458 552ttk::label .myFrame.myBin32Lbl -text "Additional executables (32-bit) search paths:" -padding {5 5 80 5}
910970ab 553scrollbar .myFrame.myBin32Scrl -command ".myFrame.myBin32List yview"
554listbox .myFrame.myBin32List -listvariable CSF_OPT_BIN32 -width 80 -height 5 -yscrollcommand ".myFrame.myBin32Scrl set"
555ttk::button .myFrame.myBin32Add -text "Add" -command wokdep:gui:AddBin32Path
556ttk::button .myFrame.myBin32Edit -text "Edit"
557ttk::button .myFrame.myBin32Remove -text "Remove" -command wokdep:gui:RemoveBin32Path
558ttk::button .myFrame.myBin32Clear -text "Reset" -command wokdep:gui:ResetBin32Path
559ttk::label .myFrame.myBin32ErrLbl -text "Error: " -foreground red -padding {5 5 5 5}
560
561# Additional executables (64-bit) search paths
72c37458 562ttk::label .myFrame.myBin64Lbl -text "Additional executables (64-bit) search paths:" -padding {5 5 80 5}
910970ab 563scrollbar .myFrame.myBin64Scrl -command ".myFrame.myBin64List yview"
564listbox .myFrame.myBin64List -listvariable CSF_OPT_BIN64 -width 80 -height 5 -yscrollcommand ".myFrame.myBin64Scrl set"
565ttk::button .myFrame.myBin64Add -text "Add" -command wokdep:gui:AddBin64Path
566ttk::button .myFrame.myBin64Edit -text "Edit"
567ttk::button .myFrame.myBin64Remove -text "Remove" -command wokdep:gui:RemoveBin64Path
568ttk::button .myFrame.myBin64Clear -text "Reset" -command wokdep:gui:ResetBin64Path
569ttk::label .myFrame.myBin64ErrLbl -text "Error: " -foreground red -padding {5 5 5 5}
570
571# Bottom
572ttk::button .myFrame.mySave -text "Save" -command wokdep:SaveCustom
573ttk::button .myFrame.myClose -text "Close" -command wokdep:gui:Close
574
575# Create grid
576# Header
aafe169f 577grid .myFrame.myPrjFrame -row $aRowIter -column 0 -columnspan 10 -sticky w
578grid .myFrame.myPrjFrame.myPrjLbl -row 0 -column 0
579grid .myFrame.myPrjFrame.myPrjCombo -row 0 -column 1
580incr aRowIter
910970ab 581if { "$tcl_platform(platform)" == "windows" } {
ea991a6e 582 grid .myFrame.myVsFrame -row $aRowIter -column 0 -columnspan 10 -sticky w
583 grid .myFrame.myVsFrame.myVsLbl -row 0 -column 0
584 grid .myFrame.myVsFrame.myVsCombo -row 0 -column 1 -padx 5
585 grid .myFrame.myVsFrame.myArchCombo -row 0 -column 2
910970ab 586 incr aRowIter
587 grid .myFrame.myVcEntry -row $aRowIter -column 0
588 grid .myFrame.myVcVarsEntry -row $aRowIter -column 1 -columnspan 4 -sticky w
589 grid .myFrame.myVcBrowseBtn -row $aRowIter -column 6
590 incr aRowIter
591}
592
593#
ea991a6e 594grid .myFrame.myHxxChecks -row $aRowIter -column 0 -columnspan 10 -sticky w
5951a088 595grid .myFrame.myHxxChecks.myScutsLbl -row 0 -column 0
596grid .myFrame.myHxxChecks.myScutsCombo -row 0 -column 1
26cfd29c 597if { "$tcl_platform(platform)" == "windows" } {
598 grid .myFrame.myHxxChecks.myRelDebInfoCheck -row 0 -column 2
599 grid .myFrame.myHxxChecks.myRelDebInfoLbl -row 0 -column 3
600}
910970ab 601incr aRowIter
602#
603grid .myFrame.mySrchLbl -row $aRowIter -column 0 -columnspan 10 -sticky w
604incr aRowIter
605grid .myFrame.mySrchEntry -row $aRowIter -column 0 -columnspan 5
606grid .myFrame.mySrchBrowseBtn -row $aRowIter -column 6
607incr aRowIter
ea991a6e 608
609grid .myFrame.myChecks -row $aRowIter -column 0 -columnspan 10 -sticky w
910970ab 610incr aRowIter
5c9493b3 611grid .myFrame.myChecks.myFreeTypeCheck -row $aCheckRowIter -column 0 -sticky e
612grid .myFrame.myChecks.myFreeTypeLbl -row $aCheckRowIter -column 1 -sticky w
613grid .myFrame.myChecks.myRapidJsonCheck -row $aCheckRowIter -column 2 -sticky e
614grid .myFrame.myChecks.myRapidJsonLbl -row $aCheckRowIter -column 3 -sticky w
810b672f 615if { "$::tcl_platform(os)" != "Darwin" } {
616 grid .myFrame.myChecks.myGlesCheck -row $aCheckRowIter -column 4 -sticky e
617 grid .myFrame.myChecks.myGlesLbl -row $aCheckRowIter -column 5 -sticky w
618}
ea991a6e 619#grid .myFrame.myChecks.myOpenClCheck -row $aCheckRowIter -column 6 -sticky e
620#grid .myFrame.myChecks.myOpenClLbl -row $aCheckRowIter -column 7 -sticky w
e22105a9 621grid .myFrame.myChecks.myZLibCheck -row $aCheckRowIter -column 6 -sticky e
622grid .myFrame.myChecks.myZLibLbl -row $aCheckRowIter -column 7 -sticky w
623
f6d8ca74 624grid .myFrame.myChecks.myQtCheck -row $aCheckRowIter -column 12 -sticky e
625grid .myFrame.myChecks.myQtLbl -row $aCheckRowIter -column 13 -sticky w
e22105a9 626
ea991a6e 627incr aCheckRowIter
5c9493b3 628grid .myFrame.myChecks.myFImageCheck -row $aCheckRowIter -column 0 -sticky e
629grid .myFrame.myChecks.myFImageLbl -row $aCheckRowIter -column 1 -sticky w
630grid .myFrame.myChecks.myTbbCheck -row $aCheckRowIter -column 2 -sticky e
631grid .myFrame.myChecks.myTbbLbl -row $aCheckRowIter -column 3 -sticky w
1ce0716b 632if { "$::tcl_platform(platform)" == "windows" } {
e22105a9 633 grid .myFrame.myChecks.myD3dCheck -row $aCheckRowIter -column 4 -sticky e
634 grid .myFrame.myChecks.myD3dLbl -row $aCheckRowIter -column 5 -sticky w
27bd52b5 635} elseif { "$::tcl_platform(os)" == "Darwin" } {
636 grid .myFrame.myChecks.myMacGLXCheck -row $aCheckRowIter -column 4 -sticky e
637 grid .myFrame.myChecks.myMacGLXLbl -row $aCheckRowIter -column 5 -sticky w
1ce0716b 638}
e22105a9 639grid .myFrame.myChecks.myLzmaCheck -row $aCheckRowIter -column 6 -sticky e
640grid .myFrame.myChecks.myLzmaLbl -row $aCheckRowIter -column 7 -sticky w
0a419c51 641grid .myFrame.myChecks.myJDKCheck -row $aCheckRowIter -column 12 -sticky e
642grid .myFrame.myChecks.myJDKLbl -row $aCheckRowIter -column 13 -sticky w
e22105a9 643
ea991a6e 644incr aCheckRowIter
5c9493b3 645grid .myFrame.myChecks.myFFmpegCheck -row $aCheckRowIter -column 0 -sticky e
646grid .myFrame.myChecks.myFFmpegLbl -row $aCheckRowIter -column 1 -sticky w
647grid .myFrame.myChecks.myVtkCheck -row $aCheckRowIter -column 2 -sticky e
648grid .myFrame.myChecks.myVtkLbl -row $aCheckRowIter -column 3 -sticky w
b40cdc2b 649grid .myFrame.myChecks.myOpenVrCheck -row $aCheckRowIter -column 4 -sticky e
650grid .myFrame.myChecks.myOpenVrLbl -row $aCheckRowIter -column 5 -sticky w
27bd52b5 651grid .myFrame.myChecks.myE57Check -row $aCheckRowIter -column 6 -sticky e
652grid .myFrame.myChecks.myE57Lbl -row $aCheckRowIter -column 7 -sticky w
910970ab 653
f6d8ca74 654if { "$::tcl_platform(platform)" == "windows" } {
655 grid .myFrame.myChecks.myInspectorBuild -row $aCheckRowIter -column 12 -sticky e
656 grid .myFrame.myChecks.myInspectorLbl -row $aCheckRowIter -column 13 -sticky w
657}
658
0a419c51 659incr aCheckRowIter
660
910970ab 661# Additional headers search paths
662grid .myFrame.myIncLbl -row $aRowIter -column 0 -columnspan 10 -sticky w
663incr aRowIter
664grid .myFrame.myIncList -row $aRowIter -column 0 -rowspan 4 -columnspan 5
665grid .myFrame.myIncScrl -row $aRowIter -column 5 -rowspan 4
666grid .myFrame.myIncAdd -row $aRowIter -column 6
667incr aRowIter
668#grid .myFrame.myIncEdit -row $aRowIter -column 6
669incr aRowIter
670grid .myFrame.myIncRemove -row $aRowIter -column 6
671incr aRowIter
672grid .myFrame.myIncClear -row $aRowIter -column 6
673incr aRowIter
674grid .myFrame.myIncErrLbl -row $aRowIter -column 0 -columnspan 10 -sticky w
675incr aRowIter
676
677# Additional 32-bit search paths
678if { "$ARCH" == "32" } {
679 wokdep:gui:Show32Bitness aRowIter
680}
681
682# Additional 64-bit search paths
683if { "$ARCH" == "64" } {
684 wokdep:gui:Show64Bitness aRowIter
685}
686
687# Bottom section
688grid .myFrame.mySave -row $aRowIter -column 4 -columnspan 2
689grid .myFrame.myClose -row $aRowIter -column 6 -columnspan 2
690
691# Bind events
aafe169f 692bind .myFrame.myPrjFrame.myPrjCombo <<ComboboxSelected>> {
693 wokdep:gui:SwitchConfig
694}
ea991a6e 695bind .myFrame.myVsFrame.myVsCombo <<ComboboxSelected>> {
910970ab 696 wokdep:gui:SwitchConfig
697}
ea991a6e 698bind .myFrame.myVsFrame.myArchCombo <<ComboboxSelected>> {
910970ab 699 wokdep:gui:SwitchArch
700}
701
702.myFrame.mySrchEntry configure -validate all -validatecommand {
f4b0c772 703 set ::PRODUCTS_PATH [file normalize "$::PRODUCTS_PATH_INPUT"]
910970ab 704 #return [file exists "$::PRODUCTS_PATH"]
705 wokdep:gui:UpdateList
706 return 1
707}
708
709wokdep:gui:UpdateList
Open CASCADE Technology repository