From 4e096379cad750ecfdb7ddd78eeae899380a7696 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 4 May 2000 18:31:12 +0000
Subject: no_comment

---
 perl-install/interactive_gtk.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 98beacdc7..d3f773fbf 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -188,7 +188,6 @@ sub ask_from_entries_refW {
 	    $w->entry->set_editable(!$_->{not_edit});
 	    $w->set_popdown_strings(@{$_->{list}});
 	    $w->disable_activate;
-	    $_->{val} ||= $_->{list}[0];
 	    $w;
 	} elsif ($_->{type} eq "bool") {
 	    my $w = Gtk::CheckButton->new($_->{text});
@@ -264,7 +263,7 @@ sub ask_from_entries_refW {
 		#-i must say before &$go_to_next, but with it doen't work HACK!
 		$w->signal_emit_stop("key_press_event") if chr($e->{keyval}) eq "\x8d";
 	    });
-	    $widget->set_text(${$val->[$i]{val}})  if ${$val->[$i]{val}};
+	    $widget->set_text(${$val->[$i]{val}});
 	    $widget->set_visibility(0) if $val->[$i]{hidden};
 	}
 	&{$updates[$i]};
-- 
cgit v1.2.1