diff options
author | ribet | 2007-05-14 14:32:34 +0000 |
---|---|---|
committer | ribet | 2007-05-14 14:32:34 +0000 |
commit | 95ba2d44fffe340619c5fdf5624790ac64442d80 (patch) | |
tree | a4c8ccc86d2b4bd3547ee2d54c4a8aac93e56cff /src/MTools/Comp/MWritable.pm | |
parent | 76aecbe5cbeea78733e0dc0b2595bf3443ec9d56 (diff) | |
download | mtc-95ba2d44fffe340619c5fdf5624790ac64442d80.zip mtc-95ba2d44fffe340619c5fdf5624790ac64442d80.tar.gz mtc-95ba2d44fffe340619c5fdf5624790ac64442d80.tar.bz2 mtc-95ba2d44fffe340619c5fdf5624790ac64442d80.tar.xz |
Déplacement de MGroup. Ce déplacement casse du code côté utilisateurs, mais le fichier est enfin à sa place.
Diffstat (limited to 'src/MTools/Comp/MWritable.pm')
-rw-r--r-- | src/MTools/Comp/MWritable.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/MTools/Comp/MWritable.pm b/src/MTools/Comp/MWritable.pm index 8a2a2d5..e611972 100644 --- a/src/MTools/Comp/MWritable.pm +++ b/src/MTools/Comp/MWritable.pm @@ -49,14 +49,14 @@ use vars qw /@ISA/; BEGIN { - @ISA = qw /MTools::MGroup/; + @ISA = qw /MTools::GUI::MGroup/; } use Tk; sub new { my ($class, $parent, $src, $button, %options) = @_; - my $self = new MTools::MGroup ($parent); + my $self = new MTools::GUI::MGroup ($parent); bless $self, $class; if (defined $options {clip}) { @@ -83,7 +83,7 @@ sub new { $self -> {__curves} = (); $self -> {__points} = (); $self -> {__current_curves} = (); - $self -> {__tmp_curves} = new MTools::MGroup ($self); + $self -> {__tmp_curves} = new MTools::GUI::MGroup ($self); return $self; } @@ -133,7 +133,7 @@ sub endWrite { ); $self -> {__points} = (); $self -> {__tmp_curves} -> mdelete (); - $self -> {__tmp_curves} = new MTools::MGroup ($self); + $self -> {__tmp_curves} = new MTools::GUI::MGroup ($self); } $self -> {__old_coords} = (); } |