Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-04-10 14:01:29 -05:00
Code Issues Activity

Fix scroll related bug on selrect.

Browse source
This commit is contained in:
Andrey Antukh 2016-01-07 17:47:44 +02:00
parent abc743a08e
commit eb6e0544c7
1 changed files with 14 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -113,7 +113,7 @@
:width (- current-x start-x)
:height (- current-y start-y)}))
(defonce $$selrect-subscription-0$$
(defonce $$selrect-subscription$$
(let [ss (as-> (rx/from-atom selrect-dragging?) $
(rx/dedupe $)
(rx/merge $ (rx/of false))
@ -122,22 +122,24 @@
(as-> ss $
(rx/filter #(= (vec %) [false true]) $)
(rx/with-latest-from vector mouse-s $)
(rx/on-value $ (fn [[_ pos]]
(swap! selrect-pos assoc
:start pos
:current pos))))
(rx/on-value $ (fn [[_ [x y :as pos]]]
(let [scroll (or @scroll-top 0)
pos [x (+ y scroll)]]
(swap! selrect-pos assoc
:start pos
:current pos)))))
(as-> ss $
(rx/filter #(= (vec %) [true false]) $)
(rx/on-value $ (fn []
(let [selrect (selrect->rect @selrect-pos)]
(rs/emit! (dw/select-shapes selrect))
(reset! selrect-pos nil)))))))
(defonce $$selrect-subscription-1$$
(as-> mouse-s $
(rx/filter #(deref selrect-dragging?) $)
(rx/on-value $ (fn [pos]
(swap! selrect-pos assoc :current pos)))))
(reset! selrect-pos nil)))))
(as-> mouse-s $
(rx/filter #(deref selrect-dragging?) $)
(rx/on-value $ (fn [[x y :as pos]]
(let [scroll (or @scroll-top 0)
pos [x (+ y scroll)]]
(swap! selrect-pos assoc :current pos)))))))
;; Materialized views