(upgrade_failed) offer to retry the upgrade if it failed

1 files changed, 14 insertions, 5 deletions

diff --git a/mdkapplet-upgrade-helper b/mdkapplet-upgrade-helper
index eda7c4ae..39c7dfa8 100755
--- a/mdkapplet-upgrade-helper
+++ b/mdkapplet-upgrade-helper
@@ -116,11 +116,20 @@ my @common = (
 );
 
 sub upgrade_failed() {
-    ugtk2::ask_warn(N("Error"),
-                    N("Installation failed"),
-                    N("Installation logs can be found in '%s'", $log_file)
-                );
- }
+    local $mygtk2::left_padding = 0;
+    my $w = ugtk2->new(N("Error"));
+    gtkadd($w->{window},
+           gtknew('VBox', children_tight => [
+               get_banner(),
+               gtknew('Label_Left', text => N("Installation failed"), @common),
+               gtknew('Label_Left', text => N("Installation logs can be found in '%s'", $log_file), @common),
+               create_okcancel($w, N("Retry"), N("Cancel")),
+           ]),
+       );
+    $w->{ok}->grab_focus;
+    my $answer = $w->main;
+    upgrade() if $answer;
+}
 
 sub upgrade_distro_congratulations() {
     local $mygtk2::left_padding = 0;