From e5d2e80a09845619e90d736ac9c0f5fb3665574d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 1 Aug 2012 18:56:16 +0200
Subject: perlish ->window => ->get_window

---
 perl-install/services.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/services.pm')

diff --git a/perl-install/services.pm b/perl-install/services.pm
index 54dd5efec..377e87b98 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -284,7 +284,7 @@ sub ask_standalone_gtk {
             ))
 	  );
     $b->signal_connect(motion_notify_event => sub { my ($w, $e) = @_;
-						    my ($ox, $oy) = $w->window->get_origin;
+						    my ($ox, $oy) = $w->get_window->get_origin;
 						    $x = $e->x+$ox; $y = $e->y+$oy });
     $b->signal_connect(button_press_event => sub { $nopop->() });
     $::isEmbedded and gtkflush();
-- 
cgit v1.2.1