--- a/MenuPanel.st	Wed Jun 08 14:52:46 2005 +0200
+++ b/MenuPanel.st	Mon Jun 13 20:10:02 2005 +0200
@@ -5325,7 +5325,8 @@
             widget := SimpleView new.
             widget client:aSubMenu.
         ] ifTrue:[
-            widget := aSubMenu
+            widget := aSubMenu.
+            subMenu perform:#superMenu: with:menuPanel ifNotUnderstood:[].
         ].
 
         (widget isKindOf:MenuPanel) ifTrue:[
@@ -6145,6 +6146,10 @@
     ^ menuItem
 !
 
+menuItem
+    ^ menuItem
+!
+
 menuItem:aMenuItem
     "setup attributes from a MenuItem
     "
@@ -7586,7 +7591,7 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.409 2005-06-08 12:52:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.410 2005-06-13 18:10:02 cg Exp $'
 ! !
 
 MenuPanel initialize!