'From etoys3.0 of 24 February 2008 [latest update: #2076] on 7 August 2008 at 11:20:51 pm'! "Change Set: TextWidthAug6-yo Date: 7 August 2008 Author: Yoshiki Ohshima Prevent the text created from the supplies to shrink wrongly when pango is enabled."! !TextMorph class methodsFor: 'scripting' stamp: 'yo 8/7/2008 23:01'! authoringPrototype "Answer the default-text-object de jour; at this time, it's actually an instance of UserText." ^ self nonwrappingPrototype ! ! !TextMorph class methodsFor: '*connectorstext-parts bin' stamp: 'yo 8/7/2008 16:57'! 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. index _ style fontIndexOfPointSize: 24. style defaultFontIndex: index. text addAttribute: (TextFontChange fontNumber: index). textMorph := UserText new. textMorph contentsWrapped: text; setTextStyle: style; margins: 0@0. "Too ugly dirty hack from boldAuthoringPrototype." textMorph wrapFlag: false. textMorph fit. textMorph wrapFlag: true. ^ textMorph " TextMorph nonwrappingPrototype openInHand " ! !