XWorkstation.st
changeset 5716 27e02ce4e72a
parent 5586 1c02d95a3e80
child 5736 fa0b6755ef24
--- 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!