Ajout des methodes width, height de MTools.pm

2 files changed, 23 insertions, 5 deletions

diff --git a/debian/changelog b/debian/changelog
index 057287c..46d45f9 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,7 @@
+mtools-perl (1.1-1) unstable; urgency=low
+
+  * Ajout des methodes width, height de MTools.pm
+
 mtools-perl (1.0-1) unstable; urgency=low
 
   * Initial Debian release
diff --git a/src/MTools.pm b/src/MTools.pm
index 91306ad..d47d81e 100644
--- a/src/MTools.pm
+++ b/src/MTools.pm
@@ -75,6 +75,8 @@ package MTools;
 #	- rotate
 #	- coords
 #	- bbox
+#	- width
+#	- height
 #	- type
 #	- tset
 #	- treset
@@ -93,7 +95,7 @@ BEGIN
 	@ISA = qw / Exporter/;
 	@EXPORT = qw / %fonts $zinc translate rotate executer mconfigure binding unbinding raise mget 
 		scale getGradient chggroup plink plisten mplaying minstance mrun minstanciate 
-		propertyExists bbox mdelete mfind coords type tset treset tget clone unplisten/;
+		propertyExists bbox width height mdelete mfind coords type tset treset tget clone unplisten/;
 }
 
 use strict;
@@ -454,13 +456,25 @@ sub treset {
 }
 
 sub bbox {
-	my ($obj) = @_;
-	return $zinc -> bbox (ref ($obj) eq '' ? $obj : $obj -> {instance});
+  my ($obj) = @_;
+  return $zinc -> bbox (ref ($obj) eq '' ? $obj : $obj -> {instance});
+}
+
+sub width {
+  my ($obj) = @_;
+  my ($x1,$y1,$x2,$y2) = bbox($obj);
+  return ($x2 - $x1);
+}
+
+sub height {
+  my ($obj) = @_;
+  my ($x1,$y1,$x2,$y2) = bbox($obj);
+  return ($y2 - $y1);
 }
 
 sub coords {
-	my ($obj, @args) = @_;
-	return $zinc -> coords (ref ($obj) eq '' ? $obj : $obj -> {instance}, @args);
+  my ($obj, @args) = @_;
+  return $zinc -> coords (ref ($obj) eq '' ? $obj : $obj -> {instance}, @args);
 }
 
 sub type {