diff --git a/gitk b/gitk
index dd36e4c1b9..bd57a55466 100755
--- a/gitk
+++ b/gitk
@@ -2735,14 +2735,8 @@ proc makewindow {} {
         set scroll_D0 1
         bind_mousewheel_buttons
     } elseif {[tk windowingsystem] == "aqua"} {
-        bindall <MouseWheel> {
-            set delta [expr {- (%D)}]
-            allcanvs yview scroll $delta units
-        }
-        bindall <Shift-MouseWheel> {
-            set delta [expr {- (%D)}]
-            $canv xview scroll $delta units
-        }
+        set scroll_D0 1
+        bind_mousewheel
     } else {
         puts stderr [mc "Unknown windowing system, cannot bind mouse"]
     }