'From Cuis 1.0 of 27 August 2009 [latest update: #282] on 4 September 2009 at 10:06:05 am'!

!StrikeFont methodsFor: 'emphasis' stamp: 'jmv 9/4/2009 10:05'!
derivativeFont: aStrikeFont at: index

	| newDeriv |
	(aStrikeFont isNil and: [ index = 0 ]) 
		ifTrue: [
			derivativeFonts _ nil.
			^ self].

	self isBaseFont ifFalse: [ 
		derivativeFonts _ nil.
		self error: 'Derivative fonts can not have derivatives' ].
	
	derivativeFonts ifNil: [derivativeFonts := Array new: 32].
	derivativeFonts size < 32 ifTrue: [
		newDeriv := Array new: 32.
		newDeriv replaceFrom: 1 to: derivativeFonts size with: derivativeFonts.
		derivativeFonts := newDeriv.
	].
	derivativeFonts at: index put: aStrikeFont.
	aStrikeFont ifNotNil: [ aStrikeFont baseFont: self ]! !

