traverseda
/
cpython
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added GetAuxiliaryControlRecord and SetControlColor, there was no good 

reason they were excluded.
This commit is contained in:
Jack Jansen 1997-08-15 14:32:18 +00:00
parent f69633e4a1
commit c7fefed32c
3 changed files with 39 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
Mac/Modules/ctl/Ctlmodule.c
View File

@ -429,6 +429,39 @@ static PyObject *CtlObj_GetControlReference(_self, _args)
return _res;
}
static PyObject *CtlObj_GetAuxiliaryControlRecord(_self, _args)
ControlObject *_self;
PyObject *_args;
{
PyObject *_res = NULL;
Boolean _rv;
AuxCtlHandle acHndl;
if (!PyArg_ParseTuple(_args, ""))
return NULL;
_rv = GetAuxiliaryControlRecord(_self->ob_itself,
&acHndl);
_res = Py_BuildValue("bO&",
_rv,
ResObj_New, acHndl);
return _res;
}
static PyObject *CtlObj_SetControlColor(_self, _args)
ControlObject *_self;
PyObject *_args;
{
PyObject *_res = NULL;
CCTabHandle newColorTable;
if (!PyArg_ParseTuple(_args, "O&",
ResObj_Convert, &newColorTable))
return NULL;
SetControlColor(_self->ob_itself,
newColorTable);
Py_INCREF(Py_None);
_res = Py_None;
return _res;
}
static PyObject *CtlObj_as_Resource(_self, _args)
ControlObject *_self;
PyObject *_args;
@ -501,6 +534,10 @@ static PyMethodDef CtlObj_methods[] = {
"(SInt32 data) -> None"},
{"GetControlReference", (PyCFunction)CtlObj_GetControlReference, 1,
"() -> (SInt32 _rv)"},
{"GetAuxiliaryControlRecord", (PyCFunction)CtlObj_GetAuxiliaryControlRecord, 1,
"() -> (Boolean _rv, AuxCtlHandle acHndl)"},
{"SetControlColor", (PyCFunction)CtlObj_SetControlColor, 1,
"(CCTabHandle newColorTable) -> None"},
{"as_Resource", (PyCFunction)CtlObj_as_Resource, 1,
"Return this Control as a Resource"},
{"DisposeControl", (PyCFunction)CtlObj_DisposeControl, 1,

2
Mac/Modules/ctl/ctlscan.py
View File

@ -39,8 +39,6 @@ class MyScanner(Scanner):
return [
'ProcPtr',
'ControlActionUPP',
'CCTabHandle',
'AuxCtlHandle',
]
def makerepairinstructions(self):

2
Mac/Modules/ctl/ctlsupport.py
View File

@ -29,6 +29,8 @@ ControlRef = ControlHandle
ExistingControlHandle = OpaqueByValueType(OBJECTTYPE, "CtlObj_WhichControl", "BUG")
RgnHandle = OpaqueByValueType("RgnHandle", "ResObj")
CCTabHandle = OpaqueByValueType("CCTabHandle", "ResObj")
AuxCtlHandle = OpaqueByValueType("AuxCtlHandle", "ResObj")
ControlPartCode = Type("ControlPartCode", "h")
DragConstraint = Type("DragConstraint", "h")