diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-08 02:24:06 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 23:28:16 +0100 |
| commit | 0f6353aec7c82e1777483ad8c3b5cc903fba151c (patch) | |
| tree | 28be88ed63ed1175c9977c7806b3ea62088ea5db /perl-install/ugtk3.pm | |
| parent | a1bbe9f424c406f745173ae6ebfe6f9d03f0093b (diff) | |
| download | drakx-0f6353aec7c82e1777483ad8c3b5cc903fba151c.tar drakx-0f6353aec7c82e1777483ad8c3b5cc903fba151c.tar.gz drakx-0f6353aec7c82e1777483ad8c3b5cc903fba151c.tar.bz2 drakx-0f6353aec7c82e1777483ad8c3b5cc903fba151c.tar.xz drakx-0f6353aec7c82e1777483ad8c3b5cc903fba151c.zip | |
use a variable for clarity
(needed for next commit)
Diffstat (limited to 'perl-install/ugtk3.pm')
| -rw-r--r-- | perl-install/ugtk3.pm | 3 |
1 files changed, 2 insertions, 1 deletions
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); } |