From 9adda8c8c8bcd917f13e9ea3ca525b82bf2b03c1 Mon Sep 17 00:00:00 2001
From: didier
Date: Fri, 9 Nov 2007 14:19:19 +0000
Subject: Correction d'un bug dans le plisten. Un abonnement a un parametre
 identique n'appelle plus l'ensemble des callbacks

---
 src/MTools.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/MTools.pm b/src/MTools.pm
index 914df7c..3dcf29a 100644
--- a/src/MTools.pm
+++ b/src/MTools.pm
@@ -185,8 +185,11 @@ sub __confproplink {
 	my ($sender, $obj, $key, $val) = @_;
 	
 	my $obj_instance = ref ($obj) eq '' ? $obj : $obj -> {instance};
+
 	if ($obj_instance ne $obj)
 	{
+	  $obj -> {__properties} -> {$key} -> {link_token} = -1 if (!defined $obj -> {__properties} -> {$key} -> {link_token});
+	  
 		if ($obj -> {__properties} -> {$key} -> {link_token} != $link_token)
 		{
 			$obj -> {__properties} -> {$key} -> {link_token} = $link_token;
@@ -349,7 +352,8 @@ sub plisten {
 		plink ([$obj, $key], [$obj -> {instance}, $key]);
 	}
 	push (@{$obj -> {__properties} -> {$key} -> {listeners}}, $methode);
-	mconfigure ($obj, $key => mget ($obj, $key));
+	#mconfigure ($obj, $key => mget ($obj, $key));
+	executer($methode,$obj, $key,mget ($obj, $key));
 	return $methode;
 }
 
-- 
cgit v1.1