Integration of OCCT 6.5.0 from SVN
[occt.git] / adm / QA.tcl
1 global tcl_platform
2
3 if {[array get env QA_DUMP] != "" && $env(QA_DUMP) == "1"} {
4     puts "QA commands have been loaded"
5     set env(QADEFAULT) $env(CASROOT)/src/QAResources/QADrawAppliInit
6     set env(QA_LD_LIBRARY_PATH) $env(CASROOT)/sun/lib/.
7     set env(DRAWDEFAULTOLD) $env(DRAWDEFAULT)
8     set env(DRAWDEFAULT) "$env(QADEFAULT)"
9     set env(CSF_DrawPluginQADefaults) $env(CASROOT)/src/QAResources/.
10 }