 
 
 (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

  (reify
    om/IRender
    (render [_]
      (apply
       dom/tbody nil
       (om/build-all
        tr-sel app
        {:opts
         (if (= selection-type :one)
           (assoc opts
                  :clear-selections-fn
                  (fn [_]
                    (om/transact!
                     app
                     (fn [data]
                       (vec (map #(assoc % :tr-selected false) data))))))
           opts)})))))


;; END table
