'From Squeak3.9 of 7 November 2006 [latest update: #7067] on 25 November 2006 at 1:24:47 pm'! !TTCFontReader methodsFor: 'as yet unclassified' stamp: 'sumim 6/17/2005 14:48'! readFrom: aStream "Read the raw font byte data" | fontData index | (aStream respondsTo: #binary) ifTrue:[aStream binary]. fontData := aStream contents asByteArray. fonts := self parseTTCHeaderFrom: fontData. index := fonts size > 1 ifTrue: [ (PopUpMenu labelArray: ((1 to: fonts size) collect: [ :each | 'font ', each printString ])) startUp] ifFalse: [1]. index == 0 ifTrue: [index = 1]. ^ ((Array with: (fonts at: index)) collect: [:offset | fontDescription := TTCFontDescription new. self readFrom: fontData fromOffset: offset at: EncodingTag]) first. ! !