Pick mainWindow or a window with a hitpoint

Author: krukow

Diff for: src/cljs/calabash_script/utils.cljs

@@ -9,14 +9,17 @@
   []
   (.frontMostApp (target)))
 
-(defn window
-  []
-  (.mainWindow (app)))
-
 (defn windows
   []
   (seq (.toArray (.windows (app)))))
 
+(defn window
+  []
+  (let [main (.mainWindow (app))]
+    (if (.hitpoint main)
+      main
+      (first (filter #(.hitpoint %) (windows))))))
+
 (defn keyboard
   []
   (.keyboard (app)))