1 if {![package vsatisfies
[package provide
Tcl] 8]} return
2 if {[info sharedlibextension
] != ".dll"} return
3 if {[info exists
::tcl_platform(debug
)]} {
4 package ifneeded
registry 1.2.2 \
5 [list load [file join $dir tclreg12g.dll
] registry]
7 package ifneeded
registry 1.2.2 \
8 [list load [file join $dir tclreg12.dll
] registry]