francois@TM:~/Documents/tcltk/fossil/tk/unix$ f stat
repository:   /home/francois/Documents/tcltk/fossil/tk/../tk.fossil
local-root:   /home/francois/Documents/tcltk/fossil/tk/
config-db:    /home/francois/.fossil
checkout:     d50984181704cf85a183093891bd6fb26c0bbc4f 2018-11-02 18:58:27 UTC
parent:       5a577497400dac92e687162d9815c6f77ffe729b 2018-10-28 13:43:56 UTC
tags:         bug6e8afe516d
comment:      64 bit problem solved, pattern buffer must be initialized. (user: gcramer)
francois@TM:~/Documents/tcltk/fossil/tk/unix$ valgrind ./tktest ../tests/bind.test
==1819== Memcheck, a memory error detector
==1819== Copyright (C) 2002-2013, and GNU GPL'd, by Julian Seward et al.
==1819== Using Valgrind-3.10.0 and LibVEX; rerun with -h for copyright info
==1819== Command: ./tktest ../tests/bind.test
==1819== 
==1819== Invalid read of size 1
==1819==    at 0x4C2D1D3: strcmp (in /usr/lib/valgrind/vgpreload_memcheck-amd64-linux.so)
==1819==    by 0x5CF5EC3: _XimUnRegisterIMInstantiateCallback (in /usr/lib/x86_64-linux-gnu/libX11.so.6.3.0)
==1819==    by 0x5CDC8A2: XUnregisterIMInstantiateCallback (in /usr/lib/x86_64-linux-gnu/libX11.so.6.3.0)
==1819==    by 0x4F7D908: InstantiateIMCallback (tkUnixEvent.c:681)
==1819==    by 0x5CF5DA4: _XimRegisterIMInstantiateCallback (in /usr/lib/x86_64-linux-gnu/libX11.so.6.3.0)
==1819==    by 0x5CDC83B: XRegisterIMInstantiateCallback (in /usr/lib/x86_64-linux-gnu/libX11.so.6.3.0)
==1819==    by 0x4F7D036: TkpOpenDisplay (tkUnixEvent.c:184)
==1819==    by 0x4EB0E74: GetScreen (tkWindow.c:465)
==1819==    by 0x4EB0C35: CreateTopLevelWindow (tkWindow.c:348)
==1819==    by 0x4EB18DC: TkCreateMainWindow (tkWindow.c:854)
==1819==    by 0x4EC0784: CreateFrame (tkFrame.c:582)
==1819==    by 0x4EC02BC: TkListCreateFrame (tkFrame.c:468)
==1819==  Address 0x7eae850 is 0 bytes inside a block of size 1 free'd
==1819==    at 0x4C29E90: free (in /usr/lib/valgrind/vgpreload_memcheck-amd64-linux.so)
==1819==    by 0x5CEBDFF: XSetLocaleModifiers (in /usr/lib/x86_64-linux-gnu/libX11.so.6.3.0)
==1819==    by 0x4F7D99A: OpenIM (tkUnixEvent.c:725)
==1819==    by 0x4F7D8DC: InstantiateIMCallback (tkUnixEvent.c:680)
==1819==    by 0x5CF5DA4: _XimRegisterIMInstantiateCallback (in /usr/lib/x86_64-linux-gnu/libX11.so.6.3.0)
==1819==    by 0x5CDC83B: XRegisterIMInstantiateCallback (in /usr/lib/x86_64-linux-gnu/libX11.so.6.3.0)
==1819==    by 0x4F7D036: TkpOpenDisplay (tkUnixEvent.c:184)
==1819==    by 0x4EB0E74: GetScreen (tkWindow.c:465)
==1819==    by 0x4EB0C35: CreateTopLevelWindow (tkWindow.c:348)
==1819==    by 0x4EB18DC: TkCreateMainWindow (tkWindow.c:854)
==1819==    by 0x4EC0784: CreateFrame (tkFrame.c:582)
==1819==    by 0x4EC02BC: TkListCreateFrame (tkFrame.c:468)
==1819== 


