 
 
 (defn tr-sel [app owner {:keys [app-to-tds-seq-fn
-                                clear-selections-fn]
+                                clear-selections-fn
+                                on-select-fn]
                          :or {app-to-tds-seq-fn
                               (fn [row]
                                 (map

          (go
            (while true
              (let [row (<! chan-init-row)]
                (om/update! app :id (:id row))
                (fill-app-fn row)))))

        (when chan-save

                      :style (if show?
                               #js {:display "block"
                                    :paddingLeft 0
                                    :backgroundColor "rgba(0, 0, 0, 0.8)"}
                               #js {:display "none" })
                      :className (if show? "modal in" "modal")
                      :role "dialog"
