From b8fa764d866874104c7f2f986804966c0328faf5 Mon Sep 17 00:00:00 2001
From: pad <pad@mandriva.com>
Date: Mon, 6 Sep 1999 22:57:36 +0000
Subject: zork dont know zhy

---
 perl-install/interactive_gtk.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'perl-install/interactive_gtk.pm')

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};
-- 
cgit v1.2.1