Add draw toolbox rendering on workarea.

This commit is contained in:
Andrey Antukh 2015-12-18 19:14:57 +02:00
parent 2742db8dfd
commit 5fddf7ca4d
5 changed files with 108 additions and 39 deletions

View file

@ -27,7 +27,7 @@
(reify
rs/UpdateEvent
(-apply-update [_ state]
(let [key (keyword (str (name toolname) "-enabled"))
(let [key (keyword (str (name toolname) "-toolbox-enabled"))
val (get-in state [:workspace key] false)
state (assoc-in state [:workspace key] (not val))]
(if val