0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-10 00:40:30 -05:00

Emit point instances on scroll stream.

This commit is contained in:
Andrey Antukh 2016-02-15 22:55:43 +02:00
parent 547c2335ef
commit 5e732a4d20

View file

@ -6,6 +6,7 @@
[uxbox.rstore :as rs] [uxbox.rstore :as rs]
[uxbox.state :as st] [uxbox.state :as st]
[uxbox.data.workspace :as dw] [uxbox.data.workspace :as dw]
[uxbox.util.geom.point :as gpt]
[uxbox.util.data :refer (classnames)] [uxbox.util.data :refer (classnames)]
[uxbox.ui.icons :as i] [uxbox.ui.icons :as i]
[uxbox.ui.mixins :as mx] [uxbox.ui.mixins :as mx]
@ -48,7 +49,7 @@
(let [target (.-target event) (let [target (.-target event)
top (.-scrollTop target) top (.-scrollTop target)
left (.-scrollLeft target)] left (.-scrollLeft target)]
(rx/push! wb/scroll-b {:top top :left left}))) (rx/push! wb/scroll-b (gpt/point left top))))
(defn- workspace-render (defn- workspace-render
[own projectid] [own projectid]