From 2d70c5b59d6c9db15dab2a0e09e6a14cf3f414ee Mon Sep 17 00:00:00 2001
From: Sanjay Madan <sanjayma@gmail.com>
Date: Sun, 17 Jan 2021 22:34:54 -0800
Subject: [PATCH] Scroll wheel scrolls tabs horizontally

---
 src/MacVim/MMTabline/MMTabline.m | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/src/MacVim/MMTabline/MMTabline.m b/src/MacVim/MMTabline/MMTabline.m
index 0aeca9e47b..e8e3a82d75 100644
--- a/src/MacVim/MMTabline/MMTabline.m
+++ b/src/MacVim/MMTabline/MMTabline.m
@@ -38,6 +38,7 @@ @implementation MMTabline
     NSInteger _finalDraggedTabIndex;
     MMHoverButton *_leftScrollButton;
     MMHoverButton *_rightScrollButton;
+    id _scrollWheelEventMonitor;
 }
 
 - (instancetype)initWithFrame:(NSRect)frameRect
@@ -78,6 +79,30 @@ - (instancetype)initWithFrame:(NSRect)frameRect
         [self addConstraint:_addTabButtonTrailingConstraint];
         
         [[NSNotificationCenter defaultCenter] addObserver:self selector:@selector(didScroll:) name:NSViewBoundsDidChangeNotification object:_scrollView.contentView];
+
+        // Monitor for scroll wheel events so we can scroll the tabline
+        // horizontally without the user having to hold down SHIFT.
+        _scrollWheelEventMonitor = [NSEvent addLocalMonitorForEventsMatchingMask:NSEventMaskScrollWheel handler:^NSEvent * _Nullable(NSEvent * _Nonnull event) {
+            NSPoint location = [_scrollView convertPoint:event.locationInWindow fromView:nil];
+            // We want events:
+            //   where the mouse is over the _scrollView
+            //   and where the user is not modifying it with the SHIFT key
+            //   and initiated by the scroll wheel and not the trackpad
+            if ([_scrollView mouse:location inRect:_scrollView.bounds]
+                && !event.modifierFlags
+                && !event.hasPreciseScrollingDeltas)
+            {
+                // Create a new scroll wheel event based on the original,
+                // but set the new deltaX to the original's deltaY.
+                // stackoverflow.com/a/38991946/111418
+                CGEventRef cgEvent = CGEventCreateCopy(event.CGEvent);
+                CGEventSetIntegerValueField(cgEvent, kCGScrollWheelEventDeltaAxis2, event.scrollingDeltaY);
+                NSEvent *newEvent = [NSEvent eventWithCGEvent:cgEvent];
+                CFRelease(cgEvent);
+                return newEvent;
+            }
+            return event;
+        }];
     }
     return self;
 }