Fix [8da7af2f8e]: slow widget creation if default font is not used

tcltk · Jan 21, 2024 · 7030cf9 · 7030cf9
1 parent 10c4db3
commit 7030cf9
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/generic/tkFont.c b/generic/tkFont.c
@@ -1326,6 +1326,7 @@ Tk_GetFontFromObj(
 	    FreeFontObj(objPtr);
 	    fontPtr = NULL;
 	} else if (Tk_Screen(tkwin) == fontPtr->screen) {
+	    fontPtr->resourceRefCount++;
 	    return (Tk_Font) fontPtr;
 	}
     }