github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-04-25 19:28:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #7121 from penpot/superalex-fix-set-corners

Browse Source 
🐛 Fix set corners
This commit is contained in:
Elena Torró 2025-08-14 13:34:43 +02:00 committed by GitHub
commit fc6b64aa68
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
frontend/src/app/render_wasm/api.cljs
View File

@ -372,17 +372,13 @@
(h/call wasm/internal-module "_set_shape_blur" type hidden value)))
(defn set-shape-corners
[shape]
(let [r1 (dm/get-prop shape :r1)]
(when (some? r1)
(let [r2 (dm/get-prop shape :r2)
r3 (dm/get-prop shape :r3)
r4 (dm/get-prop shape :r4)]
(h/call wasm/internal-module "_set_shape_corners"
(d/nilv r1 0)
(d/nilv r2 0)
(d/nilv r3 0)
(d/nilv r4 0))))))
[corners]
(let [[r1 r2 r3 r4] corners]
(h/call wasm/internal-module "_set_shape_corners"
(d/nilv r1 0)
(d/nilv r2 0)
(d/nilv r3 0)
(d/nilv r4 0))))
(defn set-flex-layout
[shape]
@ -705,7 +701,11 @@
grow-type (dm/get-prop shape :grow-type)
blur (dm/get-prop shape :blur)
svg-attrs (dm/get-prop shape :svg-attrs)
shadows (dm/get-prop shape :shadow)]
shadows (dm/get-prop shape :shadow)
r1 (dm/get-prop shape :r1)
r2 (dm/get-prop shape :r2)
r3 (dm/get-prop shape :r3)
r4 (dm/get-prop shape :r4)]
(use-shape id)
(set-parent-id parent-id)
@ -719,7 +719,7 @@
(set-shape-opacity opacity)
(set-shape-hidden hidden)
(set-shape-children children)
(set-shape-corners shape)
(set-shape-corners [r1 r2 r3 r4])
(when (and (= type :group) masked)
(set-masked masked))
(when (some? blur)