--- a/PopUpList.st	Wed Oct 21 16:24:34 2009 +0200
+++ b/PopUpList.st	Wed Oct 21 16:27:54 2009 +0200
@@ -1064,20 +1064,9 @@
 preferredExtent
     "redefined to make certain that the menu is fully defined"
 
-    "/ If I have an explicit preferredExtent..
-    explicitExtent notNil ifTrue:[
-        ^ explicitExtent
-    ].
-
-    "/ If I have a cached preferredExtent value..
-    preferredExtent notNil ifTrue:[
-        ^ preferredExtent
-    ].
-
     menu isNil ifTrue:[
         self getListFromModel
     ].
-    self computeLabelSize.
     ^ super preferredExtent.
 
     "Modified: 19.7.1996 / 20:45:16 / cg"
@@ -1156,9 +1145,9 @@
 !PopUpList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.81 2009-10-21 14:24:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.82 2009-10-21 14:27:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.81 2009-10-21 14:24:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.82 2009-10-21 14:27:54 cg Exp $'
 ! !