summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
authorpad <pad@mandriva.com>1999-09-06 22:57:36 +0000
committerpad <pad@mandriva.com>1999-09-06 22:57:36 +0000
commitb8fa764d866874104c7f2f986804966c0328faf5 (patch)
tree2e3c9caccf2bf882deab554308c30d038ece76b2 /perl-install/interactive_gtk.pm
parent3a598bd7c7b58aac70e31c3481c85264d2bcb2f8 (diff)
downloaddrakx-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.pm8
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};