1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
;; -*- lisp -*-
;;; GLib defs
(define-object GObject ())
;; g-object-new, g-object-set, g-object-get, g-object-list etc are
;; hand implemented in rep-gtk.c
(define-func g_signal_connect_closure
int
((GObject object)
(string name)
(GClosure func)
(bool after (= "0")))
(scm-name "g-signal-connect")
(protection object))
(define-func g_signal_handler_disconnect
none
((GObject object)
(int id))
(scm-name "g-signal-disconnect"))
;; Options
(options
(includes "#include <glib.h>")
(init-func "sgtk_init_gtk_glib_glue"))
|
