From dc423de69c436d3ca0db892687581ce036368ae6 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 7 Feb 2002 21:49:02 +0000 Subject: make perl_checker happy --- perl-install/my_gtk.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index c7c10b2c1..99daf325f 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -558,7 +558,9 @@ sub gtkicons_labels_widget { } my $fixed = new Gtk::Fixed; foreach (@tab) { $fixed->put($_, 75, 65) } - my $redraw_function = sub { $fixed->move(@$_) foreach compute_icons($fixed->allocation->[2], $fixed->allocation->[3], 40, 15, 10, @tab) }; + my $redraw_function = sub { + $fixed->move(@$_) foreach compute_icons($fixed->allocation->[2], $fixed->allocation->[3], 40, 15, 10, @tab); + }; $fixed->signal_connect(expose_event => $redraw_function ); $fixed->signal_connect(realize => sub { $fixed->window->set_back_pixmap($background, 0); -- cgit v1.2.1