From 081b34b89b88e9db6b3177e71b616869560bb1b0 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sun, 6 Sep 2009 17:27:07 +0400 Subject: [PATCH] Used :already-referenced flag on gdk-gc-new and widget-create-pango-layout --- gdk/gdk.functions.lisp | 2 +- gtk/gtk.widget.lisp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/gdk/gdk.functions.lisp b/gdk/gdk.functions.lisp index fcbd990..89843eb 100644 --- a/gdk/gdk.functions.lisp +++ b/gdk/gdk.functions.lisp @@ -19,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 diff --git a/gtk/gtk.widget.lisp b/gtk/gtk.widget.lisp index 0605f9d..a70ec15 100644 --- a/gtk/gtk.widget.lisp +++ b/gtk/gtk.widget.lisp @@ -357,7 +357,7 @@ (export 'widget-get-pango-context) -(defcfun (widget-create-pango-layout "gtk_widget_create_pango_layout") (g-object gdk::pango-layout) +(defcfun (widget-create-pango-layout "gtk_widget_create_pango_layout") (g-object gdk::pango-layout :already-referenced) (widget (g-object widget)) (text :string)) -- 1.7.10.4