From c027f631d7abeac48b9a99b982a842d45d7749b1 Mon Sep 17 00:00:00 2001
From: saal
Date: Tue, 4 Sep 2007 10:09:33 +0000
Subject: correction d'un warning lors de l'utilisation de plisten

---
 src/MTools.pm        | 5 ++---
 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 {
-- 
cgit v1.1