3 (defcfun gdk-threads-init :void)
4 (glib:at-init () (gdk-threads-init))
6 (defcfun gdk-threads-enter :void)
7 (export 'gdk-threads-enter)
9 (defcfun gdk-threads-leave :void)
10 (export 'gdk-threads-leave)
13 ;; void gdk_threads_set_lock_functions (GCallback enter_fn,
14 ;; GCallback leave_fn);
16 (defcallback source-func-callback :boolean
18 (funcall (stable-pointer-value data)))
20 (defcallback stable-pointer-free-destroy-notify-callback :void ((data :pointer))
21 (free-stable-pointer data))
23 (defcfun gdk_threads_add_idle_full :uint
27 (destroy-notify :pointer))
29 (defun gdk-threads-add-idle-full (priority function)
30 (gdk_threads_add_idle_full priority
31 (callback source-func-callback)
32 (allocate-stable-pointer function)
33 (callback stable-pointer-free-destroy-notify-callback)))
35 (export 'gdk-threads-add-idle-full)
37 (defcfun gdk_threads_add_timeout_full :uint
42 (destroy-notify :pointer))
44 (defun gdk-threads-add-timeout-full (priority interval-msec function)
45 (gdk_threads_add_timeout_full priority interval-msec
46 (callback source-func-callback)
47 (allocate-stable-pointer function)
48 (callback stable-pointer-free-destroy-notify-callback)))
50 (export 'gdk-threads-add-timeout-full)
52 (defcfun gdk_threads_add_timeout_seconds_full :uint
57 (destroy-notify :pointer))
59 (defun gdk-threads-add-timeout-seconds-full (priority interval-sec function)
60 (gdk_threads_add_timeout_seconds_full priority interval-sec
61 (callback source-func-callback)
62 (allocate-stable-pointer function)
63 (callback stable-pointer-free-destroy-notify-callback)))
65 (export 'gdk-threads-add-timeout-seconds-full)