summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-01-28 18:02:07 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-01-28 18:02:07 +0000
commit6b374ad260b1a37138cd8355140d2dfe34f11254 (patch)
tree7fa77b241f908fe93b19a199648848c0faa34cab /perl-install/interactive
parent42f941896ccc76632a201766bdbf2ff7d48cf768 (diff)
downloaddrakx-6b374ad260b1a37138cd8355140d2dfe34f11254.tar
drakx-6b374ad260b1a37138cd8355140d2dfe34f11254.tar.gz
drakx-6b374ad260b1a37138cd8355140d2dfe34f11254.tar.bz2
drakx-6b374ad260b1a37138cd8355140d2dfe34f11254.tar.xz
drakx-6b374ad260b1a37138cd8355140d2dfe34f11254.zip
fixes unresponsive keyboard
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/gtk.pm6
1 files changed, 3 insertions, 3 deletions
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;