     (-apply-update [_ state]
       (if shape
         (assoc-in state [:workspace :drawing] shape)
-        (update-in state [:workspace] dissoc :drawing)))
-
-    IPrintWithWriter
-    (-pr-writer [mv writer _]
-      (-write writer "#<event:u.d.w/select-for-drawing>"))))
+        (update-in state [:workspace] dissoc :drawing)))))
 
 (defn select-shape
   "Mark a shape selected for drawing in the canvas."

               :drawing nil
               :selected #{}
               :page pageid}]
        (assoc state :workspace s)))

    IPrintWithWriter
    (-pr-writer [mv writer _]
      (-write writer "#<event:u.d.w/initialize>"))))

(defn move-shape
  "Mark a shape selected for drawing in the canvas."

    rs/UpdateEvent
    (-apply-update [_ state]
      (let [key (keyword (str (name toolname) "-enabled"))]
        (update-in state [:workspace key] (fnil not false))))))

(defn toggle-toolbox
  "Toggle the visibility flag of the specified toolbox."
