bind - exemplos

• bind .lb <Double-1> lb_navega

• bind . <Enter> {puts “entrei em %W”}

• proc mouse {x y} { puts “mouse nas coordenadas %x %y” } bind all <B1-Motion> {mouse %x %y}

• exercício 1: crie uma GUI (interface gráfica) com um widget canvas .c e adicione os seguintes bindings: bind .c <1> {set it [%W create line %x %y %x %y]} bind .c <B1-Motion> { %W coords $it [concat [%W coords $it] %x %y]} Agora, risque e rabisque! Como fazer para modificar cor e largura do traço?

• exercício 2: crie uma GUI (interface gráfica) com um text widget que mostre os eventos de mouse, teclas, etc, ocorridos nesse widget.