[squeak-dev] The Trunk: Graphics-mt.446.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Feb 18 15:07:46 UTC 2021


Marcel Taeumel uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-mt.446.mcz

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

Name: Graphics-mt.446
Author: mt
Time: 18 February 2021, 4:07:36.927082 pm
UUID: 7970ec57-0257-ff4c-a2e3-13d3e06d4807
Ancestors: Graphics-dtl.445

Adds new version for LayoutFrame to be able to convert old versions with 'nil' fields.

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

Item was changed:
  ----- Method: LayoutFrame class>>classVersion (in category 'accessing') -----
  classVersion
+ 	^ 2 "fractions and offsets are never 'nil' anymore"
- 	^1 "changed treatment of bottomOffset and rightOffset"
  !

Item was added:
+ ----- Method: LayoutFrame class>>withClassVersion: (in category 'objects from disk') -----
+ withClassVersion: aVersion
+ 
+ 	aVersion <= self classVersion ifTrue: [^ self].
+ 	^ super withClassVersion: aVersion!

Item was changed:
  ----- Method: LayoutFrame>>convertToCurrentVersion:refStream: (in category 'objects from disk') -----
  convertToCurrentVersion: varDict refStream: smartRefStrm
  	| className oldClassVersion |
  
  	"JW 2/1/2001"
  	"Since class version isn't passed in varDict, look it up through smartRefSrm."
  	className := varDict at: #ClassName.
  	oldClassVersion := (smartRefStrm structures at: className) first.
+ 	(oldClassVersion = 0) ifTrue: [ self negateBottomRightOffsets; fixup ].
+ 	(oldClassVersion = 1) ifTrue: [ self fixup ].
- 	(oldClassVersion = 0) ifTrue: [ self negateBottomRightOffsets ].
  	^super convertToCurrentVersion: varDict refStream: smartRefStrm.
  !

Item was changed:
+ ----- Method: LayoutFrame>>fixup (in category 'objects from disk') -----
- ----- Method: LayoutFrame>>fixup (in category 'initialize-release') -----
  fixup
  	"Set-up default value for un-initialized layout frames"
  	
  	"LayoutFrame allInstancesDo: [:e | e fixup]."
  	
  	leftFraction ifNil: [leftFraction := 0].
  	leftOffset ifNil: [leftOffset := 0].
  	topFraction ifNil: [topFraction := 0].
  	topOffset ifNil: [topOffset := 0].
  	rightFraction ifNil: [rightFraction := 0].
  	rightOffset ifNil: [rightOffset := 0].
  	bottomFraction ifNil: [bottomFraction := 0].
  	bottomOffset ifNil: [bottomOffset := 0].!



More information about the Squeak-dev mailing list