Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Add back testcases event-9.1/9.2 (they were removed in [bf6234fc] because they are superseded by event-9.13 with more complete scope, see discussion in ticket [22349fc78a], but they can be kept with no harm). Restore keypress_lookup array to state in trunk (no need for so many entries any more) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | cgimage_with_crossing |
| Files: | files | file ages | folders |
| SHA3-256: |
ca3d67ef9b22fed38dcfa0a050edbcc0 |
| User & Date: | jan.nijtmans 2024-07-04 20:14:36 |
| Original Comment: | Add back testcases event-9.1/9.2 (why were they removed?). Restore keypress_lookup array to state in trunk (no need for so many entries any more) |
Context
|
2024-07-04
| ||
| 20:36 | Fix 2 (minor) compiler warnings check-in: 17d4fdaf user: jan.nijtmans tags: cgimage_with_crossing | |
| 20:14 | Add back testcases event-9.1/9.2 (they were removed in [bf6234fc] because they are superseded by event-9.13 with more complete scope, see discussion in ticket [22349fc78a], but they can be kept with no harm). Restore keypress_lookup array to state in trunk (no need for so many entries any more) check-in: ca3d67ef user: jan.nijtmans tags: cgimage_with_crossing | |
| 18:20 | Re-apply [37ba4f8cdb]: In test-cases same optimization as everywhere else: KeyPress -> Key and ButtonPress -> Button. This somehow got lost in this branch check-in: 66753629 user: jan.nijtmans tags: cgimage_with_crossing | |
Changes
Changes to tests/event.test.
| ︙ | ︙ | |||
16 17 18 19 20 21 22 |
# possible.
# Setup table used to query key events.
proc _init_keypress_lookup {} {
global keypress_lookup
| < < | < < < < < < < < < < < < < < < < < < < < < < | < < < < < < < < | < < < < < | < < < < < < < < < < > | 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 |
# possible.
# Setup table used to query key events.
proc _init_keypress_lookup {} {
global keypress_lookup
# Characters with meaning to Tcl...
array set keypress_lookup [list \
- minus \
> greater \
\" quotedbl \
\# numbersign \
\$ dollar \
\; semicolon \
\[ bracketleft \
\\ backslash \
\] bracketright \
\{ braceleft \
\} braceright \
" " space \
\xA0 nobreakspace \
"\n" Return \
"\t" Tab]
}
# Lookup an event in the keypress table.
# For example:
# Q -> Q
|
| ︙ | ︙ | |||
857 858 859 860 861 862 863 864 865 866 867 868 869 870 |
return "Test failed, unless the keyboard tied to the system \
on which this test is run does NOT have a diaeresis \
physical key - in this case, test is actually void."
}
} -cleanup {
deleteWindows
} -result {OK}
proc waitForWindowEvent {w event {timeout 1000}} {
# This proc is intended to overcome latency of windowing system
# notifications when toplevel windows are involved. These latencies vary
# considerably with the window manager in use, with the system load,
# with configured scheduling priorities for processes, etc ...
# Waiting for the corresponding window events evades the trouble that is
| > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 |
return "Test failed, unless the keyboard tied to the system \
on which this test is run does NOT have a diaeresis \
physical key - in this case, test is actually void."
}
} -cleanup {
deleteWindows
} -result {OK}
test event-9.1 {enter . window by destroying a toplevel - bug b1d115fa60} -setup {
set EnterBind [bind . <Enter>]
} -body {
wm geometry . 200x200+300+300
wm deiconify .
_pause 200
toplevel .top2 -width 200 -height 200
wm geometry .top2 +[expr {[winfo rootx .]+50}]+[expr {[winfo rooty .]+50}]
update idletasks
wm deiconify .top2
update idletasks
raise .top2
_pause 400
event generate .top2 <Motion> -warp 1 -x 50 -y 50
_pause 100
bind . <Enter> {lappend res %W}
set res [list ]
destroy .top2
update idletasks
_pause 200
set res
} -cleanup {
deleteWindows
bind . <Enter> $EnterBind
} -result {.}
test event-9.2 {enter toplevel window by destroying a toplevel - bug b1d115fa60} -setup {
set iconified false
if {[winfo ismapped .]} {
wm iconify .
update
set iconified true
}
} -body {
toplevel .top1
wm geometry .top1 200x200+300+300
wm deiconify .top1
_pause 200
toplevel .top2 -width 200 -height 200
wm geometry .top2 +[expr {[winfo rootx .top1]+50}]+[expr {[winfo rooty .top1]+50}]
_pause 200
wm deiconify .top2
update idletasks
raise .top2
_pause 400
event generate .top2 <Motion> -warp 1 -x 50 -y 50
_pause 100
bind .top1 <Enter> {lappend res %W}
set res [list ]
destroy .top2
_pause 200
set res
} -cleanup {
deleteWindows ; # destroy all children of ".", this already includes .top1
if {$iconified} {
wm deiconify .
update
}
} -result {.top1}
proc waitForWindowEvent {w event {timeout 1000}} {
# This proc is intended to overcome latency of windowing system
# notifications when toplevel windows are involved. These latencies vary
# considerably with the window manager in use, with the system load,
# with configured scheduling priorities for processes, etc ...
# Waiting for the corresponding window events evades the trouble that is
|
| ︙ | ︙ |