diff --git a/frontend/uxbox/shapes.cljs b/frontend/uxbox/shapes.cljs index da498e812..bfaf33f2f 100644 --- a/frontend/uxbox/shapes.cljs +++ b/frontend/uxbox/shapes.cljs @@ -41,6 +41,10 @@ dispatch-by-type :hierarchy #'+hierarchy+) +(defmulti -resize + dispatch-by-type + :hierarchy #'+hierarchy+) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Implementation ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -50,3 +54,9 @@ (assoc shape :x (+ (:x shape) dx) :y (+ (:y shape) dy))) + +(defmethod -resize ::shape + [shape {:keys [width height] :as opts}] + (assoc shape + :width width + :height height))