diff options
| author | dgp <dgp@users.sourceforge.net> | 2001-12-19 01:12:58 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2001-12-19 01:12:58 (GMT) |
| commit | 95c42c6226c846643503ab6edcb0e109246a0da0 (patch) | |
| tree | 99e2ccb120ac5dd6139e43c798ab0b76a8cfb3cb /tests | |
| parent | 08ea99caa2cbd0468c4509bdac791866bd89bb1f (diff) | |
| download | tk-95c42c6226c846643503ab6edcb0e109246a0da0.zip tk-95c42c6226c846643503ab6edcb0e109246a0da0.tar.gz tk-95c42c6226c846643503ab6edcb0e109246a0da0.tar.bz2 | |
* Corrected test that
failed on Solaris/CDE due to text scrolling. [Bug 413735]
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/event.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/event.test b/tests/event.test index 42dc3e4..a06b0b9 100644 --- a/tests/event.test +++ b/tests/event.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: event.test,v 1.6 2001/03/29 11:05:49 mdejong Exp $ +# RCS: @(#) $Id: event.test,v 1.7 2001/12/19 01:12:58 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -380,7 +380,7 @@ test event-click-drag-1.2 { click and drag in an entry widget, this pack $e tkwait visibility $e focus -force $e - _keypress_string $e "A Tcl/Tk selection test!" + _keypress_string $e "A Tcl/Tk selection!" set anchor 6 set selend 18 @@ -435,7 +435,7 @@ test event-click-drag-1.2 { click and drag in an entry widget, this # Save the highlighted text lappend result [selection get] -} {{A Tcl/Tk selection test!} 6 18 {Tk selection} 2 {Tcl/Tk selection}} +} {{A Tcl/Tk selection!} 6 18 {Tk selection} 2 {Tcl/Tk selection}} |