summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-02-14 11:53:18 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-02-14 11:53:18 +0000
commit479a9c64e1fff7fbe93da1e62cb3a0edaa4f4e1e (patch)
tree67ebdebf8ae7dc85d735660a9094589f2c6eb5f0 /perl-install/interactive.pm
parentd93e345b240fe9d6561301a64e5d71d278067e56 (diff)
downloaddrakx-backup-do-not-use-479a9c64e1fff7fbe93da1e62cb3a0edaa4f4e1e.tar
drakx-backup-do-not-use-479a9c64e1fff7fbe93da1e62cb3a0edaa4f4e1e.tar.gz
drakx-backup-do-not-use-479a9c64e1fff7fbe93da1e62cb3a0edaa4f4e1e.tar.bz2
drakx-backup-do-not-use-479a9c64e1fff7fbe93da1e62cb3a0edaa4f4e1e.tar.xz
drakx-backup-do-not-use-479a9c64e1fff7fbe93da1e62cb3a0edaa4f4e1e.zip
in ask_browse_tree_info, have Next instead of Ok, Previous instead of Cancel when isWizard
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index b32991c4c..2af88092a 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -395,7 +395,8 @@ sub ask_from_real {
sub ask_browse_tree_info {
my ($o, $title, $message, $common) = @_;
$common->{interactive_help} ||= $common->{interactive_help_id} && sub { $o->interactive_help_get_id($common->{interactive_help_id}) };
- add2hash_($common, { ok => N("Ok"), cancel => N("Cancel") });
+ add2hash_($common, { ok => $::isWizard ? ($::Wizard_finished ? N("Finish") : N("Next ->")) : N("Ok"),
+ cancel => $::isWizard ? N("<- Previous") : N("Cancel") });
add2hash_($common, { title => $title, message => $message });
add2hash_($common, { grep_allowed_to_toggle => sub { @_ },
grep_unselected => sub { grep { $common->{node_state}($_) eq 'unselected' } @_ },