WinWorkstation.st
branchjv
changeset 7161 12542983c1ea
parent 7152 e63bbf5eefa6
child 7250 9f1ea0ebcba4
--- a/WinWorkstation.st	Tue Feb 23 22:53:06 2016 +0000
+++ b/WinWorkstation.st	Tue Feb 23 22:55:32 2016 +0000
@@ -8183,7 +8183,9 @@
      given GC"
 %{
     if (__isExternalAddressLike(gcId)) {
-        RETURN ( __MKEXTERNALADDRESS (_getDC ( _GCDATA(gcId) ) ) );
+    	HDC dc = _getDC ( _GCDATA(gcId) );
+    	_GCDATA(gcId)->doNotCacheOrRelease = 1;
+        RETURN ( __MKEXTERNALADDRESS ( dc ) );
     }	
 %}.
     self primitiveFailed.