On 31.05.2016, at 21:26, commits@source.squeak.org wrote:
Item was changed: ----- Method: PluggableTextMorphPlus>>drawBalloonTextOn: (in category 'drawing') -----
- drawBalloonTextOn: aCanvas
- drawBalloonTextOn: aCanvas "Show balloon text in the text morph if it has no contents."
- textMorph contents ifNotEmpty: [ ^ self ].
- ([ self balloonText ]
on: Error
do: [ : err | 'error in balloonText' ]) ifNotNil:
[ : text | aCanvas
- textMorph contents ifNotEmpty: [^ self].
- self balloonText ifNotNil: [:text |
aCanvas drawString: text
in: (self innerBounds insetBy: (5 @ 2 corner: 0 @ 0))
font: textMorph textStyle defaultFont "I want italic here"
color: (Color gray: 0.7) ]!
in: (self innerBounds insetBy: (5@2 corner: 0@0))
font: textMorph textStyle defaultFont
color: (Color gray: 0.7)].!
Just curious, why are you adding spaces everywhere? :) Best regards -toibas