diff options
| -rw-r--r-- | doc/manuel_utilisateur.txt | 2 | ||||
| -rw-r--r-- | 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è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, |