# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1051689102 -7200
# Node ID b55ccdd158857ad56f41b7fb419dd7fad3cea999
# Parent  f6b3270f30d166bc13d4b90cbecea35f57463cbc
itemGroup fix

diff -r f6b3270f30d1 -r b55ccdd15885 Menu.st
--- a/Menu.st	Tue Apr 29 16:26:55 2003 +0200
+++ b/Menu.st	Wed Apr 30 09:51:42 2003 +0200
@@ -505,16 +505,16 @@
     self addItem:aMenuItem.
 !
 
-addItemGroup:aCollectionOfItems
+addItemGroup:aGroup
     "add a group of items at the end;
      useful to build a menu programmatically (or, to add more items dynamically)"
 
     groupSizes isNil ifTrue:[
-        groupSizes := OrderedCollection new
+        groupSizes := OrderedCollection with:items size.
     ].
-    groupSizes add:aCollectionOfItems size.
+    groupSizes add:aGroup size.
 
-    aCollectionOfItems do:[:item |
+    aGroup do:[:item |
         self addItem:item
     ].
 
@@ -526,14 +526,10 @@
     "add a group of items at the end;
      useful to build a menu programmatically (or, to add more items dynamically)"
 
-    groupSizes isNil ifTrue:[
-        groupSizes := OrderedCollection new
+    aGroup with:values do:[:item :value |
+        item value:value
     ].
-    groupSizes add:items size.
-
-    aGroup with:values do:[:item :value |
-        self addItem:item value:value
-    ].
+    self addItemGroup:aGroup
 
     "Modified: / 4.8.1998 / 17:32:18 / cg"
 !
@@ -1033,5 +1029,5 @@
 !Menu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.54 2002-10-26 15:52:10 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.55 2003-04-30 07:51:42 cg Exp $'
 ! !