 
 ;; --- Update Interaction
 
-(defrecord UpdateInteraction [shape interaction]
+(deftype UpdateInteraction [shape interaction]
   udp/IPageUpdate
   ptk/UpdateEvent
   (update [_ state]

      (rx/from-coll
       (->> (get-in state [:workspace :selected])
            (map #(update-stroke-attrs % opts)))))))


;; --- Move Selected Layer


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

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