Patrick Rein uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-pre.437.mcz
==================== Summary ====================
Name: Graphics-pre.437 Author: pre Time: 24 August 2020, 2:59:59.323786 pm UUID: 62f7d108-a88e-1e49-b109-11a9cc14b292 Ancestors: Graphics-kfr.436
Recategorizes a number of methods throughout the package to make categories more consistent.
=============== Diff against Graphics-kfr.436 ===============
Item was changed: + ----- Method: AbstractFont>>isRegular (in category 'testing') ----- - ----- Method: AbstractFont>>isRegular (in category 'accessing') ----- isRegular ^false!
Item was changed: + ----- Method: Color>>= (in category 'comparing') ----- - ----- Method: Color>>= (in category 'equality') ----- = aColor "Return true if the receiver equals the given color. This method handles TranslucentColors, too."
aColor isColor ifFalse: [^ false]. ^ aColor privateRGB = rgb and: [aColor privateAlpha = self privateAlpha] !
Item was changed: + ----- Method: Color>>diff: (in category 'comparing') ----- - ----- Method: Color>>diff: (in category 'equality') ----- diff: theOther "Returns a number between 0.0 and 1.0"
^ ((self privateRed - theOther privateRed) abs + (self privateGreen - theOther privateGreen) abs + (self privateBlue - theOther privateBlue) abs) / 3.0 / ComponentMax!
Item was changed: + ----- Method: Color>>hash (in category 'comparing') ----- - ----- Method: Color>>hash (in category 'equality') ----- hash
^ rgb!
Item was changed: + ----- Method: Color>>isBitmapFill (in category 'testing') ----- - ----- Method: Color>>isBitmapFill (in category 'queries') ----- isBitmapFill ^false!
Item was changed: + ----- Method: Color>>isBlack (in category 'testing') ----- - ----- Method: Color>>isBlack (in category 'queries') ----- isBlack "Return true if the receiver represents black" ^rgb = 0!
Item was changed: + ----- Method: Color>>isColor (in category 'testing') ----- - ----- Method: Color>>isColor (in category 'queries') ----- isColor
^ true !
Item was changed: + ----- Method: Color>>isGradientFill (in category 'testing') ----- - ----- Method: Color>>isGradientFill (in category 'queries') ----- isGradientFill ^false!
Item was changed: + ----- Method: Color>>isGray (in category 'testing') ----- - ----- Method: Color>>isGray (in category 'queries') ----- isGray "Return true if the receiver represents a shade of gray" ^(self privateRed = self privateGreen) and:[self privateRed = self privateBlue]!
Item was changed: + ----- Method: Color>>isOpaque (in category 'testing') ----- - ----- Method: Color>>isOpaque (in category 'queries') ----- isOpaque ^true!
Item was changed: + ----- Method: Color>>isOrientedFill (in category 'testing') ----- - ----- Method: Color>>isOrientedFill (in category 'queries') ----- isOrientedFill "Return true if the receiver keeps an orientation (e.g., origin, direction, and normal)" ^false!
Item was changed: + ----- Method: Color>>isSolidFill (in category 'testing') ----- - ----- Method: Color>>isSolidFill (in category 'queries') ----- isSolidFill ^true!
Item was changed: + ----- Method: Color>>isTranslucent (in category 'testing') ----- - ----- Method: Color>>isTranslucent (in category 'queries') ----- isTranslucent
^ false !
Item was changed: + ----- Method: Color>>isTranslucentColor (in category 'testing') ----- - ----- Method: Color>>isTranslucentColor (in category 'queries') ----- isTranslucentColor "This means: self isTranslucent, but isTransparent not" ^ false!
Item was changed: + ----- Method: Color>>isTransparent (in category 'testing') ----- - ----- Method: Color>>isTransparent (in category 'queries') ----- isTransparent
^ false !
Item was changed: + ----- Method: DisplayObject>>isTransparent (in category 'testing') ----- - ----- Method: DisplayObject>>isTransparent (in category 'displaying-Display') ----- isTransparent ^ false!
Item was changed: + ----- Method: FormSetFont>>makeTintable (in category 'tinting') ----- - ----- Method: FormSetFont>>makeTintable (in category 'as yet unclassified') ----- makeTintable "Default." self tintable: true. self combinationRule: Form over.!
Item was changed: + ----- Method: FormSetFont>>preserveColors (in category 'tinting') ----- - ----- Method: FormSetFont>>preserveColors (in category 'as yet unclassified') ----- preserveColors
self tintable: false. self combinationRule: Form paint.!
Item was changed: + ----- Method: FormSetFont>>preserveColorsWithAlpha (in category 'tinting') ----- - ----- Method: FormSetFont>>preserveColorsWithAlpha (in category 'as yet unclassified') ----- preserveColorsWithAlpha "Useful for rendering Emojis." self tintable: false. self combinationRule: Form blend.!
Item was changed: + ----- Method: InfiniteForm>>asColor (in category 'converting') ----- - ----- Method: InfiniteForm>>asColor (in category 'accessing') ----- asColor ^ patternForm dominantColor!
Item was changed: + ----- Method: InfiniteForm>>asForm (in category 'converting') ----- - ----- Method: InfiniteForm>>asForm (in category 'accessing') ----- asForm ^ patternForm!
Item was changed: + ----- Method: Point>>isIntegerPoint (in category 'testing') ----- - ----- Method: Point>>isIntegerPoint (in category 'truncation and round off') ----- isIntegerPoint ^ x isInteger and: [ y isInteger ] !
Item was changed: + ----- Method: Point>>isPoint (in category 'testing') ----- - ----- Method: Point>>isPoint (in category 'converting') ----- isPoint ^ true!
Item was changed: + ----- Method: Rectangle>>rightHalf (in category 'transforming') ----- - ----- Method: Rectangle>>rightHalf (in category 'truncation and round off') ----- rightHalf ^self withLeft: self center x!
Item was changed: + ----- Method: TextStyle>>asStringOrText (in category 'converting') ----- - ----- Method: TextStyle>>asStringOrText (in category 'accessing') ----- asStringOrText "be fancy" ^ self defaultFont familyName asText addAttribute: (TextFontReference toFont: self defaultFont); yourself!
Item was changed: + ----- Method: TextStyle>>printOn: (in category 'printing') ----- - ----- Method: TextStyle>>printOn: (in category 'accessing') ----- printOn: aStream
super printOn: aStream. self defaultFont printShortDescriptionOn: aStream !
Item was changed: + ----- Method: TextStyle>>storeDataOn: (in category 'object from disk') ----- - ----- Method: TextStyle>>storeDataOn: (in category 'Disk I/O') ----- storeDataOn: aDataStream "The shared arrays in tabsArray and marginTabsArray are the globals DefaultTabsArray and DefaultMarginTabsArray. DiskProxies will be substituted for these in (Array objectForDataStream:)."
^ super storeDataOn: aDataStream!
Item was changed: + ----- Method: TextStyle>>veryDeepCopyWith: (in category 'copying') ----- - ----- Method: TextStyle>>veryDeepCopyWith: (in category 'Disk I/O') ----- veryDeepCopyWith: deepCopier "All inst vars are meant to be shared"
self == #veryDeepCopyWith:. "to satisfy checkVariables" ^ deepCopier references at: self ifAbsentPut: [self shallowCopy]. "remember"!
Item was changed: + ----- Method: TranslucentColor>>hash (in category 'comparing') ----- - ----- Method: TranslucentColor>>hash (in category 'equality') ----- hash
^ rgb bitXor: alpha !