--- a/ScrollableView.st	Thu Jul 18 15:07:31 2019 +0200
+++ b/ScrollableView.st	Fri Jul 19 10:49:19 2019 +0200
@@ -2354,7 +2354,10 @@
 !
 
 respondsTo:aSelector
-    scrolledView notNil ifTrue:[
+    "return true, if the receiver responds to a message.
+     Possibly delegated to my scrolled view"
+
+     scrolledView notNil ifTrue:[
         (scrolledView respondsTo:aSelector) ifTrue:[^ true].
     ].
     ^ super respondsTo:aSelector.
@@ -2362,6 +2365,8 @@
     "
         self new respondsTo:#isScrolling
     "
+
+    "Modified (comment): / 19-07-2019 / 10:49:01 / Claus Gittinger"
 !
 
 specClass