From 0c77eeabed86bbe54662d435016d7290ffd74141 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 5 Sep 1999 23:02:56 +0000 Subject: no_comment --- perl-install/interactive_gtk.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'perl-install/interactive_gtk.pm') diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index cb3258d3b..c0582ea51 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -76,7 +76,7 @@ sub ask_many_from_list_refW($$$$$) { sub ask_from_entries_refW { my ($o, $title, $messages, $l, $val, %hcallback) = @_; - my $num_champs = @{$l}; + my $num_fields = @{$l}; my $ignore = 0; #to handle recursivity my $w = my_gtk->new($title, %$o); @@ -101,7 +101,7 @@ sub ask_from_entries_refW { my @updates = mapn { my ($entry, $ref) = @_; - return sub { ${$ref->{val}} = comb_entry($entry, $ref)->get_text }; + sub { ${$ref->{val}} = comb_entry($entry, $ref)->get_text }; } \@entries, $val; my @updates_inv = mapn { @@ -111,7 +111,7 @@ sub ask_from_entries_refW { } \@entries, $val; - for (my $i = 0; $i < $num_champs; $i++) { + for (my $i = 0; $i < $num_fields; $i++) { my $ind = $i; #cos lexical bindings pb !! my $entry = $entries[$i]; #changed callback @@ -122,7 +122,7 @@ sub ask_from_entries_refW { &{$hcallback{changed}}($ind); #update all the value $ignore = 1; - foreach (@updates_inv) { &{$_};} + &$_ foreach @updates_inv; $ignore = 0; }; }; @@ -139,7 +139,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)) ? + ($ind == ($num_fields -1)) ? ($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}}; -- cgit v1.2.1