[tcl/tk] Обработка событий

0

1

Почему, если нажать левую кнопку мыши во время выполнения этой программы

#!/usr/bin/wish

frame .gr
pack .gr

set c [canvas .gr.x1 -width 400 -height 200]
pack $c

bind $c <Button-1> {
puts «Button1»
}
bind $c <Leave> {
puts «Leave»
}

на экране появляется:
Leave
Button1

Почему при нажатии кнопки мыши наряду с событием Button-1 возникает событие Leave?

Arch
tcl 8.5.9-1
tk 8.5.9-1