aboutsummaryrefslogtreecommitdiff
path: root/src/MTools.pm
diff options
context:
space:
mode:
Diffstat (limited to 'src/MTools.pm')
-rw-r--r--src/MTools.pm5
1 files changed, 2 insertions, 3 deletions
diff --git a/src/MTools.pm b/src/MTools.pm
index 067fa36..6c1ee9b 100644
--- a/src/MTools.pm
+++ b/src/MTools.pm
@@ -58,7 +58,7 @@ package MTools;
# - binding : $obj -> binding ('evenement', callback) permet d'ecouter un evenement MTOOLS ou Tk survenant sur un objet.
# binding peut aussi etre redefini pour ecouter de nouvelles sources d'evenements (par exemple MIvy ou WacomAdapter)
# - unbinding : $obj -> unbinding ('evenement', callback) arrete l'ecoute d'un evenement
-# - minstanciate : minstanciate ('definition', $parent) permet de retourner un objet MTools à partir de la spec 'definition'
+# - minstanciate : minstanciate ('definition', $parent) permet de retourner un objet MTools � partir de la spec 'definition'
# si 'definition' est un path svg, minstanciate instancie le svg et retourne un objet MTools encapsulant le contenu
# si 'definition' est un objet zinc, minstanciate retourne un objet MTools encapsulant l'objet zinc
# si 'definition' est deja un objet MTools, minstanciate retourne l'objet lui-meme.
@@ -298,9 +298,8 @@ sub plink {
# On la transforme en propriete MTools si ce n'est pas deja fait
if ( !defined $obj -> {__properties} -> {$key} )
{
- $obj -> {__properties} -> {$key} -> {val} = $obj -> mget ($key);
+ $obj -> recordProperty($key, $obj -> mget ($key));
push (@{$obj -> {__properties} -> {$key} -> {links}}, [$obj -> {instance}, $key]);
- $obj -> {__properties} -> {$key} -> {link_token} = 0;
# et on associe la modification de la propriete zinc avec la modification propriete MTools
}
}