[squeak-dev] The Trunk: Graphics-pre.437.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Aug 24 13:00:12 UTC 2020


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
  !



More information about the Squeak-dev mailing list