From 75738ce3cb6b7282de4e8f2641361f3fae716e83 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 18 Nov 2013 01:37:48 +0100 Subject: perlish ->style() => ->get_style() --- lib/mouse.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib') diff --git a/lib/mouse.pm b/lib/mouse.pm index 2d991a5..23310ea 100644 --- a/lib/mouse.pm +++ b/lib/mouse.pm @@ -585,7 +585,7 @@ sub test_mouse { my ($t, $y) = @_; my $layout = $darea->create_pango_layout($t); my ($w) = $layout->get_pixel_size; - $darea->get_window->draw_layout($darea->style->black_gc, + $darea->get_window->draw_layout($darea->get_style->black_gc, ($darea->get_allocation->width-$w)/2, ($darea->get_allocation->height-$height)/2 + $y, $layout); @@ -594,7 +594,7 @@ sub test_mouse { my ($p, $x, $y, $w, $h) = @_; $w = $p->get_width; $h = $p->get_allocated_height; - $p->render_to_drawable($darea->get_window, $darea->style->bg_gc('normal'), 0, 0, + $p->render_to_drawable($darea->get_window, $darea->get_style->bg_gc('normal'), 0, 0, ($darea->get_allocation->width-$width)/2 + $x, ($darea->get_allocation->height-$height)/2 + $y, $w, $h, 'none', 0, 0); }; @@ -628,7 +628,7 @@ sub test_mouse { $draw_by_name->('middle'); } else { my ($x, $y) = @{$offsets{mouse_2b_middle}}; - $darea->get_window->draw_arc($darea->style->black_gc, + $darea->get_window->draw_arc($darea->get_style->black_gc, 1, ($darea->get_allocation->width-$width)/2 + $x, ($darea->get_allocation->height-$height)/2 + $y, 20, 25, 0, 360 * 64); } -- cgit v1.2.1