gtk/gtk.object.lisp

   1 (in-package :gtk)
   2
   3 (defcstruct %gtk-object
   4   (parent-instance gobject::%g-initially-unowned)
   5   (flags :uint32))
   6 (defctype %gtk-object (:struct %gtk-object))
   7
   8 (defun gtk-object-flags-as-integer (object)
   9   (foreign-slot-value (pointer object) '%gtk-object 'flags))
  10
  11 (defun (setf gtk-object-flags-as-integer) (new-value object)
  12   (setf (foreign-slot-value (pointer object) '%gtk-object 'flags) new-value))