Import Tk 8.6.12

tests/arc.tcl

@@ -64,7 +64,7 @@ set outline black
 }
 .t.c bind arc <Any-Leave> {.t.c itemconf current -fill $prevFill -outline $prevOutline}
 
-bind .t.c <1> {markarea %x %y}
+bind .t.c <Button-1> {markarea %x %y}
 bind .t.c <B1-Motion> {strokearea %x %y}
 
 proc markarea {x y} {
@@ -93,7 +93,7 @@ bind .t.c <3> {puts stdout "%x %y"}
 
 # The code below allows the circle to be move by shift-dragging.
 
-bind .t.c <Shift-1> {
+bind .t.c <Shift-Button-1> {
     set curx %x
     set cury %y
 }