Commit | Line | Data |
---|---|---|
7fd59977 | 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 | } |