Formatting? was: Re: [squeak-dev] The Trunk: ToolBuilder-Morphic-cmm.164.mcz

Tobias Pape Das.Linux at gmx.de
Tue May 31 21:42:20 UTC 2016


On 31.05.2016, at 21:26, commits at 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 at 2 corner: 0 at 0))
> - 			font: textMorph textStyle defaultFont
> - 			color: (Color gray: 0.7)].!

Just curious, why are you adding spaces everywhere?
:)
Best regards
	-toibas


More information about the Squeak-dev mailing list