mirror of
https://github.com/penpot/penpot.git
synced 2025-06-12 01:41:37 +02:00
Start use user-events for scroll events.
In the same way as keyboard and mouse events.
This commit is contained in:
parent
7a7059e172
commit
e3f58f6823
5 changed files with 42 additions and 33 deletions
|
@ -16,6 +16,7 @@
|
|||
[uxbox.main.data.pages :as udp]
|
||||
[uxbox.main.data.history :as udh]
|
||||
[uxbox.main.data.undo :as udu]
|
||||
[uxbox.main.user-events :as uev]
|
||||
[uxbox.main.ui.messages :refer [messages-widget]]
|
||||
[uxbox.main.ui.confirm]
|
||||
[uxbox.main.ui.workspace.images]
|
||||
|
@ -47,7 +48,6 @@
|
|||
(let [[projectid pageid] (:rum/args own)
|
||||
dom (mx/ref-node own "workspace-canvas")
|
||||
scroll-to-page-center #(scroll/scroll-to-page-center dom @refs/selected-page)
|
||||
;; sub1 (scroll/watch-scroll-interactions own)
|
||||
sub2 (rx/subscribe streams/page-id-ref-s scroll-to-page-center)]
|
||||
|
||||
(scroll-to-page-center)
|
||||
|
@ -56,14 +56,11 @@
|
|||
(udu/watch-page-changes pageid)
|
||||
(udh/watch-page-changes pageid))
|
||||
|
||||
(assoc own
|
||||
;; ::sub1 sub1
|
||||
::sub2 sub2)))
|
||||
(assoc own ::sub2 sub2)))
|
||||
|
||||
(defn- workspace-will-unmount
|
||||
[own]
|
||||
(st/emit! ::udp/stop-page-watcher)
|
||||
;; (.close (::sub1 own))
|
||||
(.close (::sub2 own))
|
||||
(dissoc own ::sub1 ::sub2))
|
||||
|
||||
|
@ -84,7 +81,7 @@
|
|||
(let [target (.-target event)
|
||||
top (.-scrollTop target)
|
||||
left (.-scrollLeft target)]
|
||||
(rx/push! streams/scroll-b (gpt/point left top))))
|
||||
(st/emit! (uev/scroll-event (gpt/point left top)))))
|
||||
|
||||
(defn- on-wheel
|
||||
[own event]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue