summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakfloppy
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakfloppy')
-rwxr-xr-xperl-install/standalone/drakfloppy5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index b91d85d15..d58305f61 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -62,12 +62,13 @@ eval { %options = getVarsFromSh($conffile) };
######## up part
# device part
-my $device_combo = new Gtk2::OptionMenu();
+my $device_combo = Gtk2::ComboBox->new_text;
$device_combo->set_popdown_strings(map { "/dev/" . $_->{device} } detect_devices::floppies());
+$device_combo->set_active(0);
# kernel part
-my $kernel_combo = new Gtk2::OptionMenu();
+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`));