--- a/ThumbWheel.st	Wed Jun 13 22:57:09 2018 +0200
+++ b/ThumbWheel.st	Wed Jun 13 22:58:01 2018 +0200
@@ -667,10 +667,13 @@
 !ThumbWheel methodsFor:'forced scroll'!
 
 scrollDown:amountToScroll
-    "compatibility with SimpleView. This allows mouse wheel actions on Scrollers
+    "compatibility with SimpleView. 
+     This allows mouse wheel actions on Scrollers & Wheels
      Note: this is used for horizontal scrollers, too (scrollRight)"
 
     self scrollStep:amountToScroll
+
+    "Modified (comment): / 13-06-2018 / 21:59:00 / Claus Gittinger"
 !
 
 scrollStep:delta
@@ -690,10 +693,13 @@
 !
 
 scrollUp:amountToScroll
-    "compatibility with SimpleView. This allows mouse wheel actions on Scrollers
+    "compatibility with SimpleView. 
+     This allows mouse wheel actions on Scrollers & Wheels
      Note: this is used for horizontal scrollers, too (scrollLeft)"
 
     self scrollStep:amountToScroll negated
+
+    "Modified (comment): / 13-06-2018 / 21:58:52 / Claus Gittinger"
 ! !
 
 !ThumbWheel methodsFor:'initialization'!