diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-02-20 13:13:42 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-02-20 13:13:42 +0000 |
| commit | 48795c4189fd844cd6b41793a0b2ef36edafb2c6 (patch) | |
| tree | c63e3e01223ad3931abd6f694748cf1037425260 /perl-install | |
| parent | 56e71f5e6b85f7ebc4c275ed2017ee30b97dc441 (diff) | |
| download | drakx-48795c4189fd844cd6b41793a0b2ef36edafb2c6.tar drakx-48795c4189fd844cd6b41793a0b2ef36edafb2c6.tar.gz drakx-48795c4189fd844cd6b41793a0b2ef36edafb2c6.tar.bz2 drakx-48795c4189fd844cd6b41793a0b2ef36edafb2c6.tar.xz drakx-48795c4189fd844cd6b41793a0b2ef36edafb2c6.zip | |
(loadSavePackagesOnFloppy): add a "Cancel" button
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 3f4831ed4..28a6446d6 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -563,7 +563,7 @@ sub loadSavePackagesOnFloppy { my $choice = $o->ask_from_listf('', _("Please choose load or save package selection on floppy. The format is the same as auto_install generated floppies."), - sub { translate($_[0]{text}) }, + sub { $_[0]{text} }, [ { text => _("Load from floppy"), code => sub { while (1) { my $w = $o->wait_message(_("Package selection"), _("Loading from floppy")); @@ -587,6 +587,7 @@ The format is the same as auto_install generated floppies."), log::l("save package selection to floppy"); install_any::g_default_packages($o, 'quiet'); } }, + { text => _("Cancel") }, ]); $choice->{code} and $choice->{code}(); } |