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