# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1364895135 -7200
# Node ID e677aae984be8450ef0771586ff9a2353799d659
# Parent  b9bd0aa9631acf87f30aa1fabe14042aaea211d2
Refactoring:
    replace asSet copy by asNewSet (same for IdentitySet)
    replace (xxx collect:[]) asSet by (xxx collect:[] as:Set)
    replace (xxx select:[]) asSet by (xxx select:[] as:Set)

diff -r b9bd0aa9631a -r e677aae984be DoWhatIMeanSupport.st
--- a/DoWhatIMeanSupport.st	Wed Mar 27 16:54:20 2013 +0100
+++ b/DoWhatIMeanSupport.st	Tue Apr 02 11:32:15 2013 +0200
@@ -755,14 +755,14 @@
         implementors size > 50 ifTrue:[
             implementors := implementors asOrderedCollection copyTo:50.
         ].
-        namesUsed := (implementors 
+        namesUsed := implementors 
                         collect:[:eachImplementor |
                             |parseTree|
                             parseTree := eachImplementor parseTree.
                             (parseTree notNil and:[parseTree arguments size > 0]) 
                                 ifFalse:nil
                                 ifTrue:[ (parseTree arguments at:argIdx) name] ]
-                        thenSelect:[:a | a notNil]) asSet.  
+                        thenSelect:[:a | a notNil] as:Set.  
 
         addWithFactorBlock value:namesUsed value:(2 * localFactor).
 
@@ -2291,5 +2291,6 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.96 2012-10-24 17:24:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.97 2013-04-02 09:32:15 stefan Exp $'
 ! !
+