diff options
Diffstat (limited to 'perl-install/interactive')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index 391c0bc39..b16edc639 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -520,10 +520,11 @@ sub ask_fromW { } } else { if ($e->{type} eq "combo") { - $w = Gtk2::Combo->new; - $w->set_use_arrows_always(1); - $w->entry->set_editable(!$e->{not_edit}); - $w->disable_activate; + $w = $e->{not_edit} ? Gtk2::OptionMenu->new : Gtk2::Combo->new; + if (!$e->{not_edit}) { + $w->set_use_arrows_always(1); + $w->disable_activate; + } my @formatted_list = map { may_apply($e->{format}, $_) } @{$e->{list}}; |