Remove wrong lock support on resize-rect func.

This commit is contained in:
Andrey Antukh 2017-01-11 20:51:08 +01:00
parent 6345cfd91a
commit 3cd3230342
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95

View file

@ -269,12 +269,9 @@
(defn- resize-rect (defn- resize-rect
"A specialized function for absolute resize "A specialized function for absolute resize
for rect-like shapes." for rect-like shapes."
[shape {:keys [x y lock] :as pos}] [shape {:keys [x y] :as pos}]
(if lock (-> (assoc shape :x2 x :y2 y)
(-> (assoc shape :x2 x :y2 y) (normalize-shape)))
(equalize-sides)
(normalize-shape))
(normalize-shape (assoc shape :x2 x :y2 y))))
(defn- resize-circle (defn- resize-circle
"A specialized function for absolute resize "A specialized function for absolute resize