From 59f58cdb39e590b8d2cd0bde63a476983ee0bbfe Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 15 Jul 2005 08:42:37 +0000 Subject: rescale pixbufs to 16x16, use default.png if wifi- images aren't available --- perl-install/standalone/net_applet | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet index d90f90735..3bfd5264c 100644 --- a/perl-install/standalone/net_applet +++ b/perl-install/standalone/net_applet @@ -38,8 +38,12 @@ my $monitor = network::monitor->new($dbus); my %pixbufs = ( state => { map { $_ => gtkcreate_pixbuf($_) } qw(connected disconnected) }, - link_level => { map { $_ => gtkcreate_pixbuf("wifi-$_.png") } qw(20 40 60 80 100) }, - keyring => gtkcreate_pixbuf("/usr/share/pixmaps/keyring-small.png"), #- provided by usermode, required by drakxtools + link_level => { map { + my $f = "./wifi-$_.png"; + my $pixbuf = gtkcreate_pixbuf(-r $f ? $f : 'default')->scale_simple(16, 16, 'hyper'); + $_ => $pixbuf; + } qw(20 40 60 80 100) }, + keyring => gtkcreate_pixbuf("/usr/share/pixmaps/keyring-small.png")->scale_simple(16, 16, 'hyper'), #- provided by usermode, required by drakxtools ); my %wireless_networks; my %tooltips = -- cgit v1.2.1