--- a/Scroller.st Tue Apr 24 07:55:29 2018 +0200
+++ b/Scroller.st Tue Apr 24 10:43:01 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -2717,6 +2719,7 @@
|percent total contentsPosition|
scrolling ifTrue:[self invalidate].
+ aView isNil ifTrue:[^ self].
(orientation == #vertical) ifTrue:[
total := aView heightOfContents.
@@ -2737,6 +2740,8 @@
percent := contentsPosition * 100.0 / total
].
self thumbOrigin:percent.
+
+ "Modified: / 24-04-2018 / 10:39:36 / sr"
! !
!Scroller methodsFor:'queries'!