diff options
Diffstat (limited to 'tests/event.test')
| -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}} |