First page Back Continue Last page Overview Graphics
qual widget?
Modifique seu programa de ontem para conter essa proc e adicione também o binding dado. Adicione um widget tipo label e associe ele à variável qualw (atributo textvariable). Teste!
proc qual_widget {w} {
set ::qualw “[winfo class $w]$w”
}
bind all <Enter> {qual_widget %W}