[Pkg] The Trunk: Morphic-kfr.1447.mcz

commits at source.squeak.org commits at source.squeak.org
Thu May 31 18:31:18 UTC 2018


Karl Ramberg uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-kfr.1447.mcz

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

Name: Morphic-kfr.1447
Author: kfr
Time: 31 May 2018, 8:31:01.31278 pm
UUID: 454f93ee-b4f2-4342-b84d-a9a042b803cc
Ancestors: Morphic-mt.1446

A couple of fixes for TextMorph and project loading

=============== Diff against Morphic-mt.1446 ===============

Item was changed:
  ----- Method: TextMorph>>convertToCurrentVersion:refStream: (in category 'objects from disk') -----
  convertToCurrentVersion: varDict refStream: smartRefStrm
  	
  	self borderWidth ifNil: [
  		self borderWidth: 0.
  		self removeProperty: #fillStyle].
- 	self releaseParagraphReally.
  	^ super convertToCurrentVersion: varDict refStream: smartRefStrm.
  
  !

Item was changed:
  ----- Method: TextMorph>>fixUponLoad:seg: (in category 'objects from disk') -----
  fixUponLoad: aProject seg: anImageSegment
  	"We are in an old project that is being loaded from disk. Fix up conventions that have changed."
  
+ 	| substituteFont |
+ 	wrapFlag ifNil:[wrapFlag := true].
- 	| substituteFont includesSubstituteFont |
  	substituteFont := aProject projectParameters at: #substitutedFont ifAbsent: [#none].
+ 	(substituteFont ~~ #none and: [self textStyle fontArray includes: substituteFont])
- 	includesSubstituteFont := false.
- 	self textStyle ifNotNil:  [includesSubstituteFont := self textStyle fontArray includes: substituteFont].
- 	(substituteFont ~~ #none and: [includesSubstituteFont])
  			ifTrue: [ self fit ].
  
  	^ super fixUponLoad: aProject seg: anImageSegment!



More information about the Packages mailing list