0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-08 07:50:43 -05:00

Fix bug related to scroll handling and shapes/icons insertion.

This commit is contained in:
Andrey Antukh 2016-01-11 00:08:05 +02:00
parent 6ecec4af0a
commit 18ff6303df

View file

@ -14,10 +14,11 @@
(defn- on-click
[event wstate]
(let [mousepos @wb/mouse-position
scroll-top @wb/scroll-top
shape (:drawing wstate)]
(when shape
(let [props {:x (first mousepos)
:y (second mousepos)
:y (+ (second mousepos) scroll-top)
:width 100
:height 100}]
(rs/emit!