diff options
| -rw-r--r-- | NEWS | 1 | ||||
| -rwxr-xr-x | mdkapplet-upgrade-helper | 19 |
2 files changed, 15 insertions, 5 deletions
@@ -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; |