--- a/DisplaySurface.st	Mon Sep 04 17:48:35 2000 +0200
+++ b/DisplaySurface.st	Tue Sep 05 14:03:05 2000 +0200
@@ -1979,6 +1979,13 @@
     ^ self
 !
 
+releaseDeviceResources
+    self destroyGC.
+    self destroyView.
+    self unregisterFromLobby.
+    self setDevice:nil id:nil gcId:nil.
+!
+
 shallowCopyForFinalization
     "redefined for faster creation of finalization copies
      (only device, gcId and drawableId are needed)"
@@ -2301,6 +2308,6 @@
 !DisplaySurface class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.79 2000-09-04 15:48:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.80 2000-09-05 12:03:05 cg Exp $'
 ! !
 DisplaySurface initialize!