summaryrefslogtreecommitdiffstats
path: root/perl-install/mygtk2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-12-16 12:56:22 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-12-16 12:56:22 +0000
commit6519bbb04bf178e4420ae4d0996081fa5ea4dd8c (patch)
tree2079b1200db8e862f88f7676e4948c823c32abe2 /perl-install/mygtk2.pm
parent1fd5a7598e6dcf204b597af3cf5ec6fcc661315d (diff)
downloaddrakx-6519bbb04bf178e4420ae4d0996081fa5ea4dd8c.tar
drakx-6519bbb04bf178e4420ae4d0996081fa5ea4dd8c.tar.gz
drakx-6519bbb04bf178e4420ae4d0996081fa5ea4dd8c.tar.bz2
drakx-6519bbb04bf178e4420ae4d0996081fa5ea4dd8c.tar.xz
drakx-6519bbb04bf178e4420ae4d0996081fa5ea4dd8c.zip
we must allow more than one callback per ref & widget
Diffstat (limited to 'perl-install/mygtk2.pm')
-rw-r--r--perl-install/mygtk2.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 84307c900..f8f52f547 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -75,12 +75,12 @@ sub gtkval_register {
delete $refs{$ref}{$w};
delete $refs{$ref} if !%{$refs{$ref}};
});
- $refs{$ref}{$w} = [ $sub, $w ];
+ push @{$refs{$ref}{$w}}, [ $sub, $w ];
}
sub gtkval_modify {
my ($ref, $val, @to_skip) = @_;
$$ref = $val;
- foreach (values %{$refs{$ref} || {}}) {
+ foreach (map { @$_ } values %{$refs{$ref} || {}}) {
my ($f, @para) = @$_;
$f->(@para) if !member($f, @to_skip);
}