More error handling
authorStefan Vogel <sv@exept.de>
Tue, 30 May 2000 20:54:58 +0200
changeset 3206 61414144918b
parent 3205 8648fa72c0af
child 3207 df242f652d1f
More error handling
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!