summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive/gtk.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/interactive/gtk.pm')
-rw-r--r--perl-install/interactive/gtk.pm3
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 0e4a6aa5f..ed18f4cbd 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -47,7 +47,6 @@ sub create_boxradio {
$w->signal_connect(key_press_event => sub {
&$may_go_to_next;
- 1;
});
$w->signal_connect(clicked => sub {
${$e->{val}} = $txt;
@@ -367,12 +366,12 @@ sub ask_fromW {
my $may_go_to_next = sub {
my ($w, $event) = @_;
if (!$event || ($event->keyval & 0x7f) == 0xd) {
- $w->signal_stop_emission_by_name('key_press_event') if $event;
if ($ind == $#widgets) {
@widgets == 1 ? $mainw->{ok}->clicked : $mainw->{ok}->grab_focus;
} else {
$widgets[$ind+1]{focus_w}->grab_focus;
}
+ return 1; #- prevent an action on the just grabbed focus
}
};
my $changed = sub { $update->(sub { $common->{callbacks}{changed}($ind) }) };