Protect against the possibility that a future platform might have a strange implementaton of XDestroyImage.

1 files changed, 13 insertions, 1 deletions

diff --git a/generic/ttk/ttkDefaultTheme.c b/generic/ttk/ttkDefaultTheme.c
index 803d254..7ac0237 100644
--- a/generic/ttk/ttkDefaultTheme.c
+++ b/generic/ttk/ttkDefaultTheme.c
@@ -611,10 +611,22 @@ static void IndicatorElementDraw(
                spec->width, spec->height);
 
     /*
-     * Tidy up. Note that XDestroyImage frees img->data.
+     * Tidy up.
      */
 
     Tk_FreeGC(display, copyGC);
+
+    /*
+     * Protect against the possibility that some future platform might
+     * not use the Tk memory manager in its implementation of XDestroyImage,
+     * even though that would be an extremely strange thing to do.
+     */
+    
+#if defined(IGNORES_VISUAL)
+    ckfree(img->data);
+    img->data = NULL;
+#endif
+    
     XDestroyImage(img);
 }