--- a/FontPanel.st Wed Mar 10 17:21:32 2004 +0100
+++ b/FontPanel.st Wed Mar 10 17:36:19 2004 +0100
@@ -579,12 +579,14 @@
listPresentedToUser := listOfEncodings collect:[:enc |
|encoder userFriendlyName|
- (enc notNil and:[enc ~= '*']) ifTrue:[
- encoder := CharacterEncoder encoderFor:enc ifAbsent:nil.
- encoder notNil ifTrue:[
- userFriendlyName := encoder userFriendlyNameOfEncoding.
- ].
- ].
+"/
+"/ disabled to avoid autoloading of encoders.
+"/ (enc notNil and:[enc ~= '*']) ifTrue:[
+"/ encoder := CharacterEncoder encoderFor:enc ifAbsent:nil.
+"/ encoder notNil ifTrue:[
+"/ userFriendlyName := encoder userFriendlyNameOfEncoding.
+"/ ].
+"/ ].
(userFriendlyName notNil and:[(userFriendlyName sameAs: enc) not]) ifTrue:[
enc , ' (' , userFriendlyName , ')'
] ifFalse:[
@@ -949,5 +951,5 @@
!FontPanel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.81 2004-03-10 16:21:32 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.82 2004-03-10 16:36:19 ca Exp $'
! !