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 { ...@@ -372,20 +372,20 @@ sub _menu {
$tests->separator; $tests->separator;
$tests->command( $tests->command(
-label => 'Open', -label => 'Open',
-accelerator => 'Ctrl-o', -accelerator => 'Ctrl+o',
-underline => 0, -underline => 0,
-command => [\&_open_tests_file, $self], -command => [\&_open_tests_file, $self],
); );
$tests->separator; $tests->separator;
$tests->command( $tests->command(
-label => 'Save', -label => 'Save',
-accelerator => 'Ctrl-s', -accelerator => 'Ctrl+s',
-underline => 0, -underline => 0,
-command => [\&_save, $self], -command => [\&_save, $self],
); );
$tests->command( $tests->command(
-label => 'Save As ...', -label => 'Save As ...',
-accelerator => 'Ctrl-Shift-s', -accelerator => 'Ctrl+Shift+s',
-underline => 1, -underline => 1,
-command => [\&_save_as, $self], -command => [\&_save_as, $self],
); );
...@@ -405,7 +405,7 @@ sub _menu { ...@@ -405,7 +405,7 @@ sub _menu {
); );
$export->command( $export->command(
-label => 'As VHDL architecture for gate-level simulation', -label => 'As VHDL architecture for gate-level simulation',
-accelerator => 'Ctrl+r', -accelerator => 'Ctrl+g',
-underline => '0', -underline => '0',
-command => [\&_export_gate_level_sim, $self], -command => [\&_export_gate_level_sim, $self],
); );
......
...@@ -238,20 +238,20 @@ sub _menu { ...@@ -238,20 +238,20 @@ sub _menu {
$file->separator; $file->separator;
$file->command( $file->command(
-label => 'Open', -label => 'Open',
-accelerator => 'Ctrl-o', -accelerator => 'Ctrl+o',
-underline => 0, -underline => 0,
-command => [\&_open_settings_file, $self], -command => [\&_open_settings_file, $self],
); );
$file->separator; $file->separator;
$file->command( $file->command(
-label => 'Save', -label => 'Save',
-accelerator => 'Ctrl-s', -accelerator => 'Ctrl+s',
-underline => 0, -underline => 0,
-command => [\&_save, $self], -command => [\&_save, $self],
); );
$file->command( $file->command(
-label => 'Save As ...', -label => 'Save As ...',
-accelerator => 'Ctrl-Shift-s', -accelerator => 'Ctrl+Shift+s',
-underline => 1, -underline => 1,
-command => [\&_save_as, $self], -command => [\&_save_as, $self],
); );
...@@ -259,7 +259,7 @@ sub _menu { ...@@ -259,7 +259,7 @@ sub _menu {
$netlist->separator; $netlist->separator;
$netlist->command( $netlist->command(
-label => 'Load', -label => 'Load',
-accelerator => 'Ctrl-Shift-O', -accelerator => 'Ctrl+Shift+O',
-underline => 0, -underline => 0,
-command => [\&_open_netlist_file, $self], -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