From 82b8f10585296bb6ebe3ce302cfb1521e45d1946 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 21 Oct 2008 13:50:19 +0000
Subject: (upgrade_failed) offer to retry the upgrade if it failed

---
 mdkapplet-upgrade-helper | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

(limited to 'mdkapplet-upgrade-helper')

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;
-- 
cgit v1.2.1