diff options
| author | pad <pad@mandriva.com> | 1999-09-05 21:28:36 +0000 |
|---|---|---|
| committer | pad <pad@mandriva.com> | 1999-09-05 21:28:36 +0000 |
| commit | 38dce4a6d02d689b7aefa2b5f925ac5441c51a89 (patch) | |
| tree | 78e8513e786585460ab499c1614e46dfbf1e25be /perl-install/interactive_gtk.pm | |
| parent | feaf2a529e993fee5bd71560d883ef354537ed6a (diff) | |
| download | drakx-38dce4a6d02d689b7aefa2b5f925ac5441c51a89.tar drakx-38dce4a6d02d689b7aefa2b5f925ac5441c51a89.tar.gz drakx-38dce4a6d02d689b7aefa2b5f925ac5441c51a89.tar.bz2 drakx-38dce4a6d02d689b7aefa2b5f925ac5441c51a89.tar.xz drakx-38dce4a6d02d689b7aefa2b5f925ac5441c51a89.zip | |
code clarification + bugfix
Diffstat (limited to 'perl-install/interactive_gtk.pm')
| -rw-r--r-- | perl-install/interactive_gtk.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index 457406acc..6a0b1d1d2 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -86,6 +86,7 @@ sub ask_from_entries_refW { $depth_combo->set_use_arrows_always(1); $depth_combo->entry->set_editable(!$_->{not_edit}); $depth_combo->set_popdown_strings(@{$_->{list}}); + $depth_combo->disable_activate; $depth_combo; } else { new Gtk::Entry; @@ -126,7 +127,7 @@ sub ask_from_entries_refW { comb_entry($entry,$val->[$i])->signal_connect(changed => $callback); comb_entry($entry,$val->[$i])->signal_connect(activate => sub { ($ind == ($num_champs -1)) ? - $w->{ok}->grab_focus() : comb_entry($entries[$ind+1],$val->[$ind+1])->grab_focus(); + ($w->{ok}->grab_focus(), ) : (comb_entry($entries[$ind+1],$val->[$ind+1])->grab_focus(),$_[0]->signal_emit_stop("activate")) ; }); comb_entry($entry,$val->[$i])->set_text(${$val->[$i]{val}}) if ${$val->[$i]{val}}; comb_entry($entry,$val->[$i])->set_visibility(0) if $l->[$i] =~ /password/i; |