From 48795c4189fd844cd6b41793a0b2ef36edafb2c6 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 20 Feb 2002 13:13:42 +0000 Subject: (loadSavePackagesOnFloppy): add a "Cancel" button --- perl-install/install_steps_interactive.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install/install_steps_interactive.pm') 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}(); } -- cgit v1.2.1