diff options
Diffstat (limited to 'src/MTools.pm')
| -rw-r--r-- | src/MTools.pm | 6 |
1 files changed, 5 insertions, 1 deletions
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; } |