glib/gobject.structs.lisp

   1 (in-package :gobject)
   2
   3 (defun g-type-from-object (object)
   4   "Returns the GType of an @code{object}
   5
   6 @arg[object]{C pointer to an object}
   7 @return{GType designator (see @class{g-type-designator})}"
   8   (g-type-from-instance object))
   9
  10 (defun g-type-from-class (g-class)
  11   (g-type-name (foreign-slot-value g-class 'g-type-class :type)))
  12
  13 (defun g-type-from-instance (type-instance)
  14   (g-type-from-class (foreign-slot-value type-instance 'g-type-instance :class)))
  15
  16 (defun g-type-from-interface (type-interface)
  17   (g-type-name (foreign-slot-value type-interface 'g-type-interface :type)))
  18