--- a/Scroller.st	Tue Jun 12 11:20:31 2018 +0200
+++ b/Scroller.st	Wed Jun 13 22:57:36 2018 +0200
@@ -2093,10 +2093,13 @@
 !
 
 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:10 / Claus Gittinger"
 !
 
 scrollStep:delta
@@ -2134,10 +2137,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:47 / Claus Gittinger"
 ! !
 
 !Scroller methodsFor:'forwarding changed origin'!