# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1256135274 -7200
# Node ID 400f94b251d2ccb57c3c0268a9eebbd65561297b
# Parent  12dc99eb171786f242a097661ea6891781fe260e
preferredExtent code cleanup

diff -r 12dc99eb1717 -r 400f94b251d2 PopUpList.st
--- 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 $'
 ! !