Typo.

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

diff --git a/gtk-glext/gtkglext.lisp b/gtk-glext/gtkglext.lisp
index 682d5d4..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))
@@ -453,7 +453,8 @@
              (,drawable (gtk-widget-gl-window ,w)))
          (if (and ,context ,drawable (gdk-gl-drawable-gl-begin ,drawable ,context))
              (unwind-protect
-                  ,@body
+                  (progn
+                    ,@body)
                (progn
                  (when ,swap-p
                    (when (gdk-gl-drawable-is-double-buffered ,drawable)