diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-01-24 16:30:14 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-01-24 16:30:14 +0000 |
| commit | df0e7e94dc8a8b97e088770a52b4b94f2debec14 (patch) | |
| tree | 55839fb97a25d436236b985018d5a88c0949b9a2 /perl-install | |
| parent | 307bac7fdf1ba58c7dbcef56534811ee453f2cf3 (diff) | |
| download | drakx-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.pm | 3 |
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) }) }; |