==== bind-13.1 Tk_BindEvent procedure FAILED
==== Contents of test case:

    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 .t.f : {lappend x "%W %K .t.f :"}
    
    event generate .t.f <Key-colon>
    event generate .t.f <Key-plus>
    event generate .t.f <Key-underscore>
    return $x

---- Result was:
{. colon all KeyPress} {. plus all KeyPress} {. underscore all _}
---- Result should have been (exact matching):
{.t.f colon .t.f :} {.t.f colon Test :} {.t.f colon all KeyPress} {.t.f plus Test KeyPress} {.t.f plus all KeyPress} {.t.f underscore Test KeyPress} {.t.f underscore all _}
==== bind-13.1 FAILED



==== bind-13.2 Tk_BindEvent procedure FAILED
==== Contents of test case:

    bind Test <KeyPress> {lappend x "%W %K Test press any"; break}
    bind all <KeyPress> {continue; lappend x "%W %K all press any"}
    bind .t.f : {lappend x "%W %K .t.f pressed colon"}
    
    event generate .t.f <Key-colon>
    return $x

---- Result was:

---- Result should have been (exact matching):
{.t.f colon .t.f pressed colon} {.t.f colon Test press any}
==== bind-13.2 FAILED



==== bind-13.3 Tk_BindEvent procedure FAILED
==== Contents of test case:

    bind Test <KeyPress> {lappend x "%W %K Test press any"; error Test}
    bind .t.f : {lappend x "%W %K .t.f pressed colon"}
    event generate .t.f <Key-colon>
    update
    list $x $errorInfo

---- Result was:
{} {no event type or button # or keysym
    while executing
".t.c bind foo <"
    ("uplevel" body line 3)
    invoked from within
"uplevel 1 $script"}
---- Result should have been (exact matching):
{{.t.f colon .t.f pressed colon} {.t.f colon Test press any}} {Test
    while executing
"error Test"
    (command bound to event)}
==== bind-13.3 FAILED



==== bind-13.4 Tk_BindEvent procedure FAILED
==== Contents of test case:

    bind Test : {lappend x "%W %K Test"}
    bind .t.f : {lappend x "%W %K .t.f"}
    foo
    return $x

---- Result was:

---- Result should have been (exact matching):
{.t.f colon .t.f} {.t.f colon Test}
==== bind-13.4 FAILED



==== bind-13.7 Tk_BindEvent procedure FAILED
==== Contents of test case:

    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-colon>
    return $x

---- Result was:
{. (all binding)}
---- Result should have been (exact matching):
{.t.f (.t.f binding)} {.t.f (Test binding)} {.t.f (all binding)}
==== bind-13.7 FAILED



==== bind-13.8 Tk_BindEvent procedure FAILED
==== Contents of test case:

    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-colon>
    return $x

---- Result was:
{. (all binding)}
---- Result should have been (exact matching):
{.t.f (.t.f binding)} {.t.f (Test binding)} {.t.f (all binding)}
==== bind-13.8 FAILED



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

    bind .t.f <Key> "lappend x Key%K"
    bind .t.f <KeyRelease> "lappend x Release%K"
    event generate .t.f <Key> -keysym colon
    event generate .t.f <KeyRelease> -keysym colon
    return $x

---- Result was:

---- Result should have been (exact matching):
Keycolon Releasecolon
==== bind-13.13 FAILED



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

    bind .t.f <Key> "lappend x Key%K"
    bind .t.f <KeyRelease> "lappend x Release%K"
    event generate .t.f <Key> -keycode -1
    event generate .t.f <KeyRelease> -keycode -1
    return $x

---- Result was:

---- Result should have been (exact matching):
Key?? Release??
==== bind-13.14 FAILED



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

    bind .t.f 12 {set x 1}
    set x 0
    event generate .t.f <Key-1>
    event generate .t.f <KeyRelease-1>
    event generate .t.f <Key-2>
    event generate .t.f <KeyRelease-2>
    return $x

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



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

    bind .t.f 12 {set x 1}
    set x 0
    event generate .t.f <Key-1>
    event generate .t.f <Enter>
    event generate .t.f <KeyRelease-1>
    event generate .t.f <Leave>
    event generate .t.f <Key-2>
    event generate .t.f <KeyRelease-2>
    return $x

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



