sync with 2007.1 (because of SVN loss)2007.1

1 files changed, 14 insertions, 0 deletions

diff --git a/lib/network/signal_strength.pm b/lib/network/signal_strength.pm
new file mode 100644
index 0000000..0fa891d
--- /dev/null
+++ b/lib/network/signal_strength.pm
@@ -0,0 +1,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) . '.png');
+}
+
+1;