diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-09-01 03:12:20 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-09-01 03:12:20 +0000 |
| commit | 0f1aca45447e8a08d9c434b5a4b9251e37186801 (patch) | |
| tree | 5dddaef77a586cbc512b95aa47b996855f9bd846 /perl-install/standalone | |
| parent | 01c9ed69d5e6c7bfc1ec21b72d071cd57c4a2611 (diff) | |
| download | drakx-0f1aca45447e8a08d9c434b5a4b9251e37186801.tar drakx-0f1aca45447e8a08d9c434b5a4b9251e37186801.tar.gz drakx-0f1aca45447e8a08d9c434b5a4b9251e37186801.tar.bz2 drakx-0f1aca45447e8a08d9c434b5a4b9251e37186801.tar.xz drakx-0f1aca45447e8a08d9c434b5a4b9251e37186801.zip | |
perl_checker cleanups
Diffstat (limited to 'perl-install/standalone')
| -rw-r--r-- | perl-install/standalone/net_applet | 5 |
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))) })); |