projects
/
cl-gtk2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5c0fa3e
)
Add translate-to-foreign and free-translated-object methods to gobject:fixed-array...
author
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Sun, 29 Aug 2010 14:01:45 +0000
(18:01 +0400)
committer
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Sun, 29 Aug 2010 14:01:45 +0000
(18:01 +0400)
gdk/gdk.objects.lisp
patch
|
blob
|
history
diff --git
a/gdk/gdk.objects.lisp
b/gdk/gdk.objects.lisp
index
79ebcb7
..
3c540be
100644
(file)
--- 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)))
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)
(define-g-boxed-cstruct rectangle "GdkRectangle"
(x :int :initform 0)
(y :int :initform 0)