summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--catbird/region.scm6
1 files changed, 6 insertions, 0 deletions
diff --git a/catbird/region.scm b/catbird/region.scm
index b666811..f1cc306 100644
--- a/catbird/region.scm
+++ b/catbird/region.scm
@@ -66,9 +66,15 @@
(define-method (area-width (region <region>))
(rect-width (area region)))
+(define-method (width (region <region>))
+ (area-width region))
+
(define-method (area-height (region <region>))
(rect-height (area region)))
+(define-method (height (region <region>))
+ (area-height region))
+
(define (float->int x)
(inexact->exact (round x)))