# Bind chapter
# Hierarchy example
catch {destroy .one .two}
frame .one -width 30 -height 30
frame .two -width 30 -height 30
bind all <Control-c> {destroy %W}
bind all <Enter> {focus %W}
bind Frame <Enter> {%W config -bg red}
bind Frame <Leave> {%W config -bg white}
bind .two <Any-Button> {puts "Button %b at %x %y"}
pack .one .two -side left
