summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive_gtk.pm13
1 files changed, 10 insertions, 3 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 854d7148f..0926d5327 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -78,7 +78,10 @@ sub ask_from_entries_refW {
my $num_champs = @{$l};
my $ignore = 0;
+ my $w = my_gtk->new($title, %$o);
my @entries = map { new Gtk::Entry } @{$l};
+ my $ok = $w->create_okcancel;
+
my @updates = mapn {
my ($entry, $ref) = @_;
return sub { ${$ref} = $entry->get_text };
@@ -91,7 +94,7 @@ sub ask_from_entries_refW {
} \@entries, $val;
- for (my $i = 0; $i <$num_champs; $i++) {
+ for (my $i = 0; $i < $num_champs; $i++) {
my $ind = $i;
my $callback = sub {
return if $ignore; #handle recursive deadlock
@@ -106,17 +109,21 @@ sub ask_from_entries_refW {
};
my $entry = $entries[$i];
$entry->signal_connect(changed => $callback);
+ $entry->signal_connect(activate => sub {
+ ($ind == ($num_champs -1)) ?
+ $w->{ok}->grab_focus() : $entries[$ind+1]->grab_focus();
+ });
$entry->set_text(${$val->[$i]}) if ${$val->[$i]};
$entry->set_visibility(0) if $_[0] =~ /password/i;
# &{$updates[$i]};
}
my @entry_list = mapn { [($_[0], $_[1])]} $l, \@entries;
- my $w = my_gtk->new($title, %$o);
gtkadd($w->{window},
gtkpack(
create_box_with_title($w, @$messages),
create_packtable({}, @entry_list),
- $w->create_okcancel));
+ $ok
+ ));
$entries[0]->grab_focus();
$w->main();