--- a/Menu.st	Sat Jan 17 18:06:23 1998 +0100
+++ b/Menu.st	Mon Jan 19 09:25:15 1998 +0100
@@ -130,6 +130,13 @@
     items add:aMenuItem.
 !
 
+addItem:aMenuItem beforeIndex:anIndex
+    items isNil ifTrue:[
+        items := OrderedCollection new
+    ].
+    items add:aMenuItem beforeIndex:anIndex.
+!
+
 addItem:aMenuItem value:aValue
     aMenuItem value:aValue.
     self addItem:aMenuItem.
@@ -734,5 +741,5 @@
 !Menu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.24 1997-11-15 14:22:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.25 1998-01-19 08:25:15 ca Exp $'
 ! !