summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakfloppy
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/drakfloppy
parentf7b7767b21f34f99a5b245db1314bd060ced9009 (diff)
downloaddrakx-backup-do-not-use-a3f578efbce1bc645499611f0f1cc13c996f3275.tar
drakx-backup-do-not-use-a3f578efbce1bc645499611f0f1cc13c996f3275.tar.gz
drakx-backup-do-not-use-a3f578efbce1bc645499611f0f1cc13c996f3275.tar.bz2
drakx-backup-do-not-use-a3f578efbce1bc645499611f0f1cc13c996f3275.tar.xz
drakx-backup-do-not-use-a3f578efbce1bc645499611f0f1cc13c996f3275.zip
simplify code through Gtk2::ComboBox->new_with_strings()
Diffstat (limited to 'perl-install/standalone/drakfloppy')
-rwxr-xr-xperl-install/standalone/drakfloppy8
1 files changed, 2 insertions, 6 deletions
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index 3249276f2..2734286e1 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -62,15 +62,11 @@ eval { %options = getVarsFromSh($conffile) };
######## up part
# device part
-my $device_combo = Gtk2::ComboBox->new_text;
-$device_combo->set_popdown_strings(map { "/dev/" . $_->{device} } detect_devices::floppies());
+my $device_combo = Gtk2::ComboBox->new_with_strings([ map { "/dev/" . $_->{device} } detect_devices::floppies() ]);
$device_combo->set_active(0);
-
# kernel part
-my $kernel_combo = Gtk2::ComboBox->new_text;
-$kernel_combo->set_popdown_strings(sort grep { !/^\.\.?$/ } sort(all("/lib/modules")));
-$kernel_combo->entry->set_text(chomp_(`uname -r`));
+my $kernel_combo = Gtk2::ComboBox->new_with_strings([ sort grep { !/^\.\.?$/ } sort(all("/lib/modules")) ], chomp_(`uname -r`));
##########################################################