==== bind-15.9 MatchPatterns procedure, modifier checks FAILED
==== Contents of test case:

    bind .t.f <M1-M2-Key> {set x 1}
    set x 0
    event generate .t.f <Key-a> -state 0x18
    return $x

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



==== bind-15.10 MatchPatterns procedure, modifier checks FAILED
==== Contents of test case:

    bind .t.f <M1-M2-Key> {set x 1}
    set x 0
    event generate .t.f <Key-a> -state 0xfc
    return $x

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



==== bind-15.27 MatchPatterns procedure, conflict resolution FAILED
==== Contents of test case:

    bind .t.f <KeyPress> {set x 0}
    bind .t.f 1 {set x 1}
    set x none
    event generate .t.f <Key-1>
    return $x

---- Result was:
none
---- Result should have been (exact matching):
1
==== bind-15.27 FAILED



==== bind-15.28 MatchPatterns procedure, conflict resolution FAILED
==== Contents of test case:

    bind .t.f <KeyPress> {set x 0}
    bind .t.f 1 {set x 1}
    set x none
    event generate .t.f <Key-2>
    return $x

---- Result was:
none
---- Result should have been (exact matching):
0
==== bind-15.28 FAILED



==== bind-15.29 MatchPatterns procedure, conflict resolution FAILED
==== Contents of test case:

    bind .t.f <KeyPress> {lappend x 0}
    bind .t.f 1 {lappend x 1}
    bind .t.f 21 {lappend x 2}
    set x none
    event generate .t.f <Key-2>
    event generate .t.f <KeyRelease-2>
    event generate .t.f <Key-1>
    set x

---- Result was:
none
---- Result should have been (exact matching):
none 0 2
==== bind-15.29 FAILED



==== bind-15.31 MatchPatterns procedure, conflict resolution FAILED
==== Contents of test case:

    bind .t.f <M1-Key> {set x 0}
    bind .t.f <M2-Key> {set x 1}
    event generate .t.f <Key-a> -state 0x18
    return $x

---- Result was:

---- Result should have been (exact matching):
1
==== bind-15.31 FAILED



==== bind-15.32 MatchPatterns procedure, conflict resolution FAILED
==== Contents of test case:

    bind .t.f <M2-Key> {set x 0}
    bind .t.f <M1-Key> {set x 1}
    set x none
    event generate .t.f <Key-a> -state 0x18
    return $x

---- Result was:
none
---- Result should have been (exact matching):
1
==== bind-15.32 FAILED



==== bind-16.16 ExpandPercents procedure FAILED
==== Contents of test case:

    bind .t.f <Key> {set x "%k"}
    set x none
    event generate .t.f <Key> -keycode 146
    set x

---- Result was:
none
---- Result should have been (exact matching):
146
==== bind-16.16 FAILED



==== bind-16.39 ExpandPercents procedure FAILED
==== Contents of test case:

    bind .t.f <Key> {set x "%N"}
    set x none
    event generate .t.f <Key-space>
    set x

---- Result was:
none
---- Result should have been (exact matching):
32
==== bind-16.39 FAILED



==== bind-16.40 ExpandPercents procedure FAILED
==== Contents of test case:

    bind .t.f <Key> {set x "%S"}
    set x none
    event generate .t.f <Key-space> -subwindow .t
    set x

---- Result was:
none
---- Result should have been (exact matching):
0x5000003
==== bind-16.40 FAILED



==== bind-16.41 ExpandPercents procedure FAILED
==== Contents of test case:

    bind .t.f <Key> {set x "%T"}
    set x none
    event generate .t.f <Key>
    set x

---- Result was:
none
---- Result should have been (exact matching):
2
==== bind-16.41 FAILED



==== bind-16.42 ExpandPercents procedure FAILED
==== Contents of test case:

    bind .t.f <Key> {set x "%W"}
    set x none
    event generate .t.f <Key>
    set x

---- Result was:
none
---- Result should have been (exact matching):
.t.f
==== bind-16.42 FAILED



