--- a/DeviceWorkstation.st	Mon Jan 13 21:54:50 1997 +0100
+++ b/DeviceWorkstation.st	Mon Jan 13 22:13:57 1997 +0100
@@ -21,8 +21,7 @@
 		buttonTranslation multiClickTimeDelta altModifiers metaModifiers
 		ctrlModifiers shiftModifiers supportsDeepIcons preferredIconSize
 		ditherColors fixColors numFixRed numFixGreen numFixBlue
-		copyBuffer lastCopyBuffer
-		blackColor whiteColor'
+		copyBuffer lastCopyBuffer blackColor whiteColor'
 	classVariableNames:'ButtonTranslation MultiClickTimeDelta DeviceErrorSignal
 		ErrorPrinting DefaultScreen AllScreens ExitOnLastClose'
 	poolDictionaries:''
@@ -2888,7 +2887,8 @@
             inputSema := nil.
         ].
         AllScreens remove:self.
-        dispatchProcess := nil
+        dispatchProcess := nil.
+        self closeDown.
     ] newProcess.
 
     "/
@@ -2911,7 +2911,7 @@
     ]
 
     "Modified: 12.12.1995 / 20:52:57 / stefan"
-    "Modified: 12.1.1997 / 00:27:50 / cg"
+    "Modified: 13.1.1997 / 22:09:49 / cg"
 ! !
 
 !DeviceWorkstation methodsFor:'font helpers'!
@@ -3495,7 +3495,22 @@
 close
     "close down connection to Display - usually never done"
 
+    blackColor on:nil.  "/ release those colors
+    blackColor := nil.
+    whiteColor on:nil.
+    whiteColor := nil.
+
+    self closeConnection.
+
+    "Modified: 13.1.1997 / 22:13:18 / cg"
+!
+
+closeConnection
+    "close down connection to Display - usually never done"
+
     ^ self subclassResponsibility
+
+    "Created: 13.1.1997 / 22:10:07 / cg"
 !
 
 initialize
@@ -3534,13 +3549,16 @@
     "setup screen specific properties."
 
     supportsDeepIcons isNil ifTrue:[
-	supportsDeepIcons := false.
+        supportsDeepIcons := false.
     ].
 
     fixColors := ditherColors := nil.
     numFixRed := numFixGreen := numFixBlue := 0.
 
-    "Modified: 11.7.1996 / 18:34:45 / cg"
+    blackColor := Color black on:self.
+    whiteColor := Color white on:self.
+
+    "Modified: 13.1.1997 / 22:04:29 / cg"
 !
 
 invalidateConnection
@@ -4789,6 +4807,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.152 1997-01-13 20:46:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.153 1997-01-13 21:13:57 cg Exp $'
 ! !
 DeviceWorkstation initialize!