diff options
| author | vincentdarley <vincentdarley@noemail.net> | 2003-11-13 18:30:41 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley@noemail.net> | 2003-11-13 18:30:41 (GMT) |
| commit | f9477805833486d00cc961e6eee13fa80abc61ae (patch) | |
| tree | c68836fd3016d1076b48f8aa3779dafe1f2f8b47 /tests | |
| parent | 5b2590ca320501ae43736dae6832584b4cd7279d (diff) | |
| download | tk-f9477805833486d00cc961e6eee13fa80abc61ae.zip tk-f9477805833486d00cc961e6eee13fa80abc61ae.tar.gz tk-f9477805833486d00cc961e6eee13fa80abc61ae.tar.bz2 | |
ensure test cleans up after itself
FossilOrigin-Name: 57684988d8e42a6e52d5d1aa5810d93aedc3696b
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/textDisp.test | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test index 61ba27a..9373f1d 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textDisp.test,v 1.16 2003/11/08 17:22:46 vincentdarley Exp $ +# RCS: @(#) $Id: textDisp.test,v 1.17 2003/11/13 18:30:42 vincentdarley Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -591,6 +591,9 @@ test textDisp-4.5 {UpdateDisplayInfo, tiny window} {textfonts} { update list [.t bbox 2.0] [.t bbox 2.1] [.t bbox 3.0] $tk_textRelayout } [list [list 5 [expr {$fixedDiff + 18}] 1 $fixedHeight] {} [list 5 [expr {2*$fixedDiff + 31}] 1 $fixedHeight] {1.0 2.0 3.0}] +if {$tcl_platform(platform) == "windows"} { + wm overrideredirect . 0 +} test textDisp-4.6 {UpdateDisplayInfo, tiny window} { # This test was failing on Windows because the title bar on . # was a certain minimum size and it was interfering with the size @@ -2869,6 +2872,9 @@ test textDisp-24.16 {TkTextCharLayoutProc, no chars fit} {textfonts} { update list [.t bbox 1.0] [.t bbox 1.1] [.t bbox 1.2] } [list [list 3 3 1 $fixedHeight] [list 3 [expr {$fixedDiff + 16}] 1 $fixedHeight] [list 3 [expr {2*$fixedDiff + 29}] 1 $fixedHeight]] +if {$tcl_platform(platform) == "windows"} { + wm overrideredirect . 0 +} test textDisp-24.17 {TkTextCharLayoutProc, -wrap word} {textfonts} { .t configure -wrap word .t delete 1.0 end |