--- a/Menu.st	Tue Jul 08 15:24:05 2014 +0200
+++ b/Menu.st	Tue Jul 08 16:38:32 2014 +0200
@@ -200,12 +200,9 @@
     ].
 
     1 to:labelArray size do:[:idx |
-        |item|
-
-        item := MenuItem new.
-        item label:(labelArray at:idx).
-        item itemValue:(selections at:idx).
-        self addItem:item.
+        self addItem:(MenuItem 
+                        label:(labelArray at:idx)
+                        itemValue:(selections at:idx)).
 
         (lines includes:idx) ifTrue:[
             self addSeparator.
@@ -1303,6 +1300,6 @@
 !Menu class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.92 2014-05-23 07:19:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.93 2014-07-08 14:38:32 cg Exp $'
 ! !