diff options
| -rw-r--r-- | catbird/scene.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/catbird/scene.scm b/catbird/scene.scm index 7f2542d..046a8dd 100644 --- a/catbird/scene.scm +++ b/catbird/scene.scm @@ -209,3 +209,9 @@ (define-method (resume (scene <scene>)) (for-each-child resume scene) (next-method)) + +(define-method (width (scene <scene>)) + (fold (lambda (r w) (max w (width r))) 0.0 (regions scene))) + +(define-method (height (scene <scene>)) + (fold (lambda (r h) (max h (height r))) 0.0 (regions scene))) |