 
 ;; --- Events (implicit) (for selected)
 
-(defrecord DeselectAll []
+(deftype DeselectAll []
   ptk/UpdateEvent
   (update [_ state]
     (-> state

  [opts]
  (reify
    ptk/WatchEvent
    (watch [_ state s]
      (rx/from-coll
       (->> (get-in state [:workspace :selected])
            (map #(update-fill-attrs % opts)))))))

(defn update-selected-shapes-stroke
  "Update the fill related attributed on


;; --- Update Interaction

(deftype UpdateInteraction [shape interaction]
  udp/IPageUpdate
  ptk/UpdateEvent
  (update [_ state]
