'From Cuis 1.0 of 16 July 2009 [latest update: #228] on 27 July 2009 at 2:01:12 pm'!
!classDefinition: #TextStyle category: #'Graphics-Text'!
Object subclass: #TextStyle
	instanceVariableNames: 'fontArray lineGrid baseline alignment firstIndent restIndent rightIndent tabsArray marginTabsArray leading defaultFontIndex '
	classVariableNames: 'AXXvailableTextStyles DXXefaultTextStyle DefaultTextStyle AvailableTextStyles '
	poolDictionaries: 'TextConstants'
	category: 'Graphics-Text'!

!CharacterScanner class methodsFor: 'constants' stamp: 'jmv 7/27/2009 12:41'!
centeredCode
	^2! !

!CharacterScanner class methodsFor: 'constants' stamp: 'jmv 7/27/2009 12:49'!
crossedXCode
	^258! !

!CharacterScanner class methodsFor: 'constants' stamp: 'jmv 7/27/2009 12:49'!
endOfRunCode
	^ 257! !

!CharacterScanner class methodsFor: 'constants' stamp: 'jmv 7/27/2009 12:41'!
justifiedCode
	^3! !

!CharacterScanner class methodsFor: 'constants' stamp: 'jmv 7/27/2009 12:42'!
leftFlushCode
	^0! !

!CharacterScanner class methodsFor: 'constants' stamp: 'jmv 7/27/2009 12:42'!
rightFlushCode
	^1! !


!TextStyle class methodsFor: 'class initialization' stamp: 'jmv 7/27/2009 12:21'!
temporaryInitialize
	AvailableTextStyles _ Dictionary new.
	DefaultTextStyle _ self default! !

!TextStyle class methodsFor: 'constants' stamp: 'jmv 7/27/2009 13:07'!
defaultMarginTabsArray
	^#(#(24 24) #(48 48) #(72 72) #(96 96) #(120 120) #(144 144) #(168 168) #(192 192) #(216 216) #(240 240) #(264 264) #(288 288) #(312 312) #(336 336) #(360 360) #(384 384) #(408 408) #(432 432) #(456 456) #(480 480) #(504 504) #(528 528) #(552 552) #(576 576) #(600 600) #(624 624) #(648 648) #(672 672) #(696 696) #(720 720) #(744 744) #(768 768))! !

!TextStyle class methodsFor: 'constants' stamp: 'jmv 7/27/2009 13:07'!
defaultTabsArray
	^#(24 48 72 96 120 144 168 192 216 240 264 288 312 336 360 384 408 432 456 480 504 528 552 576 600 624 648 672 696 720 744 768 792 816 840 864 888 912 936 960 984 1008 1032 1056 1080 1104 1128 1152 1176 1200 1224 1248 1272 1296 1320 1344 1368 1392 1416 1440 1464 1488 1512 1536 1560)! !

!classDefinition: #TextStyle category: #'Graphics-Text'!
Object subclass: #TextStyle
	instanceVariableNames: 'fontArray lineGrid baseline alignment firstIndent restIndent rightIndent tabsArray marginTabsArray leading defaultFontIndex'
	classVariableNames: 'AXXvailableTextStyles AvailableTextStyles DXXefaultTextStyle DefaultTextStyle'
	poolDictionaries: 'TextConstants'
	category: 'Graphics-Text'!
"Postscript:
Leave the line above, and replace the rest of this comment by a useful one.
Executable statements should follow this comment, and should
be separated by periods, with no exclamation points (!!).
Be sure to put any further comments in double-quotes, like this one."
TextStyle temporaryInitialize!

