[squeak-dev] The Trunk: EToys-mt.462.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Feb 7 10:09:17 UTC 2022
Marcel Taeumel uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-mt.462.mcz
==================== Summary ====================
Name: EToys-mt.462
Author: mt
Time: 7 February 2022, 11:09:11.238414 am
UUID: c978b75e-a2d0-294a-81de-782f4a95d122
Ancestors: EToys-mt.461
Complements Morphic-mt.1874
=============== Diff against EToys-mt.461 ===============
Item was removed:
- ----- Method: TextMorph>>selectionColor (in category '*Etoys-Squeakland-private') -----
- selectionColor
-
- | ind attrs c |
- ind := self editor startBlock stringIndex.
- (ind isNil or: [ind < 1 or: [ind > text size]]) ifTrue: [ind := 1].
- attrs := text attributesAt: ind.
- c := attrs detect: [:attr | attr class = TextColor] ifNone: [].
- ^ c ifNil: [Color black] ifNotNil: [c color].
-
- !
Item was removed:
- ----- Method: TextMorph>>selectionColor: (in category '*Etoys-Squeakland-private') -----
- selectionColor: aColor
- "Set the color of the current selection. If there is currently no selection, have the color apply to the entirety of the receiver's text."
-
- | attribute int |
- attribute := TextColor color: aColor.
- int := self editor selectionInterval.
- int size <= 0 ifTrue: [int := 1 to: text size].
- text addAttribute: attribute from: int first to: int last.
- int size = text string size ifTrue:
- [color := aColor].
- self changed.
- !
More information about the Squeak-dev
mailing list
|