summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-29 15:28:35 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-29 15:28:35 +0000
commitbbbfaa4f23a86e291e8d0ff769ea0fb571d0e7b5 (patch)
treed9062745b92b9816fe9bc377944ca3e1aaef7daa /perl-install
parent88a07c82cece62903ae68e1e2c482d810bbf8560 (diff)
downloaddrakx-backup-do-not-use-bbbfaa4f23a86e291e8d0ff769ea0fb571d0e7b5.tar
drakx-backup-do-not-use-bbbfaa4f23a86e291e8d0ff769ea0fb571d0e7b5.tar.gz
drakx-backup-do-not-use-bbbfaa4f23a86e291e8d0ff769ea0fb571d0e7b5.tar.bz2
drakx-backup-do-not-use-bbbfaa4f23a86e291e8d0ff769ea0fb571d0e7b5.tar.xz
drakx-backup-do-not-use-bbbfaa4f23a86e291e8d0ff769ea0fb571d0e7b5.zip
no_comment
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfigurator.pm11
1 files changed, 11 insertions, 0 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 9749884d2..8b5f151b7 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -6,6 +6,7 @@ use vars qw($in $resolution_wanted @depths @resolutions @accelservers @allserver
use pci_probing::main;
use common qw(:common :file);
+use interactive_gtk;
use log;
use Xconfigurator_consts;
@@ -445,6 +446,16 @@ sub main {
write_XF86Config($o, "/tmp/Xconfig");
+ unless (fork) {
+ exec "X", ":9" or exit 1;
+ }
+
+ {
+ local $ENV{DISPLAY} = ":9";
+ my $w = interactive_gtk->new;
+ $w->ask_yesorno("Do you see this message");
+ }
+
# Success
rewriteInittab(rc & STARTX ? 5 : 3);
}