pkgIndex.tcl 345 B

123456789
  1. if {([info commands ::tcl::pkgconfig] eq "")
  2. || ([info sharedlibextension] ne ".dll")} return
  3. if {[::tcl::pkgconfig get debug]} {
  4. package ifneeded registry 1.3.2 \
  5. [list load [file join $dir tclreg13g.dll] registry]
  6. } else {
  7. package ifneeded registry 1.3.2 \
  8. [list load [file join $dir tclreg13.dll] registry]
  9. }