From 82a353e70aeeba1533e7ee5cea2b57273ef17681 Mon Sep 17 00:00:00 2001
From: Eugenio Parodi <ceccopierangiolieugenio@googlemail.com>
Date: Wed, 22 Feb 2023 16:18:16 +0000
Subject: [PATCH] Spinbox support for wheel event

---
 TermTk/TTkWidgets/spinbox.py | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/TermTk/TTkWidgets/spinbox.py b/TermTk/TTkWidgets/spinbox.py
index d6d810b1..e6dab2b6 100644
--- a/TermTk/TTkWidgets/spinbox.py
+++ b/TermTk/TTkWidgets/spinbox.py
@@ -75,6 +75,13 @@ class TTkSpinBox(TTkWidget):
         self.setValue(int(str(text)))
         self._lineEdit.setText(str(self._value))
 
+    def wheelEvent(self, evt):
+        if evt.evt == TTkK.WHEEL_Up:
+            self.setValue(self._value+1)
+        else:
+            self.setValue(self._value-1)
+        return TTkLineEdit.wheelEvent(self._lineEdit, evt)
+
     def keyEvent(self, evt):
         if evt.type == TTkK.SpecialKey:
             if evt.key == TTkK.Key_Up: