perlish ->window => ->get_window

1 files changed, 4 insertions, 4 deletions

diff --git a/lib/mouse.pm b/lib/mouse.pm
index 5112692..d5f4867 100644
--- a/lib/mouse.pm
+++ b/lib/mouse.pm
@@ -496,7 +496,7 @@ sub test_mouse_install {
 	  );
     test_mouse($mouse, $darea, $x_protocol_changed);
     $w->sync; # HACK
-    Gtk3::Gdk->pointer_grab($vbox_grab->window, 1, 'pointer_motion_mask', $vbox_grab->window, undef, 0);
+    Gtk3::Gdk->pointer_grab($vbox_grab->get_window, 1, 'pointer_motion_mask', $vbox_grab->window, undef, 0);
     my $r = $w->main;
     Gtk3::Gdk->pointer_ungrab(0);
     $r;
@@ -585,7 +585,7 @@ sub test_mouse {
   	my ($t, $y) = @_;
 	my $layout = $darea->create_pango_layout($t);
 	my ($w) = $layout->get_pixel_size;
-	$darea->window->draw_layout($darea->style->black_gc,
+	$darea->get_window->draw_layout($darea->style->black_gc,
 				    ($darea->allocation->width-$w)/2,
 				    ($darea->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_height;
-	$p->render_to_drawable($darea->window, $darea->style->bg_gc('normal'), 0, 0,
+	$p->render_to_drawable($darea->get_window, $darea->style->bg_gc('normal'), 0, 0,
 			       ($darea->allocation->width-$width)/2 + $x, ($darea->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->window->draw_arc($darea->style->black_gc,
+  		$darea->get_window->draw_arc($darea->style->black_gc,
   					  1, ($darea->allocation->width-$width)/2 + $x, ($darea->allocation->height-$height)/2 + $y, 20, 25,
   					  0, 360 * 64);
 	    }