From 0bb6afa215fff585416bc88aa967c7e1eb61672e Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 5 Mar 2000 14:17:21 +0000 Subject: *** empty log message *** --- perl-install/my_gtk.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/my_gtk.pm') diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 9cf9a7551..89944f342 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -459,7 +459,7 @@ sub _ask_from_list { my $leave = sub { $o->{retval} = $l->[$curr]; Gtk->main_quit }; my $select = sub { - $list->focus_row($_[0]); + $list->set_focus_row($_[0]); $list->select_row($_[0], 0); $list->moveto($_[0], 0, 0.5, 0); }; -- cgit v1.2.1