From 6b374ad260b1a37138cd8355140d2dfe34f11254 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Tue, 28 Jan 2003 18:02:07 +0000
Subject: fixes unresponsive keyboard

---
 perl-install/interactive/gtk.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/interactive')

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 16fde93a3..720211c30 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -118,7 +118,7 @@ sub create_treeview_list {
 
 	    $timeout = Gtk2->timeout_add($forgetTime, sub { $timeout = $starting_word = ''; 0 });
 	}
-	1;
+	0;
     });
     $list_tv->show;
 
@@ -272,7 +272,7 @@ sub create_treeview_tree {
 
 	    $timeout = Gtk2->timeout_add($forgetTime, sub { $timeout = $starting_word = ''; 0 });
 	}
-	1;
+	0;
     });
     $tree->signal_connect(button_press_event => sub {
 	$selected_via_click = 1;
@@ -304,7 +304,7 @@ sub create_list {
     	    my ($_w, $event) = @_;
     	    my $c = chr($event->keyval & 0xff);
 	    &$may_go_to_next if $event->keyval < 0x100 ? $c eq ' ' : $c eq "\r" || $c eq "\x8d";
-    	    1;
+    	    0;
     	});
 	$list->append_items($item);
 	$item->show;
-- 
cgit v1.2.1