From e77e58d465ef29b1d774fce706dfa0b960323323 Mon Sep 17 00:00:00 2001
From: ribet
Date: Thu, 23 Aug 2007 14:35:10 +0000
Subject: Suppression d'un warning

---
 doc/manuel_utilisateur.txt | 2 +-
 src/MTools/GUI/MImage.pm   | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/doc/manuel_utilisateur.txt b/doc/manuel_utilisateur.txt
index 386a6a7..12b0d9f 100644
--- a/doc/manuel_utilisateur.txt
+++ b/doc/manuel_utilisateur.txt
@@ -270,7 +270,7 @@ Actuellement, MImage g
 probablement, à vérifier*** (à moins que ce soit pour les svg).
 La création nécessite les arguments suivants :
 	- parent : père de l'objet.
-	- image : nom de l'image
+	- image_name : nom de l'image
 	- %options : table de hash passée en paramètre de la création de l'objet
 	zinc icon
 
diff --git a/src/MTools/GUI/MImage.pm b/src/MTools/GUI/MImage.pm
index 94a20b6..0495fa9 100644
--- a/src/MTools/GUI/MImage.pm
+++ b/src/MTools/GUI/MImage.pm
@@ -19,7 +19,7 @@ package MTools::GUI::MImage;
 # Encapsule la creation d'une image
 # Parametres : 
 # 	* parent : pere de l'objet.
-# 	* image : nom de l'image
+# 	* image_name : nom de l'image
 #	* %options : table de hash passee en parametre de la creation de l'objet zinc icon
 
 
@@ -37,11 +37,11 @@ BEGIN
 }
 
 sub new {
-	my ($class, $parent, $image, %options) = @_;
+	my ($class, $parent, $image_name, %options) = @_;
 	my $self = new MTools::MObjet ();
 	bless $self, $class;
 	
-	my $image = __getImage ($zinc, $image);
+	my $image = __getImage ($zinc, $image_name);
 	$self -> {instance}  = $zinc -> add('icon', minstance ($parent),
 		-priority => 10,
 		-image => $image,
-- 
cgit v1.1