Merge branch 'aqua-ctxbut' of github.com:ZhongRuoyu/gitk

* 'aqua-ctxbut' of github.com:ZhongRuoyu/gitk:
  gitk: use <Button-3> for ctx menus on macOS with Tcl 8.7+

Signed-off-by: Johannes Sixt <j6t@kdbg.org>

1 files changed, 1 insertions, 1 deletions

diff --git a/gitk b/gitk
index 3b6acfc592..2e1b629d7d 100755
--- a/gitk
+++ b/gitk
@@ -12596,7 +12596,7 @@ set foundbgcolor yellow
 set currentsearchhitbgcolor orange
 
 # button for popping up context menus
-if {[tk windowingsystem] eq "aqua"} {
+if {[tk windowingsystem] eq "aqua" && [package vcompare $::tcl_version 8.7] < 0} {
     set ctxbut <Button-2>
 } else {
     set ctxbut <Button-3>