[squeak-dev] The Trunk: EToys-mt.458.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Jan 19 14:17:06 UTC 2022
Marcel Taeumel uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-mt.458.mcz
==================== Summary ====================
Name: EToys-mt.458
Author: mt
Time: 19 January 2022, 3:16:59.734764 pm
UUID: 6dcfff5e-6901-bf4d-bd33-c91cad215ebe
Ancestors: EToys-mt.457
Fixes awkward regression where the system's default text style gets messed up when opening the ObjectsTool once in a fresh image.
=============== Diff against EToys-mt.457 ===============
Item was changed:
----- Method: TextMorph class>>nonwrappingPrototype (in category '*Etoys-Squeakland-scripting') -----
nonwrappingPrototype
"Answer the default-text-object de jour; at this time, it's actually an instance of UserText."
| text style index baseFont textMorph |
text := Text fromString: 'Text' translated.
baseFont := Preferences standardEToysFont.
+ style := (baseFont textStyle ifNil: [TextStyle default]) copy.
- style := baseFont textStyle ifNil: [TextStyle default].
index := style fontIndexOfPointSize: 24.
style defaultFontIndex: index.
text addAttribute: (TextFontChange fontNumber: index).
textMorph := UserText new.
textMorph
contentsWrapped: text;
setTextStyle: style;
margins: 0 at 0.
"Too ugly dirty hack from boldAuthoringPrototype."
textMorph wrapFlag: false.
textMorph fit.
textMorph usePango ifTrue: [textMorph wrapFlag: true].
^ textMorph
"
TextMorph nonwrappingPrototype openInHand
"!
More information about the Squeak-dev
mailing list
|