diff options
| author | hobbs <hobbs> | 2001-08-22 17:29:23 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-08-22 17:29:23 (GMT) |
| commit | 3438c44ec909ce1d93f2a679c3fc3c5f0b858daf (patch) | |
| tree | 0b9fb29ebe277ac051f6e6c3dccb0d1378bb89a7 /tests/dialog.test | |
| parent | 0188a972452514f501f1688943f1d5657b60055e (diff) | |
| download | tk-3438c44ec909ce1d93f2a679c3fc3c5f0b858daf.zip tk-3438c44ec909ce1d93f2a679c3fc3c5f0b858daf.tar.gz tk-3438c44ec909ce1d93f2a679c3fc3c5f0b858daf.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 } |