openmedialibrary_platform_w.../tcl/reg1.3/pkgIndex.tcl

10 lines
345 B
Tcl
Raw Normal View History

2019-01-20 10:35:31 +00:00
if {([info commands ::tcl::pkgconfig] eq "")
|| ([info sharedlibextension] ne ".dll")} return
if {[::tcl::pkgconfig get debug]} {
package ifneeded registry 1.3.2 \
[list load [file join $dir tclreg13g.dll] registry]
} else {
package ifneeded registry 1.3.2 \
[list load [file join $dir tclreg13.dll] registry]
}