'From Squeak3.10.1-basic of 12 May 2008 [latest update: #7161] on 12 May 2008 at 7:30:15 am'! "Change Set: fontAvailable-yo Date: 12 February 2007 Author: Yoshiki Ohshima wiz 9/8/2007 00:19 added guard to #isFontAvailable as proposed by andreas. To Yoshiki's fix from 1204 cs in oplc. Fix one of many imcompatibility between FontSet and font."! !AbstractFont methodsFor: 'testing' stamp: 'yo 2/12/2007 19:34'! isFontSet ^ false. ! ! !LanguageEnvironment methodsFor: 'fonts support' stamp: 'wiz 9/8/2007 00:19'! isFontAvailable | encoding f | encoding := self leadingChar + 1. f _ TextStyle defaultFont. f isFontSet ifTrue: [ f fontArray at: encoding ifAbsent: [^ false]. ^ true ]. encoding = 1 ifTrue: [^ true]. f fallbackFont isFontSet ifFalse: [^false]. f fallbackFont fontArray at: encoding ifAbsent: [^ false]. ^ true ! ! !StrikeFontSet methodsFor: 'testing' stamp: 'yo 2/12/2007 19:34'! isFontSet ^ true. ! ! !TTCFontSet methodsFor: 'as yet unclassified' stamp: 'yo 2/12/2007 19:34'! isFontSet ^ true. ! !