From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Fri, 30 Aug 2013 22:30:19 +0000 (+0200)
Subject: Initialize types GdkGLPixmap, GdkGLWindow.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=af886197900531403efbc67c8a40b686ec6a9ba6;p=cl-gtk2.git

Initialize types GdkGLPixmap, GdkGLWindow.
---

diff --git a/gtk-glext/gtkglext.lisp b/gtk-glext/gtkglext.lisp
index f6b8434..962f209 100644
--- 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))