From: Emmanuel Rodriguez <emmanuel.rodriguez@gmail.com>
Date: Sun, 14 Jun 2009 14:14:38 +0000 (+0200)
Subject: Set the current zoom level in the zoom spin button
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=08a0534f58502412697909b273c658ffded2179b;p=libchamplain

Set the current zoom level in the zoom spin button
---

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