summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/bind.test61
1 files changed, 30 insertions, 31 deletions
diff --git a/tests/bind.test b/tests/bind.test
index 23438fc..b3b82b1 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.26 2008/11/23 21:58:24 patthoyts Exp $
+# RCS: @(#) $Id: bind.test,v 1.27 2009/01/11 23:08:58 patthoyts Exp $
package require tcltest 2.2
namespace import ::tcltest::*
@@ -563,12 +563,12 @@ test bind-13.1 {Tk_BindEvent procedure} -setup {
bind Test <KeyPress> {lappend x "%W %K Test KeyPress"}
bind all <KeyPress> {lappend x "%W %K all KeyPress"}
bind Test : {lappend x "%W %K Test :"}
- bind all _ {lappend x "%W %K all _"}
+ bind all _ {lappend x "%W %K all _"}
bind .t.f : {lappend x "%W %K .t.f :"}
- event generate .t.f <Key-:>
- event generate .t.f <Key-+>
- event generate .t.f <Key-_>
+ event generate .t.f <Key-colon>
+ event generate .t.f <Key-plus>
+ event generate .t.f <Key-underscore>
return $x
} -cleanup {
destroy .t.f
@@ -621,7 +621,7 @@ test bind-13.3 {Tk_BindEvent procedure} -setup {
test bind-13.4 {Tk_BindEvent procedure} -setup {
proc foo {} {
set x 44
- event generate .t.f <Key-:>
+ event generate .t.f <Key-colon>
}
frame .t.f -class Test -width 150 -height 100
pack .t.f
@@ -664,7 +664,7 @@ test bind-13.7 {Tk_BindEvent procedure} -setup {
bind .t.f : {lappend x "%W (.t.f binding)"}
bind Test : {lappend x "%W (Test binding)"}
bind all : {bind .t.f : {}; lappend x "%W (all binding)"}
- event generate .t.f <Key-:>
+ event generate .t.f <Key-colon>
return $x
} -cleanup {
bind Test : {}
@@ -681,7 +681,7 @@ test bind-13.8 {Tk_BindEvent procedure} -setup {
bind .t.f : {lappend x "%W (.t.f binding)"}
bind Test : {lappend x "%W (Test binding)"}
bind all : {destroy .t.f; lappend x "%W (all binding)"}
- event generate .t.f <Key-:>
+ event generate .t.f <Key-colon>
return $x
} -cleanup {
bind Test : {}
@@ -763,8 +763,8 @@ test bind-13.13 {Tk_BindEvent procedure: valid key detail} -setup {
} -body {
bind .t.f <Key> "lappend x Key%K"
bind .t.f <KeyRelease> "lappend x Release%K"
- event generate .t.f <Key> -keysym :
- event generate .t.f <KeyRelease> -keysym :
+ event generate .t.f <Key> -keysym colon
+ event generate .t.f <KeyRelease> -keysym colon
return $x
} -cleanup {
destroy .t.f
@@ -6143,18 +6143,17 @@ test bind-28.4 {keysym names} -body {
destroy .t.f
} -result {a}
-
test bind-28.5 {keysym names} -setup {
frame .t.f -class Test -width 150 -height 100
pack .t.f
focus -force .t.f
update
} -body {
- bind .t.f <Key-:> "lappend x \"keysym received\""
- bind .t.f <Key-_> "lappend x {bad binding match}"
- set x [lsort [bind .t.f]]
- event generate .t.f <Key-:> ;# -state 0
- set x
+ bind .t.f <Key-colon> "lappend x \"keysym received\""
+ bind .t.f <Key-underscore> "lappend x {bad binding match}"
+ set x [lsort [bind .t.f]]
+ event generate .t.f <Key-colon> ;# -state 0
+ set x
} -cleanup {
destroy .t.f
} -result {: _ {keysym received}}
@@ -6164,11 +6163,11 @@ test bind-28.6 {keysym names} -setup {
focus -force .t.f
update
} -body {
- bind .t.f <Key-Return> "lappend x \"keysym Return\""
- bind .t.f <Key-x> "lappend x {bad binding match}"
- set x [lsort [bind .t.f]]
- event generate .t.f <Key-Return> -state 0
- set x
+ bind .t.f <Key-Return> "lappend x \"keysym Return\""
+ bind .t.f <Key-x> "lappend x {bad binding match}"
+ set x [lsort [bind .t.f]]
+ event generate .t.f <Key-Return> -state 0
+ set x
} -cleanup {
destroy .t.f
} -result {<Key-Return> x {keysym Return}}
@@ -6178,11 +6177,11 @@ test bind-28.7 {keysym names} -setup {
focus -force .t.f
update
} -body {
- bind .t.f <Key-X> "lappend x \"keysym X\""
- bind .t.f <Key-x> "lappend x {bad binding match}"
- set x [lsort [bind .t.f]]
- event generate .t.f <Key-X> -state 1
- set x
+ bind .t.f <Key-X> "lappend x \"keysym X\""
+ bind .t.f <Key-x> "lappend x {bad binding match}"
+ set x [lsort [bind .t.f]]
+ event generate .t.f <Key-X> -state 1
+ set x
} -cleanup {
destroy .t.f
} -result {X x {keysym X}}
@@ -6192,11 +6191,11 @@ test bind-28.8 {keysym names} -setup {
focus -force .t.f
update
} -body {
- bind .t.f <Key-X> "lappend x \"keysym X\""
- bind .t.f <Key-x> "lappend x {bad binding match}"
- set x [lsort [bind .t.f]]
- event generate .t.f <Key-X> -state 1
- set x
+ bind .t.f <Key-X> "lappend x \"keysym X\""
+ bind .t.f <Key-x> "lappend x {bad binding match}"
+ set x [lsort [bind .t.f]]
+ event generate .t.f <Key-X> -state 1
+ set x
} -cleanup {
destroy .t.f
} -result {X x {keysym X}}