'From Cuis 5.0 [latest update: #4171] on 24 May 2020 at 10:21:49 am'!

!TTFontDescription methodsFor: 'private-initialization' stamp: 'len 5/22/2020 20:06:56'!
useAlwaysLeftArrow
	"Not only when Smalltalk glyphs requested."
	| arrowIndex |
	contourDataIndexesForSmalltalkGlyphs _ contourDataIndexesByIso8859s15 copy.
	arrowIndex _ contourDataIndexesByIso8859s15 at: Character arrowLeft numericValue + 1.
	arrowIndex = 1 ifFalse: [	"If font doesn't include the arrow, don't do substitution."
		contourDataIndexesByIso8859s15 at: $_ numericValue + 1 put: arrowIndex.
		contourDataIndexesForSmalltalkGlyphs at: $_ numericValue + 1 put: arrowIndex ].
	arrowIndex _ contourDataIndexesByIso8859s15 at: Character arrowUp numericValue + 1.
	arrowIndex = 1 ifFalse: [	"If font doesn't include the arrow, don't do substitution."
		contourDataIndexesForSmalltalkGlyphs at: $^ numericValue + 1 put: arrowIndex ].! !

