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

jackjansen · jackjansen · commit 4100900059ea · 1999-03-07T20:05:20.000Z
output parameter.
diff --git a/Mac/Modules/ctl/Ctlmodule.c b/Mac/Modules/ctl/Ctlmodule.c
@@ -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,
diff --git a/Mac/Modules/ctl/ctlscan.py b/Mac/Modules/ctl/ctlscan.py
@@ -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
