diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-30 19:40:32 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-30 19:40:32 (GMT) |
| commit | 978ebdabc724269d5559757507f87bd121953099 (patch) | |
| tree | 87be93974759bfc95575170f122d16c56c87640c /win/ttkWinXPTheme.c | |
| parent | 5f8fa20d23ced1ed51787796956391f963658830 (diff) | |
| download | tk-978ebdabc724269d5559757507f87bd121953099.zip tk-978ebdabc724269d5559757507f87bd121953099.tar.gz tk-978ebdabc724269d5559757507f87bd121953099.tar.bz2 | |
more int -> Tcl_Size (making use of the increased range in Tcl 9.0)
Diffstat (limited to 'win/ttkWinXPTheme.c')
| -rw-r--r-- | win/ttkWinXPTheme.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/win/ttkWinXPTheme.c b/win/ttkWinXPTheme.c index 5d3e1ce..0d5c06f 100644 --- a/win/ttkWinXPTheme.c +++ b/win/ttkWinXPTheme.c @@ -1109,7 +1109,7 @@ Ttk_CreateVsapiElement( void *clientData, Ttk_Theme theme, const char *elementName, - int objc, + Tcl_Size objc, Tcl_Obj *const objv[]) { XPThemeData *themeData = (XPThemeData *)clientData; @@ -1132,7 +1132,7 @@ Ttk_CreateVsapiElement( enum { O_HALFHEIGHT, O_HALFWIDTH, O_HEIGHT, O_MARGINS, O_PADDING, O_SYSSIZE, O_WIDTH }; - if (objc < 2) { + if (objc + 1 < 3) { Tcl_SetObjResult(interp, Tcl_NewStringObj( "missing required arguments 'class' and/or 'partId'", -1)); Tcl_SetErrorCode(interp, "TTK", "VSAPI", "REQUIRED", NULL); @@ -1148,7 +1148,8 @@ Ttk_CreateVsapiElement( /* flags or padding */ if (objc > 3) { - int i = 3, option = 0; + Tcl_Size i = 3; + int option = 0; for (i = 3; i < objc; i += 2) { int tmp = 0; if (i == objc -1) { |