Skip to content
GitLab
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
017240cf
Commit
017240cf
authored
Jun 07, 2017
by
Stefan Tauner
Browse files
FIJISettingsViewer: add ESC handling to driver selection dialog
parent
92cb1d22
Changes
1
Hide whitespace changes
Inline
Side-by-side
bin/Tk/FIJISettingsViewer.pm
View file @
017240cf
...
...
@@ -1649,6 +1649,13 @@ sub _select_driver_dialog($) {
my
$select_driver_dialog
=
$self
->
DialogBoxUL
(
-
title
=>
"
Driver for
$name_str
",
-
buttons
=>
["
~OK
",
"
~Cancel
"]);
my
$frame
=
$select_driver_dialog
->
add
('
Frame
');
my
$driver_container_pane
=
$frame
->
Scrolled
('
Pane
',
'
-scrollbars
'
=>
'
re
',
'
-sticky
'
=>
'
nwse
');
my
$esc_button
=
@
{
$select_driver_dialog
->
buttons
()}[
1
];
if
(
defined
(
$esc_button
))
{
$logger
->
debug
("
Binding escape to
$esc_button
");
$select_driver_dialog
->
bind
('
<Escape>
'
=>
[
$select_driver_dialog
->
Subwidget
("
B_
$esc_button
"),
'
Invoke
']);
}
Tk::FIJIUtils::
bind_mousewheel
(
$select_driver_dialog
->
toplevel
,
$driver_container_pane
);
Tk::FIJIUtils::
set_icon
(
$select_driver_dialog
);
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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