gdk/gdk.general.lisp

   1 (in-package :gdk)
   2
   3 (defcfun gdk-set-locale (:string :free-from-foreign nil))
   4 (export 'gdk-set-locale)
   5
   6 (defcfun (set-sm-client-id "gdk_set_sm_client_id") :void
   7   (sm-client-id :string))
   8 (export 'set-sm-client-id)
   9
  10 (defcfun gdk-notify-startup-complete :void)
  11 (defcfun gdk-notify-startup-complete-with-id :void
  12   (startup-id :string))
  13
  14 (defun notify-startup-complete (&optional startup-id)
  15   (if startup-id
  16       (gdk-notify-startup-complete-with-id startup-id)
  17       (gdk-notify-startup-complete)))
  18
  19 (export 'notify-startup-complete)
  20
  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)
  27
  28 (defcfun (get-display "gdk_get_display") (:string :free-from-foreign nil))
  29 (export 'get-display)
  30
  31 (defcfun gdk-flush :void)
  32 (export 'gdk-flush)
  33
  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))
  40   (time :uint32))
  41
  42 (export 'pointer-grab)
  43
  44 (defcfun (pointer-ungrab "gdk_pointer_ungrab") :void
  45   (time :uint32))
  46
  47 (export 'pointer-ungrab)
  48
  49 (defcfun (pointer-grabbed-p "gdk_pointer_is_grabbed") :boolean)
  50
  51 (export 'pointer-grabbed-p)
  52
  53 (defcfun (keyboard-grab "gdk_keyboard_grab") grab-status
  54   (window (g-object gdk-window))
  55   (owner-events :boolean)
  56   (time :uint32))
  57
  58 (export 'keyboard-grab)
  59
  60 (defcfun (keyboard-ungrab "gdk_keyboard_ungrab") :void
  61   (time :uint32))
  62
  63 (export 'keyboard-ungrab)
  64
  65 (defcfun gdk-beep :void)
  66
  67 (export 'gdk-beep)
  68
  69 (defcfun gdk-error-trap-push :void)
  70 (defcfun gdk-error-trap-pop :int)
  71 (export '(gdk-error-trap-push gdk-error-trap-pop))