'From Cuis 1.0 of 31 July 2009 [latest update: #250] on 2 August 2009 at 10:47:54 pm'!
!classDefinition: #StrikeFont category: #'Graphics-Text'!
AbstractFont subclass: #StrikeFont
	instanceVariableNames: 'characterToGlyphMap xTable glyphs name type minAscii maxAscii maxWidth ascent descent subscript superscript emphasis derivativeFonts pointSize '
	classVariableNames: 'DefaultStringScanner '
	poolDictionaries: ''
	category: 'Graphics-Text'!

!StrikeFont methodsFor: 'displaying' stamp: 'jmv 8/2/2009 22:46'!
widthOfString: aString from: firstIndex to: lastIndex
	"Measure the length of the given string between start and stop index"	| resultX |
	resultX _ 0.
	firstIndex to: lastIndex do:[:i | 
		resultX _ resultX + (self widthOf: (aString at: i))].
	^ resultX.! !

!classDefinition: #StrikeFont category: #'Graphics-Text'!
AbstractFont subclass: #StrikeFont
	instanceVariableNames: 'characterToGlyphMap xTable glyphs name type minAscii maxAscii maxWidth ascent descent subscript superscript emphasis derivativeFonts pointSize'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Graphics-Text'!
CharacterScanner removeSelector: #initializeStringMeasurer!
CharacterScanner removeSelector: #measureString:inFont:from:to:!
