Fix recent colors.

This commit is contained in:
Andrey Antukh 2016-02-03 18:22:05 +02:00
parent c6ee3e46f6
commit c85a25b75e

View file

@ -143,7 +143,7 @@
(rs/emit! (dw/update-fill-attrs sid value)))) (rs/emit! (dw/update-fill-attrs sid value))))
(on-color-change [event] (on-color-change [event]
(let [value (dom/event->value event)] (let [value (dom/event->value event)]
(change-fill {:fill value}))) (change-fill {:color value})))
(on-opacity-change [event] (on-opacity-change [event]
(let [value (dom/event->value event) (let [value (dom/event->value event)
value (parse-float value 1)] value (parse-float value 1)]
@ -164,7 +164,7 @@
:value (:fill shape "") :value (:fill shape "")
:on-change on-color-change}]] :on-change on-color-change}]]
(recent-colors shape #(change-fill {:fill %})) (recent-colors shape #(change-fill {:color %}))
;; SLIDEBAR FOR ROTATION AND OPACITY ;; SLIDEBAR FOR ROTATION AND OPACITY
[:span "Opacity"] [:span "Opacity"]