[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