summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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);
}