diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2002-11-26 18:25:58 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2002-11-26 18:25:58 +0000 |
| commit | eb31d84b9f99b1103d1fc4e28a535bfad9d7da48 (patch) | |
| tree | dc2d25a31f8508a0543df9117ae6baa54171acb6 | |
| parent | 04f4411cf6c064008b19e138fcc913c27c8e45ae (diff) | |
| download | drakx-eb31d84b9f99b1103d1fc4e28a535bfad9d7da48.tar drakx-eb31d84b9f99b1103d1fc4e28a535bfad9d7da48.tar.gz drakx-eb31d84b9f99b1103d1fc4e28a535bfad9d7da48.tar.bz2 drakx-eb31d84b9f99b1103d1fc4e28a535bfad9d7da48.tar.xz drakx-eb31d84b9f99b1103d1fc4e28a535bfad9d7da48.zip | |
two small fixes
| -rw-r--r-- | perl-install/ugtk2.pm | 8 |
1 files changed, 3 insertions, 5 deletions
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 { |