1 2 3 4 5 6 7 8 9
if {![package vsatisfies [package provide Tcl] 8]} return if {[string compare [info sharedlibextension] .dll]} return if {[info exists ::tcl_platform(debug)]} { package ifneeded registry 1.1.5 \ [list load [file join $dir tclreg11g.dll] registry] } else { package ifneeded registry 1.1.5 \ [list load [file join $dir tclreg11.dll] registry] }