13 lines
462 B
Tcl
13 lines
462 B
Tcl
if {[info sharedlibextension] != ".dll"} return
|
|
if {[package vsatisfies [package provide Tcl] 9.0-]} {
|
|
package ifneeded dde 1.4.4 \
|
|
[list load [file join $dir tcl9dde14.dll] Dde]
|
|
} elseif {![package vsatisfies [package provide Tcl] 8.7]
|
|
&& [::tcl::pkgconfig get debug]} {
|
|
package ifneeded dde 1.4.4 \
|
|
[list load [file join $dir tcldde14g.dll] Dde]
|
|
} else {
|
|
package ifneeded dde 1.4.4 \
|
|
[list load [file join $dir tcldde14.dll] Dde]
|
|
}
|