From e345c8b9135cab51e32f11fe56a6c104f6803c06 Mon Sep 17 00:00:00 2001
From: David PIROTTE <address@hidden>
Date: Sun, 12 Oct 2014 17:48:17 -0300
Subject: [PATCH] fix clutter_actor_get_background_color needs a special
 wrapper

* clutter/gnome/gw/clutter-support.c:
* clutter/gnome/gw/clutter-support.h:
* clutter/gnome/overrides/clutter.defs: get-background-color method
  overridden, now calling wrap_clutter_actor_get_background_color.
---
 clutter/gnome/gw/clutter-support.c   | 8 ++++++++
 clutter/gnome/gw/clutter-support.h   | 1 +
 clutter/gnome/overrides/clutter.defs | 7 +++++++
 3 files changed, 16 insertions(+)

diff --git a/clutter/gnome/gw/clutter-support.c b/clutter/gnome/gw/clutter-support.c
index 2088a95..3db6184 100644
--- a/clutter/gnome/gw/clutter-support.c
+++ b/clutter/gnome/gw/clutter-support.c
@@ -251,6 +251,14 @@ _wrap_clutter_color_from_string (const char *name)
         return SCM_BOOL_F;
 }
 
+SCM
+wrap_clutter_actor_get_background_color (ClutterActor* actor) 
+{
+    ClutterColor color;
+    clutter_actor_get_background_color (actor, &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 553ef91..1728f48 100644
--- a/clutter/gnome/gw/clutter-support.h
+++ b/clutter/gnome/gw/clutter-support.h
@@ -51,6 +51,7 @@ ClutterPerspective* scm_scm_to_clutter_perspective (SCM scm);
 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);
 
 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 ca86d6c..c365e8a 100644
--- a/clutter/gnome/overrides/clutter.defs
+++ b/clutter/gnome/overrides/clutter.defs
@@ -334,6 +334,13 @@
   (parameters
    '("const-char*" "name")))
 
+(define-method get_background_color
+  (of-object "ClutterActor")
+  (c-name "wrap_clutter_actor_get_background_color")
+  (overrides "clutter_actor_get_background_color")
+  (return-type "SCM")
+  (leave-guile-mode #f))
+
 (ignore-glob  "*_get_type"
               "_*"
               "*_ref"
-- 
2.1.1