From 4cc1da47658f02e210b6bfd4692aebc35f719f40 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sun, 29 Aug 2010 22:01:45 +0800 Subject: [PATCH] Add translate-to-foreign and free-translated-object methods to gobject:fixed-array foreign type --- gdk/gdk.objects.lisp | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/gdk/gdk.objects.lisp b/gdk/gdk.objects.lisp index b315296..4238442 100644 --- a/gdk/gdk.objects.lisp +++ b/gdk/gdk.objects.lisp @@ -693,6 +693,16 @@ do (setf (aref result i) (mem-aref ptr el-type i))) result))) +(defmethod translate-to-foreign (value (type fixed-array)) + (if (null value) + (null-pointer) + (foreign-alloc (fixed-array-element-type type) :count (length value) :initial-contents value))) + +(defmethod free-translated-object (value (type fixed-array) param) + (declare (ignore param)) + (unless (null-pointer-p value) + (foreign-free value))) + (define-g-boxed-cstruct rectangle "GdkRectangle" (x :int :initform 0) (y :int :initform 0) -- 1.7.10.4