diff options
| author | fvogel <fvogelnew1@free.fr> | 2023-07-26 21:22:23 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2023-07-26 21:22:23 (GMT) |
| commit | 091c324592d2915e7f70e1f36797d22836fea4dc (patch) | |
| tree | 234422ad1df81dad69a46774249746de476afabb | |
| parent | 1007e88c9bdb14200d0121e9e91982e850b9a4d6 (diff) | |
| parent | 83f6c0fb39f92f7ea971e7bb0a69bd7cd3c26593 (diff) | |
| download | tk-091c324592d2915e7f70e1f36797d22836fea4dc.zip tk-091c324592d2915e7f70e1f36797d22836fea4dc.tar.gz tk-091c324592d2915e7f70e1f36797d22836fea4dc.tar.bz2 | |
Fix [ed9b28d478]: Aqua: fix improper Tcl value reference counts in GetWidgetDemoPath(). Patch from Christopher Chavez.
| -rw-r--r-- | macosx/tkMacOSXMenus.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/macosx/tkMacOSXMenus.c b/macosx/tkMacOSXMenus.c index 89b8600..b1b8bad 100644 --- a/macosx/tkMacOSXMenus.c +++ b/macosx/tkMacOSXMenus.c @@ -338,7 +338,9 @@ GetWidgetDemoPath( libpath = Tcl_GetObjResult(interp); Tcl_IncrRefCount(libpath); + Tcl_IncrRefCount(demo[0]); result = Tcl_FSJoinToPath(libpath, 1, demo); + Tcl_DecrRefCount(demo[0]); Tcl_DecrRefCount(libpath); } Tcl_ResetResult(interp); |