Used :already-referenced flag on gdk-gc-new and widget-create-pango-layout

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

diff --git a/gdk/gdk.functions.lisp b/gdk/gdk.functions.lisp
index eefbe6c..89843eb 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)))
 
@@ -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