github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-09-06 12:09:24 +00:00
Code Issues Packages Projects Releases Wiki 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) (case (:type shape)
:icon (move-rect shape dpoint) :icon (move-rect shape dpoint)
:rect (move-rect shape dpoint) :rect (move-rect shape dpoint)
:text (move-rect shape dpoint)
:line (move-rect shape dpoint) :line (move-rect shape dpoint)
:circle (move-circle shape dpoint) :circle (move-circle shape dpoint)
:group (move-group shape dpoint))) :group (move-group shape dpoint)))
@ -125,6 +126,7 @@
"Calculate the size of the shape." "Calculate the size of the shape."
[shape] [shape]
(case (:type shape) (case (:type shape)
:text (rect-size shape)
:rect (rect-size shape) :rect (rect-size shape)
:icon (rect-size shape) :icon (rect-size shape)
:line (rect-size shape))) :line (rect-size shape)))
@ -147,6 +149,7 @@
[shape vid dpoint] [shape vid dpoint]
(case (:type shape) (case (:type shape)
:rect (move-rect-vertex shape vid dpoint) :rect (move-rect-vertex shape vid dpoint)
:text (move-rect-vertex shape vid dpoint)
:icon (move-rect-vertex shape vid dpoint) :icon (move-rect-vertex shape vid dpoint)
:circle (move-circle-vertex shape vid dpoint))) :circle (move-circle-vertex shape vid dpoint)))