Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-07 15:39:42 -05:00
Code Issues Activity

Add default resize logic implementation for shapes.

Browse source
This commit is contained in:
Andrey Antukh 2016-01-06 21:03:19 +02:00
parent 8795173dc5
commit c364e35292
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
frontend/uxbox/shapes.cljs
View file

@ -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))