The Inbox: Collections-cmm.805.mcz

Chris Muller uploaded a new version of Collections to project The Inbox:
http://source.squeak.org/inbox/Collections-cmm.805.mcz

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

Name: Collections-cmm.805
Author: cmm
Time: 31 August 2018, 5:57:40.555042 pm
UUID: 7c024534-7188-47c5-b5e8-41e6dccf91ea
Ancestors: Collections-eem.804

Goes with Morphic-cmm.1461 to provide access to TextIndent attributes from the alignment menu.

=============== Diff against Collections-eem.804 ===============

Item was added:
+ ----- Method: Text>>indentationAmountAt: (in category 'attributes') -----
+ indentationAmountAt: anInterval
+ anInterval do:
+ [ : position | self
+ attributesAt: position
+ do: [ : attr | attr isTextIndent ifTrue: [ ^ attr amount ] ] ].
+ ^ 0!

Item was changed:
  ----- Method: TextAlignment>>dominates: (in category 'testing') -----
  dominates: other
+ "Alignment dominates other alignments or indentations."
+ ^ other isTextAlignment or: [ other isTextIndent ]!
- "There can be only one..."
- ^self class == other class!

Item was added:
+ ----- Method: TextAlignment>>isTextAlignment (in category 'testing') -----
+ isTextAlignment
+ ^ true!

Item was added:
+ ----- Method: TextAttribute>>isTextAlignment (in category 'testing') -----
+ isTextAlignment
+ ^ false!

Item was added:
+ ----- Method: TextAttribute>>isTextIndent (in category 'testing') -----
+ isTextIndent
+ ^ false!

Item was changed:
  ----- Method: TextIndent>>dominates: (in category 'condensing') -----
+ dominates: aTextAttribute
+ "Indentation should replace any existing alignment or indentation."
+ ^ aTextAttribute isTextIndent
+ or: [ aTextAttribute isTextAlignment ]!
- dominates: anAttribute
- ^(self class == anAttribute class)!

Item was added:
+ ----- Method: TextIndent>>isTextIndent (in category 'testing') -----
+ isTextIndent
+ ^ true!