Scroller.st
changeset 6311 c7610420a3ae
parent 6102 14d35f3b317c
child 6337 2b13966b73f3
--- 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'!