From 06c8f7563e694d59dd522bb9eff96c9bedf47519 Mon Sep 17 00:00:00 2001
From: Gabor de Mooij <gabordemooij@gaborsoftware.nl>
Date: Sat, 22 Jun 2024 16:13:52 +0200
Subject: [PATCH] Added support for mouse wheel in text areas.

---
 plugins/media/media.c | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/plugins/media/media.c b/plugins/media/media.c
index 683a96aa..9463d050 100644
--- a/plugins/media/media.c
+++ b/plugins/media/media.c
@@ -1332,6 +1332,15 @@ ctr_object* ctr_media_screen(ctr_object* myself, ctr_argument* argumentList) {
 					return myself;
 					}
 					break;
+				case SDL_MOUSEWHEEL:
+					if (focusObject) { //only for text areas
+						if (event.wheel.y>0) {
+							ctr_internal_media_keydown_up(NULL, NULL);
+						} else {
+							ctr_internal_media_keydown_down(NULL, NULL);
+						}
+					}
+					break;
 				case SDL_MOUSEMOTION:
 					if (CtrMediaSelectStart && focusImage) {
 							focusImage = ctr_internal_media_getfocusimage();