diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-04-15 23:26:44 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-04-15 23:26:44 (GMT) |
| commit | 2cced2c8a8ed9d460fb9a15426354a32709ddd1f (patch) | |
| tree | e9cb2d4138705d83b307c9e077443366dcdceb56 /macosx/tkMacOSXMenus.c | |
| parent | 14219460ca7cd029d3b9b54ad4d4c15c68668ce8 (diff) | |
| download | tk-2cced2c8a8ed9d460fb9a15426354a32709ddd1f.zip tk-2cced2c8a8ed9d460fb9a15426354a32709ddd1f.tar.gz tk-2cced2c8a8ed9d460fb9a15426354a32709ddd1f.tar.bz2 | |
Handle larger string-lengths in MacOS, when compiling with Tcl 9 headers
Diffstat (limited to 'macosx/tkMacOSXMenus.c')
| -rw-r--r-- | macosx/tkMacOSXMenus.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/macosx/tkMacOSXMenus.c b/macosx/tkMacOSXMenus.c index 54f32d5..89b8600 100644 --- a/macosx/tkMacOSXMenus.c +++ b/macosx/tkMacOSXMenus.c @@ -240,7 +240,7 @@ static Tcl_Obj * GetWidgetDemoPath(Tcl_Interp *interp); "{{TCL Scripts} {.tcl} TEXT} {{Text Files} {} TEXT}}", TCL_INDEX_NONE, TCL_EVAL_GLOBAL) == TCL_OK) { Tcl_Obj *path = Tcl_GetObjResult(_eventInterp); - int len; + Tcl_Size len; Tcl_GetStringFromObj(path, &len); if (len) { |