--- a/HorizontalSlider.st	Sat Nov 10 00:27:37 2018 +0100
+++ b/HorizontalSlider.st	Sat Nov 10 00:27:46 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
@@ -57,28 +59,18 @@
 
 !HorizontalSlider methodsFor:'queries'!
 
-preferredExtent
+computePreferredExtent
     "return the view's preferredExtent."
 
     |w h|
 
-    "/ If I have an explicit preferredExtent..
-    explicitExtent notNil ifTrue:[
-        ^ explicitExtent
-    ].
-
-    "/ If I have a cached preferredExtent value..
-    preferredExtent notNil ifTrue:[
-        ^ preferredExtent
-    ].
-
     w := self class defaultExtent x.
     h := (self verticalPixelPerMillimeter:6) rounded.
 
     preferredExtent := w @ h.
     ^ preferredExtent.
 
-    "Modified: 19.7.1996 / 20:44:30 / cg"
+    "Created: / 09-11-2018 / 19:55:19 / Claus Gittinger"
 ! !
 
 !HorizontalSlider class methodsFor:'documentation'!