gobject-with-properties accepts a hash and returns the instance

mwunsch · Jun 8, 2017 · 7ec07b0 · 7ec07b0
1 parent 90dddc5
commit 7ec07b0
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/ffi/unsafe/introspection.rkt b/ffi/unsafe/introspection.rkt
@@ -67,6 +67,8 @@
                         (->* (gobject? string? any/c)
                              ((or/c ctype? (listof symbol?)))
                              void?)]
+                       [gobject-with-properties
+                        (->> gobject? (hash/c symbol? any/c) gobject?)]
                        [introspection
                         (->* (symbol?) (string?) gi-repository?)]
                        [gi-repository-find-name
@@ -915,6 +917,11 @@
                                     -> _void))])
     (setter gobject propname value)))
 
+(define (gobject-with-properties instance properties)
+  (hash-for-each properties
+                 (lambda (key val) (gobject-set! instance (symbol->string key) val)))
+  instance)
+
 (define-gir gi-object-parent (_fun _gi-base-info -> _gi-base-info)
   #:c-id g_object_info_get_parent)