From 18ff6303df70001b76fbea1787998fd8e86a2c5e Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Mon, 11 Jan 2016 00:08:05 +0200
Subject: [PATCH] Fix bug related to scroll handling and shapes/icons
 insertion.

---
 frontend/uxbox/ui/workspace/workarea.cljs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/frontend/uxbox/ui/workspace/workarea.cljs b/frontend/uxbox/ui/workspace/workarea.cljs
index 56f49f005..37de33129 100644
--- a/frontend/uxbox/ui/workspace/workarea.cljs
+++ b/frontend/uxbox/ui/workspace/workarea.cljs
@@ -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!