Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
vecs
FIJI Public
Commits
66cb69f2
Commit
66cb69f2
authored
Jun 19, 2017
by
Stefan Tauner
Browse files
FIJISettingsViewer: bind ESC to cancel button in net selection dialogs
parent
62469b5a
Changes
1
Hide whitespace changes
Inline
Side-by-side
bin/Tk/FIJISettingsViewer.pm
View file @
66cb69f2
...
@@ -1592,6 +1592,7 @@ sub _select_net_dialog {
...
@@ -1592,6 +1592,7 @@ sub _select_net_dialog {
-
buttons
=>
[
qw/~OK ~Cancel/
],
-
buttons
=>
[
qw/~OK ~Cancel/
],
);
);
$select_net_dialog
->
bind
('
<Return>
',
=>
sub
{});
$select_net_dialog
->
bind
('
<Return>
',
=>
sub
{});
$select_net_dialog
->
bind
('
<Escape>
'
=>
[
$select_net_dialog
->
Subwidget
("
B_Cancel
"),
'
Invoke
']);
my
$sel
=
$select_net_dialog
->
FIJINetSelection
(
-
nets
=>
$self
->
{'
nets
'},
-
selected_nets_listref
=>
$netname_listref
,
-
select_multiple
=>
$select_multiple
);
my
$sel
=
$select_net_dialog
->
FIJINetSelection
(
-
nets
=>
$self
->
{'
nets
'},
-
selected_nets_listref
=>
$netname_listref
,
-
select_multiple
=>
$select_multiple
);
$sel
->
pack
(
-
expand
=>
1
,
-
fill
=>
'
both
',
-
padx
=>
5
,
-
pady
=>
5
);
$sel
->
pack
(
-
expand
=>
1
,
-
fill
=>
'
both
',
-
padx
=>
5
,
-
pady
=>
5
);
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment