gdk/gdk.general.lisp

   1 (in-package :gdk)
   2
   3 (defcfun gdk-notify-startup-complete :void)
   4 (defcfun gdk-notify-startup-complete-with-id :void
   5   (startup-id :string))
   6
   7 (defun notify-startup-complete (&optional startup-id)
   8   (if startup-id
   9       (gdk-notify-startup-complete-with-id startup-id)
  10       (gdk-notify-startup-complete)))
  11
  12 (export 'notify-startup-complete)
  13
  14 (defcfun gdk-get-program-class (:string :free-from-foreign nil))
  15 (defcfun gdk-set-program-class :void
  16   (program-class (:string :free-to-foreign t)))
  17 (defun program-class () (gdk-get-program-class))
  18 (defun (setf program-class) (new-value) (gdk-set-program-class new-value))
  19 (export 'program-class)
  20
  21 (defcfun (get-display "gdk_get_display") (:string :free-from-foreign nil))
  22 (export 'get-display)
  23
  24 (defcfun gdk-flush :void)
  25 (export 'gdk-flush)
  26
  27 (defcfun (pointer-grab "gdk_pointer_grab") grab-status
  28   (window (g-object gdk-window))
  29   (owner-events :boolean)
  30   (event-mask event-mask)
  31   (confine-to (g-object gdk-window))
  32   (cursor (g-boxed-foreign cursor))
  33   (time :uint32))
  34
  35 (export 'pointer-grab)
  36
  37 (defcfun (pointer-ungrab "gdk_pointer_ungrab") :void
  38   (time :uint32))
  39
  40 (export 'pointer-ungrab)
  41
  42 (defcfun (pointer-grabbed-p "gdk_pointer_is_grabbed") :boolean)
  43
  44 (export 'pointer-grabbed-p)
  45
  46 (defcfun (keyboard-grab "gdk_keyboard_grab") grab-status
  47   (window (g-object gdk-window))
  48   (owner-events :boolean)
  49   (time :uint32))
  50
  51 (export 'keyboard-grab)
  52
  53 (defcfun (keyboard-ungrab "gdk_keyboard_ungrab") :void
  54   (time :uint32))
  55
  56 (export 'keyboard-ungrab)
  57
  58 (defcfun gdk-beep :void)
  59
  60 (export 'gdk-beep)
  61
  62