From 95c42c6226c846643503ab6edcb0e109246a0da0 Mon Sep 17 00:00:00 2001 From: dgp Date: Wed, 19 Dec 2001 01:12:58 +0000 Subject: * Corrected test that failed on Solaris/CDE due to text scrolling. [Bug 413735] --- ChangeLog | 5 +++++ tests/event.test | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index e45a570..76ab4b3 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2001-12-18 Don Porter + + * 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 * 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}} -- cgit v0.12