Minor fixes on options.

This commit is contained in:
Andrey Antukh 2016-01-30 19:04:48 +02:00
parent 5ce1728e5e
commit 11249245ae

View File

@ -178,7 +178,7 @@
:on-change on-opacity-change}]]]]))) :on-change on-opacity-change}]]]])))
(defmethod -render-menu :menu/rect-measures (defmethod -render-menu :menu/rect-measures
[menu own shape] [menu own shape local]
(letfn [(on-size-change [attr event] (letfn [(on-size-change [attr event]
(let [value (dom/event->value event) (let [value (dom/event->value event)
value (parse-int value 0) value (parse-int value 0)
@ -243,6 +243,7 @@
:type "number" :type "number"
:value (:rx shape "") :value (:rx shape "")
:on-change (partial on-border-change :rx)}] :on-change (partial on-border-change :rx)}]
[:div.lock-size i/lock]
[:input#width.input-text [:input#width.input-text
{:placeholder "ry" {:placeholder "ry"
:type "number" :type "number"
@ -516,7 +517,7 @@
(:icon menu)])] (:icon menu)])]
(let [menu (get +menus-by-id+ active-menu) (let [menu (get +menus-by-id+ active-menu)
menu (assoc menu :id active-menu)] menu (assoc menu :id active-menu)]
(-render-menu menu own shape))])))) (-render-menu menu own shape local))]))))
(def ^:static element-opts (def ^:static element-opts
(mx/component (mx/component