diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-11 15:05:34 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-11 15:05:34 (GMT) |
| commit | b53d86acf913b7508a1ac1b0d328fbacf4fa94ff (patch) | |
| tree | 2f8529a512f578339ff62195a2d1c693e9af4b03 /generic/tkBusy.c | |
| parent | d9c635b40f585244047e875ec066c04a97d4ed47 (diff) | |
| download | tk-b53d86acf913b7508a1ac1b0d328fbacf4fa94ff.zip tk-b53d86acf913b7508a1ac1b0d328fbacf4fa94ff.tar.gz tk-b53d86acf913b7508a1ac1b0d328fbacf4fa94ff.tar.bz2 | |
Do away with all those type-casts. Compatibility with 9.0 is still no issue
Diffstat (limited to 'generic/tkBusy.c')
| -rw-r--r-- | generic/tkBusy.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tkBusy.c b/generic/tkBusy.c index 1f00656..00ba73e 100644 --- a/generic/tkBusy.c +++ b/generic/tkBusy.c @@ -45,7 +45,7 @@ static void BusyCustodyProc(ClientData clientData, static int ConfigureBusy(Tcl_Interp *interp, Busy *busyPtr, int objc, Tcl_Obj *const objv[]); static Busy * CreateBusy(Tcl_Interp *interp, Tk_Window tkRef); -static void DestroyBusy(void *dataPtr); +static Tcl_FreeProc DestroyBusy; static void DoConfigureNotify(Tk_FakeWin *winPtr); static inline Tk_Window FirstChild(Tk_Window parent); static Busy * GetBusy(Tcl_Interp *interp, @@ -137,7 +137,7 @@ BusyCustodyProc( busyPtr); TkpHideBusyWindow(busyPtr); busyPtr->tkBusy = NULL; - Tcl_EventuallyFree(busyPtr, (Tcl_FreeProc *)(void *)DestroyBusy); + Tcl_EventuallyFree(busyPtr, DestroyBusy); } /* @@ -262,7 +262,7 @@ RefWinEventProc( * Arrange for the busy structure to be removed at a proper time. */ - Tcl_EventuallyFree(busyPtr, (Tcl_FreeProc *)(void *)DestroyBusy); + Tcl_EventuallyFree(busyPtr, DestroyBusy); break; case ConfigureNotify: @@ -333,7 +333,7 @@ RefWinEventProc( static void DestroyBusy( - void *data) /* Busy window structure record */ + char *data) /* Busy window structure record */ { Busy *busyPtr = (Busy *)data; @@ -383,7 +383,7 @@ BusyEventProc( if (eventPtr->type == DestroyNotify) { busyPtr->tkBusy = NULL; - Tcl_EventuallyFree(busyPtr, (Tcl_FreeProc *)(void *)DestroyBusy); + Tcl_EventuallyFree(busyPtr, DestroyBusy); } } @@ -901,7 +901,7 @@ Tk_BusyObjCmd( return TCL_ERROR; } TkpHideBusyWindow(busyPtr); - Tcl_EventuallyFree(busyPtr, (Tcl_FreeProc *)(void *)DestroyBusy); + Tcl_EventuallyFree(busyPtr, DestroyBusy); return TCL_OK; case BUSY_HOLD: |