[squeak-dev] The Trunk: 60Deprecated-pre.56.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Oct 4 09:25:55 UTC 2019


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

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

Name: 60Deprecated-pre.56
Author: pre
Time: 4 October 2019, 11:25:54.547303 am
UUID: 3d130aa5-c4a5-a249-bb31-75042ea685d6
Ancestors: 60Deprecated-pre.55

Deprecates a number of methods on Morph related to text anchors which are superseded by the new TextAnchorProperty object

=============== Diff against 60Deprecated-pre.55 ===============

Item was added:
+ ----- Method: Morph>>changeDocumentAnchor (in category '*60Deprecated-text-anchor') -----
+ changeDocumentAnchor
+ 	"Change the anchor from/to document anchoring"
+ 
+ 	| newType |
+ 	newType := self textAnchorProperties anchorLayout == #document 
+ 		ifTrue: [#inline]
+ 		ifFalse: [ #document].
+ 	self textAnchorProperties anchorLayout: newType.
+ 	owner isTextMorph ifTrue: [
+ 		owner 
+ 			anchorMorph: self
+ 			at: self position
+ 			type: newType]!

Item was added:
+ ----- Method: Morph>>changeInlineAnchor (in category '*60Deprecated-text-anchor') -----
+ changeInlineAnchor
+ 	"Change the anchor from/to line anchoring"
+ 
+ 	| newType |
+ 	newType := self textAnchorProperties anchorLayout == #inline 
+ 		ifTrue: [#document]
+ 		ifFalse: [#inline]. 
+ 	self textAnchorProperties anchorLayout: newType.
+ 	owner isTextMorph ifTrue: [
+ 		owner 
+ 			anchorMorph: self
+ 			at: self position
+ 			type: newType]!

Item was added:
+ ----- Method: Morph>>changeParagraphAnchor (in category '*60Deprecated-text-anchor') -----
+ changeParagraphAnchor
+ 	"Change the anchor from/to paragraph anchoring"
+ 
+ 	| newType |
+ 	self deprecated: 'paragraph is not supported anymore'.
+ 	newType := self textAnchorProperties anchorLayout == #paragraph 
+ 		ifTrue: [#document]
+ 		ifFalse: [#paragraph].
+ 	owner isTextMorph ifTrue: [
+ 		owner 
+ 			anchorMorph: self
+ 			at: self position
+ 			type: newType]!

Item was added:
+ ----- Method: Morph>>hasDocumentAnchorString (in category '*60Deprecated-text-anchor') -----
+ hasDocumentAnchorString
+ 	^ (self textAnchorProperties anchorLayout == #document
+ 		ifTrue: ['<on>']
+ 		ifFalse: ['<off>'])
+ 		, 'Document' translated!

Item was added:
+ ----- Method: Morph>>hasInlineAnchorString (in category '*60Deprecated-text-anchor') -----
+ hasInlineAnchorString
+ 	^ (self textAnchorProperties anchorLayout == #inline
+ 		ifTrue: ['<on>']
+ 		ifFalse: ['<off>'])
+ 		, 'Inline' translated!

Item was added:
+ ----- Method: Morph>>hasParagraphAnchorString (in category '*60Deprecated-text-anchor') -----
+ hasParagraphAnchorString
+ 
+ 	self deprecated: 'paragraph is not supported anymore'.
+ 	^ (self textAnchorProperties anchorLayout == #paragraph
+ 		ifTrue: ['<on>']
+ 		ifFalse: ['<off>'])
+ 		, 'Paragraph' translated!

Item was added:
+ ----- Method: Morph>>relativeTextAnchorPosition (in category '*60Deprecated-text-anchor') -----
+ relativeTextAnchorPosition
+ 
+ 	self deprecated: 'Use textAnchorProperties instead'.
+ 	^self valueOfProperty: #relativeTextAnchorPosition!

Item was added:
+ ----- Method: Morph>>relativeTextAnchorPosition: (in category '*60Deprecated-text-anchor') -----
+ relativeTextAnchorPosition: aPoint
+ 
+ 	self deprecated: 'Use textAnchorProperties instead'.
+ 	^self setProperty: #relativeTextAnchorPosition toValue: aPoint!

Item was added:
+ ----- Method: Morph>>textAnchorType (in category '*60Deprecated-text-anchor') -----
+ textAnchorType
+ 
+ 	self deprecated: 'Use textAnchorProperties instead'.
+ 	^self valueOfProperty: #textAnchorType ifAbsent:[#document]!

Item was added:
+ ----- Method: Morph>>textAnchorType: (in category '*60Deprecated-text-anchor') -----
+ textAnchorType: aSymbol
+ 	
+ 	self deprecated: 'Use textAnchorProperties instead'.
+ 	aSymbol == #document
+ 		ifTrue:[^self removeProperty: #textAnchorType]
+ 		ifFalse:[^self setProperty: #textAnchorType toValue: aSymbol].!



More information about the Squeak-dev mailing list