diff options
| -rw-r--r-- | ChangeLog | 7 | ||||
| -rw-r--r-- | tests/dialog.test | 4 |
2 files changed, 9 insertions, 2 deletions
@@ -1,3 +1,10 @@ +2001-08-22 Jeff Hobbs <jeffh@ActiveState.com> + + * generic/tkPack.c (TkParsePadAmount): added lint init for sepChar. + + * tests/dialog.test (HitReturn): fixed failing dialog-2.1 test + because it wasn't always getting focus properly. + 2001-08-21 Jeff Hobbs <jeffh@ActiveState.com> * tests/unixFont.test (unixFont-2.[234]): fixed to be more diff --git a/tests/dialog.test b/tests/dialog.test index 652d464..2fa194b 100644 --- a/tests/dialog.test +++ b/tests/dialog.test @@ -1,7 +1,7 @@ # This file is a Tcl script to test out Tk's "tk_dialog" command. # It is organized in the standard fashion for Tcl tests. # -# RCS: @(#) $Id: dialog.test,v 1.1 2001/08/09 00:46:51 dgp Exp $ +# RCS: @(#) $Id: dialog.test,v 1.2 2001/08/22 17:29:23 hobbs Exp $ # if {[lsearch [namespace children] ::tcltest] == -1} { @@ -37,7 +37,7 @@ proc PressButton {btn} { proc HitReturn {w} { event generate $w <Enter> - focus $w + focus -force $w event generate $w <KeyPress> -keysym Return } |