Draw thinner lines for left labels

nilenso · Jun 28, 2024 · 482a1ad · 482a1ad
1 parent d82ea72
commit 482a1ad
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/bean/ui/views/sheet.cljs b/src/bean/ui/views/sheet.cljs
@@ -467,8 +467,8 @@
                               2 (nth row-heights r)))
             :left (when (= r label-r)
                     (.drawRect g
-                               (nth xs c) (+ (nth ys r) label-r)
-                               (nth col-widths c) 4))
+                               (nth xs c) (+ (nth ys r) (* label-r 0.5))
+                               (nth col-widths c) 2))
             :top-left nil))
         (.beginFill g color 0.25)
         (.drawRect g