From ce60912deee01b9cb24a428c469a2e3362a51875 Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Sun, 26 Aug 2012 18:29:19 +0200 Subject: [PATCH] Fix warnings for bare struct references in gtk/. --- gtk/gtk.object.lisp | 1 + gtk/gtk.text.lisp | 1 + gtk/gtk.widget.lisp | 1 + 3 files changed, 3 insertions(+) diff --git a/gtk/gtk.object.lisp b/gtk/gtk.object.lisp index fca168c..ed41dd7 100644 --- 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 --- 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 --- 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)) -- 1.7.10.4