diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-27 09:03:52 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-27 09:03:52 (GMT) |
commit | 6b9644385baee27d5ba75428742465526018df91 (patch) | |
tree | f7c918fb5ce3526ce06ce62bd7b67386d05fbf60 /tests/focus.test | |
parent | 6949e8ec85570fe55ac46b25f78e2455683078ac (diff) | |
download | tk-6b9644385baee27d5ba75428742465526018df91.zip tk-6b9644385baee27d5ba75428742465526018df91.tar.gz tk-6b9644385baee27d5ba75428742465526018df91.tar.bz2 |
In test-cases same optimization as everywhere else: KeyPress -> Key and ButtonPress -> Button.
Diffstat (limited to 'tests/focus.test')
-rw-r--r-- | tests/focus.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/focus.test b/tests/focus.test index 73bb9fd..1770427 100644 --- a/tests/focus.test +++ b/tests/focus.test @@ -64,7 +64,7 @@ bind all <FocusIn> { bind all <FocusOut> { append focusInfo "out %W %d\n" } -bind all <KeyPress> { +bind all <Key> { append focusInfo "press %W %K" } focusSetup @@ -316,7 +316,7 @@ test focus-2.6 {TkFocusFilterEvent procedure, FocusIn events} -constraints { event gen [testwrapper .t] <FocusIn> -detail NotifyAncestor set focusInfo {} set x [focus] - event gen . <KeyPress-x> + event gen . <x> list $x $focusInfo } -result {.t.b1 {press .t.b1 x}} test focus-2.7 {TkFocusFilterEvent procedure, FocusOut events} -constraints { @@ -617,7 +617,7 @@ test focus-5.1 {ChangeXFocus procedure, don't take focus unless have it} -constr destroy .t bind all <FocusIn> {} bind all <FocusOut> {} -bind all <KeyPress> {} +bind all <Key> {} fixfocus |