Implement pagesbar toggle.

This commit is contained in:
Andrey Antukh 2015-12-16 18:08:28 +02:00
parent 9e0edbc082
commit ede2d4becd
5 changed files with 42 additions and 12 deletions

View file

@ -124,9 +124,10 @@
(reify
rs/UpdateEvent
(-apply-update [_ state]
(assoc state :workspace {:project projectid
:page pageid
:toolboxes {}}))
(let [s {:project projectid
:page pageid
:toolboxes {}}]
(update state :workspace merge s)))
IPrintWithWriter
(-pr-writer [mv writer _]