3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-03 08:28:39 +02:00
Code Issues Projects Releases Packages Wiki Activity

Fix mouse mixin.

Browse source
This commit is contained in:
Andrey Antukh 2015-12-22 20:25:38 +02:00
parent 3748d3c7b4
commit 3e336112ca
3 changed files with 34 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

45
frontend/uxbox/ui/workspace/base.cljs
View file

@ -74,26 +74,33 @@
(defonce mouse-s (rx/dedupe mouse-bus))
(defonce mouse-position (rx/to-atom (rx/throttle 50 mouse-s)))
(def mouse-mixin
{:did-mount
(fn [own]
(let [canvas (util/get-ref-dom own "canvas")
key (events/listen js/document EventType.MOUSEMOVE
(fn [event]
(let [brect (.getBoundingClientRect canvas)
offset-x (.-left brect)
offset-y (.-top brect)
x (.-clientX event)
y (.-clientY event)]
(rx/push! mouse-bus [(- x offset-x)
(- y offset-y)]))))]
(assoc own ::eventkey key)))
(defn- mouse-mixin-did-mount
[own]
(println "mouse-mixin-did-mount")
(let [canvas (util/get-ref-dom own "canvas")
on-mousemove (fn [event]
(let [brect (.getBoundingClientRect canvas)
offset-x (.-left brect)
offset-y (.-top brect)
x (.-clientX event)
y (.-clientY event)]
(rx/push! mouse-bus [(- x offset-x)
(- y offset-y)])))
key (events/listen js/document
EventType.MOUSEMOVE
on-mousemove)]
(assoc own ::eventkey key)))
:did-unmount
(fn [own]
(let [key (::eventkey own)]
(events/unlistenByKey key)
(dissoc own ::eventkey)))})
(defn- mouse-mixin-will-unmount
[own]
(println "mouse-mixin-will-unmount")
(let [key (::eventkey own)]
(events/unlistenByKey key)
(dissoc own ::eventkey)))
(def ^:static mouse-mixin
{:did-mount mouse-mixin-did-mount
:will-unmount mouse-mixin-will-unmount})
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Constants