--- a/FontPanel.st	Wed Apr 17 14:06:50 1996 +0200
+++ b/FontPanel.st	Wed Apr 17 15:11:34 1996 +0200
@@ -394,6 +394,7 @@
             ]    
         ].
 
+        f := f on:device.
         previewField font:f.
 
         enc := f encoding.
@@ -410,7 +411,7 @@
         previewField contents:s.
     ]
 
-    "Modified: 1.3.1996 / 20:21:43 / cg"
+    "Modified: 17.4.1996 / 15:06:42 / cg"
 !
 
 showSelectedFont
@@ -532,5 +533,5 @@
 !FontPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.27 1996-03-01 19:21:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.28 1996-04-17 13:11:34 cg Exp $'
 ! !