diff options
Diffstat (limited to 'src/MTools/GUI/MCurve.pm')
| -rw-r--r-- | src/MTools/GUI/MCurve.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/MTools/GUI/MCurve.pm b/src/MTools/GUI/MCurve.pm index 3458e49..e96ec6e 100644 --- a/src/MTools/GUI/MCurve.pm +++ b/src/MTools/GUI/MCurve.pm @@ -26,7 +26,6 @@ package MTools::GUI::MCurve; use strict; use MTools; -use MTools::MObjet; use vars qw / @ISA /; BEGIN @@ -36,7 +35,7 @@ BEGIN sub new { my ($class, $parent, $coords, %options) = @_; - my $self = {}; + my $self = new MTools::MObjet (); bless $self, $class; $self -> {instance} = $zinc -> add('curve', ref ($parent) eq '' ? $parent : $parent -> {instance}, |