Nicolas Cellier uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-nice.269.mcz

==================== Summary ====================

Name: Graphics-nice.269
Author: nice
Time: 12 October 2013, 2:53:33.226 am
UUID: 88e41f41-15f6-4225-a56a-a68f1acabd8e
Ancestors: Graphics-nice.268

StrikeFontSet shall shutDown itself if it has to be shutDown. This removes a dependency.
Let AbstractFont printShortDescriptionOn: and prevent TextStyle from asking isKindOf: StrikeFontSet? This removes another.
Let StrikeFont properly removeFromShutDownList: on unload (good luck if you really try it).
TODO: It should also addToShutDownList: self on class initialize, but I do not want to risk execution of this method

=============== Diff against Graphics-nice.268 ===============

Item was added:
+ ----- Method: AbstractFont>>printShortDescriptionOn: (in category 'printing') -----
+ printShortDescriptionOn: aStream
+ 	aStream space; nextPutAll: self familyName!

Item was changed:
  ----- Method: StrikeFont class>>shutDown (in category 'derivative font caching') -----
  shutDown  "StrikeFont shutDown"
  	"Deallocate synthetically derived copies of base fonts to save space"
  	self allSubInstancesDo: [:sf | sf reset].
- 	StrikeFontSet allSubInstancesDo: [:sf | sf reset].
  	DefaultStringScanner := nil.
  !

Item was added:
+ ----- Method: StrikeFont class>>unload (in category 'class initialization') -----
+ unload
+ 	Smalltalk removeFromShutDownList: self.
+ !

Item was added:
+ ----- Method: StrikeFont>>printShortDescriptionOn: (in category 'printing') -----
+ printShortDescriptionOn: aStream
+ 	aStream space; nextPutAll: self name!

Item was changed:
  ----- Method: TextStyle>>printOn: (in category 'accessing') -----
  printOn: aStream
  
  	super printOn: aStream.
+ 	self defaultFont printShortDescriptionOn: aStream
- 	(fontArray first isMemberOf: StrikeFontSet) ifTrue: [
- 		aStream space; nextPutAll: self defaultFont familySizeFace first; nextPutAll: '(FontSet)'
- 	] ifFalse: [
- 		aStream space; nextPutAll: self defaultFont familySizeFace first
- 	]
  !