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

🎉 Add interactions with the mouse

Browse source
This commit is contained in:
Andrés Moya 2020-05-11 15:19:38 +02:00
parent 23ba635aab
commit e602a8cc36
4 changed files with 150 additions and 85 deletions
Download patch file Download diff file Expand all files Collapse all files

9
frontend/src/uxbox/main/data/workspace/common.cljs
View file

@ -210,6 +210,15 @@
(when-not (empty? rch)
(rx/of (commit-changes rch uch {:commit-local? true})))))))
(defn get-frame-at-point
[objects point]
(let [frames (cp/select-frames objects)]
(loop [frame (first frames)
rest (rest frames)]
(d/seek #(geom/has-point? % point) frames))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Undo / Redo
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;