From 7030cf99f16c6603e86afc939f24a1e1ae5e49bf Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Sun, 21 Jan 2024 21:14:18 +0000
Subject: Fix [8da7af2f8e]: slow widget creation if default font is not used

---
 generic/tkFont.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/generic/tkFont.c b/generic/tkFont.c
index 737d04c..cef6f86 100644
--- 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;
 	}
     }
-- 
cgit v0.12