Font.st
changeset 127 98b0725782bd
parent 115 1d93fd8c5371
child 144 cf645a1ebbb3
--- a/Font.st	Wed Mar 29 12:49:42 1995 +0200
+++ b/Font.st	Fri Mar 31 04:56:26 1995 +0200
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/Font.st,v 1.16 1995-03-07 21:55:56 claus Exp $
+$Header: /cvs/stx/stx/libview/Font.st,v 1.17 1995-03-31 02:55:26 claus Exp $
 '!
 
 !Font class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/Font.st,v 1.16 1995-03-07 21:55:56 claus Exp $
+$Header: /cvs/stx/stx/libview/Font.st,v 1.17 1995-03-31 02:55:26 claus Exp $
 "
 !
 
@@ -229,6 +229,7 @@
 
     fontId notNil ifTrue:[
 	device releaseFont:fontId.
+	fontId := nil
     ]
 ! !