status-im
/
reagent
mirror of https://github.com/status-im/reagent.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

Avoid warning with ClojureScript 2156

This commit is contained in:
Dan Holmsand 2014-02-21 16:12:41 +01:00
parent c783d09b04
commit 85e5f8d46a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
examples/geometry/src/geometry/components.cljs
View File

@ -25,16 +25,16 @@
(defn drag-end-fn [drag-move drag-end] (defn drag-end-fn [drag-move drag-end]
(fn [evt] (fn [evt]
(events/unlisten js/window EventType/MOUSEMOVE drag-move) (events/unlisten js/window EventType.MOUSEMOVE drag-move)
(events/unlisten js/window EventType/MOUSEUP @drag-end))) (events/unlisten js/window EventType.MOUSEUP @drag-end)))
(defn dragging [on-drag] (defn dragging [on-drag]
(let [drag-move (drag-move-fn on-drag) (let [drag-move (drag-move-fn on-drag)
drag-end-atom (atom nil) drag-end-atom (atom nil)
drag-end (drag-end-fn drag-move drag-end-atom)] drag-end (drag-end-fn drag-move drag-end-atom)]
(reset! drag-end-atom drag-end) (reset! drag-end-atom drag-end)
(events/listen js/window EventType/MOUSEMOVE drag-move) (events/listen js/window EventType.MOUSEMOVE drag-move)
(events/listen js/window EventType/MOUSEUP drag-end))) (events/listen js/window EventType.MOUSEUP drag-end)))
(defn point [{:keys [on-drag]} p] (defn point [{:keys [on-drag]} p]
[:circle [:circle