From 7d4246d6b21150e39ef09d6bfbd8a760d825ed58 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 5 Mar 2008 21:38:19 +0000 Subject: perl_checker --- lib/network/netcenter.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/network/netcenter.pm b/lib/network/netcenter.pm index ad86ec7..efe0786 100755 --- a/lib/network/netcenter.pm +++ b/lib/network/netcenter.pm @@ -50,7 +50,7 @@ sub main { my $pixbufs = network::connection_manager::create_pixbufs(); my @cmanagers = map { build_cmanager($in, $net, $w, $pixbufs, $_) } @connections; - (undef, my $rootwin_height) = gtkroot()->get_size(); + (undef, my $rootwin_height) = gtkroot()->get_size; my $scrolled_height = $rootwin_height > 480 ? 400 : 295; gtkadd($w->{window}, gtknew('VBox', spacing => 5, children => [ @@ -84,10 +84,10 @@ sub main { image => gtknew('Image', file => 'configure-16'), clicked => sub { network::connection_manager::configure_connection($cmanager) }), ($cmanager->{connection}->can('get_networks') ? - $cmanager->{gui}{buttons}{refresh} = + ($cmanager->{gui}{buttons}{refresh} = gtknew('Button', text => N("Refresh"), image => gtknew('Image', file => 'refresh', size => 16), - clicked => sub { network::connection_manager::update_networks($cmanager) }) + clicked => sub { network::connection_manager::update_networks($cmanager) })) : ()), ]), 0, $cmanager->{gui}{buttons}{connect_toggle} = -- cgit v1.2.1