--- a/MenuView.st	Fri Jul 13 11:07:51 2018 +0200
+++ b/MenuView.st	Fri Jul 13 11:10:21 2018 +0200
@@ -1200,13 +1200,16 @@
     "for menuPanel compatibility: return a list of menu items"
 
     ^ (1 to:list size) 
-        collect:[:each |
+        collect:[:idx |
             |item|
             item := MenuItem new.
+            item label:(list at:idx).
+            item enabled:(self isEnabled:idx).
             item.
         ].
 
     "Created: / 12-07-2018 / 21:42:39 / Claus Gittinger"
+    "Modified: / 13-07-2018 / 11:10:16 / Claus Gittinger"
 !
 
 labelAt:indexOrName put:aString