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 }