mirror of
https://github.com/penpot/penpot.git
synced 2025-06-09 00:31:38 +02:00
Fix applying stroke
This commit is contained in:
parent
3c7261e75b
commit
3826afb76b
1 changed files with 6 additions and 3 deletions
|
@ -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
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue