--- a/PopUpList.st	Sun Oct 26 21:16:49 2008 +0100
+++ b/PopUpList.st	Sun Oct 26 21:16:59 2008 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libwidg' }"
 
 Button subclass:#PopUpList
@@ -1065,14 +1064,18 @@
 preferredExtent
     "redefined to make certain that the menu is fully defined"
 
-    "/ If I have an explicit preferredExtent ..
+    "/ If I have an explicit preferredExtent..
+    explicitExtent notNil ifTrue:[
+        ^ explicitExtent
+    ].
 
+    "/ If I have a cached preferredExtent value..
     preferredExtent notNil ifTrue:[
-	^ preferredExtent
+        ^ preferredExtent
     ].
 
     menu isNil ifTrue:[
-	self getListFromModel
+        self getListFromModel
     ].
     self computeLabelSize.
     ^ super preferredExtent.
@@ -1153,5 +1156,5 @@
 !PopUpList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.79 2005-12-21 11:40:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.80 2008-10-26 20:16:59 stefan Exp $'
 ! !