diff options
| -rw-r--r-- | perl-install/Xconfigurator.pm | 11 |
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); } |