diff options
Diffstat (limited to 'perl-install/interactive_gtk.pm')
| -rw-r--r-- | perl-install/interactive_gtk.pm | 21 |
1 files changed, 17 insertions, 4 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index 6a0b1d1d2..cb3258d3b 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -77,9 +77,10 @@ sub ask_many_from_list_refW($$$$$) { sub ask_from_entries_refW { my ($o, $title, $messages, $l, $val, %hcallback) = @_; my $num_champs = @{$l}; - my $ignore = 0; + my $ignore = 0; #to handle recursivity my $w = my_gtk->new($title, %$o); + #the widgets my @entries = map { if ($_->{type} eq "list") { my $depth_combo = new Gtk::Combo; @@ -111,7 +112,9 @@ sub ask_from_entries_refW { for (my $i = 0; $i < $num_champs; $i++) { - my $ind = $i; + my $ind = $i; #cos lexical bindings pb !! + my $entry = $entries[$i]; + #changed callback my $callback = sub { return if $ignore; #handle recursive deadlock &{$updates[$ind]}; @@ -121,9 +124,19 @@ sub ask_from_entries_refW { $ignore = 1; foreach (@updates_inv) { &{$_};} $ignore = 0; - } + }; }; - my $entry = $entries[$i]; + if ($hcallback{focus_out}) { + my $callfocusout = sub { + return if $ignore; + &{$hcallback{focus_out}}($ind); + #update all the value + $ignore = 1; + foreach (@updates_inv) { &{$_};} + $ignore = 0; + }; + comb_entry($entry,$val->[$i])->signal_connect(focus_out_event => $callfocusout); + } comb_entry($entry,$val->[$i])->signal_connect(changed => $callback); comb_entry($entry,$val->[$i])->signal_connect(activate => sub { ($ind == ($num_champs -1)) ? |