From 6bde2ba99a1310c0a6e6d69a56f0bf55384d7250 Mon Sep 17 00:00:00 2001
From: didier
Date: Tue, 13 Nov 2007 14:43:18 +0000
Subject: Ajout option "executer" au plisten. Si elle est non definie ou egale
 a 1 : meme comportement qu'avant. Sinon on appelle pas la callback lors de
 l'abonnement au plisten.

---
 src/MTools.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/MTools.pm b/src/MTools.pm
index 3dcf29a..436fe95 100644
--- a/src/MTools.pm
+++ b/src/MTools.pm
@@ -342,7 +342,7 @@ sub plink {
 }
 
 sub plisten {
-	my ($obj, $key, $methode) = @_;
+	my ($obj, $key, $methode, $executer) = @_;
 	
 	# Si la propriete est une propriete zinc, on la transforme en propriete MTools 
 	# et on lie la modification de la propriete MTools a la propriete zinc
@@ -352,8 +352,9 @@ sub plisten {
 		plink ([$obj, $key], [$obj -> {instance}, $key]);
 	}
 	push (@{$obj -> {__properties} -> {$key} -> {listeners}}, $methode);
-	#mconfigure ($obj, $key => mget ($obj, $key));
-	executer($methode,$obj, $key,mget ($obj, $key));
+	if (!defined $executer || $executer) {
+		executer ($methode, $obj, $key, mget ($obj, $key));
+	}
 	return $methode;
 }
 
-- 
cgit v1.1