From d817eda192fbaec13a164fb2c934ffe89fbf8ad8 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 5 Aug 2002 20:38:38 +0000 Subject: call the "Quit" button exit during install (as suggested by David Sansome) --- perl-install/Xconfig/main.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/Xconfig/main.pm b/perl-install/Xconfig/main.pm index d926df0c3..b8a2656b9 100644 --- a/perl-install/Xconfig/main.pm +++ b/perl-install/Xconfig/main.pm @@ -114,7 +114,7 @@ sub configure_chooser_raw { { val => _("Options"), icon => "ic82-tape-40", clicked => sub { Xconfig::various::various($in, $X->{card}, $options); } }, - { val => _("Quit"), icon => "exit", clicked_may_quit => sub { 1 } }, + { val => $::isInstall ? _("Ok") : _("Quit"), icon => "exit", clicked_may_quit => sub { 1 } }, ]); $ok, $modified; } -- cgit v1.2.1