diff options
| author | nijtmans <nijtmans> | 2010-06-21 11:23:23 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-06-21 11:23:23 (GMT) |
| commit | 7904f2c09aac76e42beaba3829d4e0bc702b5828 (patch) | |
| tree | 42f60b267df843560dce3dc715050416409a7ed3 /unix/tclXtTest.c | |
| parent | b959e69e2efe23f4904f8ebcb2c6638af32aeb4a (diff) | |
| download | tcl-7904f2c09aac76e42beaba3829d4e0bc702b5828.zip tcl-7904f2c09aac76e42beaba3829d4e0bc702b5828.tar.gz tcl-7904f2c09aac76e42beaba3829d4e0bc702b5828.tar.bz2 | |
Eliminate various unnecessary type casts, use function typedefs whenever possible
Diffstat (limited to 'unix/tclXtTest.c')
| -rw-r--r-- | unix/tclXtTest.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/unix/tclXtTest.c b/unix/tclXtTest.c index 54bcbcf..d921074 100644 --- a/unix/tclXtTest.c +++ b/unix/tclXtTest.c @@ -5,10 +5,10 @@ * * Copyright (c) 1997 by Sun Microsystems, Inc. * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. + * See the file "license.terms" for information on usage and redistribution + * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclXtTest.c,v 1.11 2010/06/14 12:58:11 nijtmans Exp $ + * RCS: @(#) $Id: tclXtTest.c,v 1.12 2010/06/21 11:23:23 nijtmans Exp $ */ #ifndef USE_TCL_STUBS @@ -17,9 +17,9 @@ #include <X11/Intrinsic.h> #include "tcl.h" -static int TesteventloopCmd(ClientData clientData, - Tcl_Interp *interp, int argc, const char **argv); +static Tcl_CmdProc TesteventloopCmd; extern DLLEXPORT Tcl_PackageInitProc Tclxttest_Init; + /* * Functions defined in tclXtNotify.c for use by users of the Xt Notifier: */ @@ -89,10 +89,10 @@ TesteventloopCmd( * innermost invocation of the "wait" * subcommand. */ - if (argc < 2) { + if (argc < 2) { Tcl_AppendResult(interp, "wrong # arguments: should be \"", argv[0], " option ... \"", NULL); - return TCL_ERROR; + return TCL_ERROR; } if (strcmp(argv[1], "done") == 0) { *framePtr = 1; |