--- a/FontPanel.st	Thu Feb 12 22:48:25 2004 +0100
+++ b/FontPanel.st	Fri Feb 13 01:38:38 2004 +0100
@@ -266,6 +266,12 @@
             itemValue: previewShowCharacterSet
             translateLabel: true
           )
+         (MenuItem
+            label: 'Show Character Set (Using xfd)'
+            itemValue: previewShowCharacterSetUsingXFD
+            translateLabel: true
+            isVisible: false
+          )
          )
         nil
         nil
@@ -584,6 +590,10 @@
     menu :=  Menu new fromLiteralArrayEncoding:self class previewMenu.
     menu findGuiResourcesIn:self.
     menu receiver:self.
+
+    OperatingSystem isUNIXlike ifTrue:[
+        (menu menuItemWithValue:#previewShowCharacterSetUsingXFD) isVisible: true
+    ].
     ^ menu
 ! !
 
@@ -654,7 +664,7 @@
 
         font notNil ifTrue:[
             enc := font encoding.
-            enc isNil ifTrue:[enc := 'ascii'].
+            enc isNil ifTrue:[enc := 'fontspecific'].
 
             deviceFont := font onDevice:device.
 
@@ -888,6 +898,10 @@
     CharacterSetView openOn:(previewField font)
 !
 
+previewShowCharacterSetUsingXFD
+    OperatingSystem executeCommand:'xfd -fn ' , previewField font fullName.
+!
+
 sizeSelected:aNumberOrString
     "a size was selected; update preview"
 
@@ -910,5 +924,5 @@
 !FontPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.63 2004-02-12 21:48:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.64 2004-02-13 00:38:38 cg Exp $'
 ! !