From 5f715cdb82eb9359f525faddad8ca97c8831378f Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 31 May 2021 13:20:38 +0000
Subject: Remove comment which is not true any more. Some more formatting

---
 generic/ttk/ttkGenStubs.tcl | 2 +-
 library/ttk/scrollbar.tcl   | 2 --
 tests/arc.tcl               | 4 ++--
 3 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/generic/ttk/ttkGenStubs.tcl b/generic/ttk/ttkGenStubs.tcl
index 82704b3..af8a2a5 100644
--- a/generic/ttk/ttkGenStubs.tcl
+++ b/generic/ttk/ttkGenStubs.tcl
@@ -689,7 +689,7 @@ proc genStubs::makeInit {name decl index} {
 #			have the interface name, the declaration,  and
 #			the index appended.
 #	guardProc	The proc to invoke to add guards.  It will have
-#		        the slot status and text appended.
+#			the slot status and text appended.
 #	textVar		The variable to use for output.
 #	skipString	The string to emit if a slot is skipped.  This
 #			string will be subst'ed in the loop so "$i" can
diff --git a/library/ttk/scrollbar.tcl b/library/ttk/scrollbar.tcl
index 1213450..8be9887 100644
--- a/library/ttk/scrollbar.tcl
+++ b/library/ttk/scrollbar.tcl
@@ -29,8 +29,6 @@ switch [tk windowingsystem] {
     x11 {
         lappend eventList <Button-4> <Button-5> \
                 <Shift-Button-4> <Shift-Button-5>
-        # For tk 8.7, the event list will be extended by
-        # <Button-6> <Button-7>
     }
 }
 foreach event $eventList {
diff --git a/tests/arc.tcl b/tests/arc.tcl
index 0126c7d..89b9f58 100644
--- a/tests/arc.tcl
+++ b/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
 }
-- 
cgit v0.12