Chris Muller uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/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!
Locked
