Added as_Resource() method to convert ctl object to res object
diff --git a/Mac/Modules/ctl/Ctlmodule.c b/Mac/Modules/ctl/Ctlmodule.c
index ed37de0..7267cd7 100644
--- a/Mac/Modules/ctl/Ctlmodule.c
+++ b/Mac/Modules/ctl/Ctlmodule.c
@@ -432,6 +432,16 @@
 	return _res;
 }
 
+static PyObject *CtlObj_as_Resource(_self, _args)
+	ControlObject *_self;
+	PyObject *_args;
+{
+	PyObject *_res = NULL;
+
+	return ResObj_New((Handle)_self->ob_itself);
+
+}
+
 static PyMethodDef CtlObj_methods[] = {
 	{"DisposeControl", (PyCFunction)CtlObj_DisposeControl, 1,
 	 "() -> None"},
@@ -477,6 +487,8 @@
 	 "(SInt32 data) -> None"},
 	{"GetControlReference", (PyCFunction)CtlObj_GetControlReference, 1,
 	 "() -> (SInt32 _rv)"},
+	{"as_Resource", (PyCFunction)CtlObj_as_Resource, 1,
+	 "Return this Control as a Resource"},
 	{NULL, NULL, 0}
 };