diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/NEWS | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/harddrake2 | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/logdrake | 2 |
3 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS index dc7ec4894..4a8515049 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,5 +1,7 @@ - drakboot: o add minimal/experimental lightdm autologin support (mga#11746) +- harddrake, logdrake: + o fix menu accelerators - --version option: o display mga copyright too (mga#10289) diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index 76445e803..5447afffe 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -192,7 +192,7 @@ my $ui = gtknew('UIManager', actions => [ [ 'Quit', undef, N("_Quit"), N("<control>Q"), undef, \&quit_global ], [ 'OptionsMenu', undef, '_Options' ], [ 'HelpMenu', undef, '_Help' ], - if_($has_help, [ 'Help', undef, N("_Help"), N("<control>Q"), undef, \&run_help ]), + if_($has_help, [ 'Help', undef, N("_Help"), N("<control>H"), undef, \&run_help ]), [ 'Fields description', undef, N("_Fields description"), undef, undef, \&fields_help ], [ 'Report Bug', undef, N("_Report Bug"), undef, undef, \&run_drakbug ], [ 'About', undef, N("_About..."), '', undef, \&about ], diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index af5559ef7..bd6d90a28 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -76,7 +76,7 @@ if ($::isEmbedded) { my $ui = gtknew('UIManager', actions => [ # [name, stock_id, value, label, accelerator, tooltip, callback] [ 'FileMenu', undef, N("_File") ], - [ 'Save', undef, N("_Quit"), N("<control>Q"), undef, \&save ], + [ 'Save', undef, N("_Quit"), N("<control>S"), undef, \&save ], [ 'Quit', undef, N("_Quit"), N("<control>Q"), undef, \&quit ], ], string => qq(<ui> |