From 762dee42a6cbe4a3e803d402ccadc8050897752e Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 24 May 2004 13:10:24 +0000 Subject: switch from deprecated OptionMenu into new ComboBox widget --- perl-install/standalone/draksplash | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install/standalone/draksplash') diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash index 3101128fd..703896be4 100755 --- a/perl-install/standalone/draksplash +++ b/perl-install/standalone/draksplash @@ -389,8 +389,9 @@ sub mk_frame { my @popdown; if ($ref->{widget}{combo}{$1}) { @popdown = @{$ref->{widget}{combo}{$1}}; - my $w = $ref->{widgets}{combo}{$1} = $ref->{widget}{extras}{$1}{noneditable} ? Gtk2::OptionMenu->new : Gtk2::Combo->new; + my $w = $ref->{widgets}{combo}{$1} = $ref->{widget}{extras}{$1}{noneditable} ? Gtk2::ComboBox->new_text : Gtk2::Combo->new; $ref->{widgets}{combo}{$1}->set_popdown_strings(@popdown); + $w->set_active(0) if $w->isa('Gtk2::ComboBox'); push @widgets, $w; } -- cgit v1.2.1