diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-05-29 11:02:40 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-05-29 11:02:40 +0000 |
| commit | 436a081d985d376060908b1db436a6ad2691d593 (patch) | |
| tree | ab1f18ab702a99dc20e6414b8e0fa9a663feaba3 /perl-install/interactive_gtk.pm | |
| parent | 29a46a67b641f94dbb5b2afc7e9028ea5408fb71 (diff) | |
| download | drakx-436a081d985d376060908b1db436a6ad2691d593.tar drakx-436a081d985d376060908b1db436a6ad2691d593.tar.gz drakx-436a081d985d376060908b1db436a6ad2691d593.tar.bz2 drakx-436a081d985d376060908b1db436a6ad2691d593.tar.xz drakx-436a081d985d376060908b1db436a6ad2691d593.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/interactive_gtk.pm')
| -rw-r--r-- | perl-install/interactive_gtk.pm | 4 |
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}; |