'From etoys2.2 of 24 September 2007 [latest update: #1781] on 15 November 2007 at 10:12:34 pm'! "Change Set: userTextFix-kfr Date: 15 November 2007 Author: Karl Ramberg TRAC #4943 - TextMorph class-nonwrappingPrototype. Fixes the bug that if you delete all text of a default Text object from the Supplies bin, then start typing, the new chars show up in a tiny font. "! !TextMorph class methodsFor: '*connectorstext-parts bin' stamp: 'kfr 11/15/2007 12:27'! 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; wrapFlag: false; fit; refreshParagraph. ^ textMorph " TextMorph nonwrappingPrototype openInHand " ! !