diff options
| author | ribet | 2007-05-14 14:00:51 +0000 |
|---|---|---|
| committer | ribet | 2007-05-14 14:00:51 +0000 |
| commit | 2578cd5df74cc0c4e13e0848fe5c2ed0a0a7d21a (patch) | |
| tree | 86825da1f5bfd6005349f5a8aede493f9fb071f6 /src | |
| parent | fe01d7c8e50f93761c617537cdd0fa3ce88f0788 (diff) | |
| download | mtc-2578cd5df74cc0c4e13e0848fe5c2ed0a0a7d21a.zip mtc-2578cd5df74cc0c4e13e0848fe5c2ed0a0a7d21a.tar.gz mtc-2578cd5df74cc0c4e13e0848fe5c2ed0a0a7d21a.tar.bz2 mtc-2578cd5df74cc0c4e13e0848fe5c2ed0a0a7d21a.tar.xz | |
Ajout possibilité de donner un objet MTools en argument
Diffstat (limited to 'src')
| -rw-r--r-- | src/MTools/GUI/MTexture.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/MTools/GUI/MTexture.pm b/src/MTools/GUI/MTexture.pm index f3dff9e..12d9d5a 100644 --- a/src/MTools/GUI/MTexture.pm +++ b/src/MTools/GUI/MTexture.pm @@ -19,7 +19,7 @@ package MTools::GUI::MTexture; # Permet d'appliquer un texture a un objet # Parametres : # * parent : pere de l'objet. -# * target : group zinc destine a contenir les images de texture +# * target : group zinc ou MTools destine a contenir les images de texture # * image_name : nom de l'image texture use strict; @@ -27,6 +27,7 @@ use strict; use MTools; use MTools::MGroup; use MTools::GUI::MImage; +use MTools::GUI::MClip; use vars qw / @ISA /; @@ -64,7 +65,7 @@ sub new { } } - my $clip = $zinc -> clone ($target); + my $clip = clone ($target); mconfigure ($clip, -visible => 0); new MTools::GUI::MClip ($self, $clip); return $self; |