From bbbfaa4f23a86e291e8d0ff769ea0fb571d0e7b5 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 29 Jul 1999 15:28:35 +0000
Subject: no_comment

---
 perl-install/Xconfigurator.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'perl-install')

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);
 }
-- 
cgit v1.2.1