==== bind-16.45 ExpandPercents procedure FAILED
==== Contents of test case:

    bind .t.e <Key> {set x "%M"}
    bind Entry <Key> {set y "%M"}
    bind all <Key> {set z "%M"}
    set x none; set y none; set z none
    event gen .t.e <Key-a>
    list $x $y $z

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



==== bind-16.46 ExpandPercents procedure FAILED
==== Contents of test case:

    bind all <Key> {set z "%M"}
    bind Entry <Key> {set y "%M"}
    bind .t.e <Key> {set x "%M"}
    set x none; set y none; set z none
    event gen .t.e <Key-a>
    list $x $y $z

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



==== bind-22.10 HandleEventGenerate FAILED
==== Contents of test case:

    bind .t.f <Key> {set x "%s %K"}
    event generate .t.f <Control-Key-space>
    set x

---- Result was:

---- Result should have been (exact matching):
4 space
==== bind-22.10 FAILED



==== bind-22.46 HandleEventGenerate: options <Key> -keycode 20 FAILED
==== Contents of test case:

    bind .t.f <Key> "lappend x %k"
    event generate .t.f <Key> -keycode 20
    return $x

---- Result was:

---- Result should have been (exact matching):
20
==== bind-22.46 FAILED



==== bind-22.49 HandleEventGenerate: options <Key> -keysym space FAILED
==== Contents of test case:

    bind .t.f <Key> "lappend x %K"
    event generate .t.f <Key> -keysym space
    return $x

---- Result was:

---- Result should have been (exact matching):
space
==== bind-22.49 FAILED



==== bind-22.64 HandleEventGenerate: options <Key> -root .t FAILED
==== Contents of test case:

    bind .t.f <Key> "lappend x %R"
    event generate .t.f <Key> -root .t 
    expr {[winfo id .t] eq $x}

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



==== bind-22.66 HandleEventGenerate: options <Key> -root [winfo id .t] FAILED
==== Contents of test case:

    bind .t.f <Key> "lappend x %R"
    event generate .t.f <Key> -root [winfo id .t] 
    expr {[winfo id .t] eq $x}

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



==== bind-22.74 HandleEventGenerate: options <Key> -rootx 2i FAILED
==== Contents of test case:

    bind .t.f <Key> "lappend x %X"
    event generate .t.f <Key> -rootx 2i 
    expr {[winfo pixels .t.f 2i] eq $x}

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



==== bind-22.82 HandleEventGenerate: options <Key> -rooty 2i FAILED
==== Contents of test case:

    bind .t.f <Key> "lappend x %Y"
    event generate .t.f <Key> -rooty 2i 
    expr {[winfo pixels .t.f 2i] eq $x}

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



==== bind-22.90 HandleEventGenerate: options <Key> -sendevent 1 FAILED
==== Contents of test case:

    bind .t.f <Key> "lappend x %E"
    event generate .t.f <Key> -sendevent 1 
    return $x

---- Result was:

---- Result should have been (exact matching):
1
==== bind-22.90 FAILED



==== bind-22.91 HandleEventGenerate: options <Key> -sendevent yes FAILED
==== Contents of test case:

    bind .t.f <Key> "lappend x %E"
    event generate .t.f <Key> -sendevent yes 
    return $x

---- Result was:

---- Result should have been (exact matching):
1
==== bind-22.91 FAILED



==== bind-22.92 HandleEventGenerate: options <Key> -sendevent 43 FAILED
==== Contents of test case:

    bind .t.f <Key> "lappend x %E"
    event generate .t.f <Key> -sendevent 43 
    return $x

---- Result was:

---- Result should have been (exact matching):
1
==== bind-22.92 FAILED



==== bind-22.94 HandleEventGenerate: options <Key> -serial 100 FAILED
==== Contents of test case:

    bind .t.f <Key> "lappend x %#"
    event generate .t.f <Key> -serial 100 
    return $x

---- Result was:

---- Result should have been (exact matching):
100
==== bind-22.94 FAILED



==== bind-22.96 HandleEventGenerate: options <Key> -state 1 FAILED
==== Contents of test case:

    bind .t.f <Key> "lappend x %s"
    event generate .t.f <Key> -state 1 
    return $x

