summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2007-02-13 00:30:19 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2007-02-13 00:30:19 (GMT)
commit4e3226d9c81078ec820fab6335987f7a2a2c2020 (patch)
tree2cbdb4391bf4b89665924aa32daab4d29406132f /generic
parent971dfdb4ef14052e797b88dbdb0a31590db0cbc6 (diff)
downloadtk-4e3226d9c81078ec820fab6335987f7a2a2c2020.zip
tk-4e3226d9c81078ec820fab6335987f7a2a2c2020.tar.gz
tk-4e3226d9c81078ec820fab6335987f7a2a2c2020.tar.bz2
Fix minor K&R-ism
Diffstat (limited to 'generic')
-rw-r--r--generic/tkOldConfig.c108
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);
/*