Changed stroke color of menu

2024-12-17 12:33:36 -05:00 · 2024-12-17 12:33:36 -05:00 · 6aed092c24
commit 6aed092c24
parent 06a982747e
3 changed files with 10 additions and 3 deletions
--- a/modules/dom/canvas.scm
+++ b/modules/dom/canvas.scm
@ -25,11 +25,12 @@
  #:export (get-context
            set-global-alpha!
            set-fill-color!
+            set-stroke-color!
            set-font!
            set-text-align!
            clear-rect
            fill-rect
-            ;; stroke
+            stroke-rect
            fill-text
            draw-image
            restore!
@ -52,6 +53,9 @@
 (define-foreign set-fill-color!
  "canvas" "setFillColor"
  (ref extern) (ref string) -> none)
+(define-foreign set-stroke-color!
+  "canvas" "setStrokeColor"
+  (ref extern) (ref string) -> none)
 (define-foreign set-font!
  "canvas" "setFont"
  (ref extern) (ref string) -> none)