Eliot Miranda uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-eem.389.mcz==================== Summary ====================
Name: Graphics-eem.389
Author: eem
Time: 20 December 2017, 12:28:14.285581 am
UUID: c000254c-e001-4382-872d-726048c0b5c0
Ancestors: Graphics-mt.388
Fix hackBits for DoubleWordArray and DoubleByteArray.
=============== Diff against Graphics-mt.388 ===============
Item was changed:
----- Method: Form>>hackBits: (in category 'private') -----
hackBits: bitThing
"This method provides an initialization so that BitBlt may be used, eg, to
copy ByteArrays and other non-pointer objects efficiently.
The resulting form looks 4 wide, 8 deep, and bitThing-size-in-words high."
width := 4.
depth := 8.
bitThing class isBits ifFalse: [self error: 'bitThing must be a non-pointer object'].
+ height := bitThing basicSize * bitThing bytesPerElement // width.
- bitThing class isBytes
- ifTrue: [height := bitThing basicSize // 4]
- ifFalse: [height := bitThing basicSize].
bits := bitThing!