aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/MTools.pm7
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;
}