(svn r15156) -Fix: add scrollwheel support to allegro

1 files changed, 7 insertions, 0 deletions

diff --git a/src/video/allegro_v.cpp b/src/video/allegro_v.cpp
index 455c991d2..e0509aa52 100644
--- a/src/video/allegro_v.cpp
+++ b/src/video/allegro_v.cpp
@@ -381,6 +381,13 @@ static void PollEvent()
 		mouse_action = true;
 	}
 
+	static int prev_mouse_z = 0;
+	if (prev_mouse_z != mouse_z) {
+		_cursor.wheel = (prev_mouse_z - mouse_z) < 0 ? -1 : 1;
+		prev_mouse_z = mouse_z;
+		mouse_action = true;
+	}
+
 	if (mouse_action) HandleMouseEvents();
 
 	poll_keyboard();