[squeak-dev] 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 Squeak-dev mailing list