Add the button 'Home' using a go_to()

diff --git a/bindings/perl/Champlain/examples/gtk2.pl b/bindings/perl/Champlain/examples/gtk2.pl
index 9748d0ff7dfe412205fa369896556b914d112f88..3d8432684e249b5acaf38b8d13a77d72ffa15000 100755 (executable)
--- a/bindings/perl/Champlain/examples/gtk2.pl
+++ b/bindings/perl/Champlain/examples/gtk2.pl
@@ -48,6 +48,12 @@ sub main {
        });
        $toolbox->add($child);
 
+       $child = Gtk2::Button->new_from_stock('gtk-home');
+       $child->signal_connect('clicked', sub {
+               $map->go_to(48.218611, 17.146397);
+       });
+       $toolbox->add($child);
+
        $child = Gtk2::ToggleButton->new_with_label("Markers");
        $child->signal_connect('toggled', sub {
                if ($layer->get('visible')) {