[MACTCL] bindings bug ?

[<fra...@im...>]

Hello,

Is this a Bug ? I create an item in a canvas and bind simple scripts on=20=

the <Enter> and <Leave> events on the item:

   canvas .c
   pack .c
   set id [.c create rectangle 10 10 50 50 -fill red]

   .c bind $id <Enter> { puts "enter" }
   .c bind $id <Leave> { puts "leave" }

Now, if I move the mouse pointer above the item, the <Enter> event gets=20=

triggered (which is ok). I press the mouse button and don't release it=20=

and move the pointer outside the item. When the pointer crosses the=20
item border, it triggers a <Leave> event, which is ok. But then, when=20
the mouse button is released outside the item, it releases another=20
<Leave> event, which is not ok.

This behavior was when tested under Aqua. Now tested under X-Windows=20
(OS X and AIX) the behavior is even more strange: on the initial button=20=

press, an "extra" <Leave><Enter> sequence is generated !

And it looks like the same apply for standard widgets (such as a=20
label), not only canvas items.

   label .l -text "Test" -bg red
   place .l -anchor c -relx 0.5 -rely 0.5

   bind .l <Enter> { puts "enter" }
   bind .l <Leave> { puts "leave" }

Am I missing something ? Should I file a bug ?

   Thanks,

    Fran=E7ois