'From Squeak3.7 of ''4 September 2004'' [latest update: #5989] on 19 June 2008 at 4:55:10 pm'!

!StrikeFont methodsFor: 'building' stamp: 'jmv 6/19/2008 16:55'!
stripHighGlyphs
	"Remove glyphs for characters above 128"
	| i |
	maxAscii _ 127.
	
	xTable _ xTable copyFrom: 1 to: maxAscii + 3.
	i _ xTable at: maxAscii + 1.
	xTable at: maxAscii + 2 put: i.
	xTable at: maxAscii + 3 put: i.
	glyphs _ glyphs copy: (0@0 extent: i@glyphs height).
	maxWidth _ 0.
	2 to: xTable size do: [ :ii |
		maxWidth _ maxWidth max: (xTable at: ii) - (xTable at: ii-1)-1 ].
	characterToGlyphMap _ nil.
	self reset! !

