How can I set the backgroundcolor of substrings in PluggableTextMorphs? In this short example, the word 'two' in red textcolor with yellow background. currentPosition := 2. myList := #('one' 'two' 'three' 'four' 'two'). myBlock := [:element | Â Â Â element = (myList at:currentPosition) Â Â Â Â Â Â ifTrue:[element asText addAttribute: (TextColor red);addAttribute: (TextEmphasis bold);addAttribute: (TextEmphasis italic)] Â Â Â Â Â Â ifFalse:[element asText addAttribute:(TextColor black)] Â Â Â ]. myText := myList inject:('' asText) into:[:txt :word| txt append: (myBlock value:word)]. myMorph := PluggableTextMorph new. myMorph setText: myText. myMorph openInHand. I need this to mark some words in japanese text that is saved as list of words. (from mecab) Dirk.