# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 959712898 -7200
# Node ID 61414144918b77e5750950a4d68bf4a77ffee5bb
# Parent  8648fa72c0afb921849b932a694403bcb21d4e23
More error handling

diff -r 8648fa72c0af -r 61414144918b XWorkstation.st
--- a/XWorkstation.st	Tue May 30 19:06:04 2000 +0200
+++ b/XWorkstation.st	Tue May 30 20:54:58 2000 +0200
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:4.1.1 on 25-Mai-2000 at 19:05:54'                    !
-
 "{ Package: 'stx:libview' }"
 
 DeviceWorkstation subclass:#XWorkstation
@@ -370,11 +368,12 @@
     /*
      * if we return from the error interrupt ...
      */
-
-    __internalError("unhandled display Timeout error");
-
-    __terminateProcess(0);      /* soft terminate */
-    __terminateProcess(1);      /* hard terminate */
+    if (__OINST(displayDeviceInst, displayId) != nil) {
+        __internalError("unhandled display Timeout error");
+
+        __terminateProcess(0);      /* soft terminate */
+        __terminateProcess(1);      /* hard terminate */
+    }
 }
 
 #ifdef VIRTUAL_ROOT
@@ -10214,6 +10213,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.347 2000-05-30 17:06:04 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.348 2000-05-30 18:54:58 stefan Exp $'
 ! !
 XWorkstation initialize!