forked from pool/perl-Tk
ecf8ad5330
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Tk?expand=0&rev=c4d4d51683236edd53f155f4e074bc6d
13 lines
438 B
Diff
13 lines
438 B
Diff
Index: pTk/mTk/unix/tkUnixXft.c
|
|
===================================================================
|
|
--- pTk/mTk/unix/tkUnixXft.c.orig
|
|
+++ pTk/mTk/unix/tkUnixXft.c
|
|
@@ -165,6 +165,7 @@ InitFont(
|
|
|
|
for (i = 0; i < set->nfont; i++) {
|
|
fontPtr->faces[i].ftFont = 0;
|
|
+ FcPatternReference (set->fonts[i]);
|
|
fontPtr->faces[i].source = set->fonts[i];
|
|
if (FcPatternGetCharSet(set->fonts[i], FC_CHARSET, 0,
|
|
&charset) == FcResultMatch) {
|