Commit 14a39a30 authored by Stefan Tauner's avatar Stefan Tauner
Browse files

GUIs: display keyboard shortcuts correctly

parent 63bbd768
......@@ -372,20 +372,20 @@ sub _menu {
$tests->separator;
$tests->command(
-label => 'Open',
-accelerator => 'Ctrl-o',
-accelerator => 'Ctrl+o',
-underline => 0,
-command => [\&_open_tests_file, $self],
);
$tests->separator;
$tests->command(
-label => 'Save',
-accelerator => 'Ctrl-s',
-accelerator => 'Ctrl+s',
-underline => 0,
-command => [\&_save, $self],
);
$tests->command(
-label => 'Save As ...',
-accelerator => 'Ctrl-Shift-s',
-accelerator => 'Ctrl+Shift+s',
-underline => 1,
-command => [\&_save_as, $self],
);
......@@ -405,7 +405,7 @@ sub _menu {
);
$export->command(
-label => 'As VHDL architecture for gate-level simulation',
-accelerator => 'Ctrl+r',
-accelerator => 'Ctrl+g',
-underline => '0',
-command => [\&_export_gate_level_sim, $self],
);
......
......@@ -238,20 +238,20 @@ sub _menu {
$file->separator;
$file->command(
-label => 'Open',
-accelerator => 'Ctrl-o',
-accelerator => 'Ctrl+o',
-underline => 0,
-command => [\&_open_settings_file, $self],
);
$file->separator;
$file->command(
-label => 'Save',
-accelerator => 'Ctrl-s',
-accelerator => 'Ctrl+s',
-underline => 0,
-command => [\&_save, $self],
);
$file->command(
-label => 'Save As ...',
-accelerator => 'Ctrl-Shift-s',
-accelerator => 'Ctrl+Shift+s',
-underline => 1,
-command => [\&_save_as, $self],
);
......@@ -259,7 +259,7 @@ sub _menu {
$netlist->separator;
$netlist->command(
-label => 'Load',
-accelerator => 'Ctrl-Shift-O',
-accelerator => 'Ctrl+Shift+O',
-underline => 0,
-command => [\&_open_netlist_file, $self],
);
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment