3 (defcfun gdk-set-locale (:string :free-from-foreign nil))
4 (export 'gdk-set-locale)
6 (defcfun (set-sm-client-id "gdk_set_sm_client_id") :void
7 (sm-client-id :string))
8 (export 'set-sm-client-id)
10 (defcfun gdk-notify-startup-complete :void)
11 (defcfun gdk-notify-startup-complete-with-id :void
14 (defun notify-startup-complete (&optional startup-id)
16 (gdk-notify-startup-complete-with-id startup-id)
17 (gdk-notify-startup-complete)))
19 (export 'notify-startup-complete)
21 (defcfun gdk-get-program-class (:string :free-from-foreign nil))
22 (defcfun gdk-set-program-class :void
23 (program-class (:string :free-to-foreign t)))
24 (defun program-class () (gdk-get-program-class))
25 (defun (setf program-class) (new-value) (gdk-set-program-class new-value))
26 (export 'program-class)
28 (defcfun (get-display "gdk_get_display") (:string :free-from-foreign nil))
31 (defcfun gdk-flush :void)
34 (defcfun (pointer-grab "gdk_pointer_grab") grab-status
35 (window (g-object gdk-window))
36 (owner-events :boolean)
37 (event-mask event-mask)
38 (confine-to (g-object gdk-window))
39 (cursor (g-boxed-foreign cursor))
42 (export 'pointer-grab)
44 (defcfun (pointer-ungrab "gdk_pointer_ungrab") :void
47 (export 'pointer-ungrab)
49 (defcfun (pointer-grabbed-p "gdk_pointer_is_grabbed") :boolean)
51 (export 'pointer-grabbed-p)
53 (defcfun (keyboard-grab "gdk_keyboard_grab") grab-status
54 (window (g-object gdk-window))
55 (owner-events :boolean)
58 (export 'keyboard-grab)
60 (defcfun (keyboard-ungrab "gdk_keyboard_ungrab") :void
63 (export 'keyboard-ungrab)
65 (defcfun gdk-beep :void)
69 (defcfun gdk-error-trap-push :void)
70 (defcfun gdk-error-trap-pop :int)
71 (export '(gdk-error-trap-push gdk-error-trap-pop))