diff options
| author | hobbs <hobbs> | 2002-11-22 23:25:19 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2002-11-22 23:25:19 (GMT) |
| commit | e41cd186045b78af345b11758be8c161d1f051c6 (patch) | |
| tree | d7bbb6ced2f0ee70cb70030483c93d41f03a468e /tests | |
| parent | 1b0c4a1cbc8bb29f46cc910618e738000208e4e4 (diff) | |
| download | tk-e41cd186045b78af345b11758be8c161d1f051c6.zip tk-e41cd186045b78af345b11758be8c161d1f051c6.tar.gz tk-e41cd186045b78af345b11758be8c161d1f051c6.tar.bz2 | |
* tests/textDisp.test:
* generic/tkTextDisp.c (TkTextSeeCmd): handle see for unmapped
text displays. [Bug #641778]
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/textDisp.test | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test index 4e7674f..14b3b4a 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.7 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: textDisp.test,v 1.8 2002/11/22 23:25:20 hobbs Exp $ package require tcltest 2.1 namespace import -force tcltest::configure @@ -1448,6 +1448,17 @@ test textDisp-13.9 {TkTextSeeCmd procedure} {fonts} { .t see 30.90 lappend x [.t bbox 30.90] } {{80 55 7 13} {136 55 7 13} {136 55 7 13} {80 55 7 13}} +test textDisp-13.10 {TkTextSeeCmd procedure} {} { + # SF Bug 641778 + set w .tsee + destroy $w + text $w -font {Helvetica 8 normal} -bd 16 + $w insert end Hello + $w see end + set res [$w bbox end] + destroy $w + set res +} {} wm geom . {} .t configure -wrap none |