1 2 3 4 5 6 7 8
if {![package vsatisfies [package provide Tcl] 8]} {return} if {[info exists tcl_platform(debug)]} { package ifneeded registry 1.0 \ [list load [file join $dir tclreg10d.dll] registry] } else { package ifneeded registry 1.0 \ [list load [file join $dir tclreg10.dll] registry] }