guile-clutter, clutter-devel: 55a58b8 fix clutter_text_get_color needs a special wrapper

[David Pirotte]

Hello,

        guile-clutter
          clutter-devel:
                55a58b8 fix clutter_text_get_color needs a special wrapper

I wrote and pushed a patch with special wrapper for clutter_text_get_color

Happy hacking.
David

From 55a58b8216b7f4bc3fcad3294547e6a7bafe01ad Mon Sep 17 00:00:00 2001
From: David PIROTTE <da...@altosw.be>
Date: Mon, 19 Jan 2015 22:11:53 -0200
Subject: [PATCH 215/215] fix clutter_text_get_color needs a special wrapper

* clutter/gnome/gw/clutter-support.c:
* clutter/gnome/gw/clutter-support.h:
* clutter/gnome/overrides/clutter.defs: get-color method for the
  <clutter-text> specializer overridden, now calling
  wrap_clutter_text_get_color.
---
 clutter/gnome/gw/clutter-support.c   | 8 ++++++++
 clutter/gnome/gw/clutter-support.h   | 2 ++
 clutter/gnome/overrides/clutter.defs | 7 +++++++
 3 files changed, 17 insertions(+)

diff --git a/clutter/gnome/gw/clutter-support.c b/clutter/gnome/gw/clutter-support.c
index 4de11c8..7758924 100644
--- a/clutter/gnome/gw/clutter-support.c
+++ b/clutter/gnome/gw/clutter-support.c
@@ -267,6 +267,14 @@ wrap_clutter_actor_get_background_color (ClutterActor* actor)
     return scm_clutter_color_to_scm (&color);
 }
 
+SCM
+wrap_clutter_text_get_color (ClutterText* text)
+{
+    ClutterColor color;
+    clutter_text_get_color (text, &color);
+    return scm_clutter_color_to_scm (&color);
+}
+
 ClutterUnits*
 wrap_clutter_units_from_pixels (gint px)
 {
diff --git a/clutter/gnome/gw/clutter-support.h b/clutter/gnome/gw/clutter-support.h
index 31a9908..923e48b 100644
--- a/clutter/gnome/gw/clutter-support.h
+++ b/clutter/gnome/gw/clutter-support.h
@@ -53,6 +53,8 @@ SCM wrap_clutter_stage_get_perspective (ClutterStage *stage);
 
 SCM _wrap_clutter_color_from_string (const char *name);
 SCM wrap_clutter_actor_get_background_color (ClutterActor* actor);
+SCM wrap_clutter_text_get_color (ClutterText* text);
+
 
 ClutterUnits* wrap_clutter_units_from_pixels (gint px);
 ClutterUnits* wrap_clutter_units_from_em (gfloat em);
diff --git a/clutter/gnome/overrides/clutter.defs b/clutter/gnome/overrides/clutter.defs
index dd23223..59cab8a 100644
--- a/clutter/gnome/overrides/clutter.defs
+++ b/clutter/gnome/overrides/clutter.defs
@@ -160,6 +160,13 @@
   (return-type "SCM")
   (leave-guile-mode #f))
 
+(define-method get_color
+  (of-object "ClutterText")
+  (c-name "wrap_clutter_text_get_color")
+  (overrides "clutter_text_get_color")
+  (return-type "SCM")
+  (leave-guile-mode #f))
+
 (define-method get_children
   (of-object "ClutterActor")
   (c-name "clutter_actor_get_children")
-- 
2.1.4

pgpPj1P8XAr4h.pgp
Description: OpenPGP digital signature