diff options
| author | saal | 2007-09-04 10:09:33 +0000 |
|---|---|---|
| committer | saal | 2007-09-04 10:09:33 +0000 |
| commit | c027f631d7abeac48b9a99b982a842d45d7749b1 (patch) | |
| tree | 1fd02b9ec37196e6b58d63e12d9d073e7218de59 | |
| parent | 4c5fe5a1e104df81d9828366391a4b2ca6dcdf68 (diff) | |
| download | mtc-c027f631d7abeac48b9a99b982a842d45d7749b1.zip mtc-c027f631d7abeac48b9a99b982a842d45d7749b1.tar.gz mtc-c027f631d7abeac48b9a99b982a842d45d7749b1.tar.bz2 mtc-c027f631d7abeac48b9a99b982a842d45d7749b1.tar.xz | |
correction d'un warning lors de l'utilisation de plisten
| -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 { |