🐛 Properly setup group on creation.

This commit is contained in:
Andrey Antukh 2020-06-09 15:53:26 +02:00
parent 4bdaab637c
commit b8dab7253e
2 changed files with 16 additions and 17 deletions

View file

@ -227,14 +227,11 @@
(defn- setup-image
[{:keys [metadata] :as shape} {:keys [x y width height] :as props}]
(assoc shape
:x x
:y y
:width width
:height height
:proportion (/ (:width metadata)
(:height metadata))
:proportion-lock true))
(-> (setup-rect shape props)
(assoc
:proportion (/ (:width metadata)
(:height metadata))
:proportion-lock true)))
;; --- Coerce to Rect-like shape.