From ce114e255a0c035ea07b74552f8d4270b3fd998b Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Wed, 22 Aug 2001 17:29:23 +0000
Subject: 	* tests/dialog.test (HitReturn): fixed failing dialog-2.1 test
 	because it wasn't always getting focus properly.

---
 ChangeLog         | 7 +++++++
 tests/dialog.test | 4 ++--
 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
 }
 
-- 
cgit v0.12