diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-05-04 18:31:12 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-05-04 18:31:12 +0000 |
| commit | 4e096379cad750ecfdb7ddd78eeae899380a7696 (patch) | |
| tree | d8d20a99442163647d9daac826478cb5695f4312 /perl-install/interactive_gtk.pm | |
| parent | a653f2e1d6d6ff8ee49c647e747bdb5b549429c2 (diff) | |
| download | drakx-backup-do-not-use-4e096379cad750ecfdb7ddd78eeae899380a7696.tar drakx-backup-do-not-use-4e096379cad750ecfdb7ddd78eeae899380a7696.tar.gz drakx-backup-do-not-use-4e096379cad750ecfdb7ddd78eeae899380a7696.tar.bz2 drakx-backup-do-not-use-4e096379cad750ecfdb7ddd78eeae899380a7696.tar.xz drakx-backup-do-not-use-4e096379cad750ecfdb7ddd78eeae899380a7696.zip | |
no_comment
Diffstat (limited to 'perl-install/interactive_gtk.pm')
| -rw-r--r-- | perl-install/interactive_gtk.pm | 3 |
1 files changed, 1 insertions, 2 deletions
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]}; |