From 353d1825d5a3a6efb1c3c71d9afbb96ba57cc948 Mon Sep 17 00:00:00 2001
From: nicm <nicm>
Date: Thu, 8 May 2014 07:59:16 +0000
Subject: Send up and down keys for mouse wheel in alternate screen mode (when
 it normally does nothing), from Marcel Partap.

---
 input-keys.c | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'input-keys.c')

diff --git a/input-keys.c b/input-keys.c
index 6e21cc0c..24566dfd 100644
--- a/input-keys.c
+++ b/input-keys.c
@@ -205,6 +205,21 @@ input_mouse(struct window_pane *wp, struct session *s, struct mouse_event *m)
 	char			 buf[40];
 	size_t			 len;
 	struct paste_buffer	*pb;
+	u_int			 i;
+
+	/*
+	 * If the alternate screen is active and hasn't enabled the mouse, send
+	 * up and down key presses for the mouse wheel.
+	 */
+	if (wp->saved_grid != NULL && !(wp->screen->mode & ALL_MOUSE_MODES)) {
+		for (i = 0; i < m->scroll; i++) {
+			if (m->wheel == MOUSE_WHEEL_UP)
+				input_key(wp, KEYC_UP);
+			else
+				input_key(wp, KEYC_DOWN);
+		}
+		return;
+	}
 
 	if (wp->screen->mode & ALL_MOUSE_MODES) {
 		/*
-- 
cgit v1.2.3