mirror of
https://github.com/penpot/penpot.git
synced 2025-02-15 03:28:25 -05:00
✨ Use get-prop for access transform and rect props
This commit is contained in:
parent
5420e0e06d
commit
db2eb2c420
1 changed files with 10 additions and 10 deletions
|
@ -39,21 +39,21 @@
|
||||||
|
|
||||||
(defn set-shape-selrect
|
(defn set-shape-selrect
|
||||||
[selrect]
|
[selrect]
|
||||||
(let [x1 (:x1 selrect)
|
(let [x1 (dm/get-prop selrect :x1)
|
||||||
y1 (:y1 selrect)
|
y1 (dm/get-prop selrect :y1)
|
||||||
x2 (:x2 selrect)
|
x2 (dm/get-prop selrect :x2)
|
||||||
y2 (:y2 selrect)
|
y2 (dm/get-prop selrect :y2)
|
||||||
set-shape-selrect (unchecked-get internal-module "_set_shape_selrect")]
|
set-shape-selrect (unchecked-get internal-module "_set_shape_selrect")]
|
||||||
(^function set-shape-selrect x1 y1 x2 y2)))
|
(^function set-shape-selrect x1 y1 x2 y2)))
|
||||||
|
|
||||||
(defn set-shape-transform
|
(defn set-shape-transform
|
||||||
[transform]
|
[transform]
|
||||||
(let [a (:a transform)
|
(let [a (dm/get-prop transform :a)
|
||||||
b (:b transform)
|
b (dm/get-prop transform :b)
|
||||||
c (:c transform)
|
c (dm/get-prop transform :c)
|
||||||
d (:d transform)
|
d (dm/get-prop transform :d)
|
||||||
e (:e transform)
|
e (dm/get-prop transform :e)
|
||||||
f (:f transform)
|
f (dm/get-prop transform :f)
|
||||||
set-shape-transform (unchecked-get internal-module "_set_shape_transform")]
|
set-shape-transform (unchecked-get internal-module "_set_shape_transform")]
|
||||||
(^function set-shape-transform a b c d e f)))
|
(^function set-shape-transform a b c d e f)))
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue