diff options
Diffstat (limited to 'generic/tkCmds.c')
-rw-r--r-- | generic/tkCmds.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tkCmds.c b/generic/tkCmds.c index 93c1fb0..6196b17 100644 --- a/generic/tkCmds.c +++ b/generic/tkCmds.c @@ -2068,13 +2068,14 @@ TkGetDisplayOf( * present. */ { const char *string; + int length; if (objc < 1) { return 0; } - string = Tcl_GetString(objv[0]); - if ((objv[0]->length >= 2) && - (strncmp(string, "-displayof", objv[0]->length) == 0)) { + string = Tcl_GetStringFromObj(objv[0], &length); + if ((length >= 2) && + (strncmp(string, "-displayof", (unsigned) length) == 0)) { if (objc < 2) { Tcl_SetObjResult(interp, Tcl_NewStringObj( "value for \"-displayof\" missing", -1)); |