summaryrefslogtreecommitdiff
path: root/starling/repl.scm
diff options
context:
space:
mode:
Diffstat (limited to 'starling/repl.scm')
-rw-r--r--starling/repl.scm10
1 files changed, 7 insertions, 3 deletions
diff --git a/starling/repl.scm b/starling/repl.scm
index 7c05cb6..66139ed 100644
--- a/starling/repl.scm
+++ b/starling/repl.scm
@@ -24,6 +24,7 @@
#:use-module (chickadee array-list)
#: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)
@@ -157,9 +158,12 @@
#:vertical-align 'top))
(iota nlines))))
(attach-to repl
- (make <filled-rect>
- #:region (make-rect 0.0 0.0 (vec2-x res) (vec2-y res))
- #: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)
+ (vec2-y res)))))
(make <label>
#:rank 9
#:name 'prompt