--- a/MenuView.st	Fri Jul 06 08:43:08 2018 +0200
+++ b/MenuView.st	Fri Jul 13 11:07:51 2018 +0200
@@ -1196,6 +1196,19 @@
     "Modified (comment): / 13-02-2017 / 20:26:50 / cg"
 !
 
+items
+    "for menuPanel compatibility: return a list of menu items"
+
+    ^ (1 to:list size) 
+        collect:[:each |
+            |item|
+            item := MenuItem new.
+            item.
+        ].
+
+    "Created: / 12-07-2018 / 21:42:39 / Claus Gittinger"
+!
+
 labelAt:indexOrName put:aString
     "change the label at index to be aString"