summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/net_applet
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-09-01 03:12:20 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-09-01 03:12:20 +0000
commit0f1aca45447e8a08d9c434b5a4b9251e37186801 (patch)
tree5dddaef77a586cbc512b95aa47b996855f9bd846 /perl-install/standalone/net_applet
parent01c9ed69d5e6c7bfc1ec21b72d071cd57c4a2611 (diff)
downloaddrakx-backup-do-not-use-0f1aca45447e8a08d9c434b5a4b9251e37186801.tar
drakx-backup-do-not-use-0f1aca45447e8a08d9c434b5a4b9251e37186801.tar.gz
drakx-backup-do-not-use-0f1aca45447e8a08d9c434b5a4b9251e37186801.tar.bz2
drakx-backup-do-not-use-0f1aca45447e8a08d9c434b5a4b9251e37186801.tar.xz
drakx-backup-do-not-use-0f1aca45447e8a08d9c434b5a4b9251e37186801.zip
perl_checker cleanups
Diffstat (limited to 'perl-install/standalone/net_applet')
-rw-r--r--perl-install/standalone/net_applet5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet
index 15e879cf9..4d77bf5e7 100644
--- a/perl-install/standalone/net_applet
+++ b/perl-install/standalone/net_applet
@@ -122,8 +122,9 @@ sub cronNetwork() {
});
}
sub go2State {
+ my ($state_type, $interface) = @_;
$menu and $menu->destroy;
- $menu = setState(@_)
+ $menu = setState($state_type, $interface);
}
sub setState {
my ($state_type, $interface) = @_;
@@ -136,7 +137,7 @@ sub setState {
foreach (@$arr) {
my $name = ref($actions{$_}{name}) eq 'CODE' ? $actions{$_}{name}->($interface) : $actions{$_}{name};
my $launch = $actions{$_}{launch};
- $menu->append(gtksignal_connect(gtkshow(Gtk2::MenuItem->new_with_label($name)), activate => sub { $launch->($interface) } ));
+ $menu->append(gtksignal_connect(gtkshow(Gtk2::MenuItem->new_with_label($name)), activate => sub { $launch->($interface) }));
}
$menu->append(gtkshow(Gtk2::SeparatorMenuItem->new));
$menu->append(gtksignal_connect(gtkset_active($checkmi = Gtk2::CheckMenuItem->new_with_label(N("Always launch on startup")), shouldStart()), toggled => sub { setAutoStart(uc(bool2text($checkmi->get_active))) }));