'From etoys2.3 of 28 November 2007 [latest update: #1866] on 27 December 2007 at 7:20:53 pm'! "Change Set: ChatBiggerFont-yo Date: 27 December 2007 Author: Yoshiki Ohshima Use bigger font for text chat."! !EToyCommunicatorMorph methodsFor: 'as yet unclassified' stamp: 'yo 12/27/2007 19:19'! textEntryFieldNamed: aSymbol with: aString help: helpString | f col | f _ (StringMorph new contents: aString; font: Preferences standardEToysFont; yourself) setBalloonText: helpString; on: #mouseUp send: #editEvent:for: to: self. self field: aSymbol is: f. col _ (self inAColumn: {f}) color: Color white; hResizing: #shrinkWrap. ^col! ! !EToyChatMorph methodsFor: 'as yet unclassified' stamp: 'yo 12/27/2007 19:18'! rebuild | r1 r2 | r1 _ self addARow: { self simpleToggleButtonFor: self attribute: #acceptOnCR help: 'Send with Return?'. self inAColumn: {StringMorph new contents: 'Your message to:' translated; font: Preferences standardMenuFont; lock}. self textEntryFieldNamed: #ipAddress with: '' help: 'IP address for chat partner'. }. recipientForm ifNotNil: [ r1 addMorphBack: recipientForm asMorph lock ]. sendingPane _ PluggableTextMorph on: self text: nil accept: #acceptTo:forMorph:. sendingPane hResizing: #spaceFill; vResizing: #spaceFill. sendingPane font: Preferences standardMenuFont. self addMorphBack: sendingPane. r2 _ self addARow: {self inAColumn: {StringMorph new contents: 'Replies'; font: Preferences standardMenuFont; lock}}. receivingPane _ PluggableTextMorph on: self text: nil accept: nil. receivingPane font: Preferences standardMenuFont. receivingPane hResizing: #spaceFill; vResizing: #spaceFill. self addMorphBack: receivingPane. receivingPane spaceFillWeight: 3. {r1. r2} do: [ :each | each vResizing: #shrinkWrap; minHeight: 18; color: Color veryLightGray. ]. sendingPane acceptOnCR: (acceptOnCR ifNil: [acceptOnCR _ true])! !