--- a/MenuView.st	Sat Nov 10 00:28:55 2018 +0100
+++ b/MenuView.st	Sat Nov 10 00:30:11 2018 +0100
@@ -1438,14 +1438,15 @@
              normalFont/boldFont/italicFont parameters."
 
     super font:aFont.
-    preferredExtent := nil.
+    self flushCachedPreferredExtent.
     shown ifTrue:[
         self resize
     ] ifFalse:[
         needResize := true
     ]
 
-    "Modified: 22.5.1996 / 12:36:37 / cg"
+    "Modified: / 22-05-1996 / 12:36:37 / cg"
+    "Modified: / 09-11-2018 / 20:17:00 / Claus Gittinger"
 ! !
 
 !MenuView methodsFor:'accessing-misc'!
@@ -2535,21 +2536,11 @@
 
 !MenuView methodsFor:'queries'!
 
-preferredExtent 
+computePreferredExtent 
     "compute & return my preferredExtent from labels width's"
 
     |margin2 w h extra|
 
-    "/ If I have an explicit preferredExtent..
-    explicitExtent notNil ifTrue:[
-        ^ explicitExtent
-    ].
-
-    "/ If I have a cached preferredExtent value..
-    preferredExtent notNil ifTrue:[
-        ^ preferredExtent
-    ].
-
     widthOfWidestLine := nil.  "/ i.e. unknown
 
     margin2 := margin * 2.
@@ -2569,7 +2560,7 @@
     ].
     ^ ((w+extra) @ h).
 
-    "Modified: 23.1.1997 / 02:36:17 / cg"
+    "Created: / 09-11-2018 / 19:57:01 / Claus Gittinger"
 !
 
 selectedItemHasSubmenu