summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-05-29 11:02:40 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-05-29 11:02:40 +0000
commit436a081d985d376060908b1db436a6ad2691d593 (patch)
treeab1f18ab702a99dc20e6414b8e0fa9a663feaba3 /perl-install/interactive_gtk.pm
parent29a46a67b641f94dbb5b2afc7e9028ea5408fb71 (diff)
downloaddrakx-backup-do-not-use-436a081d985d376060908b1db436a6ad2691d593.tar
drakx-backup-do-not-use-436a081d985d376060908b1db436a6ad2691d593.tar.gz
drakx-backup-do-not-use-436a081d985d376060908b1db436a6ad2691d593.tar.bz2
drakx-backup-do-not-use-436a081d985d376060908b1db436a6ad2691d593.tar.xz
drakx-backup-do-not-use-436a081d985d376060908b1db436a6ad2691d593.zip
*** empty log message ***
Diffstat (limited to 'perl-install/interactive_gtk.pm')
-rw-r--r--perl-install/interactive_gtk.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index d3f773fbf..dffcca5cd 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -125,7 +125,7 @@ sub ask_from_treelistW {
$tree->signal_connect(button_press_event => sub { &$leave if $_[1]{type} =~ /^2/ });
$tree->signal_connect(key_press_event => sub {
my ($w, $e) = @_;
- my $c = chr $e->{keyval};
+ my $c = chr($e->{keyval} & 0xff);
$curr or return;
if ($e->{keyval} >= 0x100 ? $c eq "\r" || $c eq "\x8d" : $c eq ' ') {
if ($curr->row->is_leaf) { &$leave }
@@ -261,7 +261,7 @@ sub ask_from_entries_refW {
my ($w, $e) = @_;
#-don't know why it works, i believe that
#-i must say before &$go_to_next, but with it doen't work HACK!
- $w->signal_emit_stop("key_press_event") if chr($e->{keyval}) eq "\x8d";
+ $w->signal_emit_stop("key_press_event") if chr($e->{keyval} & 0xff) eq "\x8d";
});
$widget->set_text(${$val->[$i]{val}});
$widget->set_visibility(0) if $val->[$i]{hidden};