[Pkg] The Trunk: Morphic-pre.1476.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Jan 24 16:06:15 UTC 2019


Patrick Rein uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-pre.1476.mcz

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

Name: Morphic-pre.1476
Author: pre
Time: 24 January 2019, 5:06:02.544474 pm
UUID: dec0ceb0-45f0-614e-829c-3e940506657a
Ancestors: Morphic-mt.1475

Recategorizes the fitContents method consistently throughout Morphic

=============== Diff against Morphic-mt.1475 ===============

Item was changed:
+ ----- Method: IndentingListItemMorph>>fitContents (in category 'layout') -----
- ----- Method: IndentingListItemMorph>>fitContents (in category 'accessing') -----
  fitContents
  
  	super fitContents.
  	self width: container preferredSubmorphWidth.!

Item was changed:
+ ----- Method: SimpleButtonMorph>>fitContents (in category 'layout') -----
- ----- Method: SimpleButtonMorph>>fitContents (in category 'accessing') -----
  fitContents
  	| aMorph aCenter |
  	aCenter := self center.
  	self hasSubmorphs ifFalse: [^self].
  	aMorph := self firstSubmorph.
  	self extent: aMorph extent + (self borderWidth + 6).
  	self center: aCenter.
  	aMorph position: aCenter - (aMorph extent // 2)!

Item was changed:
+ ----- Method: StringMorph>>fitContents (in category 'layout') -----
- ----- Method: StringMorph>>fitContents (in category 'accessing') -----
  fitContents
  
  	| newBounds boundsChanged |
  	newBounds := self measureContents.
  	boundsChanged := bounds extent ~= newBounds.
  	self extent: newBounds.		"default short-circuits if bounds not changed"
  	boundsChanged ifFalse: [self changed]!

Item was changed:
+ ----- Method: UpdatingStringMorph>>fitContents (in category 'layout') -----
- ----- Method: UpdatingStringMorph>>fitContents (in category 'accessing') -----
  fitContents
  
  	| newExtent |
  	newExtent := self measureContents.
  	newExtent := ((newExtent x max: self minimumWidth) min: self maximumWidth) @ newExtent y.
  	(self extent = newExtent) ifFalse:
  		[self extent: newExtent.
  		self changed]
  !



More information about the Packages mailing list