Minor renaming.

This commit is contained in:
Andrey Antukh 2016-02-02 21:34:47 +02:00
parent 787a31ac4d
commit bae3d7d9ef
3 changed files with 14 additions and 14 deletions

View file

@ -335,7 +335,7 @@
(rx/from-coll
(map unlock-shape (:items shape))))))))
(defn transfer-shape
(defn drop-shape
"Event used in drag and drop for transfer shape
from one position to an other."
[sid tid type]

View file

@ -133,8 +133,8 @@
(let [id (dnd/get-data event)
over (:over @local)]
(case (:over @local)
:top (rs/emit! (dw/transfer-shape id (:id item) :before))
:bottom (rs/emit! (dw/transfer-shape id (:id item) :after)))
:top (rs/emit! (dw/drop-shape id (:id item) :before))
:bottom (rs/emit! (dw/drop-shape id (:id item) :after)))
(swap! local assoc :dragging false :over nil)))
(on-drag-over [event]
(dom/prevent-default event)
@ -210,9 +210,9 @@
(let [id (dnd/get-data event)
over (:over @local)]
(case (:over @local)
:top (rs/emit! (dw/transfer-shape id (:id item) :before))
:bottom (rs/emit! (dw/transfer-shape id (:id item) :after))
:middle (rs/emit! (dw/transfer-shape id (:id item) :inside)))
:top (rs/emit! (dw/drop-shape id (:id item) :before))
:bottom (rs/emit! (dw/drop-shape id (:id item) :after))
:middle (rs/emit! (dw/drop-shape id (:id item) :inside)))
(swap! local assoc :dragging false :over nil)))
(on-drag-over [event]
(dom/prevent-default event)