FIJISettingsViewer: add ESC handling to driver selection dialog

bin/Tk/FIJISettingsViewer.pm

@@ -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);