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!
Goes with Morphic-cmm.1463, not 1461. On Fri, Sep 7, 2018 at 2:51 PM commits@source.squeak.org wrote:
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!
squeak-dev@lists.squeakfoundation.org