             (do
               (rs/emit! (uds/deselect-all)
                         (uds/select-shape id))
-              (rlocks/acquire! :shape/move))))
+              (start-move))))
 
         :else
         (do
           (dom/stop-propagation event)
-          (rlocks/acquire! :shape/move))))))
+          (start-move))))))

        (do
          (dom/stop-propagation event)
          (rs/emit! (uds/select-shape id))
          (rlocks/acquire! :shape/move))

        (and (not selected?) (not (empty? selected)))
        (do

(ns uxbox.main.ui.shapes.common
  (:require [sablono.core :refer-macros [html]]
            [lentes.core :as l]
            [beicon.core :as rx]
            [uxbox.util.rstore :as rs]
            [uxbox.main.state :as st]
            [uxbox.main.data.shapes :as uds]
            [uxbox.main.ui.keyboard :as kbd]
            [uxbox.main.ui.workspace.base :as wb]
            [uxbox.main.ui.workspace.rlocks :as rlocks]
            [uxbox.main.geom :as geom]
            [uxbox.util.dom :as dom]))
