diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-09 09:11:34 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-09 09:11:34 (GMT) |
| commit | 90ec870a4fc7e6cd0a41c569ef4484da76917d63 (patch) | |
| tree | 60995d47777e1a6a91e5a035c3bcfbc9f1726f6d /library | |
| parent | 43cd9be6655b08f428a50d7600c89d601685d871 (diff) | |
| download | tcl-90ec870a4fc7e6cd0a41c569ef4484da76917d63.zip tcl-90ec870a4fc7e6cd0a41c569ef4484da76917d63.tar.gz tcl-90ec870a4fc7e6cd0a41c569ef4484da76917d63.tar.bz2 | |
Use "info exists" to test for Tk presence
Diffstat (limited to 'library')
| -rw-r--r-- | library/tcltest/tcltest.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl index d3e9ea4..3b89cf7 100644 --- a/library/tcltest/tcltest.tcl +++ b/library/tcltest/tcltest.tcl @@ -2583,7 +2583,7 @@ proc tcltest::cleanupTests {{calledFromAllFile 0}} { # loop is running, which is the real issue. # Actually, this doesn't belong here at all. A package # really has no business [exit]-ing an application. - if {![catch {package present Tk}] && ![testConstraint interactive]} { + if {![info exists ::tk_version] && ![testConstraint interactive]} { exit } } else { |