From e9aa36ea4396f564e8ec13c0c62a13a0b78b8475 Mon Sep 17 00:00:00 2001 From: Emmanuel Rodriguez Date: Tue, 22 Sep 2009 20:15:45 +0200 Subject: [PATCH] Implement the functions champlain_layer_animate_*() --- bindings/perl/Champlain/t/ChamplainLayer.t | 14 +++++++++++++- bindings/perl/Champlain/xs/ChamplainLayer.xs | 16 ++++++++++++++++ 2 files changed, 29 insertions(+), 1 deletion(-) diff --git a/bindings/perl/Champlain/t/ChamplainLayer.t b/bindings/perl/Champlain/t/ChamplainLayer.t index 1831914..c1ae40a 100644 --- a/bindings/perl/Champlain/t/ChamplainLayer.t +++ b/bindings/perl/Champlain/t/ChamplainLayer.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Clutter::TestHelper tests => 6; +use Clutter::TestHelper tests => 9; use Champlain; @@ -32,5 +32,17 @@ sub tests { $layer->hide(); ok(!$layer->get('visible'), "hide()"); + # Too hard to test, but at least we call them + $layer->animate_in_all_markers(); + $layer->animate_out_all_markers(); + + # Show/Hide the markers + ok($marker->get('visible'), "marker is not visible"); + $layer->hide_all_markers(); + ok(!$marker->get('visible'), "hide_all_markers()"); + + + $layer->show_all_markers(); + ok($marker->get('visible'), "show_all_markers()"); return 0; } diff --git a/bindings/perl/Champlain/xs/ChamplainLayer.xs b/bindings/perl/Champlain/xs/ChamplainLayer.xs index 4f6915c..626a993 100644 --- a/bindings/perl/Champlain/xs/ChamplainLayer.xs +++ b/bindings/perl/Champlain/xs/ChamplainLayer.xs @@ -23,3 +23,19 @@ champlain_layer_show (ChamplainLayer *layer) void champlain_layer_remove_marker (ChamplainLayer *layer, ChamplainBaseMarker *marker) + + +void +champlain_layer_animate_in_all_markers (ChamplainLayer *layer) + + +void +champlain_layer_animate_out_all_markers (ChamplainLayer *layer) + + +void +champlain_layer_hide_all_markers (ChamplainLayer *layer) + + +void +champlain_layer_show_all_markers (ChamplainLayer *layer) -- 2.39.5