gtk/gtk.object.lisp

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