summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-09-16 16:33:30 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-09-16 16:33:30 +0000
commit4322a104150d567dc0710be2bd6ad25a860f2f92 (patch)
treeeaf3c4c24c61b05b37382dd767b5c165fbbde7af /perl-install
parent7b6a1f1f6d3da56fb2d7e44c89bac807dc9eb8eb (diff)
downloaddrakx-backup-do-not-use-4322a104150d567dc0710be2bd6ad25a860f2f92.tar
drakx-backup-do-not-use-4322a104150d567dc0710be2bd6ad25a860f2f92.tar.gz
drakx-backup-do-not-use-4322a104150d567dc0710be2bd6ad25a860f2f92.tar.bz2
drakx-backup-do-not-use-4322a104150d567dc0710be2bd6ad25a860f2f92.tar.xz
drakx-backup-do-not-use-4322a104150d567dc0710be2bd6ad25a860f2f92.zip
(create_treeview_list) run timer only once
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive/gtk.pm2
1 files changed, 1 insertions, 1 deletions
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;
};