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}