mirror of
https://github.com/penpot/penpot.git
synced 2025-05-30 18:56:10 +02:00
Add missing reference to transfer state fn on drawarea ns.
This commit is contained in:
parent
d771a9f513
commit
5b01e3ed2a
1 changed files with 5 additions and 4 deletions
|
@ -45,21 +45,22 @@
|
||||||
[own]
|
[own]
|
||||||
(assoc own ::sub (watch-draw-actions)))
|
(assoc own ::sub (watch-draw-actions)))
|
||||||
|
|
||||||
|
(defn- draw-area-transfer-state
|
||||||
|
[oldown own]
|
||||||
|
(assoc own ::sub (::sub oldown)))
|
||||||
|
|
||||||
(defn- draw-area-will-unmount
|
(defn- draw-area-will-unmount
|
||||||
[own]
|
[own]
|
||||||
(.close (::sub own))
|
(.close (::sub own))
|
||||||
(dissoc own ::sub))
|
(dissoc own ::sub))
|
||||||
|
|
||||||
(defn- draw-area-transfer-state
|
|
||||||
[oldown own]
|
|
||||||
(assoc own ::sub (::sub oldown)))
|
|
||||||
|
|
||||||
(def draw-area
|
(def draw-area
|
||||||
(mx/component
|
(mx/component
|
||||||
{:render draw-area-render
|
{:render draw-area-render
|
||||||
:name "draw-area"
|
:name "draw-area"
|
||||||
:will-mount draw-area-will-mount
|
:will-mount draw-area-will-mount
|
||||||
:will-unmount draw-area-will-unmount
|
:will-unmount draw-area-will-unmount
|
||||||
|
:transfer-state draw-area-transfer-state
|
||||||
:mixins [mx/static rum/reactive]}))
|
:mixins [mx/static rum/reactive]}))
|
||||||
|
|
||||||
;; --- Drawing Logic
|
;; --- Drawing Logic
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue