--- a/MenuPanel.st	Mon Jun 17 16:26:40 2013 +0200
+++ b/MenuPanel.st	Mon Jun 17 16:27:54 2013 +0200
@@ -1999,12 +1999,6 @@
     ^ items notEmptyOrNil
 !
 
-isEmpty
-    "return true, if I have no items"
-
-    ^ items isEmptyOrNil
-!
-
 itemAt:stringOrNumber do:aOneArgBlock
     "evaluate the block for an item and return the result from the block. In case that
      the item does not exist nil is returned"
@@ -6861,7 +6855,7 @@
     ].
     self setupSubmenu.
     subMenu isNil ifTrue:[^ self].
-    subMenu isEmpty ifTrue:[^ self].
+    subMenu hasItems ifFalse:[^ self].
     subMenuBeforeOpening := subMenu.
     self openSubmenu.
 
@@ -8684,11 +8678,11 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.559 2013-06-17 14:26:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.560 2013-06-17 14:27:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.559 2013-06-17 14:26:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.560 2013-06-17 14:27:54 cg Exp $'
 ! !