Commit 017240cf authored by Stefan Tauner's avatar Stefan Tauner
Browse files

FIJISettingsViewer: add ESC handling to driver selection dialog

parent 92cb1d22
......@@ -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);
......
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