diff options
Diffstat (limited to 'perl-install/ugtk.pm')
| -rw-r--r-- | perl-install/ugtk.pm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm index fac3e1646..49a0a7ab6 100644 --- a/perl-install/ugtk.pm +++ b/perl-install/ugtk.pm @@ -48,7 +48,7 @@ sub gtkpack__ { gtkpowerpack(0, 1, @_) } sub gtkpack2 { gtkpowerpack(1, 0, @_) } sub gtkpack2_ { gtkpowerpack('arg', 0, @_) } sub gtkpack2__ { gtkpowerpack(0, 0, @_) } -sub gtkpack3 { gtkpowerpack($a?1:0, 0, @_) } +sub gtkpack3 { gtkpowerpack($a ?1 :0, 0, @_) } sub gtkput { $_[0]->put(gtkshow($_[1]), $_[2], $_[3]); $_[0] } sub gtkpixmap { new Gtk::Pixmap(gdkpixmap(@_)) } sub gtkresize { $_[0]->window->resize($_[1], $_[2]); $_[0] } @@ -567,9 +567,8 @@ sub gtkicons_labels_widget { if (!$dbl_area->{state} || $state != $dbl_area->{state}) { $dbl_area->{state} = $state; fill_tiled($darea, $dbl_area, $background, $x_back2, $y_back2, $dx, $dy); - ($state ? $pixbuf_h : $pixbuf) - ->render_to_drawable($dbl_area, $darea->style->fg_gc('normal'), 0, 0, 0, 0, - $pixbuf->get_width, $pixbuf->get_height, 'normal', 0, 0); + ($state ? $pixbuf_h : $pixbuf)->render_to_drawable($dbl_area, $darea->style->fg_gc('normal'), 0, 0, 0, 0, + $pixbuf->get_width, $pixbuf->get_height, 'normal', 0, 0); $dbl_area->draw_pixmap($darea->style->bg_gc('normal'), ($state ? $pix->[1] : $pix->[0]), 0, 0, ($dx - $width)/2, $y_round, $width, $height); } @@ -752,7 +751,7 @@ sub gtkpowerpack { } #- Get and pack the widget (create it if necessary when it is a label...) my $widget = ref($_[0]) ? shift : new Gtk::Label(shift); - if ($attr{pack_end}) { $box->pack_end($widget, $attr{expand}, $attr{fill}, $attr{padding})} + if ($attr{pack_end}) { $box->pack_end($widget, $attr{expand}, $attr{fill}, $attr{padding}) } else { $box->pack_start($widget, $attr{expand}, $attr{fill}, $attr{padding}) } $widget->show; } @@ -862,8 +861,8 @@ sub compute_icons { bcl_init: @dx2 = undef; bcl: - @dx = map{ $_->{dx} } @tab[$index..$index+$nb]; - $dy[$index] = max(map{ $_->{dy} } @tab[$index..$index+$nb]); + @dx = map { $_->{dx} } @tab[$index..$index+$nb]; + $dy[$index] = max(map { $_->{dy} } @tab[$index..$index+$nb]); foreach (0..$#dx) { if ($dx[$_] > $dx2[$_]) { $dx2[$_] = $dx[$_] } else { $dx[$_] = $dx2[$_] } } |