                  ]} (om/props this)]
      (html
       [:div
-       ;; [:h2 "List A"]
-       ;; (list-view one)
-       ;; [:h2 "List B"]
-       ;; (list-view two)
        [:h2 "Table ThreeP"]
        ;; TODO transact from 'outside'
        (threep-list-view three)

  static om/IQuery
  (query
   [this]
   (let [subquery (om/get-query Person)
         qthreep (om/get-query ThreeP)
         qtvals (om/get-query TCols)
         ]
     `[{:list/one ~subquery} {:list/two ~subquery}
       {:list/three ~qthreep}
       {:list/tvals ~qtvals}
       ]))

  Object
  (render

               (map threep list)]]))))

(def threep-list-view (om/factory ThreePListView))

(defn add-person! [widget {:keys [id fname lname] :as prm}]
  (println "prm" prm)
