[libchamplain/libchamplain-0-4] Perl bindings for the view's scale

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

commit abaf4b1b66e3872d12d2953869d904b96b5f22a0
Author: Emmanuel Rodriguez <emmanuel rodriguez gmail com>
Date:   Sat Jan 9 10:44:46 2010 +0100

    Perl bindings for the view's scale

 bindings/perl/Champlain/maps                |    1 +
 bindings/perl/Champlain/t/ChamplainView.t   |   24 ++++++++++++++++++++++--
 bindings/perl/Champlain/xs/ChamplainView.xs |   24 ++++++++++++++++++++++++
 3 files changed, 47 insertions(+), 2 deletions(-)
---
diff --git a/bindings/perl/Champlain/maps b/bindings/perl/Champlain/maps
index 21152c6..8cb2e41 100644
--- a/bindings/perl/Champlain/maps
+++ b/bindings/perl/Champlain/maps
@@ -16,3 +16,4 @@ CHAMPLAIN_TYPE_POINT               ChamplainPoint             GBoxed   Champlain
 CHAMPLAIN_TYPE_POLYGON             ChamplainPolygon           GObject  Champlain::Polygon
 CHAMPLAIN_TYPE_SELECTION_LAYER     ChamplainSelectionLayer    GObject  Champlain::SelectionLayer
 CHAMPLAIN_TYPE_SELECTION_MODE      ChamplainSelectionMode     GEnum    Champlain::SelectionMode
+CHAMPLAIN_TYPE_UNIT                ChamplainUnit              GEnum    Champlain::Unit
diff --git a/bindings/perl/Champlain/t/ChamplainView.t b/bindings/perl/Champlain/t/ChamplainView.t
index d334e59..41b8ce5 100644
--- a/bindings/perl/Champlain/t/ChamplainView.t
+++ b/bindings/perl/Champlain/t/ChamplainView.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Clutter::TestHelper tests => 82;
+use Clutter::TestHelper tests => 88;
 
 use Champlain ':coords';
 
@@ -110,7 +110,6 @@ sub test_generic {
 	$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");
@@ -118,6 +117,27 @@ sub test_generic {
 
 		$view->set_license_text(undef);
 		is($view->get_license_text, undef, "set_license_text(undef)");
+
+
+		$view->set_max_scale_width(200);
+		is($view->get_max_scale_width, 200, "set_max_scale_width(200)");
+
+		$view->set_max_scale_width(400);
+		is($view->get_max_scale_width, 400, "set_max_scale_width(400)");
+
+
+		$view->set_scale_unit('miles');
+		is($view->get_scale_unit, 'miles', "set_max_scale_width('miles')");
+
+		$view->set_scale_unit('km');
+		is($view->get_scale_unit, 'km', "set_max_scale_width('km')");
+
+
+		$view->set_show_scale(TRUE);
+		is($view->get_show_scale, TRUE, "set_show_scale(TRUE)");
+
+		$view->set_show_scale(FALSE);
+		is($view->get_show_scale, FALSE, "set_show_scale(FALSE)");
 	}
 }
 
diff --git a/bindings/perl/Champlain/xs/ChamplainView.xs b/bindings/perl/Champlain/xs/ChamplainView.xs
index c57b78a..6db3671 100644
--- a/bindings/perl/Champlain/xs/ChamplainView.xs
+++ b/bindings/perl/Champlain/xs/ChamplainView.xs
@@ -165,4 +165,28 @@ champlain_view_get_license_text (ChamplainView *view)
 void
 champlain_view_set_license_text (ChamplainView *view, const gchar_ornull *text)
 
+
+guint
+champlain_view_get_max_scale_width (ChamplainView *view)
+
+
+ChamplainUnit
+champlain_view_get_scale_unit (ChamplainView *view)
+
+
+gboolean
+champlain_view_get_show_scale (ChamplainView *view)
+
+
+void
+champlain_view_set_max_scale_width (ChamplainView *view, guint value)
+
+
+void
+champlain_view_set_scale_unit (ChamplainView *view, ChamplainUnit unit)
+
+
+void
+champlain_view_set_show_scale (ChamplainView *view, gboolean value)
+
 #endif /* 0.4.3 */