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
 }