From 08a0534f58502412697909b273c658ffded2179b Mon Sep 17 00:00:00 2001
From: Emmanuel Rodriguez <emmanuel.rodriguez@gmail.com>
Date: Sun, 14 Jun 2009 16:14:38 +0200
Subject: [PATCH] Set the current zoom level in the zoom spin button

---
 bindings/perl/Champlain/examples/gtk2.pl | 1 +
 1 file changed, 1 insertion(+)

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);
 	});
-- 
2.39.5