From 5e7dea780680b433842dbd4ecd6f55e38b391f5e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 14 Nov 2008 07:44:11 +0000
Subject: - XFdrake:   o have Option "PanelGeometry" "XXxYY" on geode driver

---
 lib/Xconfig/resolution_and_depth.pm | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

(limited to 'lib/Xconfig/resolution_and_depth.pm')

diff --git a/lib/Xconfig/resolution_and_depth.pm b/lib/Xconfig/resolution_and_depth.pm
index dc3f446..f688fce 100644
--- a/lib/Xconfig/resolution_and_depth.pm
+++ b/lib/Xconfig/resolution_and_depth.pm
@@ -214,7 +214,7 @@ sub configure {
     } else {
 	$resolution = choose($in, $default_resolution, @resolutions) or return;
     }
-    set_resolution_($raw_X, $monitors, $default_resolution, $resolution, @resolutions);
+    set_resolution_($raw_X, $card, $monitors, $default_resolution, $resolution, @resolutions);
 }
 
 sub configure_auto_install {
@@ -232,15 +232,15 @@ sub configure_auto_install {
 	($default_resolution, @resolutions) = choices($raw_X, $resolution_wanted, $card, $monitors);
 	$default_resolution or die "you selected an unusable depth";
     }
-    set_resolution($raw_X, $monitors, $default_resolution, @resolutions);
+    set_resolution($raw_X, $card, $monitors, $default_resolution, @resolutions);
 }
 
 sub set_resolution {
-    my ($raw_X, $monitors, $resolution, @other) = @_; 
-    set_resolution_($raw_X, $monitors, $resolution, $resolution, @other);
+    my ($raw_X, $card, $monitors, $resolution, @other) = @_; 
+    set_resolution_($raw_X, $card, $monitors, $resolution, $resolution, @other);
 }
 sub set_resolution_ {
-    my ($raw_X, $monitors, $default_resolution, $resolution, @other) = @_; 
+    my ($raw_X, $card, $monitors, $default_resolution, $resolution, @other) = @_; 
 
     my $PreferredMode;
     if (!$resolution->{automatic}) {
@@ -264,6 +264,10 @@ sub set_resolution_ {
 	}
 	$raw_X->set_monitors(@$monitors);
     }
+    if ($card->{Driver} eq 'geode') {
+	$card->{Options}{PanelGeometry} = XxY($resolution);
+	Xconfig::card::to_raw_X($card, $raw_X);	
+    }
 
     set_default_background($resolution);
     my $resolutions = [ $resolution, @other ];
-- 
cgit v1.2.1