X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=gdk%2Fgdk.functions.lisp;h=89843eb0533e6fee0e90e261d0c862515877491a;hb=1dae911f182f0959ecd23669eb2482d11c905c78;hp=4acadaf9323931b7b9a5e3aa0a23d61f138c9ed2;hpb=7888d1bb6558eaeadd023d20728f834beaf356f2;p=cl-gtk2.git

diff --git a/gdk/gdk.functions.lisp b/gdk/gdk.functions.lisp
index 4acadaf..89843eb 100644
--- a/gdk/gdk.functions.lisp
+++ b/gdk/gdk.functions.lisp
@@ -1,5 +1,11 @@
 (in-package :gdk)
 
+(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)))
 
@@ -13,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