pkgIndex.tcl 297 B

1234567
  1. if {([info commands ::tcl::pkgconfig] eq "")
  2. || ([info sharedlibextension] ne ".dll")} return
  3. if {[::tcl::pkgconfig get debug]} {
  4. package ifneeded dde 1.4.0 [list load [file join $dir tcldde14g.dll] dde]
  5. } else {
  6. package ifneeded dde 1.4.0 [list load [file join $dir tcldde14.dll] dde]
  7. }