Refactoring:
authorStefan Vogel <sv@exept.de>
Tue, 02 Apr 2013 11:34:09 +0200
changeset 6036 d1969789036e
parent 6035 1fdbf48d1ca3
child 6037 eea2343b0b1e
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)
Depth8Image.st
--- a/Depth8Image.st	Tue Apr 02 11:32:22 2013 +0200
+++ b/Depth8Image.st	Tue Apr 02 11:34:09 2013 +0200
@@ -375,8 +375,7 @@
                                                         ifFalse:[clr nearestOn:aDevice]].
             dColors := dColors select:[:clr | clr notNil].
             dColors := dColors collect:[:clr | clr exactOn:aDevice].
-            dColors := dColors select:[:clr | clr notNil].
-            dColors := dColors asSet.
+            dColors := dColors select:[:clr | clr notNil] as:Set.
             dColors addAll:((aDevice colorMap collect:[:c|c onDevice:aDevice])
                             select:[:c | c colorId notNil]).
             ditherColors := aDevice availableDitherColors.
@@ -2455,9 +2454,10 @@
 !Depth8Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Depth8Image.st,v 1.117 2012-02-27 12:46:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth8Image.st,v 1.118 2013-04-02 09:34:09 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/Depth8Image.st,v 1.117 2012-02-27 12:46:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth8Image.st,v 1.118 2013-04-02 09:34:09 stefan Exp $'
 ! !
+