--- a/MenuPanel.st	Sun Aug 15 09:34:03 2010 +0200
+++ b/MenuPanel.st	Tue Aug 17 10:47:53 2010 +0200
@@ -5653,7 +5653,7 @@
     ].
 
     myFont := self font.
-    myFont isNil ifTrue:[ myFont := menuPanel font ].
+    myFont isNil ifTrue:[ self font:(myFont := menuPanel font) ].
     myFont := myFont onDevice:menuPanel device.
 
     prevFont := menuPanel setFont:myFont.
@@ -5689,6 +5689,8 @@
     ].
     displayLabelExtent := w@h.
     ^ displayLabelExtent
+
+    "Modified: / 17-08-2010 / 10:46:06 / cg"
 !
 
 font
@@ -8270,11 +8272,11 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.504 2010-08-05 18:56:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.505 2010-08-17 08:47:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.504 2010-08-05 18:56:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.505 2010-08-17 08:47:53 cg Exp $'
 ! !
 
 MenuPanel initialize!