;; -*-theme-d-*-

;; Copyright (C) 2015 Tommi Höynälänmaa

(define-body (gnome gobject)

  (define make-gboolean
    (prim-proc make-gboolean (<boolean>) <gboolean> pure))


  (define gvalue->scm
    (prim-proc gvalue->scm (<gvalue>) <object> pure))


  (define gobject-set-property
    (prim-proc gobject-set-property (<gobject> <symbol> <object>)
	       <none> nonpure))


  (define gtype-instance-signal-connect
    (prim-proc theme-gtype-instance-signal-connect
	       (<gobject> <symbol> <signal-handler>)
	       <integer>
	       nonpure))


  (define gtype-instance-signal-emit
    (prim-proc gtype-instance-signal-emit
	       (<gobject> <symbol> <list>) <none>
		nonpure))


  (add-method connect gtype-instance-signal-connect)

  (add-method emit gtype-instance-signal-emit))
