diff options
| author | vincentdarley <vincentdarley@noemail.net> | 2004-09-10 12:13:37 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley@noemail.net> | 2004-09-10 12:13:37 (GMT) |
| commit | 9732000b3f4e177e417e800565a9cd3502470121 (patch) | |
| tree | c17ff6a17da4273024607033b6c1bd7bf35d2d8f /tests/textIndex.test | |
| parent | 2d36c636c44ed335c981785c079bea4980b964d4 (diff) | |
| download | tk-9732000b3f4e177e417e800565a9cd3502470121.zip tk-9732000b3f4e177e417e800565a9cd3502470121.tar.gz tk-9732000b3f4e177e417e800565a9cd3502470121.tar.bz2 | |
text widget 'peer' subcommand -- TIP#169 implementation
FossilOrigin-Name: 24c87e87ffd71144101ff6cab47226828e813d38
Diffstat (limited to 'tests/textIndex.test')
| -rw-r--r-- | tests/textIndex.test | 25 |
1 files changed, 24 insertions, 1 deletions
diff --git a/tests/textIndex.test b/tests/textIndex.test index b3cf64e..b4c7d11 100644 --- a/tests/textIndex.test +++ b/tests/textIndex.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textIndex.test,v 1.13 2004/06/17 22:38:57 dkf Exp $ +# RCS: @(#) $Id: textIndex.test,v 1.14 2004/09/10 12:13:43 vincentdarley Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -782,6 +782,29 @@ test textIndex-19.12 {Display lines} { .t index "2.40 -1displaylines" } {2.20} +test textIndex-19.13 {Display lines} { + destroy .t + text .txt -height 1 -wrap word -yscroll ".sbar set" -width 400 + scrollbar .sbar -command ".txt yview" + grid .txt .sbar -sticky news + grid configure .sbar -sticky ns + grid rowconfigure . 0 -weight 1 + grid columnconfigure . 0 -weight 1 + .txt configure -width 10 + .txt tag config STAMP -elide 1 + .txt tag config NICK-tick -elide 0 + .txt insert end "+++++ Loading History ++++++++++++++++\n" + .txt mark set HISTORY {2.0 - 1 line} + .txt insert HISTORY { } STAMP + .txt insert HISTORY {tick } {NICK NICK-tick} + .txt insert HISTORY "\n" {NICK NICK-tick} + .txt insert HISTORY {[23:51] } STAMP + .txt insert HISTORY "\n" {NICK NICK-tick} + # Must not crash + .txt index "2.0 - 2 display lines" + destroy .txt .sbar +} {} + proc text_test_word {startend chars start} { destroy .t text .t |