--- a/TopView.st	Sun Oct 26 21:09:55 2008 +0100
+++ b/TopView.st	Sun Oct 26 21:16:01 2008 +0100
@@ -961,8 +961,12 @@
      however many subclasses redefine this to compute the actual value
      depending on the sizes of the contents or subcomponents."
 
-    "/ 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
     ].
@@ -1348,7 +1352,7 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.122 2008-07-12 15:23:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.123 2008-10-26 20:16:01 stefan Exp $'
 ! !
 
 TopView initialize!