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

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

[David Pirotte]

[-- Attachment #1.1: Type: text/plain, Size: 210 bytes --]

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

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1.2: 0001-fix-clutter_text_get_color-needs-a-special-wrapper.patch --]
[-- Type: text/x-patch, Size: 2424 bytes --]

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


[-- Attachment #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 473 bytes --]