+(defbinding (timeout-add "g_timeout_add_full")
+ (function interval &optional (priority 0)) unsigned-int
+ (priority int)
+ (interval unsigned-int)
+ (*source-callback-marshal* pointer)
+ ((register-callback-function function) unsigned-long)
+ (*destroy-notify* pointer))
+
+(defbinding (idle-add "g_idle_add_full")
+ (function &optional (priority 0)) unsigned-int
+ (priority int)
+ (*source-callback-marshal* pointer)
+ ((register-callback-function function) unsigned-long)
+ (*destroy-notify* pointer))
+
+
+
+;;;; Signals