'From etoys2.3 of 28 November 2007 [latest update: #1861] on 24 December 2007 at 3:24:57 pm'! "Change Set: TTCFontObjStream-yo Date: 24 December 2007 Author: Yoshiki Ohshima For now, restore the backward compatibility of the user of an instance creation method."! !TTCFont methodsFor: 'objects from disk' stamp: 'yo 3/17/2005 11:21'! objectForDataStream: refStrm | dp | "I am about to be written on an object file. Write a reference to a known FontSet in the other system instead." "a path to me" dp _ DiskProxy global: #TTCFont selector: #familyName:pointSize:emphasis: args: {self familyName. self pointSize. self emphasis}. refStrm replace: self with: dp. ^ dp. ! !