[libchamplain/libchamplain-0-4] Perl bindings for champlain_view_get_license_text and champlain_view_set_license_text

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

commit 230f2832dae1ebacbdeeba0120d15bb0ae1a397a
Author: Emmanuel Rodriguez <emmanuel rodriguez gmail com>
Date:   Sat Jan 9 10:25:38 2010 +0100

    Perl bindings for champlain_view_get_license_text and champlain_view_set_license_text

 bindings/perl/Champlain/t/ChamplainView.t   |   11 +++++++++++
 bindings/perl/Champlain/xs/ChamplainView.xs |   12 ++++++++++++
 2 files changed, 23 insertions(+), 0 deletions(-)
---
diff --git a/bindings/perl/Champlain/t/ChamplainView.t b/bindings/perl/Champlain/t/ChamplainView.t
index d4483c8..d334e59 100644
--- a/bindings/perl/Champlain/t/ChamplainView.t
+++ b/bindings/perl/Champlain/t/ChamplainView.t
@@ -108,6 +108,17 @@ sub test_generic {
 	
 	# Call ensure_visible(), it's to test, but at least we test that it doesn't crash
 	$view->ensure_visible(10, 10, 30, 30, TRUE);
+
+
+
+	SKIP: {
+		Champlain->CHECK_VERSION(0, 4, 3) or skip '0.4.3 stuff', 2;
+		$view->set_license_text("Perl Universal License");
+		is($view->get_license_text, "Perl Universal License", "set_license_text(text)");
+
+		$view->set_license_text(undef);
+		is($view->get_license_text, undef, "set_license_text(undef)");
+	}
 }
 
 
diff --git a/bindings/perl/Champlain/xs/ChamplainView.xs b/bindings/perl/Champlain/xs/ChamplainView.xs
index 45604c6..c57b78a 100644
--- a/bindings/perl/Champlain/xs/ChamplainView.xs
+++ b/bindings/perl/Champlain/xs/ChamplainView.xs
@@ -154,3 +154,15 @@ void
 champlain_view_remove_layer (ChamplainView *view, ChamplainLayer *layer)
 
 #endif /* 0.4.1 */
+
+
+#if CHAMPLAIN_CHECK_VERSION (0, 4, 3)
+
+const gchar_ornull *
+champlain_view_get_license_text (ChamplainView *view)
+
+
+void
+champlain_view_set_license_text (ChamplainView *view, const gchar_ornull *text)
+
+#endif /* 0.4.3 */