Fix minor K&R-ism

1 files changed, 54 insertions, 54 deletions

diff --git a/generic/tkOldConfig.c b/generic/tkOldConfig.c
index ce2c544..944c4ef 100644
--- a/generic/tkOldConfig.c
+++ b/generic/tkOldConfig.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkOldConfig.c,v 1.20 2005/11/17 16:21:56 dkf Exp $
+ * RCS: @(#) $Id: tkOldConfig.c,v 1.21 2007/02/13 00:30:19 dkf Exp $
  */
 
 #include "tkPort.h"
@@ -71,16 +71,16 @@ static void		DeleteSpecCacheTable(ClientData clientData,
  */
 
 int
-Tk_ConfigureWidget(interp, tkwin, specs, argc, argv, widgRec, flags)
-    Tcl_Interp *interp;		/* Interpreter for error reporting. */
-    Tk_Window tkwin;		/* Window containing widget (needed to set up
+Tk_ConfigureWidget(
+    Tcl_Interp *interp,		/* Interpreter for error reporting. */
+    Tk_Window tkwin,		/* Window containing widget (needed to set up
 				 * X resources). */
-    Tk_ConfigSpec *specs;	/* Describes legal options. */
-    int argc;			/* Number of elements in argv. */
-    CONST char **argv;		/* Command-line options. */
-    char *widgRec;		/* Record whose fields are to be modified.
+    Tk_ConfigSpec *specs,	/* Describes legal options. */
+    int argc,			/* Number of elements in argv. */
+    CONST char **argv,		/* Command-line options. */
+    char *widgRec,		/* Record whose fields are to be modified.
 				 * Values must be properly initialized. */
-    int flags;			/* Used to specify additional flags that must
+    int flags)			/* Used to specify additional flags that must
 				 * be present in config specs for them to be
 				 * considered. Also, may have
 				 * TK_CONFIG_ARGV_ONLY set. */
@@ -239,15 +239,15 @@ Tk_ConfigureWidget(interp, tkwin, specs, argc, argv, widgRec, flags)
  */
 
 static Tk_ConfigSpec *
-FindConfigSpec(interp, specs, argvName, needFlags, hateFlags)
-    Tcl_Interp *interp;		/* Used for reporting errors. */
-    Tk_ConfigSpec *specs;	/* Pointer to table of configuration
+FindConfigSpec(
+    Tcl_Interp *interp,		/* Used for reporting errors. */
+    Tk_ConfigSpec *specs,	/* Pointer to table of configuration
 				 * specifications for a widget. */
-    CONST char *argvName;	/* Name (suitable for use in a "config"
+    CONST char *argvName,	/* Name (suitable for use in a "config"
 				 * command) identifying particular option. */
-    int needFlags;		/* Flags that must be present in matching
+    int needFlags,		/* Flags that must be present in matching
 				 * entry. */
-    int hateFlags;		/* Flags that must NOT be present in matching
+    int hateFlags)		/* Flags that must NOT be present in matching
 				 * entry. */
 {
     register Tk_ConfigSpec *specPtr;
@@ -331,15 +331,15 @@ FindConfigSpec(interp, specs, argvName, needFlags, hateFlags)
  */
 
 static int
-DoConfig(interp, tkwin, specPtr, value, valueIsUid, widgRec)
-    Tcl_Interp *interp;		/* Interpreter for error reporting. */
-    Tk_Window tkwin;		/* Window containing widget (needed to set up
+DoConfig(
+    Tcl_Interp *interp,		/* Interpreter for error reporting. */
+    Tk_Window tkwin,		/* Window containing widget (needed to set up
 				 * X resources). */
-    Tk_ConfigSpec *specPtr;	/* Specifier to apply. */
-    Tk_Uid value;		/* Value to use to fill in widgRec. */
-    int valueIsUid;		/* Non-zero means value is a Tk_Uid; zero
+    Tk_ConfigSpec *specPtr,	/* Specifier to apply. */
+    Tk_Uid value,		/* Value to use to fill in widgRec. */
+    int valueIsUid,		/* Non-zero means value is a Tk_Uid; zero
 				 * means it's an ordinary string. */
-    char *widgRec;		/* Record whose fields are to be modified.
+    char *widgRec)		/* Record whose fields are to be modified.
 				 * Values must be properly initialized. */
 {
     char *ptr;
@@ -592,16 +592,16 @@ DoConfig(interp, tkwin, specPtr, value, valueIsUid, widgRec)
  */
 
 int
-Tk_ConfigureInfo(interp, tkwin, specs, widgRec, argvName, flags)
-    Tcl_Interp *interp;		/* Interpreter for error reporting. */
-    Tk_Window tkwin;		/* Window corresponding to widgRec. */
-    Tk_ConfigSpec *specs;	/* Describes legal options. */
-    char *widgRec;		/* Record whose fields contain current values
+Tk_ConfigureInfo(
+    Tcl_Interp *interp,		/* Interpreter for error reporting. */
+    Tk_Window tkwin,		/* Window corresponding to widgRec. */
+    Tk_ConfigSpec *specs,	/* Describes legal options. */
+    char *widgRec,		/* Record whose fields contain current values
 				 * for options. */
-    CONST char *argvName;	/* If non-NULL, indicates a single option
+    CONST char *argvName,	/* If non-NULL, indicates a single option
 				 * whose info is to be returned. Otherwise
 				 * info is returned for all options. */
-    int flags;			/* Used to specify additional flags that must
+    int flags)			/* Used to specify additional flags that must
 				 * be present in config specs for them to be
 				 * considered. */
 {
@@ -683,14 +683,14 @@ Tk_ConfigureInfo(interp, tkwin, specs, widgRec, argvName, flags)
  */
 
 static char *
-FormatConfigInfo(interp, tkwin, specPtr, widgRec)
-    Tcl_Interp *interp;		/* Interpreter to use for things like
+FormatConfigInfo(
+    Tcl_Interp *interp,		/* Interpreter to use for things like
 				 * floating-point precision. */
-    Tk_Window tkwin;		/* Window corresponding to widget. */
-    register Tk_ConfigSpec *specPtr;
+    Tk_Window tkwin,		/* Window corresponding to widget. */
+    register Tk_ConfigSpec *specPtr,
 				/* Pointer to information describing
 				 * option. */
-    char *widgRec;		/* Pointer to record holding current values of
+    char *widgRec)		/* Pointer to record holding current values of
 				 * info for widget. */
 {
     CONST char *argv[6];
@@ -751,16 +751,16 @@ FormatConfigInfo(interp, tkwin, specPtr, widgRec)
  */
 
 static CONST char *
-FormatConfigValue(interp, tkwin, specPtr, widgRec, buffer, freeProcPtr)
-    Tcl_Interp *interp;		/* Interpreter for use in real conversions. */
-    Tk_Window tkwin;		/* Window corresponding to widget. */
-    Tk_ConfigSpec *specPtr;	/* Pointer to information describing option.
+FormatConfigValue(
+    Tcl_Interp *interp,		/* Interpreter for use in real conversions. */
+    Tk_Window tkwin,		/* Window corresponding to widget. */
+    Tk_ConfigSpec *specPtr,	/* Pointer to information describing option.
 				 * Must not point to a synonym option. */
-    char *widgRec;		/* Pointer to record holding current values of
+    char *widgRec,		/* Pointer to record holding current values of
 				 * info for widget. */
-    char *buffer;		/* Static buffer to use for small values.
+    char *buffer,		/* Static buffer to use for small values.
 				 * Must have at least 200 bytes of storage. */
-    Tcl_FreeProc **freeProcPtr;	/* Pointer to word to fill in with address of
+    Tcl_FreeProc **freeProcPtr)	/* Pointer to word to fill in with address of
 				 * function to free the result, or NULL if
 				 * result is static. */
 {
@@ -904,15 +904,15 @@ FormatConfigValue(interp, tkwin, specPtr, widgRec, buffer, freeProcPtr)
  */
 
 int
-Tk_ConfigureValue(interp, tkwin, specs, widgRec, argvName, flags)
-    Tcl_Interp *interp;		/* Interpreter for error reporting. */
-    Tk_Window tkwin;		/* Window corresponding to widgRec. */
-    Tk_ConfigSpec *specs;	/* Describes legal options. */
-    char *widgRec;		/* Record whose fields contain current values
+Tk_ConfigureValue(
+    Tcl_Interp *interp,		/* Interpreter for error reporting. */
+    Tk_Window tkwin,		/* Window corresponding to widgRec. */
+    Tk_ConfigSpec *specs,	/* Describes legal options. */
+    char *widgRec,		/* Record whose fields contain current values
 				 * for options. */
-    CONST char *argvName;	/* Gives the command-line name for the option
+    CONST char *argvName,	/* Gives the command-line name for the option
 				 * whose value is to be returned. */
-    int flags;			/* Used to specify additional flags that must
+    int flags)			/* Used to specify additional flags that must
 				 * be present in config specs for them to be
 				 * considered. */
 {
@@ -975,13 +975,13 @@ Tk_ConfigureValue(interp, tkwin, specs, widgRec, argvName, flags)
 
 	/* ARGSUSED */
 void
-Tk_FreeOptions(specs, widgRec, display, needFlags)
-    Tk_ConfigSpec *specs;	/* Describes legal options. */
-    char *widgRec;		/* Record whose fields contain current values
+Tk_FreeOptions(
+    Tk_ConfigSpec *specs,	/* Describes legal options. */
+    char *widgRec,		/* Record whose fields contain current values
 				 * for options. */
-    Display *display;		/* X display; needed for freeing some
+    Display *display,		/* X display; needed for freeing some
 				 * resources. */
-    int needFlags;		/* Used to specify additional flags that must
+    int needFlags)		/* Used to specify additional flags that must
 				 * be present in config specs for them to be
 				 * considered. */
 {
@@ -1110,7 +1110,7 @@ GetCachedSpecs(
 	 */
 
 	cachedSpecs = (Tk_ConfigSpec *) ckalloc(entrySpace);
-	memcpy((void *) cachedSpecs, (void *) staticSpecs, entrySpace);
+	memcpy(cachedSpecs, staticSpecs, entrySpace);
 	Tcl_SetHashValue(entryPtr, (ClientData) cachedSpecs);
 
 	/*