From: nicm <nicm@openbsd.org>
Date: Thu, 8 May 2014 07:59:16 +0000 (+0000)
Subject: Send up and down keys for mouse wheel in alternate screen mode (when it
X-Git-Url: http://artulab.com/gitweb/?a=commitdiff_plain;h=1b3188008850094f21b3df8f6042ebf042fd0714;p=openbsd

Send up and down keys for mouse wheel in alternate screen mode (when it
normally does nothing), from Marcel Partap.
---

diff --git a/usr.bin/tmux/input-keys.c b/usr.bin/tmux/input-keys.c
index 4362dcad3ba..307e970e459 100644
--- a/usr.bin/tmux/input-keys.c
+++ b/usr.bin/tmux/input-keys.c
@@ -1,4 +1,4 @@
-/* $OpenBSD: input-keys.c,v 1.36 2014/04/24 09:14:43 nicm Exp $ */
+/* $OpenBSD: input-keys.c,v 1.37 2014/05/08 07:59:16 nicm Exp $ */
 
 /*
  * Copyright (c) 2007 Nicholas Marriott <nicm@users.sourceforge.net>
@@ -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) {
 		/*