diff options
| author | hobbs <hobbs> | 2001-08-22 17:29:23 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-08-22 17:29:23 (GMT) |
| commit | ce114e255a0c035ea07b74552f8d4270b3fd998b (patch) | |
| tree | 0b9fb29ebe277ac051f6e6c3dccb0d1378bb89a7 | |
| parent | 92d8bc2c4dedb897ba23410a317a969e376bd50c (diff) | |
| download | tk-ce114e255a0c035ea07b74552f8d4270b3fd998b.zip tk-ce114e255a0c035ea07b74552f8d4270b3fd998b.tar.gz tk-ce114e255a0c035ea07b74552f8d4270b3fd998b.tar.bz2 | |
* tests/dialog.test (HitReturn): fixed failing dialog-2.1 test
because it wasn't always getting focus properly.
| -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 } |