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/Depth24Image.st Thu Mar 28 11:32:58 2013 +0100
+++ b/Depth24Image.st Tue Apr 02 11:32:22 2013 +0200
@@ -962,15 +962,14 @@
"/ dither using those we got ...
"/
DitherAlgorithm == #floydSteinberg ifTrue:[
- colors := colors asSet.
+ colors := colors asNewSet.
"/ ditherColors := aDevice availableDitherColors.
"/ ditherColors notNil ifTrue:[
"/ colors addAll:ditherColors.
"/ ].
"/ colors addAll:aDevice deviceColors.
colors addAll:(aDevice colorMap collect:[:c|c onDevice:aDevice]).
- colors := colors select:[:c | c colorId notNil].
- colors := colors asArray.
+ colors := colors select:[:c | c colorId notNil] as:Array.
colors size > 256 ifTrue:[
colors := colors copyTo:256
].
@@ -3113,9 +3112,10 @@
!Depth24Image class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.93 2011-12-30 11:54:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.94 2013-04-02 09:32:22 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.93 2011-12-30 11:54:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.94 2013-04-02 09:32:22 stefan Exp $'
! !
+