summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfigurator.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-07-15 12:29:03 +0000
committerFrancois Pons <fpons@mandriva.com>2002-07-15 12:29:03 +0000
commitcfee01780b4e458fa2a5d677768609936f27ab3d (patch)
treee715543a43b74569ecc8360d9b21c1e2ffb57c25 /perl-install/Xconfigurator.pm
parentde5abfe9a6362061ef57de949cb5572dd0f4cb52 (diff)
downloaddrakx-cfee01780b4e458fa2a5d677768609936f27ab3d.tar
drakx-cfee01780b4e458fa2a5d677768609936f27ab3d.tar.gz
drakx-cfee01780b4e458fa2a5d677768609936f27ab3d.tar.bz2
drakx-cfee01780b4e458fa2a5d677768609936f27ab3d.tar.xz
drakx-cfee01780b4e458fa2a5d677768609936f27ab3d.zip
just updated to use monitor icons all the time (fallback to 1280 monitor aspect).
Diffstat (limited to 'perl-install/Xconfigurator.pm')
-rw-r--r--perl-install/Xconfigurator.pm5
1 files changed, 3 insertions, 2 deletions
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] );