From eb7733ca9e726f3dd1ae6a65107877445bd32d5d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 23 Jan 2003 20:56:38 +0000 Subject: (configure_chooser_raw): no special case for "Next" button --- perl-install/Xconfig/main.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'perl-install/Xconfig/main.pm') diff --git a/perl-install/Xconfig/main.pm b/perl-install/Xconfig/main.pm index 9dfcbc304..4122fd098 100644 --- a/perl-install/Xconfig/main.pm +++ b/perl-install/Xconfig/main.pm @@ -98,7 +98,7 @@ sub configure_chooser_raw { }; my $ok; - $in->ask_from_({ ok => '' }, + $in->ask_from_({ if_($::isStandalone, ok => N("Quit")) }, [ { label => N("Graphic Card"), val => \$texts{card}, icon => "eth_card_mini", clicked => sub { $may_set->('card', Xconfig::card::configure($in, $raw_X, $do_pkgs, 0, $options)); @@ -120,7 +120,6 @@ sub configure_chooser_raw { Xconfig::various::various($in, $X->{card}, $options); $X->{various} = 'done'; } }, - { val => $::isInstall ? N("Next ->") : N("Quit"), icon => "exit", clicked_may_quit => sub { 1 } }, ]); $ok, $modified; } -- cgit v1.2.1