diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-02-13 09:57:07 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-02-13 09:57:07 (GMT) |
commit | 4a1828d3e7f328cce5d6b770ffbb6ea5a5373d0c (patch) | |
tree | ee4d9a63fa953072901b6d76880e60f81266dd78 /generic/tkCmds.c | |
parent | 58dee83cb742162ddda8b91eb7a8132aebaa68b4 (diff) | |
download | tk-4a1828d3e7f328cce5d6b770ffbb6ea5a5373d0c.zip tk-4a1828d3e7f328cce5d6b770ffbb6ea5a5373d0c.tar.gz tk-4a1828d3e7f328cce5d6b770ffbb6ea5a5373d0c.tar.bz2 |
Make tk.h work unchanged with Tcl 9.0 (novem), account for possible missing TCL_STORAGE_CLASS definition. More internal use of size_t in stead of int.
Diffstat (limited to 'generic/tkCmds.c')
-rw-r--r-- | generic/tkCmds.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/generic/tkCmds.c b/generic/tkCmds.c index 6196b17..93c1fb0 100644 --- a/generic/tkCmds.c +++ b/generic/tkCmds.c @@ -2068,14 +2068,13 @@ TkGetDisplayOf( * present. */ { const char *string; - int length; if (objc < 1) { return 0; } - string = Tcl_GetStringFromObj(objv[0], &length); - if ((length >= 2) && - (strncmp(string, "-displayof", (unsigned) length) == 0)) { + string = Tcl_GetString(objv[0]); + if ((objv[0]->length >= 2) && + (strncmp(string, "-displayof", objv[0]->length) == 0)) { if (objc < 2) { Tcl_SetObjResult(interp, Tcl_NewStringObj( "value for \"-displayof\" missing", -1)); |