mirror of
https://github.com/penpot/penpot.git
synced 2025-02-03 21:09:00 -05:00
Merge pull request #180 from uxbox/show-circle-diameter
🎉 Show circle diameter in options form instead of radius
This commit is contained in:
commit
5ea72630e8
2 changed files with 9 additions and 9 deletions
|
@ -1875,7 +1875,7 @@
|
|||
(defn update-circle-dimensions
|
||||
[id attr value]
|
||||
(us/verify ::us/uuid id)
|
||||
(us/verify #{::rx ::ry} attr)
|
||||
(us/verify #{:rx :ry} attr)
|
||||
(us/verify ::us/number value)
|
||||
(ptk/reify ::update-rect-dimensions
|
||||
IBatchedChange
|
||||
|
@ -1883,7 +1883,7 @@
|
|||
(update [_ state]
|
||||
(let [page-id (::page-id state)]
|
||||
(update-in state [:workspace-data page-id :objects id]
|
||||
geom/resize-rect attr value)))))
|
||||
geom/resize-circle attr value)))))
|
||||
|
||||
;; --- Shape Proportions
|
||||
|
||||
|
|
|
@ -46,7 +46,8 @@
|
|||
(fn [event attr]
|
||||
(let [value (-> (dom/get-target event)
|
||||
(dom/get-value)
|
||||
(d/parse-integer 0))]
|
||||
(d/parse-integer 0)
|
||||
(/ 2))] ; Convert back to radius before update
|
||||
(st/emit! (udw/update-circle-dimensions (:id shape) attr value))))
|
||||
|
||||
on-proportion-lock-change
|
||||
|
@ -57,10 +58,9 @@
|
|||
(fn [event attr]
|
||||
(let [value (-> (dom/get-target event)
|
||||
(dom/get-value)
|
||||
(d/parse-integer 0))
|
||||
; Convert back to absolute position before update
|
||||
abs-value (+ value (attr parent))]
|
||||
(st/emit! (udw/update-position (:id shape) {attr abs-value}))))
|
||||
(d/parse-integer 0)
|
||||
(+ (attr parent)))] ; Convert back to absolute position before update
|
||||
(st/emit! (udw/update-position (:id shape) {attr value}))))
|
||||
|
||||
on-rotation-change
|
||||
(fn [event]
|
||||
|
@ -127,14 +127,14 @@
|
|||
[:input.input-text {:type "number"
|
||||
:min "0"
|
||||
:on-change on-size-rx-change
|
||||
:value (str (-> (:rx shape)
|
||||
:value (str (-> (* 2 (:rx shape)) ; Show to user diameter and not radius
|
||||
(d/coalesce 0)
|
||||
(math/round)))}]]
|
||||
[:div.input-element.pixels
|
||||
[:input.input-text {:type "number"
|
||||
:min "0"
|
||||
:on-change on-size-ry-change
|
||||
:value (str (-> (:ry shape)
|
||||
:value (str (-> (* 2 (:ry shape))
|
||||
(d/coalesce 0)
|
||||
(math/round)))}]]])
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue