Typo.

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

diff --git a/gdk/gdk.gc.lisp b/gdk/gdk.gc.lisp
index 575a26f..9b274e2 100644 (file)
--- a/gdk/gdk.gc.lisp
+++ b/gdk/gdk.gc.lisp
@@ -22,12 +22,12 @@
 
 (export (boxed-related-symbols 'gc-values))
 
-(defcfun (graphics-context-new "gdk_gc_new") (g-object graphics-context)
+(defcfun (graphics-context-new "gdk_gc_new") (g-object graphics-context :already-referenced)
   (drawable (g-object drawable)))
 
 (export 'graphics-context-new)
 
-(defcfun (graphics-context-new-with-values "gdk_gc_new_with_values") (g-object graphics-context)
+(defcfun (graphics-context-new-with-values "gdk_gc_new_with_values") (g-object graphics-context :already-referenced)
   (drawable (g-object drawable))
   (values (g-boxed-foreign gc-values))
   (values-mask gc-values-mask))