changed: #destroyGC:
authorStefan Vogel <sv@exept.de>
Wed, 23 Feb 2011 14:55:58 +0100
changeset 5716 27e02ce4e72a
parent 5715 92d2120e3a67
child 5717 a63f96cbb291
changed: #destroyGC:
XWorkstation.st
--- a/XWorkstation.st	Wed Feb 09 14:03:53 2011 +0100
+++ b/XWorkstation.st	Wed Feb 23 14:55:58 2011 +0100
@@ -1918,11 +1918,6 @@
     if (__isExternalAddress(aGCId)) {
         GC gc = __GCVal(aGCId);
 
-        if (gc == NULL) {
-            console_fprintf(stderr, "XWorkstation [warning]: trying to destroy GC twice\n");
-            RETURN( self );
-        }
-
         if (gc) {
             __ExternalAddressInstPtr(aGCId)->e_address = NULL;
 
@@ -1932,6 +1927,8 @@
 #ifdef COUNT_RESOURCES
             __cnt_gc--;
 #endif
+        } else {
+            console_fprintf(stderr, "XWorkstation [warning]: trying to destroy GC twice\n");
         }
         RETURN ( self );
     }
@@ -12026,11 +12023,11 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.515 2010-08-03 09:20:05 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.516 2011-02-23 13:55:58 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.515 2010-08-03 09:20:05 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.516 2011-02-23 13:55:58 stefan Exp $'
 ! !
 
 XWorkstation initialize!