Menu.st
changeset 3022 ce344185f4f4
parent 2967 c50ab5fa6cf0
child 3028 29a0a22942fe
--- a/Menu.st	Wed Aug 22 22:05:32 2012 +0200
+++ b/Menu.st	Sun Sep 09 15:10:32 2012 +0200
@@ -204,13 +204,15 @@
 
         item := MenuItem new.
         item label:(labelArray at:idx).
-        item value:(selections at:idx).
+        item itemValue:(selections at:idx).
         self addItem:item.
 
         (lines includes:idx) ifTrue:[
             self addSeparator.
         ].
     ].
+
+    "Modified: / 09-09-2012 / 13:08:55 / cg"
 ! !
 
 !Menu methodsFor:'accessing'!
@@ -621,8 +623,10 @@
 !
 
 addItem:aMenuItem value:aValue
-    aMenuItem value:aValue.
+    aMenuItem itemValue:aValue.
     self addItem:aMenuItem.
+
+    "Modified: / 09-09-2012 / 13:08:50 / cg"
 !
 
 addItemGroup:aGroup
@@ -1250,5 +1254,5 @@
 !Menu class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.83 2011-10-12 21:03:59 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.84 2012-09-09 13:10:32 cg Exp $'
 ! !