From 54bd6b90fe1826ab5b15ea08ccf2ffda72899ee3 Mon Sep 17 00:00:00 2001
From: feos <feos-theos@yandex.ru>
Date: Mon, 22 Aug 2016 19:39:05 +0300
Subject: [PATCH] tastudio: < and > buttons behave as mouse wheel when seeking

---
 .../tools/TAStudio/PlaybackBox.cs             | 26 +++++++++++++++++--
 .../TAStudio/TAStudio.IControlMainForm.cs     | 16 +++++++++++-
 2 files changed, 39 insertions(+), 3 deletions(-)

diff --git a/BizHawk.Client.EmuHawk/tools/TAStudio/PlaybackBox.cs b/BizHawk.Client.EmuHawk/tools/TAStudio/PlaybackBox.cs
index ecffc3d613..915484a313 100644
--- a/BizHawk.Client.EmuHawk/tools/TAStudio/PlaybackBox.cs
+++ b/BizHawk.Client.EmuHawk/tools/TAStudio/PlaybackBox.cs
@@ -117,7 +117,21 @@ namespace BizHawk.Client.EmuHawk
 
 		private void RewindButton_Click(object sender, EventArgs e)
 		{
-			Tastudio.GoToPreviousFrame();
+			if (GlobalWin.MainForm.IsSeeking)
+			{
+				GlobalWin.MainForm.PauseOnFrame--;
+				if (Global.Emulator.Frame == GlobalWin.MainForm.PauseOnFrame)
+				{
+					GlobalWin.MainForm.PauseEmulator();
+					GlobalWin.MainForm.PauseOnFrame = null;
+					Tastudio.StopSeeking();
+				}
+				Tastudio.RefreshDialog();
+			}
+			else
+			{
+				Tastudio.GoToPreviousFrame();
+			}
 		}
 
 		private void PauseButton_Click(object sender, EventArgs e)
@@ -129,7 +143,15 @@ namespace BizHawk.Client.EmuHawk
 
 		private void FrameAdvanceButton_Click(object sender, EventArgs e)
 		{
-			Tastudio.GoToNextFrame();
+			if (GlobalWin.MainForm.IsSeeking)
+			{
+				GlobalWin.MainForm.PauseOnFrame++;
+				Tastudio.RefreshDialog();
+			}
+			else
+			{
+				Tastudio.GoToNextFrame();
+			}
 		}
 
 		private void NextMarkerButton_Click(object sender, EventArgs e)
diff --git a/BizHawk.Client.EmuHawk/tools/TAStudio/TAStudio.IControlMainForm.cs b/BizHawk.Client.EmuHawk/tools/TAStudio/TAStudio.IControlMainForm.cs
index 379e61b100..0b0605edb3 100644
--- a/BizHawk.Client.EmuHawk/tools/TAStudio/TAStudio.IControlMainForm.cs
+++ b/BizHawk.Client.EmuHawk/tools/TAStudio/TAStudio.IControlMainForm.cs
@@ -78,7 +78,21 @@ namespace BizHawk.Client.EmuHawk
 
 		public bool Rewind()
 		{
-			GoToPreviousFrame(); // todo: behave as normal rewind in differentiating between hitting rewind once and holding it.
+			//if (GlobalWin.MainForm.IsSeeking)
+			//{
+			//	GlobalWin.MainForm.PauseOnFrame--;
+			//	if (Emulator.Frame == GlobalWin.MainForm.PauseOnFrame)
+			//	{
+			//		GlobalWin.MainForm.PauseEmulator();
+			//		GlobalWin.MainForm.PauseOnFrame = null;
+			//		StopSeeking();
+			//	}
+			//	RefreshDialog();
+			//}
+			//else
+			//{
+				GoToPreviousFrame();
+			//}
 			return true;
 		}