--- a/Font.st	Sat Jun 15 15:19:06 1996 +0200
+++ b/Font.st	Sat Jun 15 15:21:44 1996 +0200
@@ -243,6 +243,22 @@
     ]
 
     "Modified: 20.4.1996 / 23:22:23 / cg"
+!
+
+update:something with:aParameter from:changedObject
+    "sent early during restart - flush any leftover device handles"
+
+    (something == #earlyRestart) ifTrue:[
+        "
+         this is sent by ObjectMemory when restarting from
+         an image. All device specific information (especially device
+         handles) are now invalid and have to be flushed
+        "
+        self flushDeviceFontsFor:nil
+    ]
+
+    "Modified: 20.4.1996 / 23:22:23 / cg"
+    "Created: 15.6.1996 / 15:21:30 / cg"
 ! !
 
 !Font class methodsFor:'instance creation'!
@@ -1083,6 +1099,6 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.46 1996-05-30 16:53:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.47 1996-06-15 13:21:44 cg Exp $'
 ! !
 Font initialize!