X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gdk%2Fgdk.objects.lisp;fp=gdk%2Fgdk.objects.lisp;h=8cf8a70d62382d36df6f9fd445e8db2f458dc1a7;hb=d35f95662afdacd10760f6cac5e01edf75be6b36;hp=b62007e3d0bee9df1fcb738db6f46a987ee126e8;hpb=ce60912deee01b9cb24a428c469a2e3362a51875;p=cl-gtk2.git

diff --git a/gdk/gdk.objects.lisp b/gdk/gdk.objects.lisp
index b62007e..8cf8a70 100644
--- a/gdk/gdk.objects.lisp
+++ b/gdk/gdk.objects.lisp
@@ -611,7 +611,8 @@
    (:cffi visible-region drawable-visible-region (g-boxed-foreign region :return)
           "gdk_drawable_get_visible_region" nil)))
 
-(define-g-object-class "GdkWindow" gdk-window (:superclass drawable)
+(define-g-object-class "GdkWindow" gdk-window (:superclass drawable
+                                               :type-initializer "gdk_window_object_get_type")
    (#+gtk-2.18
     (cursor gdk-window-cursor "cursor"
             "GdkCursor" t t)