--- a/FontPanel.st	Mon Aug 11 13:58:13 1997 +0200
+++ b/FontPanel.st	Mon Aug 11 13:59:22 1997 +0200
@@ -408,12 +408,12 @@
     "clear the preview subview"
 
     shown ifTrue:[
-        previewField clear.
+        previewField contents:nil.
         encodingLabel label:''.
     ].
 
     "Created: 17.4.1996 / 15:19:16 / cg"
-    "Modified: 29.4.1996 / 09:41:27 / cg"
+    "Modified: 11.8.1997 / 03:01:42 / cg"
 !
 
 extractFaceAndStyleFrom:aString
@@ -641,5 +641,5 @@
 !FontPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.42 1997-07-28 10:23:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.43 1997-08-11 11:59:22 cg Exp $'
 ! !