Initialize types GdkGLPixmap, GdkGLWindow.

[cl-gtk2.git] / gtk-glext / gtkglext.lisp

diff --git a/gtk-glext/gtkglext.lisp b/gtk-glext/gtkglext.lisp
index f6b8434..962f209 100644 (file)
--- a/gtk-glext/gtkglext.lisp
+++ b/gtk-glext/gtkglext.lisp
@@ -227,7 +227,7 @@
 
 ;; OpenGL Pixmap
 
-(define-g-object-class "GdkGLPixmap" gdk-gl-pixmap (:superclass drawable :export t :interfaces ("GdkGLDrawable"))
+(define-g-object-class "GdkGLPixmap" gdk-gl-pixmap (:superclass drawable :export t :interfaces ("GdkGLDrawable") :type-initializer "gdk_gl_pixmap_get_type")
   ())
 
 (defcfun gdk-gl-pixmap-new :pointer
@@ -269,8 +269,8 @@
 
 ;; OpenGL Window
 
-(define-g-object-class "GdkGLWindow" gdk-gl-window (:superclass drawable :export t :interfaces ("GdkGLDrawable"))
-  ((:cffi window gdk-gl-window-gdk-window (g-object gdk-window) "gdk_gl_window_get_type" nil)))
+(define-g-object-class "GdkGLWindow" gdk-gl-window (:superclass drawable :export t :interfaces ("GdkGLDrawable") :type-initializer "gdk_gl_window_get_type")
+  ())
 
 (defcfun gdk-gl-window-new :pointer
   (gl-config (g-object gdk-gl-config))