From 55a58b8216b7f4bc3fcad3294547e6a7bafe01ad Mon Sep 17 00:00:00 2001
From: David PIROTTE
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
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