         (row "Workflows ahead of yours:" queue-position)
         (row "Queue status:" (str queued " Queued; " active " Active"))])]))
 
-(defn- render-form [state props]
+(defn- render-form [state props refs]
   [:div {:style {:width 1000}}
    (when (:launching? @state)
      [comps/Blocker {:banner "Launching analysis..."}])

                                        (:expression @state))
                               :onChange #(let [text (-> % .-target .-value clojure.string/trim)]
                                            (swap! state assoc :expression text))}))
   (when-let [wf-count (:workflow-count @state)]
     (when (> wf-count (config/workflow-count-warning-threshold))
       [:div {:style {:textAlign "center"}}
        [:div {:style {:display "inline-flex" :alignItems "center" :margin "1em 0 -1em 0" :padding "0.5em"
                       :backgroundColor "white" :border style/standard-line :borderRadius 3}}
         (icons/icon {:style {:color (:exception-state style/colors) :marginRight 5 :verticalAlign "middle"}}
                     :warning-triangle)


(react/defc Form
  {:render
   (fn [{:keys [props state refs this]}]
     [comps/OKCancelForm
      {:header "Launch Analysis"
       :content (react/create-element (render-form state props refs))
       :ok-button {:text "Launch" :disabled? (:disabled? props) :onClick #(react/call :launch this)}}])
   :component-did-mount
   (fn [{:keys [state]}]
