From cfee01780b4e458fa2a5d677768609936f27ab3d Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 15 Jul 2002 12:29:03 +0000
Subject: just updated to use monitor icons all the time (fallback to 1280
 monitor aspect).

---
 perl-install/Xconfigurator.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index c5557f88f..efc6bfdec 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -851,8 +851,9 @@ sub chooseResolutionsGtk($$;$) {
 
     my %monitor;
     $monitor{$_} = [ gtkcreate_png("monitor-" . $_ . ".png") ] foreach (640, 800, 1024, 1280);
-    $monitor{1152} = [ gtkcreate_png("monitor-" . 1024 . ".png") ];
-    $monitor{1600} = [ gtkcreate_png("monitor-" . 1280 . ".png") ];
+    $monitor{$_} = [ gtkcreate_png("monitor-" . 1024 . ".png") ] foreach (1152);
+    #- add default icons for resolutions not taken into account (assume largest image available).
+    $monitor{$_} ||= [ gtkcreate_png("monitor-" . 1280 . ".png") ] foreach map { (split 'x', $_)[0] } @resolutions;
 
     my $pixmap_mo = new Gtk::Pixmap( $monitor{$chosen_w}[0]  , $monitor{$chosen_w}[1] );
 
-- 
cgit v1.2.1