. configure -bg grey77
proc enter {} {
    .l configure -text Hello!
}
proc leave {} {
    .l configure -text Bye!
}
label .l -text Hello! -bg grey77 -relief groove -bd 3
bind .l <Enter> enter
bind .l <Leave> leave
pack .l -expand y -fill both -padx 2 -pady 2