From b758380650c166aaccc98cfd5e739c18bb2228fc Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 18 Nov 2013 01:37:44 +0100 Subject: perlish ->allocation => ->get_allocation --- lib/mouse.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/mouse.pm b/lib/mouse.pm index 774d090..0c76659 100644 --- a/lib/mouse.pm +++ b/lib/mouse.pm @@ -595,7 +595,7 @@ sub test_mouse { $w = $p->get_width; $h = $p->get_height; $p->render_to_drawable($darea->get_window, $darea->style->bg_gc('normal'), 0, 0, - ($darea->get_allocation->width-$width)/2 + $x, ($darea->allocation->height-$height)/2 + $y, + ($darea->get_allocation->width-$width)/2 + $x, ($darea->get_allocation->height-$height)/2 + $y, $w, $h, 'none', 0, 0); }; my $draw_by_name = sub { @@ -629,7 +629,7 @@ sub test_mouse { } else { my ($x, $y) = @{$offsets{mouse_2b_middle}}; $darea->get_window->draw_arc($darea->style->black_gc, - 1, ($darea->get_allocation->width-$width)/2 + $x, ($darea->allocation->height-$height)/2 + $y, 20, 25, + 1, ($darea->get_allocation->width-$width)/2 + $x, ($darea->get_allocation->height-$height)/2 + $y, 20, 25, 0, 360 * 64); } } elsif ($mouse->{nbuttons} > 3) { -- cgit v1.2.1