added cffi type translator for GdkAtom

diff --git a/gdk/gdk.functions.lisp b/gdk/gdk.functions.lisp
index 4d6f0bf..96a5bf1 100644 (file)
--- a/gdk/gdk.functions.lisp
+++ b/gdk/gdk.functions.lisp
@@ -47,3 +47,10 @@
   (x :int)
   (y :int)
   (layout (g-object pango-layout)))
+
+(defcfun gdk-atom-name (glib:g-string :free-from-foreign t)
+  (atom gdk-atom))
+
+(defcfun gdk-atom-intern gdk-atom
+  (name :string)
+  (only-if-exists :boolean))
\ No newline at end of file

diff --git a/gdk/gdk.objects.lisp b/gdk/gdk.objects.lisp
index 4a6798d..bc1fceb 100644 (file)
--- a/gdk/gdk.objects.lisp
+++ b/gdk/gdk.objects.lisp
@@ -167,6 +167,17 @@
 
 (defctype gdk-atom :pointer)
 
+(define-foreign-type gdk-atom-as-string-type ()
+  ()
+  (:actual-type :pointer)
+  (:simple-parser gdk-atom-as-string))
+
+(defmethod translate-from-foreign (value (type gdk-atom-as-string-type))
+  (gdk-atom-name value))
+
+(defmethod translate-to-foreign (value (type gdk-atom-as-string-type))
+  (gdk-atom-intern value nil))
+
 (define-g-boxed-class nil event-property ((event type :property-notify))
   (atom gdk-atom)
   (time :uint32)

diff --git a/gdk/gdk.package.lisp b/gdk/gdk.package.lisp
index d1a6cfc..935593b 100644 (file)
--- a/gdk/gdk.package.lisp
+++ b/gdk/gdk.package.lisp
@@ -7,7 +7,7 @@
            #:gdk-gc-new
            #:drawable-get-size
            #:gdk-draw-layout
-           ))
+           #:gdk-atom-as-string))
 
 (in-package :gdk)