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 /tests/dialog.test | |
| 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.
Diffstat (limited to 'tests/dialog.test')
| -rw-r--r-- | tests/dialog.test | 4 |
1 files changed, 2 insertions, 2 deletions
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 } |