diff options
Diffstat (limited to 'catbird/overlay.scm')
| -rw-r--r-- | catbird/overlay.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/catbird/overlay.scm b/catbird/overlay.scm index 2833e87..1cdabd4 100644 --- a/catbird/overlay.scm +++ b/catbird/overlay.scm @@ -70,6 +70,11 @@ (lambda (exception stack) (handle-error overlay exception stack)))) +(define-method (on-region-resize (overlay <overlay>)) + (let ((repl (child-ref overlay 'repl)) + (region (car (regions overlay)))) + (when repl (resize-repl repl (width region) (height region))))) + (define-method (notify (scene <overlay>) message) (run-script scene (let* ((padding 8.0) |