diff options
| author | Olivier Blin <oblin@mandriva.com> | 2008-03-14 16:15:53 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2008-03-14 16:15:53 +0000 |
| commit | a126b893c7d4bfddedec65642dc38c09fa37e939 (patch) | |
| tree | 92667cb99db5039ca9950202c6985135e2a92f6f /perl-install | |
| parent | 234552eaddb712a1092b0c7bc4db06b501c2be64 (diff) | |
| download | drakx-a126b893c7d4bfddedec65642dc38c09fa37e939.tar drakx-a126b893c7d4bfddedec65642dc38c09fa37e939.tar.gz drakx-a126b893c7d4bfddedec65642dc38c09fa37e939.tar.bz2 drakx-a126b893c7d4bfddedec65642dc38c09fa37e939.tar.xz drakx-a126b893c7d4bfddedec65642dc38c09fa37e939.zip | |
perl_checker fixes
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ugtk2.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index cfb0c5d81..f8b93ab22 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -353,7 +353,7 @@ sub create_box_with_title { } else { my $new_label = sub { my ($txt) = @_; - ref($txt) ? $txt : gtknew('WrappedLabel', text_markup => $txt, width=> 490); + ref($txt) ? $txt : gtknew('WrappedLabel', text_markup => $txt, width => 490); }; gtkpack__($box, if_($::isWizard, gtknew('Label', height => 10)), @@ -1479,9 +1479,9 @@ sub calc_size { my ($width, $height) = $layout->get_pixel_size; my ($pwidth, $pheight) = pixbuf_size($cell); - return (0, 0, + return 0, 0, $width + $x_padding * 3 + $pwidth, - max($pheight, $height + $y_padding * 2)); + max($pheight, $height + $y_padding * 2); } sub GET_SIZE { @@ -1592,7 +1592,7 @@ sub show { $info->{timeout}->() if $info->{timeout}; $self->process_next; }); - $notification->show(); + $notification->show; } 1; |