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