anchor.diff:  ;; License along with this library; if not, write to the Free Software
   ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   
  -;; $Id: gobject.lisp,v 1.5 2001-04-29 20:17:27 espen Exp $
  +;; $Id: gobject.lisp,v 1.6 2001-04-29 20:34:18 espen Exp $
   
   (in-package "GLIB")
   
  
positive.code:    (%gobject-new (type-number-of object)))
    (call-next-method))
  
  (define-foreign ("g_object_new" %gobject-new) () gobject
    (type type-number)
    (nil null))
  
  
  ;;;; Parameter stuff
  
  (define-foreign %object-set-property () nil
    (object gobject)
    (name string)
    (value gvalue))
  
  (define-foreign %object-get-property () nil
    (object gobject)
    (name string)
    (value gvalue))
  
  (define-foreign %object-notify () nil
    (object gobject)
    (name string))
  
  (define-foreign object-freeze-notify () nil
    (object gobject))
  
  (define-foreign object-thaw-notify () nil
    (object gobject))
  
  (define-foreign %object-set-qdata-full () nil
    (object gobject)
    (id quark)
    (data unsigned-long)
  
negative.code:    (register-user-data data) *destroy-notify*)
    data)
  
  (defbinding %object-get-qdata () unsigned-long
    (object gobject)		 
    (id quark))
  
  