From a0dc64f05711b57650f62add38ee022bf5ed823c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 8 Jan 2014 17:59:37 +0100 Subject: fix menu accelerators got mixed up in commit ca6a026a23f723a74dab9a7d3afc11c2a43c01f2 --- perl-install/standalone/harddrake2 | 2 +- perl-install/standalone/logdrake | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone') 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("Q"), undef, \&quit_global ], [ 'OptionsMenu', undef, '_Options' ], [ 'HelpMenu', undef, '_Help' ], - if_($has_help, [ 'Help', undef, N("_Help"), N("Q"), undef, \&run_help ]), + if_($has_help, [ 'Help', undef, N("_Help"), N("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("Q"), undef, \&save ], + [ 'Save', undef, N("_Quit"), N("S"), undef, \&save ], [ 'Quit', undef, N("_Quit"), N("Q"), undef, \&quit ], ], string => qq( -- cgit v1.2.1