From 0f6353aec7c82e1777483ad8c3b5cc903fba151c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 8 Nov 2013 02:24:06 +0100
Subject: use a variable for clarity

(needed for next commit)
---
 perl-install/ugtk3.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm
index 20e19bac7..e9952b79e 100644
--- a/perl-install/ugtk3.pm
+++ b/perl-install/ugtk3.pm
@@ -1173,7 +1173,8 @@ sub ask_browse_tree_info_given_widgets {
 	0;
     });
     $w->{tree}->signal_connect(button_press_event => sub {  #- not too good, but CellRendererPixbuf does not have the needed signals :(
-	my ($path, $column) = $w->{tree}->get_path_at_pos($_[1]->x, $_[1]->y);
+	my (undef, $event) = @_;
+	my ($path, $column) = $w->{tree}->get_path_at_pos($event->x, $event->y);
 	if ($path && $column) {
 	    $column->{is_pix} and $mouse_toggle_pending = $w->{tree_model}->get($w->{tree_model}->get_iter($path), 0);
 	}
-- 
cgit v1.2.1