--- a/Font.st	Mon Feb 24 22:47:44 1997 +0100
+++ b/Font.st	Tue Feb 25 17:42:07 1997 +0100
@@ -200,11 +200,6 @@
     "initialize the font tracking array"
 
     "
-     want to be informed when returning from snapshot
-    "
-    ObjectMemory addDependent:self.
-
-    "
      replacement handling is not yet finished
     "
     Replacements := Dictionary new.
@@ -217,22 +212,6 @@
     Replacements at:'lucidatypewriter'       put:'courier'.
     Replacements at:'charter'                put:'times'.
     Replacements at:'terminal'               put:'courier'.
-!
-
-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'!
@@ -1112,6 +1091,6 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.58 1997-02-24 21:47:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.59 1997-02-25 16:42:07 cg Exp $'
 ! !
 Font initialize!