Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
do not raise drawingOnClosedConnection signal in end-user apps.
authorClaus Gittinger <cg@exept.de>
Wed, 05 Nov 2008 15:44:59 +0100
changeset 5077 d56d429dbcee
parent 5076 3ac229eecb39
child 5078 30111fa8b0a0
do not raise drawingOnClosedConnection signal in end-user apps.
DeviceWorkstation.st file | annotate | diff | comparison | revisions 
--- a/DeviceWorkstation.st	Tue Nov 04 18:29:57 2008 +0100
+++ b/DeviceWorkstation.st	Wed Nov 05 15:44:59 2008 +0100
@@ -4074,8 +4074,11 @@
 
 primitiveFailedOrClosedConnection
     self isOpen ifFalse:[
-	DrawingOnClosedDeviceSignal raiseRequestWith:self.
-	^ nil
+        "/ ignore in end-user apps
+        (Smalltalk isSmalltalkDevelopmentSystem) ifTrue:[
+            DrawingOnClosedDeviceSignal raiseRequestWith:self.
+        ].
+        ^ nil
     ].
     ^ super primitiveFailed
 !
@@ -7827,7 +7830,7 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.520 2008-10-29 17:46:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.521 2008-11-05 14:44:59 cg Exp $'
 ! !
 
 DeviceWorkstation initialize!
hg/stx-libview