summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-01-24 16:30:14 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-01-24 16:30:14 +0000
commitdf0e7e94dc8a8b97e088770a52b4b94f2debec14 (patch)
tree55839fb97a25d436236b985018d5a88c0949b9a2 /perl-install
parent307bac7fdf1ba58c7dbcef56534811ee453f2cf3 (diff)
downloaddrakx-df0e7e94dc8a8b97e088770a52b4b94f2debec14.tar
drakx-df0e7e94dc8a8b97e088770a52b4b94f2debec14.tar.gz
drakx-df0e7e94dc8a8b97e088770a52b4b94f2debec14.tar.bz2
drakx-df0e7e94dc8a8b97e088770a52b4b94f2debec14.tar.xz
drakx-df0e7e94dc8a8b97e088770a52b4b94f2debec14.zip
fix Return key on a radio button grabbing focus on next functional group of widgets AND doing an action on it (toggling checkbuttons etc) (needs perl-GTK2 >= 0.0.cvs.2003.01.24.1)
Diffstat (limited to 'perl-install')
-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) }) };