From 0f1aca45447e8a08d9c434b5a4b9251e37186801 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 1 Sep 2004 03:12:20 +0000 Subject: perl_checker cleanups --- perl-install/standalone/net_applet | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone/net_applet') 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))) })); -- cgit v1.2.1