From 1d98a078dd7c5aedf6a85fdec6c6c52e77e78ce6 Mon Sep 17 00:00:00 2001
From: Duncan Ferguson <duncan_j_ferguson@yahoo.co.uk>
Date: Wed, 31 Aug 2011 21:10:13 +0100
Subject: [PATCH] Fix key binding to pass on events again

---
 lib/App/ClusterSSH.pm | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/lib/App/ClusterSSH.pm b/lib/App/ClusterSSH.pm
index e095507..8d3a249 100644
--- a/lib/App/ClusterSSH.pm
+++ b/lib/App/ClusterSSH.pm
@@ -1905,12 +1905,9 @@ sub create_menubar() {
         -tearoff => 0,
     );
 
-    #$windows{main_window}->bind(
-    #'<Key>' => \&key_event,
-    #);
-    warn 'TODO: fix key even binding';
-    #$windows{main_window}->bind( '<KeyPress>'   => \&{$self->key_event}, );
-    #$windows{main_window}->bind( '<KeyRelease>' => \&$self->key_event, );
+    $windows{main_window}->bind(
+        '<Key>' => [ $self => 'key_event' ],
+    );
     logmsg( 2, "create_menubar: completed" );
 }
 
@@ -2143,7 +2140,7 @@ the code until this time.
 
 =item  config
 
-=item  helper
+=item  config
 
 =item  create_menubar