[squeak-dev] The Inbox: Graphics-nice.446.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Feb 13 16:04:59 UTC 2021


Nicolas Cellier uploaded a new version of Graphics to project The Inbox:
http://source.squeak.org/inbox/Graphics-nice.446.mcz

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

Name: Graphics-nice.446
Author: nice
Time: 13 February 2021, 5:04:52.453325 pm
UUID: d13c1db2-370f-4fa6-b7ae-e6766bf0c8fb
Ancestors: Graphics-dtl.445

Let Rectangle merging:/encompassing: an unordered collection.

=============== Diff against Graphics-dtl.445 ===============

Item was changed:
  ----- Method: Rectangle class>>encompassing: (in category 'instance creation') -----
  encompassing: listOfPoints
  	"A number of callers of encompass: should use this method."
  	| topLeft bottomRight |
+ 	topLeft := bottomRight := listOfPoints anyOne.
+ 	listOfPoints do:
- 	topLeft := bottomRight := listOfPoints first.
- 	listOfPoints allButFirstDo:
  		[:p |topLeft := topLeft min: p.
+ 			bottomRight := bottomRight max: p].
- 					bottomRight := bottomRight max: p].
  	^self origin: topLeft corner: bottomRight
  	!

Item was changed:
  ----- Method: Rectangle class>>merging: (in category 'instance creation') -----
  merging: listOfRects 
  	"A number of callers of merge: should use this method."
+ 	| aRectangle bottomRight topLeft |
+ 	aRectangle := listOfRects anyOne.
+ 	topLeft := aRectangle topLeft.
+ 	bottomRight := aRectangle bottomRight.
- 	| bottomRight topLeft |
- 	topLeft := listOfRects first topLeft.
- 	bottomRight := listOfRects first bottomRight.
  	listOfRects
+ 		do: [:r | topLeft := topLeft min: r topLeft.
- 		allButFirstDo: [:r | topLeft := topLeft min: r topLeft.
  			bottomRight := bottomRight max: r bottomRight].
  	^self origin: topLeft corner: bottomRight.
  	!



More information about the Squeak-dev mailing list