FontPanel.st
changeset 2896 7cb365b7d75c
parent 2895 df3a2c63e5f5
child 2899 2c03646c466f
equal deleted inserted replaced
2895:df3a2c63e5f5 2896:7cb365b7d75c
   601     listOfEncodings addAll:availableEncodings.
   601     listOfEncodings addAll:availableEncodings.
   602 
   602 
   603     listPresentedToUser := listOfEncodings collect:[:enc |
   603     listPresentedToUser := listOfEncodings collect:[:enc |
   604                             |encoder userFriendlyName|
   604                             |encoder userFriendlyName|
   605 
   605 
   606                             enc notNil ifTrue:[
   606                             (enc notNil and:[enc ~= '*']) ifTrue:[
   607                                 encoder := CharacterEncoder encoderFor:enc ifAbsent:nil.
   607                                 encoder := CharacterEncoder encoderFor:enc ifAbsent:nil.
   608                                 encoder notNil ifTrue:[
   608                                 encoder notNil ifTrue:[
   609                                     userFriendlyName := encoder userFriendlyNameOfEncoding.
   609                                     userFriendlyName := encoder userFriendlyNameOfEncoding.
   610                                 ].
   610                                 ].
   611                             ].
   611                             ].
   981 ! !
   981 ! !
   982 
   982 
   983 !FontPanel class methodsFor:'documentation'!
   983 !FontPanel class methodsFor:'documentation'!
   984 
   984 
   985 version
   985 version
   986     ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.70 2004-02-20 10:45:27 cg Exp $'
   986     ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.71 2004-02-20 12:44:32 cg Exp $'
   987 ! !
   987 ! !