'From Cuis 1.0 of 4 September 2009 [latest update: #290] on 21 September 2009 at 12:05:22 am'!
!classDefinition: #NewParagraph category: #'System-Text'!
Object subclass: #NewParagraph
	instanceVariableNames: 'text container lines positionWhenComposed offsetToEnd maxRightX selectionStart selectionStop focused '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'System-Text'!

!NewParagraph methodsFor: 'composition' stamp: 'jmv 9/21/2009 00:05'!
compose: t in: textContainer
	text _ t.
	container _ textContainer.
	self composeAll! !

!classDefinition: #NewParagraph category: #'System-Text'!
Object subclass: #NewParagraph
	instanceVariableNames: 'text container lines positionWhenComposed maxRightX selectionStart selectionStop focused'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'System-Text'!
