Lots of small changes to make code more pretty and C89-like.

2 files changed, 21 insertions, 21 deletions

diff --git a/unix/tkUnixSelect.c b/unix/tkUnixSelect.c
index b85b274..df8c3af 100644
--- a/unix/tkUnixSelect.c
+++ b/unix/tkUnixSelect.c
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkUnixSelect.c,v 1.21 2007/05/03 22:16:00 dkf Exp $
+ * RCS: @(#) $Id: tkUnixSelect.c,v 1.22 2008/11/08 18:44:40 dkf Exp $
  */
 
 #include "tkInt.h"
@@ -326,7 +326,7 @@ TkSelPropProc(
 		length = strlen(incrPtr->converts[i].buffer);
 		strcpy((char *)buffer, incrPtr->converts[i].buffer);
 
-		numItems = (*selPtr->proc)(selPtr->clientData,
+		numItems = selPtr->proc(selPtr->clientData,
 			incrPtr->converts[i].offset,
 			((char *) buffer) + length,
 			TK_SEL_BYTES_AT_ONCE - length);
@@ -594,7 +594,7 @@ TkSelEventProc(
 		return;
 	    }
 	    interp = retrPtr->interp;
-	    Tcl_Preserve((ClientData) interp);
+	    Tcl_Preserve(interp);
 
 	    /*
 	     * Convert the X selection data into UTF before passing it to the
@@ -617,10 +617,10 @@ TkSelEventProc(
 		Tcl_FreeEncoding(encoding);
 	    }
 
-	    retrPtr->result = (*retrPtr->proc)(retrPtr->clientData,
-		    interp, Tcl_DStringValue(&ds));
+	    retrPtr->result = retrPtr->proc(retrPtr->clientData, interp,
+		    Tcl_DStringValue(&ds));
 	    Tcl_DStringFree(&ds);
-	    Tcl_Release((ClientData) interp);
+	    Tcl_Release(interp);
 	} else if (type == dispPtr->utf8Atom) {
 	    /*
 	     * The X selection data is in UTF-8 format already. We can't
@@ -646,7 +646,7 @@ TkSelEventProc(
 		strcpy(propData, propInfo);
 		propData[numItems] = '\0';
 	    }
-	    retrPtr->result = (*retrPtr->proc)(retrPtr->clientData,
+	    retrPtr->result = retrPtr->proc(retrPtr->clientData,
 		    retrPtr->interp, propData);
 	    if (propData != propInfo) {
 		ckfree((char *) propData);
@@ -686,10 +686,10 @@ TkSelEventProc(
 	    SelCvtFromX((long *) propInfo, (int) numItems, type,
 		    (Tk_Window) winPtr, &ds);
 	    interp = retrPtr->interp;
-	    Tcl_Preserve((ClientData) interp);
-	    retrPtr->result = (*retrPtr->proc)(retrPtr->clientData,
+	    Tcl_Preserve(interp);
+	    retrPtr->result = retrPtr->proc(retrPtr->clientData,
 		    interp, Tcl_DStringValue(&ds));
-	    Tcl_Release((ClientData) interp);
+	    Tcl_Release(interp);
 	    Tcl_DStringFree(&ds);
 	}
 	XFree(propInfo);
@@ -918,8 +918,8 @@ ConvertSelection(
 	    ip.nextPtr = TkSelGetInProgress();
 	    TkSelSetInProgress(&ip);
 	    type = selPtr->format;
-	    numItems = (*selPtr->proc)(selPtr->clientData, 0,
-		    (char *) buffer, TK_SEL_BYTES_AT_ONCE);
+	    numItems = selPtr->proc(selPtr->clientData, 0, (char *) buffer,
+		    TK_SEL_BYTES_AT_ONCE);
 	    TkSelSetInProgress(ip.nextPtr);
 	    if ((ip.selPtr == NULL) || (numItems < 0)) {
 		incr.multAtoms[2*i + 1] = None;
@@ -1227,7 +1227,7 @@ SelRcvIncrProc(
 	}
 	Tcl_DStringSetLength(dstPtr, soFar);
 
-	result = (*retrPtr->proc)(retrPtr->clientData, interp,
+	result = retrPtr->proc(retrPtr->clientData, interp,
 		Tcl_DStringValue(dstPtr));
 	Tcl_Release((ClientData) interp);
 
@@ -1265,10 +1265,10 @@ SelRcvIncrProc(
 	SelCvtFromX((long *) propInfo, (int) numItems, type,
 		(Tk_Window) retrPtr->winPtr, &ds);
 	interp = retrPtr->interp;
-	Tcl_Preserve((ClientData) interp);
-	result = (*retrPtr->proc)(retrPtr->clientData, interp,
+	Tcl_Preserve(interp);
+	result = retrPtr->proc(retrPtr->clientData, interp,
 		Tcl_DStringValue(&ds));
-	Tcl_Release((ClientData) interp);
+	Tcl_Release(interp);
 	Tcl_DStringFree(&ds);
 	if (result != TCL_OK) {
 	    retrPtr->result = result;
@@ -1314,7 +1314,7 @@ SelectionSize(
     TkSelSetInProgress(&ip);
 
     do {
-	chunkSize = (*selPtr->proc)(selPtr->clientData, size, (char *) buffer,
+	chunkSize = selPtr->proc(selPtr->clientData, size, (char *) buffer,
 		TK_SEL_BYTES_AT_ONCE);
 	if (ip.selPtr == NULL) {
 	    size = 0;
diff --git a/unix/tkUnixWm.c b/unix/tkUnixWm.c
index ae5729d..358ba0f 100644
--- a/unix/tkUnixWm.c
+++ b/unix/tkUnixWm.c
@@ -12,7 +12,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkUnixWm.c,v 1.63 2008/10/17 23:18:53 nijtmans Exp $
+ * RCS: @(#) $Id: tkUnixWm.c,v 1.64 2008/11/08 18:44:40 dkf Exp $
  */
 
 #include "tkUnixInt.h"
@@ -7143,9 +7143,9 @@ TkpWmSetState(
  */
 
 static void
-RemapWindows(winPtr, parentPtr)
-     TkWindow *winPtr;
-     TkWindow *parentPtr;
+RemapWindows(
+    TkWindow *winPtr,
+    TkWindow *parentPtr)
 {
     XWindowAttributes win_attr;