diff options
author | fvogel <fvogelnew1@free.fr> | 2023-07-26 21:21:20 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2023-07-26 21:21:20 (GMT) |
commit | 83f6c0fb39f92f7ea971e7bb0a69bd7cd3c26593 (patch) | |
tree | d2104c7a2add07e11935746044f9a865c66fa293 /macosx | |
parent | d5e59f294d68fe93855a18f1fd34a0af3537ac0f (diff) | |
download | tk-83f6c0fb39f92f7ea971e7bb0a69bd7cd3c26593.zip tk-83f6c0fb39f92f7ea971e7bb0a69bd7cd3c26593.tar.gz tk-83f6c0fb39f92f7ea971e7bb0a69bd7cd3c26593.tar.bz2 |
Fix [ed9b28d478]: Aqua: fix improper Tcl value reference counts in GetWidgetDemoPath(). Patch from Christopher Chavez.
Diffstat (limited to 'macosx')
-rw-r--r-- | macosx/tkMacOSXMenus.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/macosx/tkMacOSXMenus.c b/macosx/tkMacOSXMenus.c index 9fcd3b8..7a0e937 100644 --- a/macosx/tkMacOSXMenus.c +++ b/macosx/tkMacOSXMenus.c @@ -330,7 +330,11 @@ GetWidgetDemoPath( Tcl_NewStringObj("widget", 6) }; Tcl_IncrRefCount(libpath); + Tcl_IncrRefCount(demo[0]); + Tcl_IncrRefCount(demo[1]); result = Tcl_FSJoinToPath(libpath, 2, demo); + Tcl_DecrRefCount(demo[1]); + Tcl_DecrRefCount(demo[0]); Tcl_DecrRefCount(libpath); } else { Tcl_ResetResult(interp); |