From a3f578efbce1bc645499611f0f1cc13c996f3275 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Sun, 8 Aug 2004 23:45:02 +0000 Subject: simplify code through Gtk2::ComboBox->new_with_strings() --- perl-install/standalone/draksec | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'perl-install/standalone/draksec') diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec index a05cb0850..cc9474b85 100755 --- a/perl-install/standalone/draksec +++ b/perl-install/standalone/draksec @@ -126,10 +126,7 @@ maximum"))) ]); sub new_nonedit_combo { my ($string_list, $o_default_value) = @_; - my $w = Gtk2::ComboBox->new_text; - $w->set_popdown_strings(to_i18n(@$string_list)) unless is_empty_array_ref $string_list; - $w->entry->set_text(to_i18n($o_default_value)) if $o_default_value; - $w; + Gtk2::ComboBox->new_with_strings([ to_i18n(@$string_list) ], to_i18n($o_default_value)); } sub set_help_tip { -- cgit v1.2.1