summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2006-04-18 22:57:21 (GMT)
committervincentdarley <vincentdarley>2006-04-18 22:57:21 (GMT)
commit916cdd9441d3e7d714a15a68d1fa435976e38bfa (patch)
treedf946b0ab876798fa50bb255711dc68a3619e2c0 /tests
parent0cbfc6064d65ab72fd5b06021b23ea5ae4faa28d (diff)
downloadtk-916cdd9441d3e7d714a15a68d1fa435976e38bfa.zip
tk-916cdd9441d3e7d714a15a68d1fa435976e38bfa.tar.gz
tk-916cdd9441d3e7d714a15a68d1fa435976e38bfa.tar.bz2
fix tests for TkAqua
Diffstat (limited to 'tests')
-rw-r--r--tests/text.test4
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/text.test b/tests/text.test
index 23b8388..91fd703 100644
--- a/tests/text.test
+++ b/tests/text.test
@@ -6,7 +6,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: text.test,v 1.43 2006/03/28 19:26:52 vincentdarley Exp $
+# RCS: @(#) $Id: text.test,v 1.44 2006/04/18 22:57:21 vincentdarley Exp $
package require tcltest 2.1
eval tcltest::configure $argv
@@ -135,6 +135,8 @@ test text-2.4 {Tk_TextCmd procedure} {
} {0 .t2 2 red}
if {$tcl_platform(platform) == "windows"} {
set relief flat
+} elseif {[tk windowingsystem] eq "aqua"} {
+ set relief solid
} else {
set relief raised
}