--- a/FontPanel.st	Mon Apr 09 14:25:26 2001 +0200
+++ b/FontPanel.st	Thu Apr 19 15:53:06 2001 +0200
@@ -400,7 +400,7 @@
     familyList list isNil ifTrue:[
         families := device fontFamiliesFiltering:filter.
         families notNil ifTrue:[
-            families := families asOrderedCollection
+            families := families asOrderedCollection sort
         ].
         familyList list:families
     ].
@@ -580,14 +580,14 @@
 
     currentFamily := aFamilyName.
     faces := device facesInFamily:aFamilyName filtering:filter.
-    (faces isNil or:[faces isEmpty]) ifTrue:[
+    (faces size = 0) ifTrue:[
         currentFace := currentStyle := currentFaceAndStyle := nil.
         faceList list:nil.
         self faceSelected:nil.
         ^ self.
     ].
 
-    list := OrderedCollection new.
+    list := SortedCollection new.
     faces do:[:aFace |
         styles := device stylesInFamily:aFamilyName face:aFace filtering:filter.
         styles do:[:aStyle |
@@ -650,5 +650,5 @@
 !FontPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.50 2000-09-29 07:42:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.51 2001-04-19 13:53:06 stefan Exp $'
 ! !