--- a/Font.st	Wed Aug 18 19:59:47 1999 +0200
+++ b/Font.st	Wed Aug 18 20:22:02 1999 +0200
@@ -199,18 +199,6 @@
 
 !Font class methodsFor:'initialization'!
 
-flushDeviceFontsFor:aDevice
-    "unassign all fonts from their device if they are assigned
-     to aDevice"
-
-    aDevice deviceFonts do:[:aFont |
-        aFont restored.
-    ].
-    aDevice releaseDeviceFonts.
-
-    "Modified: 5.7.1996 / 17:56:16 / cg"
-!
-
 initialize
     "initialize the font tracking array"
 
@@ -273,17 +261,6 @@
     ^ newFont
 ! !
 
-!Font class methodsFor:'cleanup'!
-
-releaseResourcesOnDevice:aDevice
-    "this is sent when a display connection is closed,
-     to release all cached Fonts from that device"
-
-    aDevice releaseDeviceFonts
-
-    "Created: 16.1.1997 / 16:44:46 / cg"
-! !
-
 !Font methodsFor:'accessing'!
 
 device
@@ -615,6 +592,16 @@
     "Modified: 22.5.1996 / 13:08:40 / cg"
 !
 
+releaseFromDevice
+    "I am no longer available on the device"
+
+    device := nil.
+    fontId := nil.
+    replacementFont := nil
+
+    "Modified: 20.4.1996 / 23:26:26 / cg"
+!
+
 restored
     "flush device handles when restored"
 
@@ -1106,6 +1093,6 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.69 1999-08-18 14:49:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.70 1999-08-18 18:22:02 cg Exp $'
 ! !
 Font initialize!