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