From: Dmitry Kalyanov Date: Sun, 6 Sep 2009 13:27:07 +0000 (+0400) Subject: Used :already-referenced flag on gdk-gc-new and widget-create-pango-layout X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=081b34b89b88e9db6b3177e71b616869560bb1b0;p=cl-gtk2.git Used :already-referenced flag on gdk-gc-new and widget-create-pango-layout --- 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))