[occt.git] / adm / QA.tcl

global tcl_platform

if {[array get env QA_DUMP] != "" && $env(QA_DUMP) == "1"} {
    puts "QA commands have been loaded"
    set env(QADEFAULT) $env(CASROOT)/src/QAResources/QADrawAppliInit
    set env(QA_LD_LIBRARY_PATH) $env(CASROOT)/sun/lib/.
    set env(DRAWDEFAULTOLD) $env(DRAWDEFAULT)
    set env(DRAWDEFAULT) "$env(QADEFAULT)"
    set env(CSF_DrawPluginQADefaults) $env(CASROOT)/src/QAResources/.
}
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	}