diff options
| author | vincentdarley <vincentdarley> | 2003-11-08 17:22:45 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2003-11-08 17:22:45 (GMT) |
| commit | f1ed0750bc8ef3f269f20750e44a0d58e9677082 (patch) | |
| tree | d3be8a33f1d8bfc5c803dad0b85a7b30184743b9 /tests/textDisp.test | |
| parent | 70578fe7b3c2b20b549a09800b88fcba2a1e0cd8 (diff) | |
| download | tk-f1ed0750bc8ef3f269f20750e44a0d58e9677082.zip tk-f1ed0750bc8ef3f269f20750e44a0d58e9677082.tar.gz tk-f1ed0750bc8ef3f269f20750e44a0d58e9677082.tar.bz2 | |
elide tag handling, once more
Diffstat (limited to 'tests/textDisp.test')
| -rw-r--r-- | tests/textDisp.test | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test index abf1d2a..61ba27a 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.15 2003/11/07 12:06:47 vincentdarley Exp $ +# RCS: @(#) $Id: textDisp.test,v 1.16 2003/11/08 17:22:46 vincentdarley Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -186,6 +186,20 @@ test textDisp-0.4 {double tag elide transition} { destroy .txt } {} +test textDisp-0.5 {double tag elide transition} { + catch {destroy .txt} + pack [text .txt] + .txt tag configure WELCOME -elide 1 + .txt tag configure SYSTEM -elide 0 + .txt tag configure TRAFFIC -elide 1 + + .txt insert end "\n" {SYSTEM TRAFFIC} + .txt insert end "\n" WELCOME + # Crash was here. + update + destroy .txt +} {} + test textDisp-1.1 {GetStyle procedure, priorities and tab stops} { .t delete 1.0 end .t insert 1.0 "x\ty" |