From ab6768b6c56908eb1ab8c830a0a3a211f1fa2840 Mon Sep 17 00:00:00 2001 From: Emmanuel Rodriguez Date: Tue, 22 Sep 2009 19:46:22 +0200 Subject: [PATCH] Implement the new animation functions champlain_base_marker_animate_*() --- bindings/perl/Champlain/t/ChamplainBaseMarker.t | 6 ++++++ .../perl/Champlain/xs/ChamplainBaseMarker.xs | 16 ++++++++++++++++ 2 files changed, 22 insertions(+) diff --git a/bindings/perl/Champlain/t/ChamplainBaseMarker.t b/bindings/perl/Champlain/t/ChamplainBaseMarker.t index e540f4c..1a212ee 100644 --- a/bindings/perl/Champlain/t/ChamplainBaseMarker.t +++ b/bindings/perl/Champlain/t/ChamplainBaseMarker.t @@ -30,6 +30,12 @@ sub tests { $marker->set_highlighted(FALSE); is($marker->get_highlighted(), FALSE, "Changed highlighted to false"); + # Can't be tested but at least we call them + $marker->animate_in(); + $marker->animate_in_with_delay(200); + $marker->animate_out(); + $marker->animate_out_with_delay(200); + return 0; } diff --git a/bindings/perl/Champlain/xs/ChamplainBaseMarker.xs b/bindings/perl/Champlain/xs/ChamplainBaseMarker.xs index 4230f6b..f6404be 100644 --- a/bindings/perl/Champlain/xs/ChamplainBaseMarker.xs +++ b/bindings/perl/Champlain/xs/ChamplainBaseMarker.xs @@ -19,3 +19,19 @@ champlain_base_marker_set_highlighted (ChamplainBaseMarker *champlainBaseMarker, gboolean champlain_base_marker_get_highlighted (ChamplainBaseMarker *champlainBaseMarker) + + +void +champlain_base_marker_animate_in (ChamplainBaseMarker *marker) + + +void +champlain_base_marker_animate_in_with_delay (ChamplainBaseMarker *marker, guint delay) + + +void +champlain_base_marker_animate_out (ChamplainBaseMarker *marker) + + +void +champlain_base_marker_animate_out_with_delay (ChamplainBaseMarker *marker, guint delay) -- 2.39.5