summaryrefslogtreecommitdiffstats
path: root/gurpmi2
diff options
context:
space:
mode:
Diffstat (limited to 'gurpmi2')
-rwxr-xr-xgurpmi217
1 files changed, 10 insertions, 7 deletions
diff --git a/gurpmi2 b/gurpmi2
index 18abe6ec..67c972c7 100755
--- a/gurpmi2
+++ b/gurpmi2
@@ -346,13 +346,8 @@ sub do_install_3 () {
}
sync();
},
- ask_yes_or_no => sub {
- my ($title, $msg) = @_;
- my $w = Gtk2::MessageDialog->new($mainw, [qw(modal destroy-with-parent)], 'warning', 'yes-no', $msg);
- my $response = $w->run;
- $w->destroy;
- return $response eq 'ok';
- },
+ ask_yes_or_no => \&ask_yes_or_no,
+
completed => sub {
$urpmi_lock->unlock;
$rpm_lock->unlock;
@@ -404,6 +399,14 @@ sub do_install_3 () {
exit $exit_code;
}
+sub ask_yes_or_no {
+ my ($title, $msg) = @_;
+ my $w = Gtk2::MessageDialog->new($mainw, [qw(modal destroy-with-parent)], 'warning', 'yes-no', $msg);
+ my $response = $w->run;
+ $w->destroy;
+ $response eq 'ok';
+}
+
sub gtk_new_Label_Left {
my ($text) = @_;
my $w = Gtk2::Label->new($text);