FontPanel.st
changeset 2918 e2307c97c60a
parent 2916 7f1e089959a3
child 2921 98a81e13d412
equal deleted inserted replaced
2917:cbca85d08c88 2918:e2307c97c60a
   200 
   200 
   201     "Modified: 29.4.1996 / 09:46:19 / cg"
   201     "Modified: 29.4.1996 / 09:46:19 / cg"
   202 !
   202 !
   203 
   203 
   204 defaultSampleStringForEncoding:enc
   204 defaultSampleStringForEncoding:enc
   205 enc printCR.
       
   206     enc notNil ifTrue:[    
   205     enc notNil ifTrue:[    
   207         (enc startsWith:'jis') ifTrue:[
   206         (enc startsWith:'jis') ifTrue:[
   208             (enc includesString:'0201') ifTrue:[
   207             (enc includesString:'0201') ifTrue:[
   209                 ^ self defaultJIS0201SampleString    
   208                 ^ self defaultJIS0201SampleString    
   210             ].
   209             ].
   986 ! !
   985 ! !
   987 
   986 
   988 !FontPanel class methodsFor:'documentation'!
   987 !FontPanel class methodsFor:'documentation'!
   989 
   988 
   990 version
   989 version
   991     ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.73 2004-02-28 12:57:39 cg Exp $'
   990     ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.74 2004-03-01 23:05:13 cg Exp $'
   992 ! !
   991 ! !