summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-06-04 16:03:23 +0000
committerFrancois Pons <fpons@mandriva.com>2003-06-04 16:03:23 +0000
commit18fcff49d3c836697d3b75a3d01d31c700e69974 (patch)
tree270c568b6933d99cb8bb98cb4f9b02b612e100ec /perl-install/install_steps_gtk.pm
parent1d1c073705c0c211c14e2382655fbaab0c965a3b (diff)
downloaddrakx-18fcff49d3c836697d3b75a3d01d31c700e69974.tar
drakx-18fcff49d3c836697d3b75a3d01d31c700e69974.tar.gz
drakx-18fcff49d3c836697d3b75a3d01d31c700e69974.tar.bz2
drakx-18fcff49d3c836697d3b75a3d01d31c700e69974.tar.xz
drakx-18fcff49d3c836697d3b75a3d01d31c700e69974.zip
allow X server to use :9 (:1 seems to not working ?) and disable access control
(no clients can connect by default).
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 589828e49..09b6c1b77 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -32,7 +32,7 @@ sub new($$) {
$SIG{__DIE__} = sub { $_[0] !~ /ugtk2\.pm/ and goto $old };
$ENV{DISPLAY} ||= $o->{display} || ":0";
- my $wanted_DISPLAY = $::testing && -x '/usr/X11R6/bin/Xnest' ? ':1' : $ENV{DISPLAY};
+ my $wanted_DISPLAY = $::testing && -x '/usr/X11R6/bin/Xnest' ? ':9' : $ENV{DISPLAY};
if ($ENV{DISPLAY} =~ /^:\d/ && !$::testing || $ENV{DISPLAY} ne $wanted_DISPLAY) { #- is the display local or distant?
my $f = "/tmp/Xconf";
@@ -56,7 +56,7 @@ sub new($$) {
push @options, $xpmac_opts !~ /ofonly/ ? ('-mode', '17', '-depth', '32') : '-mach64' if $server =~ /Xpmac/;
push @options, '-fp', '/usr/X11R6/lib/X11/fonts:unscaled' if $server =~ /Xsun|Xpmac/;
- push @options, '-geometry', $o->{vga16} ? '640x480' : '800x600' if $server eq 'Xnest';
+ push @options, '-ac', '-geometry', $o->{vga16} ? '640x480' : '800x600' if $server eq 'Xnest';
unless (fork()) {
exec $server, @options or exit 1;
@@ -448,7 +448,7 @@ sub installPackages {
my $text = Gtk2::Label->new;
my ($advertising, $change_time, $i);
my $show_advertising if 0;
- $show_advertising = to_bool(@install_any::advertising_images) if !defined $show_advertising;
+ $show_advertising = to_bool(@install_any::advertising_images) && $o->{locale}{lang} =~ /en|fr|es|de/ if !defined $show_advertising;
my ($msg, $msg_time_remaining, $msg_time_total) = map { Gtk2::Label->new($_) } '', (N("Estimating")) x 2;
my ($progress, $progress_total) = map { Gtk2::ProgressBar->new } (1..2);
gtkadd($w->{window}, my $box = Gtk2::VBox->new(0,10));