summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-06-10 14:57:13 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-06-10 14:57:13 (GMT)
commit538cdae2d292a523e1b72613162b236db2a16d08 (patch)
treefe09d282023ed498d42ae5a265d2031085f8fd6f /tests
parentd965535fda1022e02c618349271e8ec7a26dccde (diff)
parentc8f0062c64f9fc019a92e9bbc8918aa3e4ba1571 (diff)
downloadtk-538cdae2d292a523e1b72613162b236db2a16d08.zip
tk-538cdae2d292a523e1b72613162b236db2a16d08.tar.gz
tk-538cdae2d292a523e1b72613162b236db2a16d08.tar.bz2
[Bug 3534137]: $tcl_platform(platform) != [tk windowingsystem]
Diffstat (limited to 'tests')
-rw-r--r--tests/constraints.tcl2
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/constraints.tcl b/tests/constraints.tcl
index 843ee4d..bc2c09b 100644
--- a/tests/constraints.tcl
+++ b/tests/constraints.tcl
@@ -199,7 +199,7 @@ if {![string match {{22 3 6 15} {31 18 [34] 15}} $x]} {
testConstraint fonts 0
}
testConstraint textfonts [expr {
- [testConstraint fonts] || $tcl_platform(platform) eq "windows"
+ [testConstraint fonts] || [tk windowingsystem] eq "win32"
}]
# constraints for the visuals available..