diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-19 01:36:02 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 23:53:08 +0100 |
| commit | 40db6098f693ac28e3e5edc87c518f6111f314dd (patch) | |
| tree | a3b256f64a0fbd335ee2a83ca41ff8a78a2db3e7 /perl-install/mygtk3.pm | |
| parent | 3cf3179c502b85693b4b9fed28cc6c0695ee98b6 (diff) | |
| download | drakx-40db6098f693ac28e3e5edc87c518f6111f314dd.tar drakx-40db6098f693ac28e3e5edc87c518f6111f314dd.tar.gz drakx-40db6098f693ac28e3e5edc87c518f6111f314dd.tar.bz2 drakx-40db6098f693ac28e3e5edc87c518f6111f314dd.tar.xz drakx-40db6098f693ac28e3e5edc87c518f6111f314dd.zip | |
simplify
Diffstat (limited to 'perl-install/mygtk3.pm')
| -rw-r--r-- | perl-install/mygtk3.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm index 4c9383c8e..2ada07517 100644 --- a/perl-install/mygtk3.pm +++ b/perl-install/mygtk3.pm @@ -1639,7 +1639,8 @@ 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->get_allocation->{y} - ($w->{selection_bar}->get_pixbuf->get_height - $label->get_allocation->{height})/2; + my $alloc = $label->get_allocation; + my $bar_y = $alloc->{y} - ($w->{selection_bar}->get_pixbuf->get_height - $alloc->{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}; |