diff options
Diffstat (limited to 'unix/tkUnixRFont.c')
| -rw-r--r-- | unix/tkUnixRFont.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/unix/tkUnixRFont.c b/unix/tkUnixRFont.c index 7282b91..6d826ea 100644 --- a/unix/tkUnixRFont.c +++ b/unix/tkUnixRFont.c @@ -612,7 +612,7 @@ TkpGetFontFamilies( if (XftPatternGetString(list->fonts[i], XFT_FAMILY, 0, familyPtr) == XftResultMatch) { - Tcl_Obj *strPtr = Tcl_NewStringObj(family, -1); + Tcl_Obj *strPtr = Tcl_NewStringObj(family, TCL_INDEX_NONE); Tcl_ListObjAppendElement(NULL, resultPtr, strPtr); } @@ -660,9 +660,9 @@ TkpGetSubFonts( XftPatternGetString(pattern, XFT_FAMILY, 0, familyPtr); XftPatternGetString(pattern, XFT_FOUNDRY, 0, foundryPtr); XftPatternGetString(pattern, XFT_ENCODING, 0, encodingPtr); - objv[0] = Tcl_NewStringObj(family, -1); - objv[1] = Tcl_NewStringObj(foundry, -1); - objv[2] = Tcl_NewStringObj(encoding, -1); + objv[0] = Tcl_NewStringObj(family, TCL_INDEX_NONE); + objv[1] = Tcl_NewStringObj(foundry, TCL_INDEX_NONE); + objv[2] = Tcl_NewStringObj(encoding, TCL_INDEX_NONE); listPtr = Tcl_NewListObj(3, objv); Tcl_ListObjAppendElement(NULL, resultPtr, listPtr); } |