Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-15 19:48:22 -05:00
Code Issues Activity

Add missing impls for text shape under geom ns.

Browse source
This commit is contained in:
Andrey Antukh 2016-04-20 20:32:56 +03:00
parent 825eb4f8a2
commit b931484e49
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/uxbox/util/geom.cljs
View file

@ -39,6 +39,7 @@
(case (:type shape)
:icon (move-rect shape dpoint)
:rect (move-rect shape dpoint)
:text (move-rect shape dpoint)
:line (move-rect shape dpoint)
:circle (move-circle shape dpoint)
:group (move-group shape dpoint)))
@ -125,6 +126,7 @@
"Calculate the size of the shape."
[shape]
(case (:type shape)
:text (rect-size shape)
:rect (rect-size shape)
:icon (rect-size shape)
:line (rect-size shape)))
@ -147,6 +149,7 @@
[shape vid dpoint]
(case (:type shape)
:rect (move-rect-vertex shape vid dpoint)
:text (move-rect-vertex shape vid dpoint)
:icon (move-rect-vertex shape vid dpoint)
:circle (move-circle-vertex shape vid dpoint)))