diff options
Diffstat (limited to 'src/MTools.pm')
| -rw-r--r-- | src/MTools.pm | 5 |
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 } } |