summaryrefslogtreecommitdiff
path: root/starling/minibuffer.scm
diff options
context:
space:
mode:
Diffstat (limited to 'starling/minibuffer.scm')
-rw-r--r--starling/minibuffer.scm12
1 files changed, 7 insertions, 5 deletions
diff --git a/starling/minibuffer.scm b/starling/minibuffer.scm
index 690445f..2515604 100644
--- a/starling/minibuffer.scm
+++ b/starling/minibuffer.scm
@@ -23,6 +23,7 @@
(define-module (starling minibuffer)
#:use-module (chickadee graphics color)
#:use-module (chickadee graphics font)
+ #:use-module (chickadee graphics path)
#:use-module (chickadee math rect)
#:use-module (chickadee math vector)
#:use-module (chickadee scripting)
@@ -92,11 +93,12 @@
(line-height (font-line-height font))
(padding 8.0))
(attach-to minibuffer
- (make <filled-rect>
- #:region (make-rect 0.0 0.0
- (vec2-x res)
- (+ line-height (* padding 2.0)))
- #:color (make-color 0.0 0.0 0.0 0.7))
+ (make <path>
+ #:painter (with-style ((fill-color (make-color 0 0 0 0.7)))
+ (fill
+ (rectangle (vec2 0.0 0.0)
+ (vec2-x res)
+ (+ line-height (* padding 2.0))))))
(make <label>
#:name 'text-entry
#:rank 9