(upgrade_failed) offer to retry the upgrade if it failed

2 files changed, 15 insertions, 5 deletions

diff --git a/NEWS b/NEWS
index 5b32a3be..37d18902 100644
--- a/NEWS
+++ b/NEWS
@@ -5,6 +5,7 @@
 - mdkapplet-upgrade-helper
   o disable custom downloader settings in order to default to aria2
   o disable the X screen saver while upgrading the system
+  o offer to retry the upgrade if it failed
   o when updates succeeded:
     * offer to reboot
     * s/should/must/
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;