--- a/FontPanel.st	Fri Feb 06 14:27:23 2004 +0100
+++ b/FontPanel.st	Fri Feb 06 14:46:35 2004 +0100
@@ -442,7 +442,7 @@
             ).
 
     availableEncodings := Set new.
-    device listOfAvailableFonts do:[:f | availableEncodings add:f encoding].
+    device listOfAvailableFonts do:[:f | availableEncodings add:(f encoding ? '?')].
     availableEncodings := availableEncodings asSortedCollection.
     list addAll:availableEncodings.
     ^ list.
@@ -618,7 +618,11 @@
 
     |pattern|
 
-    pattern := (anEncodingPattern isBlank ifTrue:'*' ifFalse:anEncodingPattern).
+    anEncodingPattern = '?' ifTrue:[
+        pattern := ''
+    ] ifFalse:[
+        pattern := (anEncodingPattern isEmptyOrNil ifTrue:'*' ifFalse:anEncodingPattern).
+    ].
     self 
         filter:
             [:f | 
@@ -761,5 +765,5 @@
 !FontPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.54 2004-02-06 13:25:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.55 2004-02-06 13:46:35 cg Exp $'
 ! !