#!/usr/bin/perl --
use strict; use warnings;
use Gtk2 -init;
use Glib qw/TRUE FALSE/;
mme( @ARGV ) for 1 .. 2;
sub mme {
    my $msg_dialog = Gtk2::MessageDialog->new_with_markup(
        undef,
        'modal',
        'error',
        'yes-no',
        "Would you like to retry the connection?",
    );
    $msg_dialog->set_title("No Connection Found");
    $msg_dialog->set_destroy_with_parent(TRUE);
    $msg_dialog->signal_connect ( response => \&shimmy, );
    printf "runned %s\n", $msg_dialog->run();
}
sub shimmy {
    my ($self, $response) = @_;
    print "$self $response\n";
}
__END__
Gtk2::MessageDialog=HASH(0xc6e674) yes
runned yes
Gtk2::MessageDialog=HASH(0xb33d24) no
runned no