adm/genconf.tcl

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