#!/usr/bin/perl
use warnings;
use strict;
use Gtk2 -init;

my $window = Gtk2::Window->new;
$window->add( Gtk2::Label->new("I'm a banana!") );
$window->show_all;

$window->signal_connect(
    delete_event => sub {
        return !ask( $_[0], "Really quit?" );
    }
);

$window->signal_connect( destroy => sub { Gtk2->main_quit } );
Gtk2->main;

sub ask {
    my ( $parent, $question ) = @_;
    my $msgbox =
      Gtk2::MessageDialog->new( $parent, [], 'question', 'yes-no', $question );
    my $response = $msgbox->run();
    $msgbox->destroy;
    return $response eq 'yes';
}