From d9c643167fd4351e86e825bd03d67919f9c743d1 Mon Sep 17 00:00:00 2001
From: Glenn Watson <gw@intuitionlibrary.com>
Date: Mon, 18 Jan 2016 10:21:55 +1000
Subject: [PATCH] Allow horizontal scrolling with left/right arrow keys.

---
 ports/glutin/window.rs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/ports/glutin/window.rs b/ports/glutin/window.rs
index 542ab5d4597..2052a77f2b1 100644
--- a/ports/glutin/window.rs
+++ b/ports/glutin/window.rs
@@ -702,6 +702,12 @@ impl WindowMethods for Window {
             (NONE, Key::Down) => {
                 self.scroll_window(0.0, -3.0 * LINE_HEIGHT);
             }
+            (NONE, Key::Left) => {
+                self.scroll_window(LINE_HEIGHT, 0.0);
+            }
+            (NONE, Key::Right) => {
+                self.scroll_window(-LINE_HEIGHT, 0.0);
+            }
 
             _ => {
                 self.platform_handle_key(key, mods);