forked from pool/perl-Tk
ecf8ad5330
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Tk?expand=0&rev=c4d4d51683236edd53f155f4e074bc6d
12 lines
371 B
Diff
12 lines
371 B
Diff
--- pTk/mTk/unix/tkUnixXft.c
|
|
+++ pTk/mTk/unix/tkUnixXft.c
|
|
@@ -439,7 +439,7 @@
|
|
resultPtr = Tcl_NewListObj(0, NULL);
|
|
|
|
list = XftListFonts(Tk_Display(tkwin), Tk_ScreenNumber(tkwin), 0,
|
|
- XFT_FAMILY, 0);
|
|
+ XFT_FAMILY, NULL);
|
|
for (i = 0; i < list->nfont; i++) {
|
|
if (XftPatternGetString(list->fonts[i], XFT_FAMILY, 0,
|
|
&family) == XftResultMatch) {
|