summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/draksec
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-08-08 23:45:02 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-08-08 23:45:02 +0000
commita3f578efbce1bc645499611f0f1cc13c996f3275 (patch)
treece010f553215da7109f4597540ff8c329cc6416e /perl-install/standalone/draksec
parentf7b7767b21f34f99a5b245db1314bd060ced9009 (diff)
downloaddrakx-a3f578efbce1bc645499611f0f1cc13c996f3275.tar
drakx-a3f578efbce1bc645499611f0f1cc13c996f3275.tar.gz
drakx-a3f578efbce1bc645499611f0f1cc13c996f3275.tar.bz2
drakx-a3f578efbce1bc645499611f0f1cc13c996f3275.tar.xz
drakx-a3f578efbce1bc645499611f0f1cc13c996f3275.zip
simplify code through Gtk2::ComboBox->new_with_strings()
Diffstat (limited to 'perl-install/standalone/draksec')
-rwxr-xr-xperl-install/standalone/draksec5
1 files changed, 1 insertions, 4 deletions
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 {