--- a/ScrollBar.st	Sat Nov 10 00:26:58 2018 +0100
+++ b/ScrollBar.st	Sat Nov 10 00:27:09 2018 +0100
@@ -1108,19 +1108,7 @@
 
 !ScrollBar methodsFor:'queries'!
 
-isMiniScroller
-    ^ false
-
-    "Created: 7.3.1997 / 16:20:12 / cg"
-!
-
-isScrolling
-    "true, if thumb is being moved (by user)"
-
-    ^ thumb isScrolling
-!
-
-preferredExtent
+computePreferredExtent
     "compute my extent from sub-components"
 
     <resource: #style (#name)>
@@ -1131,16 +1119,6 @@
      width1    "{ Class: SmallInteger }"
      width2    "{ Class: SmallInteger }" |
 
-    "/ If I have an explicit preferredExtent..
-    explicitExtent notNil ifTrue:[
-        ^ explicitExtent
-    ].
-
-    "/ If I have a cached preferredExtent value..
-    preferredExtent notNil ifTrue:[
-        ^ preferredExtent
-    ].
-
     "
      need fix - this is a kludge;
      the if should not be needed ...
@@ -1191,7 +1169,19 @@
     preferredExtent := w @ h.
     ^ preferredExtent
 
-    "Modified: / 28.4.1999 / 19:33:45 / cg"
+    "Created: / 09-11-2018 / 19:59:50 / Claus Gittinger"
+!
+
+isMiniScroller
+    ^ false
+
+    "Created: 7.3.1997 / 16:20:12 / cg"
+!
+
+isScrolling
+    "true, if thumb is being moved (by user)"
+
+    ^ thumb isScrolling
 ! !
 
 !ScrollBar class methodsFor:'documentation'!