summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2001-08-22 17:29:23 (GMT)
committerhobbs <hobbs>2001-08-22 17:29:23 (GMT)
commitce114e255a0c035ea07b74552f8d4270b3fd998b (patch)
tree0b9fb29ebe277ac051f6e6c3dccb0d1378bb89a7
parent92d8bc2c4dedb897ba23410a317a969e376bd50c (diff)
downloadtk-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--ChangeLog7
-rw-r--r--tests/dialog.test4
2 files changed, 9 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index c0fad7e..e04c0d8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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
}