diff options
| author | dgp <dgp@users.sourceforge.net> | 2001-12-19 01:32:51 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2001-12-19 01:32:51 (GMT) |
| commit | c91bf4b18dbe3af35fca870417401cdb66be28a6 (patch) | |
| tree | 44faa2de619471657e4eaa18c55e799a00d21079 | |
| parent | 6ad58c2eb05dd64b33c3d4f1ce98a5a57b2f1c3f (diff) | |
| download | tk-c91bf4b18dbe3af35fca870417401cdb66be28a6.zip tk-c91bf4b18dbe3af35fca870417401cdb66be28a6.tar.gz tk-c91bf4b18dbe3af35fca870417401cdb66be28a6.tar.bz2 | |
* Corrected test that
failed on Solaris/CDE due to text scrolling. [Bug 413735]
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | tests/event.test | 6 |
2 files changed, 8 insertions, 3 deletions
@@ -1,3 +1,8 @@ +2001-12-18 Don Porter <dgp@users.sourceforge.net> + + * tests/event.test (event-click-drag-1.2): Corrected test that + failed on Solaris/CDE due to text scrolling. [Bug 413735] + 2001-10-19 Jeff Hobbs <jeffh@ActiveState.com> ************************ diff --git a/tests/event.test b/tests/event.test index adc5328..0ec11ea 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.5.2.1 2001/04/04 07:57:17 hobbs Exp $ +# RCS: @(#) $Id: event.test,v 1.5.2.2 2001/12/19 01:32:51 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -365,7 +365,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 @@ -420,7 +420,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}} # cleanup |