[Pkg] The Trunk: ToolBuilder-Morphic-mt.293.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Feb 5 15:22:49 UTC 2022
Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.293.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-mt.293
Author: mt
Time: 5 February 2022, 4:22:47.953491 pm
UUID: 51aa77d7-6bc2-cf41-a8f9-ec8ab4142d32
Ancestors: ToolBuilder-Morphic-mt.292
First try to fix position of help text in text fields. There is still something wrong with the vertical offset, which you will notice at some #uiScaleFactor's.
=============== Diff against ToolBuilder-Morphic-mt.292 ===============
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 ]
on: Error
do: [ : err | 'error in balloonText' ]) ifNotNil:
+ [ : text | | font box |
+ font := self userInterfaceTheme balloonTextFont ifNil: [TextStyle defaultFont].
+ box := self bounds insetBy: (self textMorph margins ifNil: [0]).
+ box := box insetBy: (0 @ font lineGapSlice corner: 0 at 0).
+ aCanvas
+ drawString: text
+ in: box
+ font: font
+ color: (self userInterfaceTheme balloonTextColor ifNil: [Color gray: 0.7]) ]!
- [ : text | aCanvas
- drawString: text
- in: (self innerBounds insetBy: (5 @ 2 corner: 0 @ 0))
- font: (self userInterfaceTheme balloonTextFont ifNil: [TextStyle defaultFont])
- color: (self userInterfaceTheme balloonTextColor ifNil: [Color gray: 0.7]) ]!
More information about the Packages
mailing list