Added GdkScreen mapping

[cl-gtk2.git] / gdk / gdk.general.lisp

diff --git a/gdk/gdk.general.lisp b/gdk/gdk.general.lisp
new file mode 100644 (file)
index 0000000..ce270ef
--- /dev/null
+++ b/gdk/gdk.general.lisp
@@ -0,0 +1,62 @@
+(in-package :gdk)
+
+(defcfun gdk-notify-startup-complete :void)
+(defcfun gdk-notify-startup-complete-with-id :void
+  (startup-id :string))
+
+(defun notify-startup-complete (&optional startup-id)
+  (if startup-id
+      (gdk-notify-startup-complete-with-id startup-id)
+      (gdk-notify-startup-complete)))
+
+(export 'notify-startup-complete)
+
+(defcfun gdk-get-program-class (:string :free-from-foreign nil))
+(defcfun gdk-set-program-class :void
+  (program-class (:string :free-to-foreign t)))
+(defun program-class () (gdk-get-program-class))
+(defun (setf program-class) (new-value) (gdk-set-program-class new-value))
+(export 'program-class)
+
+(defcfun (get-display "gdk_get_display") (:string :free-from-foreign nil))
+(export 'get-display)
+
+(defcfun gdk-flush :void)
+(export 'gdk-flush)
+
+(defcfun (pointer-grab "gdk_pointer_grab") grab-status
+  (window (g-object gdk-window))
+  (owner-events :boolean)
+  (event-mask event-mask)
+  (confine-to (g-object gdk-window))
+  (cursor (g-boxed-foreign cursor))
+  (time :uint32))
+
+(export 'pointer-grab)
+
+(defcfun (pointer-ungrab "gdk_pointer_ungrab") :void
+  (time :uint32))
+
+(export 'pointer-ungrab)
+
+(defcfun (pointer-grabbed-p "gdk_pointer_is_grabbed") :boolean)
+
+(export 'pointer-grabbed-p)
+
+(defcfun (keyboard-grab "gdk_keyboard_grab") grab-status
+  (window (g-object gdk-window))
+  (owner-events :boolean)
+  (time :uint32))
+
+(export 'keyboard-grab)
+
+(defcfun (keyboard-ungrab "gdk_keyboard_ungrab") :void
+  (time :uint32))
+
+(export 'keyboard-ungrab)
+
+(defcfun gdk-beep :void)
+
+(export 'gdk-beep)
+
+