--- a/Menu.st	Thu Mar 06 01:32:24 1997 +0100
+++ b/Menu.st	Thu Mar 06 15:16:03 1997 +0100
@@ -108,6 +108,12 @@
     "Modified: 25.2.1997 / 21:03:33 / cg"
 !
 
+numberOfItems
+    ^ items size
+
+    "Created: 6.3.1997 / 15:15:53 / cg"
+!
+
 valueAt:index
     "return a collection of values from my items"
 
@@ -116,6 +122,14 @@
     "Created: 25.2.1997 / 19:49:41 / cg"
 !
 
+valueAt:anIndex put:aValue
+    "put value an an index"
+
+    (items at:anIndex) value:aValue
+
+    "Created: 6.3.1997 / 15:15:48 / cg"
+!
+
 values
     "return a collection of values from my items"
 
@@ -326,5 +340,5 @@
 !Menu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.6 1997-03-05 16:06:25 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.7 1997-03-06 14:16:03 cg Exp $'
 ! !