From 4322a104150d567dc0710be2bd6ad25a860f2f92 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 16 Sep 2005 16:33:30 +0000 Subject: (create_treeview_list) run timer only once --- perl-install/interactive/gtk.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index f4b0449dd..32dc2e87a 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -143,7 +143,7 @@ sub create_treeview_list { my $nb = find_index { $_ eq $v } @{$e->{list}}; my ($old_path) = $list_tv->get_cursor; if (!$old_path || $nb != $old_path->to_string) { - Glib::Timeout->add(100, sub { $select->(Gtk2::TreePath->new_from_string($nb)); 1 }); + Glib::Timeout->add(100, sub { $select->(Gtk2::TreePath->new_from_string($nb)); 0 }); } undef $old_path if $old_path; }; -- cgit v1.2.1