From 6dbd6e6db0495ddd9774f20f0fb3c239b15e13a2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 26 Nov 1999 16:48:30 +0000
Subject: no_comment

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

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

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 99ef6f7b0..ba784340c 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -469,7 +469,6 @@ sub _ask_from_list {
 	$list->moveto($_[0], 0, 0.5, 0);
     };
 
-
     ref $title && !@okcancel ?
       $list->signal_connect(button_release_event => $leave) :
       $list->signal_connect(button_press_event => sub { &$leave if $_[1]{type} =~ /^2/ });
@@ -524,10 +523,11 @@ sub _ask_from_list {
 		  ));
 
     $o->sync; #- otherwise the moveto is not done
-    map_index {
+    my $toselect; map_index {
 	$list->append($_);
-	&$select($::i) if $def && $_ eq $def;
+	$toselect = $::i if $def && $_ eq $def;
     } @$l;
+    &$select($toselect);
 
     $list->grab_focus;
 }
-- 
cgit v1.2.1