Fixed a typo; added partial GdkDisplay and GdkScreen bindings

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

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