From 6c8e8baf51116d8fe9d218e73fcc5dc7c4adc0c4 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Tue, 30 Aug 2005 10:29:53 +0000
Subject: display wireless link icon in net_applet if connected through
 wireless

---
 perl-install/standalone/net_applet | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet
index 8d78aba41..7e29e14a1 100644
--- a/perl-install/standalone/net_applet
+++ b/perl-install/standalone/net_applet
@@ -248,9 +248,17 @@ sub go2State {
     }
 }
 sub update_tray_icon() {
-    !$ifw_alert || $img->get_storage_type ne 'pixbuf' ?
-      $img->set_from_pixbuf($pixbufs{state}{$current_state eq 'connected' ? 'connected' : 'disconnected'}) :
-      $img->set_from_stock('gtk-dialog-warning', 'small-toolbar');
+    if (!$ifw_alert || $img->get_storage_type ne 'pixbuf') {
+        my $pixbuf;
+        if (detect_devices::is_wireless_interface($current_interface)) {
+            my $net = find { $_->{current} } values %wireless_networks;
+            $pixbuf = $pixbufs{link_level}{$net->{approx_level}} if $net;
+        }
+        $pixbuf ||= $pixbufs{state}{$current_state eq 'connected' ? 'connected' : 'disconnected'};
+        $img->set_from_pixbuf($pixbuf);
+    } else {
+        $img->set_from_stock('gtk-dialog-warning', 'small-toolbar');
+    }
 }
 sub generate_menu {
     my ($interface) = @_;
-- 
cgit v1.2.1