FontPanel.st
changeset 2938 fc770ff23ced
parent 2937 cee2b9a5e360
child 2939 1c23ad9aa8be
--- 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 $'
 ! !