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
- ]
!