summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm30
1 files changed, 20 insertions, 10 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index dbd808969..97bca2f95 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -851,6 +851,7 @@ sub summary {
{ label => N("Timezone"), val => \$o->{timezone}{timezone}, clicked => sub { $o->configureTimezone(1) } },
{ label => N("Printer"), val => \$o->{printer}, clicked => sub { $o->configurePrinter(1) }, format => $format_printers },
{ label => N("Bootloader"), val => \$o->{bootloader}, clicked => sub { any::setupBootloader($o, $o->{bootloader}, $o->{all_hds}, $o->{fstab}, $o->{security}) }, format => sub { "$o->{bootloader}{method} on $o->{bootloader}{boot}" } },
+{ label => N("Graphical interface"), val => \$o->{raw_X}, clicked => sub { configureX($o, 'expert') }, format => sub { $o->{raw_X} ? Xconfig::resolution_and_depth::to_string($o->{raw_X}->get_resolution) : '' } },
(map {
{ label => N("ISDN card"), val => $_->{description}, clicked => sub { $o->configureNetwork } }
} grep { $_->{driver} eq 'hisax' } detect_devices::probeall()),
@@ -1107,16 +1108,25 @@ sub miscellaneous {
#------------------------------------------------------------------------------
sub configureX {
- my ($o, $clicked) = @_;
- $o->configureXBefore;
-
- symlink "$o->{prefix}/etc/gtk", "/etc/gtk";
- require Xconfig::main;
- Xconfig::main::configure_everything($o, $o->{raw_X}, $o->do_pkgs, !$::expert && !$clicked,
- { allowFB => $o->{allowFB},
- allowNVIDIA_rpms => install_any::allowNVIDIA_rpms($o->{packages}),
- });
- $o->configureXAfter;
+ my ($o, $expert) = @_;
+
+ my $options = {
+ allowFB => $o->{allowFB},
+ allowNVIDIA_rpms => install_any::allowNVIDIA_rpms($o->{packages}),
+ };
+
+ if ($o->{raw_X}) {
+ Xconfig::main::configure_chooser($o, $o->{raw_X}, $o->do_pkgs, $options);
+ } else {
+ install_steps::configureXBefore($o);
+ symlink "$o->{prefix}/etc/gtk", "/etc/gtk";
+ require Xconfig::main;
+ if (Xconfig::main::configure_everything($o, $o->{raw_X}, $o->do_pkgs, !$expert, $options)) {
+ install_steps::configureXAfter($o);
+ } else {
+ $o->{raw_X} = undef;
+ }
+ }
}
#------------------------------------------------------------------------------