From eb31d84b9f99b1103d1fc4e28a535bfad9d7da48 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Tue, 26 Nov 2002 18:25:58 +0000 Subject: two small fixes --- perl-install/ugtk2.pm | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'perl-install/ugtk2.pm') diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index b02faad8f..29c085629 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -2,8 +2,7 @@ package ugtk2; use diagnostics; use strict; -use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @icon_paths $force_center $force_focus $force_position - $grab $pop_it $shape_width $border); +use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @icon_paths $force_center $force_focus $force_position $grab $pop_it $shape_width $border); #- leave it on one line, for automatic removal of the line at package creation @ISA = qw(Exporter); %EXPORT_TAGS = ( @@ -1222,9 +1221,8 @@ sub ask_browse_tree_info_given_widgets { }; $w->{tree}->signal_connect(key_press_event => sub { - my ($w, undef, $e) = @_; - my $c = chr($e->keyval & 0xff); - $toggle->(0) if $e->keyval >= 0x100 ? $c eq "\r" || $c eq "\x8d" : $c eq ' '; + my $c = chr($_[1]->keyval & 0xff); + $toggle->(0) if $_[1]->keyval >= 0x100 ? $c eq "\r" || $c eq "\x8d" : $c eq ' '; 1; }); $w->{tree}->get_selection->signal_connect(changed => sub { -- cgit v1.2.1