Implement champlain_base_marker_set_highlighted() and champlain_base_marker_get_highl...

diff --git a/bindings/perl/Champlain/t/ChamplainBaseMarker.t b/bindings/perl/Champlain/t/ChamplainBaseMarker.t
index 80ae725a0b33f180eaa41860f7f4e470b5fbe9fd..e540f4c1d9ddf1f1a960984b20e8e38594cc6fd7 100644 (file)
--- a/bindings/perl/Champlain/t/ChamplainBaseMarker.t
+++ b/bindings/perl/Champlain/t/ChamplainBaseMarker.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Clutter::TestHelper tests => 5;
+use Clutter::TestHelper tests => 8;
 
 use Champlain;
 
@@ -24,6 +24,12 @@ sub tests {
        is($latitude, 20.0, "set_position() changed the latitude");
        is($longitude, 40.0, "set_position() changed the longitude");
 
+       is($marker->get_highlighted(), FALSE, "Initial highlighted is false");
+       $marker->set_highlighted(TRUE);
+       is($marker->get_highlighted(), TRUE, "Changed highlighted to true");
+       $marker->set_highlighted(FALSE);
+       is($marker->get_highlighted(), FALSE, "Changed highlighted to false");
+
        return 0;
 }
 

diff --git a/bindings/perl/Champlain/xs/ChamplainBaseMarker.xs b/bindings/perl/Champlain/xs/ChamplainBaseMarker.xs
index 655fde762012f2014982d64c60fa14520e8767ee..afb760d9bac4b48f807bf9fd1b987a08cea56088 100644 (file)
--- a/bindings/perl/Champlain/xs/ChamplainBaseMarker.xs
+++ b/bindings/perl/Champlain/xs/ChamplainBaseMarker.xs
@@ -12,3 +12,10 @@ champlain_base_marker_new (class)
 void
 champlain_base_marker_set_position (ChamplainBaseMarker *marker, gdouble longitude, gdouble latitude)
 
+
+void
+champlain_base_marker_set_highlighted (ChamplainBaseMarker *champlainBaseMarker, gboolean value);
+
+
+gboolean
+champlain_base_marker_get_highlighted (ChamplainBaseMarker *champlainBaseMarker);