--- a/MenuView.st	Thu Feb 12 16:01:06 2004 +0100
+++ b/MenuView.st	Thu Feb 12 16:01:23 2004 +0100
@@ -518,6 +518,14 @@
     "Created: 5.7.1996 / 11:33:09 / cg"
 !
 
+addItemList:list after:itemNameOrSelector
+    self 
+        addLabels:(list collect:[:row | row at:1])
+        selectors:(list collect:[:row | row at:2 ifAbsent:nil])
+        accelerators:(list collect:[:row | row at:3 ifAbsent:nil])
+        after:itemNameOrSelector
+!
+
 addLabel:aLabel selector:aSelector
     "add another label/selector pair at the end"
 
@@ -2775,5 +2783,5 @@
 !MenuView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.141 2003-10-08 15:35:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.142 2004-02-12 15:01:23 cg Exp $'
 ! !