The Trunk: 60Deprecated-pre.56.mcz

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].!