CairoGraphicsContext.st
changeset 50 239120c68187
parent 49 5218b606b6cf
child 51 5293f2b851ab
--- a/CairoGraphicsContext.st	Fri Feb 26 11:05:14 2016 +0000
+++ b/CairoGraphicsContext.st	Thu Feb 25 20:55:41 2016 +0000
@@ -815,15 +815,17 @@
      this instance should be treated as invalid."
 
     cr notNil ifTrue:[
-        | surface |
+        | surfaceToDestroy crToDestroy |
 
-        surface := cr surface.
-        cr release.
-        surface release.
+        crToDestroy := cr.
+        surfaceToDestroy := cr surface.
+        cr := nil.
+        crToDestroy release.
+        surfaceToDestroy release.
     ].
 
     "Created: / 12-02-2016 / 16:59:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 13-02-2016 / 19:59:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 26-02-2016 / 22:50:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 destroyGC