X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=gdk%2Fgdk.functions.lisp;h=89843eb0533e6fee0e90e261d0c862515877491a;hb=081b34b89b88e9db6b3177e71b616869560bb1b0;hp=eefbe6cfcb307fe569aab87146ef19e677dda0a7;hpb=f4d84c3f9348f078ce0b7dbfc07a605b58fae832;p=cl-gtk2.git

diff --git a/gdk/gdk.functions.lisp b/gdk/gdk.functions.lisp
index eefbe6c..89843eb 100644
--- 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)))
 
@@ -16,7 +19,7 @@
 (defun (setf gdk-window-events) (new-value window)
   (gdk-window-set-events window new-value))
 
-(defcfun gdk-gc-new (g-object graphics-context)
+(defcfun gdk-gc-new (g-object graphics-context :already-referenced)
   (drawable (g-object drawable)))
 
 (defcfun gdk-draw-line :void