X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.object.lisp;fp=gtk%2Fgtk.object.lisp;h=ed41dd7056eb8922794db8766ac604faf4f04ef3;hb=ce60912deee01b9cb24a428c469a2e3362a51875;hp=fca168ca3ff0e7d351b9abdaf8f12c7c7690f4ba;hpb=00346cf6cc21a7a1daa85c3c4bfcac0d86d023b2;p=cl-gtk2.git

diff --git a/gtk/gtk.object.lisp b/gtk/gtk.object.lisp
index fca168c..ed41dd7 100644
--- a/gtk/gtk.object.lisp
+++ b/gtk/gtk.object.lisp
@@ -3,6 +3,7 @@
 (defcstruct %gtk-object
   (parent-instance gobject::%g-initially-unowned)
   (flags :uint32))
+(defctype %gtk-object (:struct %gtk-object))
 
 (defun gtk-object-flags-as-integer (object)
   (foreign-slot-value (pointer object) '%gtk-object 'flags))