Added GdkScreen mapping

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

diff --git a/gdk/gdk.functions.lisp b/gdk/gdk.functions.lisp
index 4acadaf..eefbe6c 100644 (file)
--- a/gdk/gdk.functions.lisp
+++ b/gdk/gdk.functions.lisp
@@ -1,5 +1,8 @@
 (in-package :gdk)
 
+(defcfun (default-screen "gdk_screen_get_default") (g-object gdk-window))
+(export 'default-screen)
+
 (defcfun gdk-window-get-events event-mask
   (window (g-object gdk-window)))