---- Result was:

---- Result should have been (exact matching):
1
==== bind-22.96 FAILED



==== bind-22.106 HandleEventGenerate: options <Key> -subwindow .t FAILED
==== Contents of test case:

    bind .t.f <Key> "lappend x %S"
    event generate .t.f <Key> -subwindow .t 
    expr {[winfo id .t] eq $x}

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



==== bind-22.108 HandleEventGenerate: options <Key> -subwindow [winfo id .t] FAILED
==== Contents of test case:

    bind .t.f <Key> "lappend x %S"
    event generate .t.f <Key> -subwindow [winfo id .t] 
    expr {[winfo id .t] eq $x}

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



==== bind-22.116 HandleEventGenerate: options <Key> -time 100 FAILED
==== Contents of test case:

    bind .t.f <Key> "lappend x %t"
    event generate .t.f <Key> -time 100 
    return $x

---- Result was:

---- Result should have been (exact matching):
100
==== bind-22.116 FAILED



==== bind-22.140 HandleEventGenerate: options <Key> -x 2i FAILED
==== Contents of test case:

    bind .t.f <Key> "lappend x %x"
    event generate .t.f <Key> -x 2i 
    expr {[winfo pixels .t.f 2i] eq $x}

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



==== bind-22.152 HandleEventGenerate: options <Key> -y 2i FAILED
==== Contents of test case:

    bind .t.f <Key> "lappend x %y"
    event generate .t.f <Key> -y 2i 
    expr {[winfo pixels .t.f 2i] eq $x}

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



==== bind-26.12 event names: Key FAILED
==== Contents of test case:

    bind .t.f <Key> "set x {event Key}"
    set x xyzzy
    event generate .t.f <Key>
    list $x [bind .t.f]

---- Result was:
xyzzy <Key>
---- Result should have been (exact matching):
{event Key} <Key>
==== bind-26.12 FAILED



==== bind-26.13 event names: KeyPress FAILED
==== Contents of test case:

    bind .t.f <KeyPress> "set x {event KeyPress}"
    set x xyzzy
    event generate .t.f <KeyPress>
    list $x [bind .t.f]

---- Result was:
xyzzy <Key>
---- Result should have been (exact matching):
{event KeyPress} <Key>
==== bind-26.13 FAILED



==== bind-26.14 event names: KeyRelease FAILED
==== Contents of test case:

    bind .t.f <KeyRelease> "set x {event KeyRelease}"
    set x xyzzy
    event generate .t.f <KeyRelease>
    list $x [bind .t.f]

---- Result was:
xyzzy <KeyRelease>
---- Result should have been (exact matching):
{event KeyRelease} <KeyRelease>
==== bind-26.14 FAILED



==== bind-28.5 keysym names FAILED
==== Contents of test case:

    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

---- Result was:
: _
---- Result should have been (exact matching):
: _ {keysym received}
==== bind-28.5 FAILED



==== bind-28.6 keysym names FAILED
==== Contents of test case:

    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

---- Result was:
<Key-Return> x
---- Result should have been (exact matching):
<Key-Return> x {keysym Return}
==== bind-28.6 FAILED



==== bind-28.7 keysym names FAILED
==== Contents of test case:

    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

---- Result was:
X x
---- Result should have been (exact matching):
X x {keysym X}
==== bind-28.7 FAILED



==== bind-28.8 keysym names FAILED
==== Contents of test case:

    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

---- Result was:
X x
---- Result should have been (exact matching):
X x {keysym X}
==== bind-28.8 FAILED



==== bind-32.3 should trigger best match of modifier states FAILED
==== Contents of test case:

    bind .t.f <Alt-Control-Key-A> { lappend x "Alt-Control" }
    bind .t.f <Shift-Control-Key-A> { lappend x "Shift-Control" }
    bind .t.f <Shift-Key-A> { lappend x "Shift" }
    event generate .t.f <Alt-Control-Key-A>
    set x

---- Result was:

---- Result should have been (exact matching):
Shift-Control
==== bind-32.3 FAILED



