diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-26 11:56:53 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-26 11:56:53 (GMT) |
| commit | d33e7f7779bbc46d28d52a472f67d959e112abab (patch) | |
| tree | 7342e37239bbc30511af07bc571f1ce09170476e /tests/event.test | |
| parent | 4ffc1e087b85ca03aef3f3e5b63f1f9129c4ebb0 (diff) | |
| parent | 7c6b70ac1a979b615ed85dd9b8382811282bd609 (diff) | |
| download | tk-d33e7f7779bbc46d28d52a472f67d959e112abab.zip tk-d33e7f7779bbc46d28d52a472f67d959e112abab.tar.gz tk-d33e7f7779bbc46d28d52a472f67d959e112abab.tar.bz2 | |
Merge 8.7. Tweak the deprecations a little, matching the TIP #588 spec
Diffstat (limited to 'tests/event.test')
| -rw-r--r-- | tests/event.test | 53 |
1 files changed, 5 insertions, 48 deletions
diff --git a/tests/event.test b/tests/event.test index 87c2fa1..179dd32 100644 --- a/tests/event.test +++ b/tests/event.test @@ -20,55 +20,10 @@ namespace import -force tcltest::test proc _init_keypress_lookup {} { global keypress_lookup - scan A %c start - scan Z %c finish - - for {set i $start} {$i <= $finish} {incr i} { - set l [format %c $i] - set keypress_lookup($l) $l - } - - scan a %c start - scan z %c finish - - for {set i $start} {$i <= $finish} {incr i} { - set l [format %c $i] - set keypress_lookup($l) $l - } - - scan 0 %c start - scan 9 %c finish - - for {set i $start} {$i <= $finish} {incr i} { - set l [format %c $i] - set keypress_lookup($l) $l - } - - # Most punctuation - array set keypress_lookup { - % percent - & ampersand - ( parenleft - ) parenright - * asterisk - + plus - , comma - - minus - . period - : colon - < less - = equal - > greater - ? question - @ at - ^ asciicircum - _ underscore - | bar - ~ asciitilde - ' apostrophe - } # Characters with meaning to Tcl... array set keypress_lookup [list \ + - minus \ + > greater \ \" quotedbl \ \# numbersign \ \$ dollar \ @@ -79,6 +34,7 @@ proc _init_keypress_lookup {} { \{ braceleft \ \} braceright \ " " space \ + \xA0 nobreakspace \ "\n" Return \ "\t" Tab] } @@ -86,7 +42,8 @@ proc _init_keypress_lookup {} { # Lookup an event in the keypress table. # For example: # Q -> Q -# . -> period +# ; -> semicolon +# > -> greater # Delete -> Delete # Escape -> Escape |