aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorribet2007-08-23 14:35:10 +0000
committerribet2007-08-23 14:35:10 +0000
commite77e58d465ef29b1d774fce706dfa0b960323323 (patch)
treeb1a53c5b25d3f8a73688ca71bfc216d59d3f0eca
parentc0b75d3074dd5b80f47b6ce1dbdf78e79c5fc872 (diff)
downloadmtc-e77e58d465ef29b1d774fce706dfa0b960323323.zip
mtc-e77e58d465ef29b1d774fce706dfa0b960323323.tar.gz
mtc-e77e58d465ef29b1d774fce706dfa0b960323323.tar.bz2
mtc-e77e58d465ef29b1d774fce706dfa0b960323323.tar.xz
Suppression d'un warning
-rw-r--r--doc/manuel_utilisateur.txt2
-rw-r--r--src/MTools/GUI/MImage.pm6
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ère les images au format png. Les autres formats marchent
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,