summaryrefslogtreecommitdiffstats
path: root/lib/network/signal_strength.pm
blob: 19e119c18a3ede41dd8cb74fb676762ab54dd7a1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
package network::signal_strength;

use common;
use ugtk2;

my %pixbufs;

sub get_strength_icon {
    my ($network) = @_;
    my $approx = 20 + min(80, int($network->{signal_strength}/20)*20);
    return $pixbufs{$approx} ||= ugtk2::gtkcreate_pixbuf('wifi-' . sprintf('%03d', $approx));
}

1;