diff options
Diffstat (limited to 'src/MTools/Comp')
| -rw-r--r-- | src/MTools/Comp/MMultiSelection.pm | 4 | ||||
| -rw-r--r-- | src/MTools/Comp/MReconizer.pm | 2 | ||||
| -rw-r--r-- | src/MTools/Comp/MWritable.pm | 8 |
3 files changed, 7 insertions, 7 deletions
diff --git a/src/MTools/Comp/MMultiSelection.pm b/src/MTools/Comp/MMultiSelection.pm index f124720..9a7260b 100644 --- a/src/MTools/Comp/MMultiSelection.pm +++ b/src/MTools/Comp/MMultiSelection.pm @@ -87,7 +87,7 @@ use MTools::MObjet; use Math::Trig; use MTools::Anim::MOpacity; use MTools::Comp::MInertie; -use MTools::MGroup; +use MTools::GUI::MGroup; use vars qw /@ISA/; @@ -143,7 +143,7 @@ sub new { $self -> {__owns_data} = (); $self -> {__source} = minstance ($src); - $self -> {__gp_anime} = my $group = new MTools::MGroup ($dessin); + $self -> {__gp_anime} = my $group = new MTools::GUI::MGroup ($dessin); push (@{$self -> {__owns_data}}, minstance ($src)); push (@{$self -> {__owns_data}}, minstance ($group)); diff --git a/src/MTools/Comp/MReconizer.pm b/src/MTools/Comp/MReconizer.pm index 9605eb9..8792295 100644 --- a/src/MTools/Comp/MReconizer.pm +++ b/src/MTools/Comp/MReconizer.pm @@ -74,7 +74,7 @@ sub new { }); $self -> {__dessin} = undef; - $self -> {__dessin} = my $dessin = new MTools::MGroup (1); + $self -> {__dessin} = my $dessin = new MTools::GUI::MGroup (1); $self -> {__fleche} = $zinc -> add ('curve', minstance($dessin), [[0,0],[0,0]], -linecolor => 'blue', -linewidth => 2, 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} = (); } |