summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2002-11-26 18:25:58 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2002-11-26 18:25:58 +0000
commiteb31d84b9f99b1103d1fc4e28a535bfad9d7da48 (patch)
treedc2d25a31f8508a0543df9117ae6baa54171acb6 /perl-install/ugtk2.pm
parent04f4411cf6c064008b19e138fcc913c27c8e45ae (diff)
downloaddrakx-eb31d84b9f99b1103d1fc4e28a535bfad9d7da48.tar
drakx-eb31d84b9f99b1103d1fc4e28a535bfad9d7da48.tar.gz
drakx-eb31d84b9f99b1103d1fc4e28a535bfad9d7da48.tar.bz2
drakx-eb31d84b9f99b1103d1fc4e28a535bfad9d7da48.tar.xz
drakx-eb31d84b9f99b1103d1fc4e28a535bfad9d7da48.zip
two small fixes
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm8
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 {