--- a/ListSelectionBox.st	Sat Nov 10 00:39:51 2018 +0100
+++ b/ListSelectionBox.st	Sat Nov 10 00:40:17 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1990 by Claus Gittinger
 	      All Rights Reserved
@@ -451,22 +453,12 @@
 
 !ListSelectionBox methodsFor:'queries'!
 
-preferredExtent
+computePreferredExtent
     "return my preferred extent 
      - that's the minimum size I like to have, to make everything visible"
 
     |wWanted hWanted eH mm bw|
 
-    "/ If I have an explicit preferredExtent..
-    explicitExtent notNil ifTrue:[
-        ^ explicitExtent
-    ].
-
-    "/ If I have a cached preferredExtent value..
-    preferredExtent notNil ifTrue:[
-        ^ preferredExtent
-    ].
-
     mm := ViewSpacing.
 
     wWanted := mm + labelField width + mm.
@@ -494,7 +486,7 @@
     ].
     ^ (wWanted @ hWanted)
 
-    "Modified: 19.7.1996 / 20:44:52 / cg"
+    "Created: / 09-11-2018 / 19:56:31 / Claus Gittinger"
 ! !
 
 !ListSelectionBox methodsFor:'user actions'!