From 6519bbb04bf178e4420ae4d0996081fa5ea4dd8c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 16 Dec 2004 12:56:22 +0000
Subject: we must allow more than one callback per ref & widget

---
 perl-install/mygtk2.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/mygtk2.pm')

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);
     }
-- 
cgit v1.2.1