From c8d8767aa3dfeb049fd662080ac8cf2a7075ca56 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 23 Jun 2000 13:03:19 +0000
Subject: *** empty log message ***

---
 perl-install/Xconfigurator.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'perl-install/Xconfigurator.pm')

diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 2cc67e0ce..1de705d0f 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -536,10 +536,12 @@ sub resolutionsConfiguration($%) {
 	$card->{depth}{8} = [[ 640, 480 ]];
 	return;
     } elsif ($card->{server} =~ /Sun/) {
-	$card->{depth}{2} = [[ 1152, 864 ]] if $card->{server} eq "SunMono";
-	$card->{depth}{8} = [[ 1152, 864 ]] if $card->{server} eq "Sun";
-	$card->{depth}{24} = [[ 1152, 864 ]] if $card->{server} eq "Sun24";
-	return;
+	$card->{depth}{2} = [[ 1152, 864 ]] if $card->{server} =~ /^(SunMono)$/;
+	$card->{depth}{8} = [[ 1152, 864 ]] if $card->{server} =~ /^(SunMono|Sun)$/;
+	$card->{depth}{24} = [[ 1152, 864 ]] if $card->{server} =~ /^(SunMono|Sun|Sun24)$/;
+	$card->{default_wres} = 1152;
+	$o->{default_depth} = max(keys %{$card->{depth}});
+	return 1; #- aka we cannot test, assumed as good (should be).
     }
 
     #- some of these guys hate to be poked
-- 
cgit v1.2.1