tim Rowledge uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-tpr.511.mcz
==================== Summary ====================
Name: Collections-tpr.511 Author: tpr Time: 25 March 2013, 2:10:42.848 pm UUID: 028a2dce-fd27-49ab-adc5-933eb24e0bdb Ancestors: Collections-tpr.510
Remove BitBlt|WarpBlt>current usage - it's a vestige of an old experiment
=============== Diff against Collections-nice.509 ===============
Item was changed: ----- Method: PositionableStream>>nextWordsInto: (in category 'accessing') ----- nextWordsInto: aBitmap "Fill the word based buffer from my collection. Stored on stream as Big Endian. Optimized for speed. Read in BigEndian, then restoreEndianness." | blt pos source byteSize | collection class isBytes ifFalse: [^ self next: aBitmap size into: aBitmap startingAt: 1].
byteSize := aBitmap byteSize. "is the test on collection basicSize \ 4 necessary?" ((self position bitAnd: 3) = 0 and: [ (collection basicSize bitAnd: 3) = 0]) ifTrue: [source := collection. pos := self position. self skip: byteSize] ifFalse: ["forced to copy it into a buffer" source := self next: byteSize. pos := 0].
"Now use BitBlt to copy the bytes to the bitmap." + blt := (BitBlt - blt := (BitBlt current toForm: (Form new hackBits: aBitmap)) sourceForm: (Form new hackBits: source). blt combinationRule: Form over. "store" blt sourceX: 0; sourceY: pos // 4; height: byteSize // 4; width: 4. blt destX: 0; destY: 0. blt copyBits.
"And do whatever the bitmap needs to do to convert from big-endian order." aBitmap restoreEndianness.
^ aBitmap "May be WordArray, ColorArray, etc" !
squeak-dev@lists.squeakfoundation.org