From 605c6b07c0afebfc6c0f1beca43b1081fbf0ad0d Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Sun, 28 Aug 2005 15:11:39 +0000 Subject: use new wireless icons --- perl-install/standalone/net_applet | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'perl-install') diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet index d8a34cb6f..e73ab49fe 100644 --- a/perl-install/standalone/net_applet +++ b/perl-install/standalone/net_applet @@ -37,9 +37,7 @@ my %pixbufs = firewall_icon => gtkcreate_pixbuf('/usr/lib/libDrakX/icons/drakfirewall.png')->scale_simple(24, 24, 'hyper'), state => { map { $_ => gtkcreate_pixbuf($_) } qw(connected disconnected) }, link_level => { map { - my $f = "./wifi-$_.png"; - my $pixbuf = gtkcreate_pixbuf(-r $f ? $f : 'default')->scale_simple(24, 24, 'hyper'); - $_ => $pixbuf; + $_ => gtkcreate_pixbuf('wifi-' . sprintf('%03d', $_) . '.png')->scale_simple(24, 24, 'hyper'); } qw(20 40 60 80 100) }, keyring => gtkcreate_pixbuf("/usr/share/pixmaps/keyring-small.png")->scale_simple(24, 24, 'hyper'), #- provided by usermode, required by drakxtools ); -- cgit v1.2.1