 
 (defui ^:once SupportViewerRoot
   static om/IQuery
-  (query [this] [:react-key :current-position :client-time :frames])
+  (query [this] [:react-key :current-position :client-time :frames :position])
   Object
   (render [this]
-    (let [{:keys [react-key current-position client-time frames] :or {react-key "ROOT"}} (om/props this)]
-      (dom/div #js {:key react-key :className "history-controls"}
+    (let [{:keys [react-key current-position client-time frames position] :or {react-key "ROOT"}} (om/props this)]
+      (dom/div #js {:key react-key :className (str "history-controls " (name position))}
+        (dom/button #js {:onClick #(om/transact! this '[(support-viewer/toggle-position)])} (tr "<===>"))
         (dom/button #js {:onClick #(om/transact! this '[(support-viewer/step-back)])} (tr "<Back"))
         (dom/button #js {:onClick #(om/transact! this '[(support-viewer/step-forward)])} (tr "Forward>"))
         (dom/hr nil)


(defmethod m/mutate 'support-viewer/step-back [{:keys [state]} k params] {:action #(history-step state dec)})


                                    :support     (atom (core/new-untangled-client
                                                         :initial-state {:history          history
                                                                         :application      app
                                                                         :position        :controls-left
                                                                         :client-time      (js/Date.)
                                                                         :frames           (inc max-idx)
                                                                         :current-position max-idx}
