From 21066f8c4d8d136cca65f7138cabb25d4b4cfe8c Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 14 Apr 2000 15:11:57 +0000
Subject: *** empty log message ***

---
 perl-install/my_gtk.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/my_gtk.pm')

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 02037f5b5..2c0c185d3 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -556,7 +556,8 @@ sub _ask_from_list_with_help {
 
     my $leave = sub { $o->{retval} = $l->[$curr]; Gtk->main_quit };
     my $select = sub {
-	$list->select_item($_[1]);
+	$list->select_item($_[0]);
+	$list->moveto($_[0], 0, 0.5, 0);
     };
 
     ref $title && !@okcancel ?
-- 
cgit v1.2.1