diff options
| -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-12-14 Donal K. Fellows <fellowsd@cs.man.ac.uk> * doc/getOpenFile.n: Documented change. 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}} |