diff options
| author | saal | 2007-06-04 13:10:07 +0000 |
|---|---|---|
| committer | saal | 2007-06-04 13:10:07 +0000 |
| commit | 026e394a8e78c52c9c3319408f1b1b66e88a745b (patch) | |
| tree | 164dc38b7a10d061f95bc96c31667dc400b98c14 /src/MTools/GUI | |
| parent | 1a38bcb3e8464d440f42341d3e67c2691ac44421 (diff) | |
| download | mtc-026e394a8e78c52c9c3319408f1b1b66e88a745b.zip mtc-026e394a8e78c52c9c3319408f1b1b66e88a745b.tar.gz mtc-026e394a8e78c52c9c3319408f1b1b66e88a745b.tar.bz2 mtc-026e394a8e78c52c9c3319408f1b1b66e88a745b.tar.xz | |
utilisation du constructeur de MObjet + suppression du use MTools::MObjet
Diffstat (limited to 'src/MTools/GUI')
| -rw-r--r-- | src/MTools/GUI/MCircle.pm | 3 | ||||
| -rw-r--r-- | src/MTools/GUI/MClip.pm | 3 | ||||
| -rw-r--r-- | src/MTools/GUI/MCurve.pm | 3 | ||||
| -rw-r--r-- | src/MTools/GUI/MGroup.pm | 3 | ||||
| -rw-r--r-- | src/MTools/GUI/MRect.pm | 1 |
5 files changed, 4 insertions, 9 deletions
diff --git a/src/MTools/GUI/MCircle.pm b/src/MTools/GUI/MCircle.pm index 35463ef..2fc5aa1 100644 --- a/src/MTools/GUI/MCircle.pm +++ b/src/MTools/GUI/MCircle.pm @@ -26,7 +26,6 @@ package MTools::GUI::MCircle; use strict; use MTools; -use MTools::MObjet; use vars qw / @ISA /; BEGIN @@ -36,7 +35,7 @@ BEGIN sub new { my ($class, $parent, $x, $y, $r, %options) = @_; - my $self = {}; + my $self = new MTools::MObjet (); bless $self, $class; $self -> {instance} = $zinc -> add('arc', ref ($parent) eq '' ? $parent : $parent -> {instance}, diff --git a/src/MTools/GUI/MClip.pm b/src/MTools/GUI/MClip.pm index 248e395..b34a537 100644 --- a/src/MTools/GUI/MClip.pm +++ b/src/MTools/GUI/MClip.pm @@ -26,7 +26,6 @@ package MTools::GUI::MClip; use strict; use MTools; -use MTools::MObjet; use vars qw / @ISA /; BEGIN @@ -36,7 +35,7 @@ BEGIN sub new { my ($class, $clipped, $path, $debug) = @_; - my $self = {}; + my $self = new MTools::MObjet (); bless $self, $class; if (!defined $debug) {$debug = 0} 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}, diff --git a/src/MTools/GUI/MGroup.pm b/src/MTools/GUI/MGroup.pm index ca48fe1..ef5468f 100644 --- a/src/MTools/GUI/MGroup.pm +++ b/src/MTools/GUI/MGroup.pm @@ -21,7 +21,6 @@ package MTools::GUI::MGroup; use strict; use MTools; -use MTools::MObjet; use vars qw / @ISA /; BEGIN @@ -31,7 +30,7 @@ BEGIN sub new { my ($class, $parent, %options) = @_; - my $self = {}; + my $self = new MTools::MObjet (); bless $self, $class; $parent = ref($parent) eq ''?$parent:$parent -> {instance}; $self -> {instance} = $zinc -> add ('group', $parent, -priority => 10, %options); diff --git a/src/MTools/GUI/MRect.pm b/src/MTools/GUI/MRect.pm index e28b044..2a11402 100644 --- a/src/MTools/GUI/MRect.pm +++ b/src/MTools/GUI/MRect.pm @@ -27,7 +27,6 @@ package MTools::GUI::MRect; use strict; use MTools; -use MTools::MObjet; use vars qw / @ISA /; BEGIN |