diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-01-08 17:59:37 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-01-08 17:59:37 +0100 |
| commit | a0dc64f05711b57650f62add38ee022bf5ed823c (patch) | |
| tree | 7306069f7e39f10c37d655e5d7e29c022e172c12 /perl-install | |
| parent | 687d11bf2825b8143fc682e98dd09a189ebeeccc (diff) | |
| download | drakx-a0dc64f05711b57650f62add38ee022bf5ed823c.tar drakx-a0dc64f05711b57650f62add38ee022bf5ed823c.tar.gz drakx-a0dc64f05711b57650f62add38ee022bf5ed823c.tar.bz2 drakx-a0dc64f05711b57650f62add38ee022bf5ed823c.tar.xz drakx-a0dc64f05711b57650f62add38ee022bf5ed823c.zip | |
fix menu accelerators
got mixed up in commit ca6a026a23f723a74dab9a7d3afc11c2a43c01f2
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> |