diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-02-25 07:48:23 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-02-25 07:48:23 +0000 |
| commit | 8632960c4b3fc93d0ce5da7b2091558a7edf508e (patch) | |
| tree | a7c8170eb2c774885cab77a886d50855afec7199 /perl-install | |
| parent | fe0b5b018b1bd8d1be6beb84844ee80ee46de635 (diff) | |
| download | drakx-8632960c4b3fc93d0ce5da7b2091558a7edf508e.tar drakx-8632960c4b3fc93d0ce5da7b2091558a7edf508e.tar.gz drakx-8632960c4b3fc93d0ce5da7b2091558a7edf508e.tar.bz2 drakx-8632960c4b3fc93d0ce5da7b2091558a7edf508e.tar.xz drakx-8632960c4b3fc93d0ce5da7b2091558a7edf508e.zip | |
only list physically present floppies
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakfloppy | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy index cc2630df0..84dbba658 100755 --- a/perl-install/standalone/drakfloppy +++ b/perl-install/standalone/drakfloppy @@ -31,6 +31,7 @@ use standalone; #- warning, standalone must be loaded very first, for 'expla use common; use my_gtk qw(:helpers); use ugtk qw(:helpers); +use detect_devices; #- languages that can't be displayed with gtk1, so we unset translations #- for them until this tool is ported to gtk2 @@ -74,7 +75,7 @@ my $dev_hbox = new Gtk::HBox(1, 0); my $device_combo = new Gtk::Combo(); my $device_button = new Gtk::Button(N("default")); -$device_combo->set_popdown_strings("/dev/fd0", "/dev/fd1"); +$device_combo->set_popdown_strings(map { "/dev/" . $_->{device} } detect_devices::floppies()); $device_button->signal_connect(clicked => sub { $device_combo->entry->set_text("/dev/fd0") }); $dev_hbox->pack_start(new Gtk::Label(N("device")), 0, 0, 0); |