[libchamplain/libchamplain-0-4] Perl bindings for champlain_marker_set_highlight_text_color and champlain_marker_get_highlight_text_
- From: Pierre-Luc Beaudoin <plbeaudoin src gnome org>
- To: svn-commits-list gnome org
- Cc:
- Subject: [libchamplain/libchamplain-0-4] Perl bindings for champlain_marker_set_highlight_text_color and champlain_marker_get_highlight_text_
- Date: Sat, 9 Jan 2010 19:57:21 +0000 (UTC)
commit ad2c07551e1236251502dc4dc8b2b89ffdf43105
Author: Emmanuel Rodriguez <emmanuel rodriguez gmail com>
Date: Sat Jan 9 09:26:48 2010 +0100
Perl bindings for champlain_marker_set_highlight_text_color and champlain_marker_get_highlight_text_color
bindings/perl/Champlain/t/ChamplainMarker.t | 21 ++++++++++++++++++---
bindings/perl/Champlain/xs/ChamplainMarker.xs | 9 +++++++++
2 files changed, 27 insertions(+), 3 deletions(-)
---
diff --git a/bindings/perl/Champlain/t/ChamplainMarker.t b/bindings/perl/Champlain/t/ChamplainMarker.t
index 1f5db59..cae9963 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 => 318;
+use Clutter::TestHelper tests => 324;
use Test::Builder;
use Champlain ':coords';
@@ -26,8 +26,14 @@ sub tests {
test_new_from_file();
test_new_full();
test_new_with_image();
+ test_global_colors();
+
+ return 0;
+}
+
+
+sub test_global_colors {
- # 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;
@@ -38,7 +44,16 @@ sub tests {
);
}
- return 0;
+
+ Champlain::Marker->set_highlight_text_color(Clutter::Color->new(0xff, 0xef, 0x00));
+ SKIP: {
+ Champlain->CHECK_VERSION(0, 4, 1) or skip '0.4.1 stuff', 1;
+ is_color(
+ Champlain::Marker->get_highlight_text_color,
+ Clutter::Color->new(0xff, 0xef, 0x00),
+ "get_highlight_color()"
+ );
+ }
}
diff --git a/bindings/perl/Champlain/xs/ChamplainMarker.xs b/bindings/perl/Champlain/xs/ChamplainMarker.xs
index c971b73..54239b6 100644
--- a/bindings/perl/Champlain/xs/ChamplainMarker.xs
+++ b/bindings/perl/Champlain/xs/ChamplainMarker.xs
@@ -144,10 +144,19 @@ champlain_marker_set_highlight_color (class, ClutterColor *color);
C_ARGS: color
+void
+champlain_marker_set_highlight_text_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 */
+const ClutterColor*
+champlain_marker_get_highlight_text_color (class)
+ C_ARGS: /* No args */
+
#endif /* 0.4.1 */
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]