Fix applying stroke

This commit is contained in:
Florian Schroedl 2024-08-05 11:18:19 +02:00
parent 3c7261e75b
commit 3826afb76b

View file

@ -116,9 +116,12 @@
(defn update-stroke-width (defn update-stroke-width
[value shape-ids] [value shape-ids]
(dch/update-shapes shape-ids (fn [shape] (dch/update-shapes shape-ids
(when (seq (:strokes shape)) (fn [shape]
(assoc-in shape [:strokes 0 :stroke-width] value))))) (when (seq (:strokes shape))
(assoc-in shape [:strokes 0 :stroke-width] value)))
{:reg-objects? true
:attrs [:strokes]}))
(defn update-shape-dimensions [value shape-ids attributes] (defn update-shape-dimensions [value shape-ids attributes]
(ptk/reify ::update-shape-dimensions (ptk/reify ::update-shape-dimensions