From 4de22a52255dda727121bfaa7b62cb379dc49276 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 13 Sep 2001 13:07:04 +0000
Subject: synced with --g_auto_install mode.

---
 perl-install/Xconfigurator.pm | 8 +++++---
 perl-install/my_gtk.pm        | 6 +++---
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 43ecccc2d..73118361d 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -398,9 +398,11 @@ NOTE THIS IS EXPERIMENTAL SUPPORT AND MAY FREEZE YOUR COMPUTER.", $xf3_ver)) . "
 	$card->{prog} = "/usr/X11R6/bin/Xpmac";
 	$card->{server} = 'Xpmac';
     }
-    
-    -x "$prefix$card->{prog}" or $do_pkgs->install($card->{use_xf4} ? 'XFree86-server' : "XFree86-$card->{server}", @l);
-    -x "$prefix$card->{prog}" or die "server $card->{server} is not available (should be in $prefix$card->{prog})";
+
+    unless ($::g_auto_install) {
+	-x "$prefix$card->{prog}" or $do_pkgs->install($card->{use_xf4} ? 'XFree86-server' : "XFree86-$card->{server}", @l);
+	-x "$prefix$card->{prog}" or die "server $card->{server} is not available (should be in $prefix$card->{prog})";
+    }
 
     #- check for Matrox G200 PCI cards, disable AGP in such cases, causes black screen else.
     if ($card->{identifier} =~ /Matrox.* G[24]00/ && $card->{identifier} !~ /AGP/) {
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 37fc7393c..102a3d5de 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -533,7 +533,7 @@ sub _create_window($$) {
     my ($o, $title) = @_;
     my $w = new Gtk::Window;
     my $gc = Gtk::Gdk::GC->new(gtkroot());
-    !$::isStandalone && !$::live and $my_gtk::shape_width = 7;
+    !$::isStandalone && !$::live && !$::g_auto_install and $my_gtk::shape_width = 7;
 #-  $gc->set_foreground(gtkcolor(8448, 17664, 40191)); #- in hex : 33, 69, 157
 #-  $gc->set_foreground(gtkcolor(5120, 10752, 22784)); #- in hex : 20, 42, 89
     $gc->set_foreground(gtkcolor(8448, 8448, 8448)); #- in hex : 20, 42, 89
@@ -541,7 +541,7 @@ sub _create_window($$) {
 		       my $f = gtkset_border_width(gtkset_shadow_type(new Gtk::Frame(undef), 'none'), 3)
 		      );
     my $table;
-    if ($::isStandalone || $::live) { gtkadd($w, $inner) } else {
+    if ($::isStandalone || $::live || $::g_auto_install) { gtkadd($w, $inner) } else {
 	gtkadd($w, $table = new Gtk::Table(2, 2, 0));
 	$table->attach( $inner, 0, 1, 0, 1, 1|4, 1|4, 0, 0);
 	$table->attach( gtksignal_connect(gtkset_usize(new Gtk::DrawingArea, 7, 1), expose_event => sub {
@@ -606,7 +606,7 @@ sub _create_window($$) {
 	my ($X, $Y, $Wi, $He) = @{$my_gtk::force_center || $o->{force_center}};
         $w->set_uposition(max(0, $X + ($Wi - $wi) / 2), max(0, $Y + ($He - $he) / 2));
 
-	if (!$::isStandalone && !$::live) {
+	if (!$::isStandalone && !$::live && !$::g_auto_install) {
 	    my $sqw = $my_gtk::shape_width; #square width
 	    my $wia = int(($wi+7)/8);
 	    my $s = "\xFF" x ($wia*$he);
-- 
cgit v1.2.1