[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