Integration of OCCT 6.5.0 from SVN
[occt.git] / adm / QA.tcl
CommitLineData
7fd59977 1global tcl_platform
2
3if {[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}