From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Sun, 29 Aug 2010 14:01:45 +0000 (+0800)
Subject: Add translate-to-foreign and free-translated-object methods to gobject:fixed-array... 
X-Git-Url: http://repo.macrolet.net/gitweb/?p=cl-gtk2.git;a=commitdiff_plain;h=4cc1da47658f02e210b6bfd4692aebc35f719f40

Add translate-to-foreign and free-translated-object methods to gobject:fixed-array foreign type
---

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)