diff options
Diffstat (limited to 'generic/tkPack.c')
-rw-r--r-- | generic/tkPack.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/generic/tkPack.c b/generic/tkPack.c index e82e3db..8dc6284 100644 --- a/generic/tkPack.c +++ b/generic/tkPack.c @@ -120,7 +120,7 @@ static const Tk_GeomMgr packerType = { static void ArrangePacking(void *clientData); static int ConfigureContent(Tcl_Interp *interp, Tk_Window tkwin, int objc, Tcl_Obj *const objv[]); -static void DestroyPacker(void *memPtr); +static Tcl_FreeProc DestroyPacker; static Packer * GetPacker(Tk_Window tkwin); #ifndef TK_NO_DEPRECATED static int PackAfter(Tcl_Interp *interp, Packer *prevPtr, @@ -1404,8 +1404,11 @@ Unlink( static void DestroyPacker( - void *memPtr) /* Info about packed window that is now - * dead. */ +#if TCL_MAJOR_VERSION > 8 + void *memPtr) /* Info about packed window that is now dead. */ +#else + char *memPtr) +#endif { Packer *packPtr = (Packer *)memPtr; |