(Gtk2::WebIcon::new) support keybard navigation

1 files changed, 6 insertions, 1 deletions

diff --git a/control-center b/control-center
index 09c81eb9..cb94292c 100755
--- a/control-center
+++ b/control-center
@@ -1138,12 +1138,17 @@ sub new {
                     );
     $tv->set_events([]);
     # FIXME : resize sig: ->foreach; set_size_request
+    $callbacks->{key_press_event} = sub {
+        my (undef, $event) = @_;
+        return if !$callbacks->{button_release_event};
+        $callbacks->{button_release_event}->() if $Gtk2::Gdk::Keysyms{Return} eq $event->keyval;
+    };
     while (my ($signal, $handler) = each %$callbacks) {
         $box->signal_connect($signal => $handler);
     }
 
     gtkset_size_request($box, 50, -1);
-    $box->set_events([ 'enter_notify_mask', 'leave_notify_mask', 'button_press_mask', 'button_release_mask' ]);
+    $box->set_events([ 'enter_notify_mask', 'leave_notify_mask', 'button_press_mask', 'button_release_mask', 'key-press-mask' ]);
     return  gtkset_border_width($box, 10);
 }