summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
authorpad <pad@mandriva.com>1999-09-05 21:28:36 +0000
committerpad <pad@mandriva.com>1999-09-05 21:28:36 +0000
commit38dce4a6d02d689b7aefa2b5f925ac5441c51a89 (patch)
tree78e8513e786585460ab499c1614e46dfbf1e25be /perl-install/interactive_gtk.pm
parentfeaf2a529e993fee5bd71560d883ef354537ed6a (diff)
downloaddrakx-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.pm3
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;