Typo.

[cl-gtk2.git] / gdk / gdk.objects.lisp

diff --git a/gdk/gdk.objects.lisp b/gdk/gdk.objects.lisp
index 4238442..dede160 100644 (file)
--- a/gdk/gdk.objects.lisp
+++ b/gdk/gdk.objects.lisp
@@ -435,6 +435,22 @@
   (:bilevel 0)
   (:full 1))
 
+(define-g-enum "GdkInterpType"
+    gdk-interp-type
+    (:export t :type-initializer "gdk_interp_type_get_type")
+  (:nearest 0)
+  (:tiles 1)
+  (:bilinear 2)
+  (:hyper 3))
+
+(define-g-enum "GdkPixbufRotation"
+    gdk-pixbuf-rotation
+    (:export t :type-initializer "gdk_pixbuf_rotation_get_type")
+  (:none 0)
+  (:counterclockwise 90)
+  (:upsidedown 180)
+  (:clockwise 270))
+
 (define-g-enum "GdkColorspace" colorspace ()
   :rgb)
 
@@ -595,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)
@@ -733,10 +750,10 @@
              (time :uint32)
              (x :double)
              (y :double)
-             (axes (fixed-array :double 2))
+             (axes (fixed-array :double 7))
              (state :uint)
              (button :uint)
-             (device (g-object device))
+             (device (g-object gdk-device))
              (x-root :double)
              (y-root :double))
             ((:scroll) event-scroll
@@ -745,14 +762,14 @@
              (y :double)
              (state modifier-type)
              (direction scroll-direction)
-             (device (g-object device))
+             (device (g-object gdk-device))
              (x-root :double)
              (y-root :double))
             ((:motion-notify) event-motion
              (time :uint32)
              (x :double)
              (y :double)
-             (axes (fixed-array :double 2))
+             (axes (fixed-array :double 7))
              (state modifier-type)
              (is-hint :int16)
              (device (g-object gdk-device))