[libchamplain/libchamplain-0-4] Perl bindings for champlain_marker_set_highlight_color

[Pierre-Luc Beaudoin <plbeaudoin src gnome org>]

commit da1158797c26ec16326cd21226c342d4cf0d0e8e
Author: Emmanuel Rodriguez <emmanuel rodriguez gmail com>
Date:   Sat Jan 9 07:44:17 2010 +0100

    Perl bindings for champlain_marker_set_highlight_color

 bindings/perl/Champlain/t/ChamplainMarker.t   |   10 +++++++++-
 bindings/perl/Champlain/xs/ChamplainMarker.xs |    9 +++++++++
 2 files changed, 18 insertions(+), 1 deletions(-)
---
diff --git a/bindings/perl/Champlain/t/ChamplainMarker.t b/bindings/perl/Champlain/t/ChamplainMarker.t
index dec1727..1f5db59 100644
--- a/bindings/perl/Champlain/t/ChamplainMarker.t
+++ b/bindings/perl/Champlain/t/ChamplainMarker.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Clutter::TestHelper tests => 312;
+use Clutter::TestHelper tests => 318;
 use Test::Builder;
 
 use Champlain ':coords';
@@ -29,6 +29,14 @@ sub tests {
 
 	# Can't be tested but at least we call it
 	Champlain::Marker->set_highlight_color(Clutter::Color->new(0xff, 0xff, 0x00));
+	SKIP: {
+		Champlain->CHECK_VERSION(0, 4, 1) or skip '0.4.1 stuff', 1;
+		is_color(
+			Champlain::Marker->get_highlight_color,
+			Clutter::Color->new(0xff, 0xff, 0x00),
+			"get_highlight_color()"
+		);
+	}
 
 	return 0;
 }
diff --git a/bindings/perl/Champlain/xs/ChamplainMarker.xs b/bindings/perl/Champlain/xs/ChamplainMarker.xs
index a019711..c971b73 100644
--- a/bindings/perl/Champlain/xs/ChamplainMarker.xs
+++ b/bindings/perl/Champlain/xs/ChamplainMarker.xs
@@ -142,3 +142,12 @@ champlain_marker_get_draw_background (ChamplainMarker *marker)
 void
 champlain_marker_set_highlight_color (class, ClutterColor *color);
 	C_ARGS: color
+
+
+#if CHAMPLAIN_CHECK_VERSION (0, 4, 1)
+
+ClutterColor*
+champlain_marker_get_highlight_color (class)
+	C_ARGS:  /* No args */
+
+#endif /* 0.4.1 */