tcl/library/reg1.0/pkgIndex.tcl


1
2
3
4
5
6
7

if {[info exists tcl_platform(debug)]} {
    package ifneeded registry 1.0 \
            [list load [file join $dir tclreg83d.dll] registry]
} else {
    package ifneeded registry 1.0 \
            [list load [file join $dir tclreg83.dll] registry]
}