Goes with Morphic-cmm.1463, not 1461.
On Fri, Sep 7, 2018 at 2:51 PM <commits at 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!
>
>