Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.107.mcz==================== Summary ====================
Name: ToolBuilder-Morphic-mt.107
Author: mt
Time: 30 March 2015, 11:05:54.366 am
UUID: 6b98b55a-8662-944b-baab-7166bf663019
Ancestors: ToolBuilder-Morphic-mt.106
Fix drawing of balloonText in text fields to consider the actual bounds.
=============== Diff against ToolBuilder-Morphic-mt.106 ===============
Item was changed:
----- Method: PluggableTextMorphPlus>>drawBalloonTextOn: (in category 'drawing') -----
drawBalloonTextOn: aCanvas
"Show balloon text in the text morph if it has no contents."
textMorph contents ifNotEmpty: [^ self].
self balloonText ifNotNil: [:text |
aCanvas
drawString: text
+ in: (self innerBounds insetBy: (5@2 corner: 0@0))
- at: self innerBounds topLeft + (5@2)
font: textMorph textStyle defaultFont
color: (Color gray: 0.7)].!