summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS2
-rwxr-xr-xperl-install/standalone/harddrake22
-rwxr-xr-xperl-install/standalone/logdrake2
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>