    (mouse-left MouseEvent/MOUSE_CLICKED x y)])
 
 (defn left-click
-  ([container target] (.evolve container target left-click-events))
+  ([container target] (.evolve container (path target) left-click-events))
   ([container x y] (.evolve container (create-left-click-events x y))))
 
 ;;

;;

(defn wait-table-cell-id [container table-path coord]
  (wait-for-property-pred container table-path :in-use-model
                          (fn [v] (let [sc->id (:screen-coord->cell-id v)]
                                    (get sc->id coord)))))

(defn wait-table-model-coords-shown [container table-path coords]
  (wait-for-property-pred container table-path :in-use-model
                              (fn [v] (let [sc->id (:screen-coord->cell-id v)]
                                        (= (set coords) (set (map (fn [[k _cid]] k) sc->id)))))))

(defn wait-table-cell-property [container table-path coord property pred]
  (let [cid (wait-table-cell-id container table-path coord)]
    (wait-for-property-pred container (conj table-path cid) property pred)))
;; Combining test into scenarios
;;

(def standard-interstep-delay-millis 1000)

(defn- gen-wait [clause] (list 'Thread/sleep (list '* clause standard-interstep-delay-millis)))

