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.

1 files 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;
 }