XWorkstation.st
changeset 218 10072d9beba5
parent 217 8066057d91a8
child 219 9ff0660f447f
--- a/XWorkstation.st	Fri Nov 10 18:06:29 1995 +0100
+++ b/XWorkstation.st	Fri Nov 10 22:20:32 1995 +0100
@@ -36,7 +36,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.72 1995-11-10 17:06:29 cg Exp $
+$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.73 1995-11-10 21:20:32 cg Exp $
 '!
 
 !XWorkstation class methodsFor:'documentation'!
@@ -57,7 +57,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.72 1995-11-10 17:06:29 cg Exp $
+$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.73 1995-11-10 21:20:32 cg Exp $
 "
 !
 
@@ -270,10 +270,12 @@
     lastMinorCode = event->minor_code;
     lastResource = event->resourceid;
 
-    fprintf(stderr, "XWORKSTAT: x-error cought maj=%d (0x%x) min=%d (0x%x) resource=%x\n",
-		    event->request_code, event->request_code, 
-		    event->minor_code, event->minor_code, event->resourceid);
-    fprintf(stderr, "XWORKSTAT: x-error message is '%s'\n", lastErrorMsg);
+    if (@global(DeviceWorkstation_ErrorPrinting) == true) {
+        fprintf(stderr, "XWORKSTAT: x-error cought maj=%d (0x%x) min=%d (0x%x) resource=%x\n",
+		        event->request_code, event->request_code, 
+		        event->minor_code, event->minor_code, event->resourceid);
+        fprintf(stderr, "XWORKSTAT: x-error message is '%s'\n", lastErrorMsg);
+    }
 
     __errorInterruptWithIDAndParameter__(@symbol(DisplayError), __MKOBJ(dpy));
     return 0;