                       (let [loc (second data-set)]
                         (when (or (= loc "") (contains? @current-locations loc))
                           (let [m (apply get-summary-map data-set)]
-                            (add-browser-table-row (map #(get m %) tags))
-                            (remove-sibling-positions m)
+                            (add-data (map #(get m %) tags))
+                            ;(remove-sibling-positions m)
                             (awt-event (update-browser-status))))
                         (recur))))))
               (catch Exception e (.printStackTrace e))

            (close-window (@settings-window :frame))
            (.setVisible frame false)))))
    (persist-window-shape prefs "browser-shape" frame)
    (gen-map frame table scroll-pane settings-button search-field
             collection-menu refresh-button)))


  (doseq [pending-data-set pending-data-sets]
    (when (super-location? (first pending-data-set) (get summary-map "Path"))
      (.remove pending-data-sets pending-data-set)
      (println "removed " pending-data-set)
      )))

(def default-headings ["Path" "Time" "Frames" "Comment" "Location"])

