#1818 Aqua: failed bind-* tests

[Don Porter]

==== bind-13.13 Tk_BindEvent procedure: invalid key
detail FAILED
==== Contents of test case:

setup
bind .b.f <Key> "lappend x Key%K"
bind .b.f <KeyRelease> "lappend x Release%K"
set x {}
event gen .b.f <Key> -keycode 0
event gen .b.f <KeyRelease> -keycode 0
set x

---- Result was:
Keya Releasea
---- Result should have been (exact matching):
Key?? Release??
==== bind-13.13 FAILED

==== bind-15.7 MatchPatterns procedure, ignoring type
mismatches FAILED
==== Contents of test case:

setup
bind .b.f <Double-1> {set x 1}
set x 0
event gen .b.f <Button-1>
event gen .b.f <Key-Shift_L>
event gen .b.f <ButtonRelease-1>
event gen .b.f <Button-1>
event gen .b.f <ButtonRelease-1>
set x

---- Result was:
0
---- Result should have been (exact matching):
1
==== bind-15.7 FAILED

[Don Porter]

Logged In: YES
user_id=80530

still fail in 8.4.13 and 8.5a4