sub dialog {
    if ( $magic == 2) {
    my $messagedialog_verification = Gtk2::MessageDialog->new( un
+def, 'destroy-with-parent', 'question', 'yes-no', "Verify waypoints?"
+);
     my $response = $messagedialog_verification->run;
     $messagedialog_verification->destroy;
        $magic = 1;
    }

return 1;

}