diff options
| author | pad <pad@mandriva.com> | 1999-09-06 22:57:36 +0000 |
|---|---|---|
| committer | pad <pad@mandriva.com> | 1999-09-06 22:57:36 +0000 |
| commit | b8fa764d866874104c7f2f986804966c0328faf5 (patch) | |
| tree | 2e3c9caccf2bf882deab554308c30d038ece76b2 /perl-install/interactive_gtk.pm | |
| parent | 3a598bd7c7b58aac70e31c3481c85264d2bcb2f8 (diff) | |
| download | drakx-b8fa764d866874104c7f2f986804966c0328faf5.tar drakx-b8fa764d866874104c7f2f986804966c0328faf5.tar.gz drakx-b8fa764d866874104c7f2f986804966c0328faf5.tar.bz2 drakx-b8fa764d866874104c7f2f986804966c0328faf5.tar.xz drakx-b8fa764d866874104c7f2f986804966c0328faf5.zip | |
zork dont know zhy
Diffstat (limited to 'perl-install/interactive_gtk.pm')
| -rw-r--r-- | perl-install/interactive_gtk.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index 53528aac1..0403b188a 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -149,8 +149,12 @@ sub ask_from_entries_refW { $entry->signal_connect(key_press_event => sub { my ($w, $e) = @_; my $c = chr $e->{keyval}; - &$go_to_next if $c eq "\x8d"; - }); + if ($c eq "\x8d") + { + $w->signal_emit_stop("key_press_event"); + } + ; + }); $entry->set_text(${$val->[$i]{val}}) if ${$val->[$i]{val}}; $entry->set_visibility(0) if $val->[$i]{hidden}; |