From e2f1bfc29c7135d849d2a95c288e2d9f26790ee9 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 20 Jul 2005 06:11:03 +0000 Subject: show active wireless network in the menu --- perl-install/standalone/net_applet | 2 ++ 1 file changed, 2 insertions(+) (limited to 'perl-install') diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet index ccb5169b2..c590bd0b0 100644 --- a/perl-install/standalone/net_applet +++ b/perl-install/standalone/net_applet @@ -148,6 +148,7 @@ sub checkWireless() { put_in_hash($net, $networks->{$_}); unless (exists $net->{menuitem}) { $net->{menuitem} = Gtk2::CheckMenuItem->new; + $net->{menuitem}->set_draw_as_radio(1); $net->{menuitem}->add(gtkpack_(gtkshow(Gtk2::HBox->new), 1, gtkset_alignment($net->{ssid_label} = Gtk2::Label->new, 0, 0), 0, $net->{keyring_image} = Gtk2::Image->new_from_pixbuf($pixbufs{keyring}), @@ -158,6 +159,7 @@ sub checkWireless() { $net->{keyring_image}->visible(defined $net->{flags}); my $approx_level = 20 + int(min($net->{signal_level}, 80)/20)*20; $net->{level_image}->set_from_pixbuf($pixbufs{link_level}{$approx_level}); + $net->{menuitem}->set_active($net->{current}); } $wireless_networks{$_}{menuitem}->visible(exists $networks->{$_}) foreach keys %wireless_networks; } -- cgit v1.2.1