Fix warnings for bare struct references in gdk/.

diff --git a/gdk/gdk.cursor.lisp b/gdk/gdk.cursor.lisp
index 324143e..603c463 100644 (file)
--- a/gdk/gdk.cursor.lisp
+++ b/gdk/gdk.cursor.lisp
@@ -2,6 +2,7 @@
 
 (defcstruct %gdk-cursor
   (cursor-type cursor-type))
+(defctype %gdk-cursor (:struct %gdk-cursor))
 
 (defun cursor-cursor-type (cursor)
   (foreign-slot-value (pointer cursor) '%gdk-cursor 'cursor-type))

diff --git a/gdk/gdk.drag-and-drop.lisp b/gdk/gdk.drag-and-drop.lisp
index 8ddef98..5c3d602 100644 (file)
--- a/gdk/gdk.drag-and-drop.lisp
+++ b/gdk/gdk.drag-and-drop.lisp
@@ -11,6 +11,7 @@
   (suggested-action gdk-drag-action)
   (action gdk-drag-action)
   (start-time :uint32))
+(defctype %gdk-drag-context (:struct %gdk-drag-context))
 
 (defun %gdk-drag-context-get-protocol (context)
   (foreign-slot-value (pointer context) '%gdk-drag-context 'protocol))

diff --git a/gdk/gdk.input-devices.lisp b/gdk/gdk.input-devices.lisp
index 38b20e6..5c2f302 100644 (file)
--- a/gdk/gdk.input-devices.lisp
+++ b/gdk/gdk.input-devices.lisp
@@ -10,6 +10,7 @@
   (axes :pointer)
   (num-keys :int)
   (keys :pointer))
+(defctype %gdk-device (:struct %gdk-device))
 
 (define-g-boxed-cstruct gdk-device-key nil
   (keyval :uint)

diff --git a/gdk/gdk.visual.lisp b/gdk/gdk.visual.lisp
index 1579539..1bfca89 100644 (file)
--- a/gdk/gdk.visual.lisp
+++ b/gdk/gdk.visual.lisp
@@ -44,6 +44,7 @@
   (blue-mask :uint32)
   (blue-shift :int)
   (blue-prec :int))
+(defctype gdk-visual-cstruct (:struct gdk-visual-cstruct))
 
 (defmacro def-visual-accessor (slot)
   `(defun ,(intern (format nil "~A-GET-~A" (symbol-name 'gdk-visual) (symbol-name slot))) (visual)