From afc6ef20d436974dcdea81745d514be519a1abf5 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 15 Sep 2005 04:59:05 +0000 Subject: show refresh icon if network isn't connected --- perl-install/standalone/drakroam | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/drakroam b/perl-install/standalone/drakroam index 97890d73b..2ae88bf2d 100755 --- a/perl-install/standalone/drakroam +++ b/perl-install/standalone/drakroam @@ -60,7 +60,7 @@ my $has_roaming; my %pixbufs = ( - state => { map { $_ => gtkcreate_pixbuf($_) } qw(connected disconnected) }, + state => { map { $_ => gtkcreate_pixbuf($_)->scale_simple(24, 24, 'hyper') } qw(connected refresh disconnected) }, link_level => { map { $_ => gtkcreate_pixbuf('wifi-' . sprintf('%03d', $_) . '.png')->scale_simple(24, 24, 'hyper'); } qw(20 40 60 80 100) }, @@ -71,10 +71,13 @@ sub update_networks() { ($wireless_networks, $has_roaming) = network::monitor::list_wireless($monitor, $wireless_device); @{$wireless_list->{data}} = (); + my $routes = network::tools::get_routes(); + my $connected = exists $routes->{$wireless_device}{network}; + while (my ($ap, $network) = each(%$wireless_networks)) { push @{$wireless_list->{data}}, [ $ap, - $network->{current} ? $pixbufs{state}{connected} : undef, + $network->{current} ? $connected ? $pixbufs{state}{connected} : $pixbufs{state}{refresh} : undef, $network->{essid} || $net->{wireless}{$ap}{WIRELESS_ESSID} || $ap, $pixbufs{link_level}{$network->{approx_level}}, $network->{flags} ? $pixbufs{keyring} : undef, -- cgit v1.2.1