diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2012-08-01 18:56:42 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 21:28:34 +0100 |
| commit | 7b90281fb2e73c5e70488b35312c2faa51f2d9ce (patch) | |
| tree | 79ae21a6e5c66a86706107b966dc4143ae62226c /perl-install/mygtk3.pm | |
| parent | e5d2e80a09845619e90d736ac9c0f5fb3665574d (diff) | |
| download | drakx-7b90281fb2e73c5e70488b35312c2faa51f2d9ce.tar drakx-7b90281fb2e73c5e70488b35312c2faa51f2d9ce.tar.gz drakx-7b90281fb2e73c5e70488b35312c2faa51f2d9ce.tar.bz2 drakx-7b90281fb2e73c5e70488b35312c2faa51f2d9ce.tar.xz drakx-7b90281fb2e73c5e70488b35312c2faa51f2d9ce.zip | |
perlish ->allocation => ->get_allocation
Diffstat (limited to 'perl-install/mygtk3.pm')
| -rw-r--r-- | perl-install/mygtk3.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm index e3cb85268..9f5b68d1a 100644 --- a/perl-install/mygtk3.pm +++ b/perl-install/mygtk3.pm @@ -348,7 +348,7 @@ sub _gtk__Image { $w->signal_connect(expose_event => sub { my (undef, $event) = @_; if (!$w->{x}) { - my $alloc = $w->allocation; + my $alloc = $w->get_allocation; $w->{x} = $alloc->x; $w->{y} = $alloc->y; } @@ -1589,7 +1589,7 @@ sub move_selection { my $layout = $w->{layout}; $layout->{arrow_ydiff} ||= ($w->{selection_arrow}->get_pixbuf->get_height - $w->{selection_bar}->get_pixbuf->get_height)/2; - my $bar_y = $label->allocation->y - ($w->{selection_bar}->get_pixbuf->get_height - $label->allocation->height)/2; + my $bar_y = $label->get_allocation->y - ($w->{selection_bar}->get_pixbuf->get_height - $label->allocation->height)/2; $layout->move($w->{selection_bar}, 0, $bar_y); $layout->move($w->{selection_arrow}, $w->{arrow_x}, $bar_y - $layout->{arrow_ydiff}); # arrow is higer $_->show foreach $w->{selection_bar}, $w->{selection_arrow}; |