summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2008-11-23 21:58:24 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2008-11-23 21:58:24 (GMT)
commit5eff66ecd844065a708ad18238f114174ef9ffe1 (patch)
tree4ca0f6008e131429c87d3d92fa685222f04a00d5 /tests
parent972c1858b2265633c051f38792c0761763f5a870 (diff)
downloadtk-5eff66ecd844065a708ad18238f114174ef9ffe1.zip
tk-5eff66ecd844065a708ad18238f114174ef9ffe1.tar.gz
tk-5eff66ecd844065a708ad18238f114174ef9ffe1.tar.bz2
[Bug 1389270] event generate silently ignored focus events. These can now be generated.
Diffstat (limited to 'tests')
-rw-r--r--tests/bind.test8
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/bind.test b/tests/bind.test
index d568026..23438fc 100644
--- a/tests/bind.test
+++ b/tests/bind.test
@@ -7,7 +7,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: bind.test,v 1.25 2008/11/23 21:40:43 patthoyts Exp $
+# RCS: @(#) $Id: bind.test,v 1.26 2008/11/23 21:58:24 patthoyts Exp $
package require tcltest 2.2
namespace import ::tcltest::*
@@ -3403,7 +3403,7 @@ test bind-22.35 {HandleEventGenerate: options <FocusIn> -detail NotifyVirtual} -
return $x
} -cleanup {
destroy .t.f
-} -result {}
+} -result {FocusIn NotifyVirtual}
test bind-22.35.1 {HandleEventGenerate: options <FocusOut> -detail NotifyVirtual} -setup {
frame .t.f -class Test -width 150 -height 100
@@ -3417,7 +3417,7 @@ test bind-22.35.1 {HandleEventGenerate: options <FocusOut> -detail NotifyVirtual
return $x
} -cleanup {
destroy .t.f
-} -result {}
+} -result {FocusOut NotifyVirtual}
test bind-22.36 {HandleEventGenerate: options <Enter> -detail NotifyVirtual} -setup {
frame .t.f -class Test -width 150 -height 100
@@ -3659,7 +3659,7 @@ test bind-22.53 {HandleEventGenerate: options <FocusIn> -mode NotifyNormal} -set
return $x
} -cleanup {
destroy .t.f
-} -result {}
+} -result {NotifyNormal}
test bind-22.54 {HandleEventGenerate: options <Key> -mode NotifyNormal} -setup {
frame .t.f -class Test -width 150 -height 100