'From etoys2.3 of 28 November 2007 [latest update: #1883] on 29 January 2008 at 11:12:17 am'!
"Change Set:		TTObjForStream-yo
Date:			29 January 2008
Author:			Yoshiki Ohshima

True Type font rework around 1862 broke the saving TrueType banner."!


!TTFontDescription methodsFor: 'copying' stamp: 'yo 1/29/2008 11:07'!
objectForDataStream: refStrm
	| dp isCollection |
	"I am about to be written on an object file.  Write a reference to a known Font in the other system instead.  "

	"A path to me"
	(TextConstants at: #forceFontWriting ifAbsent: [false]) ifTrue: [^ self].
		"special case for saving the default fonts on the disk.  See collectionFromFileNamed:"

	isCollection _ (Descriptions detect: [:e | e == self]) isCollection.

	dp _ DiskProxy global: #TTFontDescription selector: #descriptionFullNamed:at:
			args: {self fullName. (isCollection ifTrue: [(TTFontDescription descriptionFullNamed: self fullName) indexOf: self] ifFalse: [0])}.
	refStrm replace: self with: dp.
	^ dp.
! !