[libchamplain] Set the current zoom level in the zoom spin button

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

commit 08a0534f58502412697909b273c658ffded2179b
Author: Emmanuel Rodriguez <emmanuel rodriguez gmail com>
Date:   Sun Jun 14 16:14:38 2009 +0200

    Set the current zoom level in the zoom spin button

 bindings/perl/Champlain/examples/gtk2.pl |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)
---
diff --git a/bindings/perl/Champlain/examples/gtk2.pl b/bindings/perl/Champlain/examples/gtk2.pl
index 0e8b195..b6e2263 100755
--- a/bindings/perl/Champlain/examples/gtk2.pl
+++ b/bindings/perl/Champlain/examples/gtk2.pl
@@ -70,6 +70,7 @@ sub main {
 	$toolbox->add(create_combo_box($map));
 
 	my $spin = Gtk2::SpinButton->new_with_range(0, 20, 1);
+	$spin->set_value($map->get_zoom_level);
 	$spin->signal_connect('changed', sub {
 		$map->set_zoom_level($spin->get_value_as_int);
 	});