summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/net_applet
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-07-15 08:42:37 +0000
committerOlivier Blin <oblin@mandriva.org>2005-07-15 08:42:37 +0000
commit59f58cdb39e590b8d2cd0bde63a476983ee0bbfe (patch)
treea4170b7b3ed51205ef5523fbff99ba372d47e8f6 /perl-install/standalone/net_applet
parentb5098aa2b2142986feaef0d14abbe7d25ddb1b5d (diff)
downloaddrakx-59f58cdb39e590b8d2cd0bde63a476983ee0bbfe.tar
drakx-59f58cdb39e590b8d2cd0bde63a476983ee0bbfe.tar.gz
drakx-59f58cdb39e590b8d2cd0bde63a476983ee0bbfe.tar.bz2
drakx-59f58cdb39e590b8d2cd0bde63a476983ee0bbfe.tar.xz
drakx-59f58cdb39e590b8d2cd0bde63a476983ee0bbfe.zip
rescale pixbufs to 16x16, use default.png if wifi- images aren't available
Diffstat (limited to 'perl-install/standalone/net_applet')
-rw-r--r--perl-install/standalone/net_applet8
1 files changed, 6 insertions, 2 deletions
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 =