From ade5cfa8e6e80f58a8786a01bb14f3f77a4ee4ae Mon Sep 17 00:00:00 2001
From: adelikat <adelikat@tasvideos.org>
Date: Wed, 22 Oct 2014 23:03:17 +0000
Subject: [PATCH] InputRoll - implement PageUp/PageDown logic

---
 .../tools/TAStudio/InputRoll.cs               | 23 +++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/BizHawk.Client.EmuHawk/tools/TAStudio/InputRoll.cs b/BizHawk.Client.EmuHawk/tools/TAStudio/InputRoll.cs
index 302023695a..cef878ce29 100644
--- a/BizHawk.Client.EmuHawk/tools/TAStudio/InputRoll.cs
+++ b/BizHawk.Client.EmuHawk/tools/TAStudio/InputRoll.cs
@@ -1429,6 +1429,29 @@ namespace BizHawk.Client.EmuHawk
 			{
 				HorizontalOrientation ^= true;
 			}
+			else if (!e.Control && !e.Alt && !e.Shift && e.KeyCode == Keys.PageUp) // Page Up
+			{
+				if (FirstVisibleRow > 0)
+				{
+					LastVisibleRow = FirstVisibleRow;
+					Refresh();
+				}
+			}
+			else if (!e.Control && !e.Alt && !e.Shift && e.KeyCode == Keys.PageDown) // Page Down
+			{
+				var totalRows = LastVisibleRow - FirstVisibleRow;
+				if (totalRows <= RowCount)
+				{
+					var final = LastVisibleRow + totalRows;
+					if (final > RowCount)
+					{
+						final = RowCount;
+					}
+
+					LastVisibleRow = final;
+					Refresh();
+				}
+			}
 
 			base.OnKeyDown(e);
 		}