diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-03 11:18:28 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-03 11:18:28 (GMT) |
| commit | 1e1f629ce1661dec695273cc771f3273bcd1cf22 (patch) | |
| tree | ef1295a44e7232e1c34f4d2d2051f3d40b9e9034 /win | |
| parent | 7981ee62fbb204d18b0e5ae785e719509f855932 (diff) | |
| download | tk-1e1f629ce1661dec695273cc771f3273bcd1cf22.zip tk-1e1f629ce1661dec695273cc771f3273bcd1cf22.tar.gz tk-1e1f629ce1661dec695273cc771f3273bcd1cf22.tar.bz2 | |
More Tcl_Size usages (so longer lists can be handled with >= Tcl 9.0 headers)
Diffstat (limited to 'win')
| -rw-r--r-- | win/tkWinDialog.c | 4 | ||||
| -rw-r--r-- | win/tkWinGDI.c | 2 | ||||
| -rw-r--r-- | win/tkWinWm.c | 4 |
3 files changed, 5 insertions, 5 deletions
diff --git a/win/tkWinDialog.c b/win/tkWinDialog.c index c957229..e769daf 100644 --- a/win/tkWinDialog.c +++ b/win/tkWinDialog.c @@ -1727,7 +1727,7 @@ static int GetFileNameXP(Tcl_Interp *interp, OFNOpts *optsPtr, enum OFNOper oper result = TCL_OK; if ((ofn.nFilterIndex > 0) && gotFilename && optsPtr->typeVariableObj && optsPtr->filterObj) { - int listObjc, count; + Tcl_Size listObjc, count; Tcl_Obj **listObjv = NULL; Tcl_Obj **typeInfo = NULL; @@ -3450,7 +3450,7 @@ FontchooserShowCmd( } if (TCL_OK == r && hdPtr->cmdObj != NULL) { - int len = 0; + Tcl_Size len = 0; r = Tcl_ListObjLength(interp, hdPtr->cmdObj, &len); if (len > 0) { diff --git a/win/tkWinGDI.c b/win/tkWinGDI.c index f3173a8..68d865d 100644 --- a/win/tkWinGDI.c +++ b/win/tkWinGDI.c @@ -2525,7 +2525,7 @@ static int GdiMakeLogFont( HDC hDC) { const char **list; - int count; + Tcl_Size count; /* Set up defaults for logical font. */ memset(lf, 0, sizeof(*lf)); diff --git a/win/tkWinWm.c b/win/tkWinWm.c index 1954f49..46f332a 100644 --- a/win/tkWinWm.c +++ b/win/tkWinWm.c @@ -219,7 +219,7 @@ typedef struct TkWmInfo { ProtocolHandler *protPtr; /* First in list of protocol handlers for this * window (NULL means none). */ - int cmdArgc; /* Number of elements in cmdArgv below. */ + Tcl_Size cmdArgc; /* Number of elements in cmdArgv below. */ const char **cmdArgv; /* Array of strings to store in the WM_COMMAND * property. NULL means nothing available. */ char *clientMachine; /* String to store in WM_CLIENT_MACHINE @@ -3377,7 +3377,7 @@ WmCommandCmd( { WmInfo *wmPtr = winPtr->wmInfoPtr; const char *argv3; - int cmdArgc; + Tcl_Size cmdArgc; const char **cmdArgv; if ((objc != 3) && (objc != 4)) { |