--- 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 $'
! !