diff -r 247beb3d5803 -r 6ff09db833b0 DeviceWorkstation.st
--- a/DeviceWorkstation.st	Mon Nov 19 15:27:30 2001 +0100
+++ b/DeviceWorkstation.st	Mon Nov 19 16:15:32 2001 +0100
@@ -13,36 +13,36 @@
 "{ Package: 'stx:libview' }"
 
 HostGraphicsDevice subclass:#DeviceWorkstation
-        instanceVariableNames:'visualType monitorType depth ncells bitsPerRGB bitsRed bitsGreen
-                bitsBlue redMask greenMask blueMask redShift greenShift blueShift
-                hasColors hasGreyscales width height widthMM heightMM
-                resolutionHor resolutionVer idToTableIndexMapping knownViews
-                knownIds knownBitmaps knownBitmapIds dispatching dispatchProcess
-                exitOnLastClose ctrlDown shiftDown metaDown altDown superDown
-                motionEventCompression lastId lastView keyboardMap rootView
-                isSlow activeKeyboardGrab activePointerGrab buttonTranslation
-                multiClickTimeDelta altModifiers metaModifiers ctrlModifiers
-                shiftModifiers superModifiers buttonModifiers supportsDeepIcons
-                preferredIconSize ditherColors fixColors numFixRed numFixGreen
-                numFixBlue fixGrayColors copyBuffer lastCopyBuffer blackColor
-                whiteColor focusMode activeView clipBoardEncoding focusView
-                deviceErrorSignal deviceIOErrorSignal mayOpenDebugger
-                suppressDebugger'
-        classVariableNames:'ButtonTranslation MultiClickTimeDelta DeviceErrorSignal
-                DeviceIOErrorSignal DeviceIOTimeoutErrorSignal ErrorPrinting
-                DefaultScreen AllScreens CurrentScreenQuerySignal
-                LastActiveScreen LastActiveProcess WindowsRightButtonBehavior
-                ExitOnLastClose DrawingOnClosedDeviceSignal'
-        poolDictionaries:''
-        category:'Interface-Graphics'
+	instanceVariableNames:'visualType monitorType depth ncells bitsPerRGB bitsRed bitsGreen
+		bitsBlue redMask greenMask blueMask redShift greenShift blueShift
+		hasColors hasGreyscales width height widthMM heightMM
+		resolutionHor resolutionVer idToTableIndexMapping knownViews
+		knownIds knownBitmaps knownBitmapIds dispatching dispatchProcess
+		exitOnLastClose ctrlDown shiftDown metaDown altDown superDown
+		motionEventCompression lastId lastView keyboardMap rootView
+		isSlow activeKeyboardGrab activePointerGrab buttonTranslation
+		multiClickTimeDelta altModifiers metaModifiers ctrlModifiers
+		shiftModifiers superModifiers buttonModifiers supportsDeepIcons
+		preferredIconSize ditherColors fixColors numFixRed numFixGreen
+		numFixBlue fixGrayColors copyBuffer lastCopyBuffer blackColor
+		whiteColor focusMode activeView clipBoardEncoding focusView
+		deviceErrorSignal deviceIOErrorSignal mayOpenDebugger
+		suppressDebugger'
+	classVariableNames:'ButtonTranslation MultiClickTimeDelta DeviceErrorSignal
+		DeviceIOErrorSignal DeviceIOTimeoutErrorSignal ErrorPrinting
+		DefaultScreen AllScreens CurrentScreenQuerySignal
+		LastActiveScreen LastActiveProcess WindowsRightButtonBehavior
+		ExitOnLastClose DrawingOnClosedDeviceSignal'
+	poolDictionaries:''
+	category:'Interface-Graphics'
 !
 
 Object subclass:#DeviceFontMetrics
-        instanceVariableNames:'encoding ascent descent maxAscent maxDescent minWidth maxWidth
-                averageWidth'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:DeviceWorkstation
+	instanceVariableNames:'encoding ascent descent maxAscent maxDescent minWidth maxWidth
+		averageWidth'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:DeviceWorkstation
 !
 
 !DeviceWorkstation class methodsFor:'documentation'!
@@ -5215,10 +5215,12 @@
 !
 
 close
-    "close down connection to Display - usually never done"
+    "close down connection to Display - usually never done for the main screen"
 
     self releaseDeviceResources.
     self closeConnection.
+    dispatching := false.
+    dispatchProcess terminate.
 
     "Modified: 13.1.1997 / 22:13:18 / cg"
 !
@@ -7430,6 +7432,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.405 2001-10-18 14:58:45 james Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.406 2001-11-19 15:15:32 cg Exp $'
 ! !
 DeviceWorkstation initialize!