diff options
| author | nijtmans <nijtmans> | 2010-06-15 11:16:02 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-06-15 11:16:02 (GMT) |
| commit | 1d9e4b35ac1edb7acb7a11bb871ab2a8d4263892 (patch) | |
| tree | 377b18f7cb439e3eb421010182cff5c13fb0d3f6 /unix/tkUnixScale.c | |
| parent | 8aef287d1e78682504c84c81e646a42a6730939e (diff) | |
| download | tk-1d9e4b35ac1edb7acb7a11bb871ab2a8d4263892.zip tk-1d9e4b35ac1edb7acb7a11bb871ab2a8d4263892.tar.gz tk-1d9e4b35ac1edb7acb7a11bb871ab2a8d4263892.tar.bz2 | |
Eliminate many unnecessary (ClientData) type casts.
Diffstat (limited to 'unix/tkUnixScale.c')
| -rw-r--r-- | unix/tkUnixScale.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/unix/tkUnixScale.c b/unix/tkUnixScale.c index fd249ba..7e06b3f 100644 --- a/unix/tkUnixScale.c +++ b/unix/tkUnixScale.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkUnixScale.c,v 1.14 2008/12/09 21:22:56 dgp Exp $ + * RCS: @(#) $Id: tkUnixScale.c,v 1.15 2010/06/15 11:16:03 nijtmans Exp $ */ #include "tkInt.h" @@ -73,7 +73,7 @@ void TkpDestroyScale( TkScale *scalePtr) { - Tcl_EventuallyFree((ClientData) scalePtr, TCL_DYNAMIC); + Tcl_EventuallyFree(scalePtr, TCL_DYNAMIC); } /* @@ -549,9 +549,9 @@ TkpDisplayScale( * Invoke the scale's command if needed. */ - Tcl_Preserve((ClientData) scalePtr); + Tcl_Preserve(scalePtr); if ((scalePtr->flags & INVOKE_COMMAND) && (scalePtr->command != NULL)) { - Tcl_Preserve((ClientData) interp); + Tcl_Preserve(interp); sprintf(string, scalePtr->format, scalePtr->value); result = Tcl_VarEval(interp, scalePtr->command, " ", string, (char *) NULL); @@ -559,14 +559,14 @@ TkpDisplayScale( Tcl_AddErrorInfo(interp, "\n (command executed by scale)"); Tcl_BackgroundException(interp, result); } - Tcl_Release((ClientData) interp); + Tcl_Release(interp); } scalePtr->flags &= ~INVOKE_COMMAND; if (scalePtr->flags & SCALE_DELETED) { - Tcl_Release((ClientData) scalePtr); + Tcl_Release(scalePtr); return; } - Tcl_Release((ClientData) scalePtr); + Tcl_Release(scalePtr); #ifndef TK_NO_DOUBLE_BUFFERING /* |