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
))
