github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-09-13 15:38:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Andrey Antukh 2016-01-11 00:08:05 +02:00
parent 6ecec4af0a
commit 18ff6303df
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
frontend/uxbox/ui/workspace/workarea.cljs
View File

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