--- a/Menu.st	Thu Sep 23 10:56:12 2004 +0200
+++ b/Menu.st	Thu Sep 30 14:35:00 2004 +0200
@@ -129,8 +129,7 @@
     |labels lines|
 
     lines := arrayOfGroupStrings collect:[:each | each size].
-    labels := OrderedCollection new.
-    arrayOfGroupStrings do:[:group | labels addAll:group].
+    labels := arrayOfGroupStrings collectAll:[:eachGroup | eachGroup].
     ^ self labelArray:labels lines:lines values:valueArrayOrNil
 
     "Modified: 20.6.1997 / 10:46:45 / cg"
@@ -1072,5 +1071,5 @@
 !Menu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.58 2004-06-04 12:37:52 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.59 2004-09-30 12:35:00 cg Exp $'
 ! !