diff options
author | David Thompson <dthompson@vistahigherlearning.com> | 2020-12-11 07:35:53 -0500 |
---|---|---|
committer | David Thompson <dthompson@vistahigherlearning.com> | 2020-12-11 07:35:53 -0500 |
commit | 9af0cf20103ec60c910e4d598c368b788ec2217e (patch) | |
tree | be45b7faee580e87b1619e9fb575ac37e5bd59cf /starling/minibuffer.scm | |
parent | 93ef909c52055a1bf73853e3d3eb398fa7c708be (diff) |
Update to new chickadee and guile-sdl2.
Diffstat (limited to 'starling/minibuffer.scm')
-rw-r--r-- | starling/minibuffer.scm | 12 |
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 |