diff options
| -rw-r--r-- | catbird/minibuffer.scm | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/catbird/minibuffer.scm b/catbird/minibuffer.scm index 756b247..197b695 100644 --- a/catbird/minibuffer.scm +++ b/catbird/minibuffer.scm @@ -70,13 +70,15 @@ #:prompt %prompt))) (define-method (resize-minibuffer (minibuffer <minibuffer>) width) - (set! (painter (& minibuffer background)) - (with-style ((fill-color %background-color)) - (fill - (rectangle (vec2 0.0 0.0) - width - (+ (font-line-height (font (& minibuffer editor))) - (* %padding 2.0))))))) + (let ((bg (& minibuffer background))) + (set! (painter bg) + (with-style ((fill-color %background-color)) + (fill + (rectangle (vec2 0.0 0.0) + width + (+ (font-line-height (font (& minibuffer editor))) + (* %padding 2.0)))))) + (resize bg))) (define-method (clear-minibuffer (minibuffer <minibuffer>)) (clear-line (& minibuffer editor))) |