$title=($answer eq $Answer) ?  "Yes" : "No, s/b $Answer";
        $dialog=Gtk2::Dialog->new($title,$parent,
                [qw/modal destroy-with-parent/],
                'ok'    => 'ok',
        );
        $response=$dialog->run;
        $dialog->destroy;