summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-07-20 06:11:03 +0000
committerOlivier Blin <oblin@mandriva.org>2005-07-20 06:11:03 +0000
commite2f1bfc29c7135d849d2a95c288e2d9f26790ee9 (patch)
tree4e6d448bfccdcf88d983dc4f38542e559dfcd90b /perl-install/standalone
parent08b3094733e0885c4fc9fb87f9cb8d3c3a66091d (diff)
downloaddrakx-e2f1bfc29c7135d849d2a95c288e2d9f26790ee9.tar
drakx-e2f1bfc29c7135d849d2a95c288e2d9f26790ee9.tar.gz
drakx-e2f1bfc29c7135d849d2a95c288e2d9f26790ee9.tar.bz2
drakx-e2f1bfc29c7135d849d2a95c288e2d9f26790ee9.tar.xz
drakx-e2f1bfc29c7135d849d2a95c288e2d9f26790ee9.zip
show active wireless network in the menu
Diffstat (limited to 'perl-install/standalone')
-rw-r--r--perl-install/standalone/net_applet2
1 files changed, 2 insertions, 0 deletions
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;
}