diff --git a/ChangeLog b/ChangeLog
index ac3c25204..8e80740ec 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2001-11-05  Mike Kestner <mkestner@speakeasy.net>
+
+	* codegen/defs-parse.pl (gen_object): Generate a ctor (IntPtr obj) for
+	every object.  This is a wrapper constructor for use by an Object
+	manager which will be called by GLib.Object.GetObject eventually to
+	wrap raw GObject pointers returned by methods/props.
+
 2001-11-04  Mike Kestner <mkestner@speakeasy.net>
 
 	* codegen/defs-parse.pl : struct generation.  Added float and double
diff --git a/codegen/defs-parse.pl b/codegen/defs-parse.pl
index a9930b722..03f4668c2 100755
--- a/codegen/defs-parse.pl
+++ b/codegen/defs-parse.pl
@@ -236,6 +236,13 @@ sub gen_object
 	}
 	print OUTFILE "class $typename : $parent {\n\n";
 
+	print OUTFILE "\t\t/// <summary> $typename Constructor </summary>\n";
+	print OUTFILE "\t\t/// <remarks>\n";
+	print OUTFILE "\t\t///\tWraps a raw GObject reference.\n";
+	print OUTFILE "\t\t/// </remarks>\n\n";
+	print OUTFILE "\t\tpublic $typename (IntPtr o)\n\t\t{\n";
+	print OUTFILE "\t\t\tRawObject = o;\n\t\t}\n\n";
+
 	foreach $ctor (@ctors) {
 		print OUTFILE gen_ctor ($ctor, "gtk-1.3.dll");
 	}