diff options
| -rw-r--r-- | src/MTools.pm | 5 | ||||
| -rw-r--r-- | src/MTools/MObjet.pm | 1 |
2 files changed, 3 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 } } diff --git a/src/MTools/MObjet.pm b/src/MTools/MObjet.pm index ab015d5..46186d0 100644 --- a/src/MTools/MObjet.pm +++ b/src/MTools/MObjet.pm @@ -70,6 +70,7 @@ sub recordEvent { sub recordProperty { my ($self, $prop, $val) = @_; $self -> {__properties} -> {$prop} -> {val} = $val; + $self -> {__properties} -> {$prop} -> {link_token} = 0; } sub notify { |