June 6, 2013
7:21 p.m.
So cool :)
something like that ? :)
smalltalkCodeWithStabilo "self smalltalkCodeWithStabilo" | area seg code | area := RubEditingArea new beWrapped; width: 400; updateTextWith: (code := self someSmallSmalltalkCode). area addSegment: (seg := RubPlainSegmentMorph inTextArea: area from: 3 to: code size). seg color: (Color yellow). seg borderColor: (Color orange alpha: 0.5). seg beSmoothCurve. area openInWorld
Alain
<stabilo-selection.png>