tcl/tk에서 마우스 오버를 바인딩하는 방법

Question

마우스를 가져 가면 마우스가 뭔가 움직일 수 있도록 요소를 바인딩하고 싶습니다. 어떤 수정자가 그러한 바인딩을 허용합니까?

Answer 1

<Enter> 및 <Leave> 이벤트. 예 :

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}