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