Fix warnings for bare struct references in gtk/.

diff --git a/gtk/gtk.object.lisp b/gtk/gtk.object.lisp
index fca168c..ed41dd7 100644 (file)
--- a/gtk/gtk.object.lisp
+++ b/gtk/gtk.object.lisp
@@ -3,6 +3,7 @@
 (defcstruct %gtk-object
   (parent-instance gobject::%g-initially-unowned)
   (flags :uint32))
+(defctype %gtk-object (:struct %gtk-object))
 
 (defun gtk-object-flags-as-integer (object)
   (foreign-slot-value (pointer object) '%gtk-object 'flags))

diff --git a/gtk/gtk.text.lisp b/gtk/gtk.text.lisp
index 69c365c..c1104ec 100644 (file)
--- a/gtk/gtk.text.lisp
+++ b/gtk/gtk.text.lisp
@@ -71,6 +71,7 @@
   (dummy12 :int)
   (dummy13 :int)
   (dummy14 :pointer))
+(defctype %text-iter (:struct %text-iter))
 
 (defcfun gtk-text-iter-copy :pointer
   (iter :pointer))

diff --git a/gtk/gtk.widget.lisp b/gtk/gtk.widget.lisp
index bc4b75c..67c0404 100644 (file)
--- a/gtk/gtk.widget.lisp
+++ b/gtk/gtk.widget.lisp
@@ -34,6 +34,7 @@
   (:allocation allocation-cstruct)
   (:window :pointer)
   (:parent :pointer))
+(defctype %gtk-widget (:struct %gtk-widget))
 
 (defun widget-state (widget)
   (convert-from-foreign (foreign-slot-value (pointer widget) '%gtk-widget :state) 'state-type))