diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-05-23 17:34:48 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-05-23 17:34:48 (GMT) |
| commit | 7c820a9ae19502e7f5d59f4310c33bfeb64bf9ba (patch) | |
| tree | c1834b8cace8654026ee20f8fd75ea3f340a902c /tests/textWind.test | |
| parent | fc07382fecf576d43fc28117ca52416170fb0f4f (diff) | |
| download | tk-7c820a9ae19502e7f5d59f4310c33bfeb64bf9ba.zip tk-7c820a9ae19502e7f5d59f4310c33bfeb64bf9ba.tar.gz tk-7c820a9ae19502e7f5d59f4310c33bfeb64bf9ba.tar.bz2 | |
First step towards improving test style. Also start using Tcl 8.5 features.
Diffstat (limited to 'tests/textWind.test')
| -rw-r--r-- | tests/textWind.test | 27 |
1 files changed, 3 insertions, 24 deletions
diff --git a/tests/textWind.test b/tests/textWind.test index d0c245c..77e84dc 100644 --- a/tests/textWind.test +++ b/tests/textWind.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textWind.test,v 1.15 2003/12/10 12:14:05 vincentdarley Exp $ +# RCS: @(#) $Id: textWind.test,v 1.16 2004/05/23 17:34:49 dkf Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -27,11 +27,7 @@ if {[tcltest::testConstraint fonts]} { option add *Text.borderWidth 2 option add *Text.highlightThickness 2 -if {$tcl_platform(platform) == "windows"} { - option add *Text.font {Courier -12} -} else { - option add *Text.font {Courier -12} -} +option add *Text.font {Courier -12} set fixedFont {Courier -12} # 15 on XP, 13 on Solaris 8 @@ -51,11 +47,7 @@ pack append . .t {top expand fill} update .t debug on wm geometry . {} -if {[winfo depth .t] > 1} { - set color green -} else { - set color black -} +set color [expr {[winfo depth .t] > 1 ? "green" : "black"}] # The statements below reset the main window; it's needed if the window # manager is mwm to make mwm forget about a previous minimum size setting. @@ -885,16 +877,3 @@ option clear # cleanup cleanupTests return - - - - - - - - - - - - - |