From 85152b93cb5f910f7345d623e9c057aa1d2ca6e0 Mon Sep 17 00:00:00 2001
From: Jack Jansen <jack.jansen@cwi.nl>
Date: Tue, 11 Jul 2000 21:12:55 +0000
Subject: Fiddled declaration/implementation of setcallback() so that it is
 ansifyable.

---
 Mac/Modules/ctl/Ctlmodule.c   | 12 ++++++++----
 Mac/Modules/ctl/ctlsupport.py | 12 ++++++++----
 2 files changed, 16 insertions(+), 8 deletions(-)

diff --git a/Mac/Modules/ctl/Ctlmodule.c b/Mac/Modules/ctl/Ctlmodule.c
index cafe0d6..8632767 100644
--- a/Mac/Modules/ctl/Ctlmodule.c
+++ b/Mac/Modules/ctl/Ctlmodule.c
@@ -93,6 +93,9 @@ static ControlUserPaneTrackingUPP mytrackingproc_upp;
 
 extern int settrackfunc(PyObject *); 	/* forward */
 extern void clrtrackfunc(void);	/* forward */
+#ifndef TARGET_API_MAC_CARBON_NOTYET
+staticforward int setcallback(PyObject *, OSType, PyObject *, UniversalProcPtr *);
+#endif
 
 static PyObject *Ctl_Error;
 
@@ -1441,7 +1444,7 @@ static PyObject *CtlObj_SetControlDataCallback(_self, _args)
 	ControlPartCode inPart;
 	ResType inTagName;
 	PyObject *callback;
-	UniversalProcPtr *c_callback;
+	UniversalProcPtr c_callback;
 
 	if (!PyArg_ParseTuple(_args, "hO&O",
 	                      &inPart,
@@ -1449,7 +1452,7 @@ static PyObject *CtlObj_SetControlDataCallback(_self, _args)
 	                      &callback))
 		return NULL;
 
-	if ( setcallback(_self, inTagName, callback, &c_callback) < 0 )
+	if ( setcallback((PyObject *)_self, inTagName, callback, &c_callback) < 0 )
 		return NULL;
 	_err = SetControlData(_self->ob_itself,
 		              inPart,
@@ -2164,12 +2167,13 @@ mytracker(ControlHandle ctl, short part)
 
 #ifndef TARGET_API_MAC_CARBON_NOTYET
 static int
-setcallback(self, which, callback, uppp)
-	ControlObject *self;
+setcallback(myself, which, callback, uppp)
+	PyObject *myself;
 	OSType which;
 	PyObject *callback;
 	UniversalProcPtr *uppp;
 {
+	ControlObject *self = (ControlObject *)myself;
 	char keybuf[9];
 	
 	if ( which == kControlUserPaneDrawProcTag )
diff --git a/Mac/Modules/ctl/ctlsupport.py b/Mac/Modules/ctl/ctlsupport.py
index 0623400..30c4491 100644
--- a/Mac/Modules/ctl/ctlsupport.py
+++ b/Mac/Modules/ctl/ctlsupport.py
@@ -93,6 +93,9 @@ static ControlUserPaneTrackingUPP mytrackingproc_upp;
 
 extern int settrackfunc(PyObject *); 	/* forward */
 extern void clrtrackfunc(void);	/* forward */
+#ifndef TARGET_API_MAC_CARBON_NOTYET
+staticforward int setcallback(PyObject *, OSType, PyObject *, UniversalProcPtr *);
+#endif
 """
 
 finalstuff = finalstuff + """
@@ -165,12 +168,13 @@ mytracker(ControlHandle ctl, short part)
 
 #ifndef TARGET_API_MAC_CARBON_NOTYET
 static int
-setcallback(self, which, callback, uppp)
-	ControlObject *self;
+setcallback(myself, which, callback, uppp)
+	PyObject *myself;
 	OSType which;
 	PyObject *callback;
 	UniversalProcPtr *uppp;
 {
+	ControlObject *self = (ControlObject *)myself;
 	char keybuf[9];
 	
 	if ( which == kControlUserPaneDrawProcTag )
@@ -544,7 +548,7 @@ OSErr _err;
 ControlPartCode inPart;
 ResType inTagName;
 PyObject *callback;
-UniversalProcPtr *c_callback;
+UniversalProcPtr c_callback;
 
 if (!PyArg_ParseTuple(_args, "hO&O",
                       &inPart,
@@ -552,7 +556,7 @@ if (!PyArg_ParseTuple(_args, "hO&O",
                       &callback))
 	return NULL;
 
-if ( setcallback(_self, inTagName, callback, &c_callback) < 0 )
+if ( setcallback((PyObject *)_self, inTagName, callback, &c_callback) < 0 )
 	return NULL;
 _err = SetControlData(_self->ob_itself,
 	              inPart,
-- 
cgit v0.12