Added a rewrite rule so the Str255 argument of GetControlTitle is seen as

output parameter.
This commit is contained in:
Jack Jansen 1999-03-07 20:05:20 +00:00
parent 39fc1bc329
commit 4100900059
2 changed files with 8 additions and 5 deletions

View File

@ -462,13 +462,12 @@ static PyObject *CtlObj_GetControlTitle(_self, _args)
{
PyObject *_res = NULL;
Str255 title;
if (!PyArg_ParseTuple(_args, "O&",
PyMac_GetStr255, title))
if (!PyArg_ParseTuple(_args, ""))
return NULL;
GetControlTitle(_self->ob_itself,
title);
Py_INCREF(Py_None);
_res = Py_None;
_res = Py_BuildValue("O&",
PyMac_BuildStr255, title);
return _res;
}
@ -952,7 +951,7 @@ static PyMethodDef CtlObj_methods[] = {
{"SetControlTitle", (PyCFunction)CtlObj_SetControlTitle, 1,
"(Str255 title) -> None"},
{"GetControlTitle", (PyCFunction)CtlObj_GetControlTitle, 1,
"(Str255 title) -> None"},
"() -> (Str255 title)"},
{"GetControlValue", (PyCFunction)CtlObj_GetControlValue, 1,
"() -> (SInt16 _rv)"},
{"SetControlValue", (PyCFunction)CtlObj_SetControlValue, 1,

View File

@ -83,6 +83,10 @@ def makerepairinstructions(self):
## ([("ControlActionUPP", "actionProc", "InMode")],
## [("FakeType('(ControlActionUPP)0')", "*", "*")]),
# For GetControlTitle
([('Str255', 'title', 'InMode')],
[('Str255', 'title', 'OutMode')]),
([("ControlHandle", "*", "OutMode")],
[("ExistingControlHandle", "*", "*")]),
([("ControlRef", "*", "OutMode")], # Ditto, for Universal Headers