gtk: fixed wrong type for defmethod

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

diff --git a/gdk/gdk.objects.lisp b/gdk/gdk.objects.lisp
index ae3e416..0886286 100644 (file)
--- a/gdk/gdk.objects.lisp
+++ b/gdk/gdk.objects.lisp
@@ -130,17 +130,23 @@
   (width :int :initform 0)
   (height :int :initform 0))
 
+(export (boxed-related-symbols 'rectangle))
+
 (define-g-boxed-cstruct font "GdkFont"
   (type font-type :initform :font)
   (ascent :int :initform 0)
   (descent :int :initform 0))
 
+(export (boxed-related-symbols 'font))
+
 (define-g-boxed-cstruct color "GdkColor"
   (pixel :uint32 :initform 0)
   (red :uint16 :initform 0)
   (green :uint16 :initform 0)
   (blue :uint16 :initform 0))
 
+(export (boxed-related-symbols 'color))
+
 (define-g-boxed-cstruct geometry "GdkGeometry"
   (min-width :int :initform 0)
   (min-height :int :initform 0)
@@ -154,6 +160,8 @@
   (max-aspect :double :initform 0.0d0)
   (gravity gravity :initform :north-west))
 
+(export (boxed-related-symbols 'geometry))
+
 (defctype gdk-atom :pointer)
 
 (define-foreign-type gdk-atom-as-string-type ()
@@ -170,11 +178,6 @@
 ;;;FIXME: Check correct type
 (defctype native-window :uint32)
 
-(defcunion event-client-data-union
-  (b :char :count 20)
-  (s :short :count 10)
-  (l :long :count 5))
-
 (define-g-boxed-variant-cstruct event "GdkEvent"
   (type event-type)
   (window (g-object gdk-window))
@@ -197,7 +200,7 @@
              (time :uint32)
              (x :double)
              (y :double)
-             (axes (fixed-array :double 2))
+             (axes :double :count 2)
              (state :uint)
              (button :uint)
              (device (g-object device))
@@ -216,7 +219,7 @@
              (time :uint32)
              (x :double)
              (y :double)
-             (axes (fixed-array :double 2))
+             (axes :double :count 2)
              (state modifier-type)
              (is-hint :int)
              (device (g-object device))
@@ -296,6 +299,8 @@
              (implicit :boolean)
              (grab-window (g-object gdk-window)))))
 
+(export (boxed-related-symbols 'event))
+
 (define-g-object-class "GdkDragContext" drag-context () ())
 
 (define-g-flags "GdkWindowHints" window-hints ()