From ea1c93402dfa2aba19ab3dbc3551cd21572affb9 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 14 Dec 1999 16:42:45 +0000 Subject: no_comment --- perl-install/Xconfigurator.pm | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) (limited to 'perl-install/Xconfigurator.pm') diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm index e3011e4ab..b34cdeb50 100644 --- a/perl-install/Xconfigurator.pm +++ b/perl-install/Xconfigurator.pm @@ -777,11 +777,21 @@ sub main { } if ($ok) { - my $run = $o->{xdm} || $::auto || $in->ask_yesorno(_("X at startup"), + if ($::isStandalone && !-t STDIN) { + if (`pidof kwm` > 0 && $in->ask_okcancel('', _("Please relog into KDE to activate the changes"), 1)) { + system("kwmcom logout"); + exec qw(nohup perl -e), q{ + for (my $nb = 10; $nb && `pidof kwm` > 0; $nb--) { sleep 1 } + system("killall X") unless `pidof kwm` > 0; + }; + } + } else { + my $run = $o->{xdm} || $::auto || $in->ask_yesorno(_("X at startup"), _("I can set up your computer to automatically start X upon booting. Would you like X to start when you reboot?"), 1); - rewriteInittab($run ? 5 : 3) unless $::testing; + rewriteInittab($run ? 5 : 3) unless $::testing; + } run_program::rooted($prefix, "chkconfig", "--del", "gpm") if $o->{mouse}{device} =~ /ttyS/ && !$::isStandalone; } } -- cgit v1.2.1