tcl - tcl/tk でマウスオーバーをバインドする方法

Question

要素をバインドして、マウスがその上に置かれたときに何かを実行したいと考えています。そのようなバインドを許可する修飾子は何ですか?

Answer 1

The <Enter> and <Leave> events. For example:

place [frame .f -width 100 -height 100 -bg red] -x 10 -y 10
bind .f <Enter> {%W configure -bg blue}
bind .f <Leave> {%W configure -bg red}