From 4e3a9b25ea249e6cd2efc9717dcfaaa5e58df4f7 Mon Sep 17 00:00:00 2001
From: Paul Gilbert
Date: Wed, 16 Nov 2016 19:21:25 -0500
Subject: TITANIC: Implement mouse scrolling for PET Remote

---
 engines/titanic/pet_control/pet_remote.cpp | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'engines/titanic/pet_control/pet_remote.cpp')

diff --git a/engines/titanic/pet_control/pet_remote.cpp b/engines/titanic/pet_control/pet_remote.cpp
index 46af55c4d3..f80403c573 100644
--- a/engines/titanic/pet_control/pet_remote.cpp
+++ b/engines/titanic/pet_control/pet_remote.cpp
@@ -161,6 +161,15 @@ bool CPetRemote::VirtualKeyCharMsg(CVirtualKeyCharMsg *msg) {
 	return _items.VirtualKeyCharMsg(msg);
 }
 
+bool CPetRemote::MouseWheelMsg(CMouseWheelMsg *msg) {
+	if (msg->_wheelUp)
+		_items.scrollLeft();
+	else
+		_items.scrollRight();
+
+	return true;
+}
+
 bool CPetRemote::isValid(CPetControl *petControl) {
 	return setupControl(petControl);
 }
-- 
cgit v1.2.3