diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-11-10 11:55:34 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-11-10 11:55:34 (GMT) |
commit | 72c49f69099c98bd55334dbad3d68645c72bc707 (patch) | |
tree | 0debb19ded04cad467e9517c2299fcb5b41ba197 /tests/winDde.test | |
parent | feb336f6b3663f107c978288f063f1e7cf9b2458 (diff) | |
parent | 44d6e3ab5ea76fb135058f21fde9dfebdbbd035b (diff) | |
download | tcl-72c49f69099c98bd55334dbad3d68645c72bc707.zip tcl-72c49f69099c98bd55334dbad3d68645c72bc707.tar.gz tcl-72c49f69099c98bd55334dbad3d68645c72bc707.tar.bz2 |
Merge 8.7. Tweak "tclreg" directory/library name and tclLoad.c, such that the entry point of the "dde" and "registry" extensions can be guessed correctly
Diffstat (limited to 'tests/winDde.test')
-rw-r--r-- | tests/winDde.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/winDde.test b/tests/winDde.test index d2fb8a0..421578b 100644 --- a/tests/winDde.test +++ b/tests/winDde.test @@ -20,7 +20,7 @@ if {[testConstraint win]} { if {![catch { ::tcltest::loadTestedCommands set ::ddever [package require dde 1.4.3] - set ::ddelib [lindex [package ifneeded dde $::ddever] 1]}]} { + set ::ddelib [info loaded "" Dde]}]} { testConstraint dde 1 } } @@ -38,7 +38,7 @@ proc createChildProcess {ddeServerName args} { set f [open $::scriptName w+] puts $f [list set ddeServerName $ddeServerName] - puts $f [list load $::ddelib dde] + puts $f [list load $::ddelib Dde] puts $f { # DDE child server - # |