From 1f2d53396dd61b3ee999db70f1b373dd015d0b73 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 28 Feb 2005 22:10:19 +0000
Subject: - drop hashes - handle lower than 640 resolutions (prepare for next
 move, introducing aspect ratio in choose_gtk)

---
 perl-install/Xconfig/resolution_and_depth.pm | 26 +++++++++++++++-----------
 1 file changed, 15 insertions(+), 11 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/Xconfig/resolution_and_depth.pm b/perl-install/Xconfig/resolution_and_depth.pm
index 38c2c2e05..4f06c3647 100644
--- a/perl-install/Xconfig/resolution_and_depth.pm
+++ b/perl-install/Xconfig/resolution_and_depth.pm
@@ -206,8 +206,12 @@ sub choose_gtk {
     my $chosen_Depth = $default_resolution->{Depth};
     my $chosen_res = { X => $default_resolution->{X} || 640, Y => $default_resolution->{Y} };
 
-    my %x_res2depth; push @{$x_res2depth{$_->{X}}}, $_->{Depth} foreach @resolutions;
-    my %depth2x_res; push @{$depth2x_res{$_->{Depth}}}, $_->{X} foreach @resolutions;
+    my $filter_on_Depth = sub {
+	grep { $_->{Depth} == $chosen_Depth } @_;
+    };
+    my $filter_on_res = sub {
+	grep { $_->{X} == $chosen_res->{X} && $_->{Y} == $chosen_res->{Y} } @_;
+    };
 
     require ugtk2;
     mygtk2->import;
@@ -221,7 +225,7 @@ sub choose_gtk {
 	#- for the other, use the biggest smaller
 	foreach my $x_res (uniq map { $_->{X} } @resolutions) {
 	    my $x_res_ = max(grep { $_ <= $x_res } @l);
-	    $h{$x_res} ||= $h{$x_res_};
+	    $h{$x_res} ||= $h{$x_res_} || $h{640};
 	}
 	%h;
     };
@@ -229,13 +233,12 @@ sub choose_gtk {
     my $depth_combo = gtknew('ComboBox', width => 220, 
 			     text_ref => \$chosen_Depth,
 			     format => sub { translate($depth2text{$_[0]}) },
-			     list => [ ikeys %depth2x_res ],
+			     list => [ uniq(sort_numbers(map { $_->{Depth} } @resolutions)) ],
 			     changed => sub {
-				 if (!member($chosen_res->{X}, @{$depth2x_res{$chosen_Depth}})) {
-				     my $X = max(@{$depth2x_res{$chosen_Depth}});
-				     #- take one
-				     my $one = find { $_->{X} eq $X } @resolutions;
-				     gtkval_modify(\$chosen_res, $one);
+				 my @matching_Depth = $filter_on_Depth->(@resolutions);
+				 if (!$filter_on_res->(@matching_Depth)) {
+				     my ($res) = sort { $b->{X} <=> $a->{X} } @matching_Depth;
+				     gtkval_modify(\$chosen_res, $res);
 				 }
 			     });
     my $res2text = sub { "$_[0]{X}x$_[0]{Y}" };
@@ -244,8 +247,9 @@ sub choose_gtk {
 			   format => $res2text,
 			   list => [ uniq_ { $res2text->($_) } sort { $a->{X} <=> $b->{X} } @resolutions ],
 			   changed => sub {
-			       if (!member($chosen_Depth, @{$x_res2depth{$chosen_res->{X}}})) {
-				   gtkval_modify(\$chosen_Depth, max(@{$x_res2depth{$chosen_res->{X}}}));
+			       my @matching_res = $filter_on_res->(@resolutions);
+			       if (!$filter_on_Depth->(@matching_res)) {
+				   gtkval_modify(\$chosen_Depth, max(map { $_->{Depth} } @matching_res));
 			       }
 			   });
     my $pix_colors = gtknew('Image', 
-- 
cgit v1.2.1