(slightly modified) proposed fix for [3981091ed3]: Segmentation fault…

… with bogus resource value (X11)
tcltk · Sep 20, 2024 · d8be6f2 · d8be6f2
1 parent 116741c
commit d8be6f2
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/generic/ttk/ttkTheme.c b/generic/ttk/ttkTheme.c
@@ -534,9 +534,10 @@ void Ttk_TkDestroyedHandler(
     StylePackageData* pkgPtr = GetStylePackageData(interp);
 
     /*
-     * Cancel any pending ThemeChanged calls:
+     * Cancel any pending ThemeChanged calls. We might be called
+     * before Ttk is initialized. See bug [3981091ed336].
      */
-    if (pkgPtr->themeChangePending) {
+    if (pkgPtr && pkgPtr->themeChangePending) {
 	Tcl_CancelIdleCall(ThemeChangedProc, pkgPtr);
     }
 }