# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 968155385 -7200
# Node ID b29011aeb5a92a9d7c081a23a165c0383d530727
# Parent  62be8525cb2487d4690b4084f09927d7e530703e
*** empty log message ***

diff -r 62be8525cb24 -r b29011aeb5a9 DisplaySurface.st
--- 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!