==== bind-32.7 test sequences FAILED
==== Contents of test case:

    bind .t.f <Double-1> { lappend x "Double" }
    bind .t.f <1><1><a> { lappend x "11" }
    event generate .t.f <1>
    event generate .t.f <1>
    event generate .t.f <a>
    set x

---- Result was:
Double
---- Result should have been (exact matching):
Double 11
==== bind-32.7 FAILED



==== bind-32.8 test sequences FAILED
==== Contents of test case:

    bind .t.f <a><1><Double-1><1><a> { lappend x "Double" }
    event generate .t.f <a>
    event generate .t.f <1>
    event generate .t.f <1>
    event generate .t.f <1>
    event generate .t.f <1>
    event generate .t.f <a>
    set x

---- Result was:

---- Result should have been (exact matching):
Double
==== bind-32.8 FAILED



==== bind-33.1 prefer longest match FAILED
==== Contents of test case:

    bind .t.f <a><1><1> { lappend x "a11" }
    bind .t.f <Double-1> { lappend x "Double" }
    event generate .t.f <a>
    event generate .t.f <1>
    event generate .t.f <1>
    set x

---- Result was:
Double
---- Result should have been (exact matching):
a11
==== bind-33.1 FAILED



==== bind-33.3 should prefer more specialized event FAILED
==== Contents of test case:

    bind .t.f <a><Double-1><a> { lappend x "Double" }
    bind .t.f <a><1><1><a> { lappend x "11" }
    event generate .t.f <a>
    event generate .t.f <1>
    event generate .t.f <1>
    event generate .t.f <a>
    set x

---- Result was:

---- Result should have been (exact matching):
11
==== bind-33.3 FAILED



==== bind-33.6 pefer most specialized FAILED
==== Contents of test case:

    bind .t.f <a><1><1><1><1><a> { lappend x "1111" }
    bind .t.f <a><ButtonPress><Double-ButtonPress><ButtonPress><a> { lappend x "Any-Double-Any" }
    event generate .t.f <a>
    event generate .t.f <1>
    event generate .t.f <1>
    event generate .t.f <1>
    event generate .t.f <1>
    event generate .t.f <a>
    set x

---- Result was:

---- Result should have been (exact matching):
1111
==== bind-33.6 FAILED



==== bind-33.7 pefer most specialized FAILED
==== Contents of test case:

    bind .t.f <ButtonPress-1><a> { lappend x "1" }
    bind .t.f <ButtonPress><a> { lappend x "Any" }
    event generate .t.f <1>
    event generate .t.f <a>
    set x

---- Result was:

---- Result should have been (exact matching):
1
==== bind-33.7 FAILED



==== bind-33.8 pefer most specialized FAILED
==== Contents of test case:

    bind .t.f <Double-ButtonPress-1><a> { lappend x "1" }
    bind .t.f <ButtonPress><ButtonPress><a> { lappend x "Any" }
    event generate .t.f <1>
    event generate .t.f <1>
    event generate .t.f <a>
    set x

---- Result was:

---- Result should have been (exact matching):
1
==== bind-33.8 FAILED

bind.test:      Total   511     Passed  452     Skipped 3       Failed  56
Number of tests skipped for each constraint:
        3       nonPortable
==1819== 
==1819== HEAP SUMMARY:
==1819==     in use at exit: 4,533,445 bytes in 3,594 blocks
==1819==   total heap usage: 52,094 allocs, 48,500 frees, 18,459,845 bytes allocated
==1819== 
==1819== LEAK SUMMARY:
==1819==    definitely lost: 792 bytes in 3 blocks
==1819==    indirectly lost: 32 bytes in 1 blocks
==1819==      possibly lost: 3,657,750 bytes in 198 blocks
==1819==    still reachable: 874,871 bytes in 3,392 blocks
==1819==         suppressed: 0 bytes in 0 blocks
==1819== Rerun with --leak-check=full to see details of leaked memory
==1819== 
==1819== For counts of detected and suppressed errors, rerun with: -v
==1819== ERROR SUMMARY: 1 errors from 1 contexts (suppressed: 0 from 0)
francois@TM:~/Documents/tcltk/fossil/tk/unix$ 
