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