# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1285947665 -7200
# Node ID dac473a7fcdff774e7f267499415f41bc9aed456
# Parent  06bae3d05b783168fb6f901a1e03232729675332
Avoid slow Array grow operation

diff -r 06bae3d05b78 -r dac473a7fcdf MenuEditor.st
--- a/MenuEditor.st	Mon Sep 20 13:33:51 2010 +0200
+++ b/MenuEditor.st	Fri Oct 01 17:41:05 2010 +0200
@@ -5360,8 +5360,9 @@
         list := MenuEditor imageRetrieverClasses asList.
         builder aspectAt:#retrieverList put:list.
     ].
-    (masterApplication notNil and:[ (cls := masterApplication specClass) notNil]) ifTrue:[
-        ^ (Array with:cls),list
+    (masterApplication notNil 
+     and:[(cls := masterApplication specClass) notNil]) ifTrue:[
+        list := list copyWithFirst:cls.
     ].
     ^ list
 !