The Trunk: Graphics-eem.449.mcz

Eliot Miranda uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-eem.449.mcz

==================== Summary ====================

Name: Graphics-eem.449
Author: eem
Time: 17 June 2021, 10:46:52.453492 am
UUID: b792d8b6-a478-4227-9a11-c89a70cb3622
Ancestors: Graphics-mt.448

Simplify initializing Forms and allow 64-bit arrays to be used as bitmaps.

=============== Diff against Graphics-mt.448 ===============

Item was changed:
  ----- Method: Form>>bitsSize (in category 'accessing') -----
  bitsSize
+ | pixelsPerWord |
+ depth ifNil: [depth := 1].
+ pixelsPerWord := 32 // self depth.
+ ^width + pixelsPerWord - 1 // pixelsPerWord * height!
- | pixPerWord |
- depth == nil ifTrue: [depth := 1].
- pixPerWord := 32 // self depth.
- ^ width + pixPerWord - 1 // pixPerWord * height!

Item was changed:
  ----- Method: Form>>setExtent:depth:bits: (in category 'private') -----
  setExtent: extent depth: bitsPerPixel bits: bitmap
  "Create a virtual bit map with the given extent and bitsPerPixel."
+ | bitsClass |
+ (width := extent x asInteger) < 0 ifTrue: [width := 0].
+ (height := extent y asInteger) < 0 ifTrue: [height := 0].
-
- width := extent x asInteger.
- width < 0 ifTrue: [width := 0].
- height := extent y asInteger.
- height < 0 ifTrue: [height := 0].
  depth := bitsPerPixel.
- depth := bitsPerPixel.
  (bits isNil
+ or: [(bitsClass := bits class) isBits
+ and: [self bitsSize * 4 "bytes per pixel" = (bitmap size * bitsClass elementSize)]]) ifFalse:
+ [^self error: 'Bad dimensions and/or bitmap kind'].
- or:[(bitmap class isWords and: [self bitsSize = bitmap size])
- or: [bitmap class isBytes and: [self bitsSize * 4 = bitmap size]]])
- ifFalse:[^self error:'Bad dimensions'].
  bits := bitmap!