我无法从 Domina 的 touchstart 事件中获取“touch”或“changedTouches”列表。
这是我的 :require 东西:
(ns myproj
(:require-macros [hiccups.core :as h])
(:require [domina :as dom]
[hiccups.runtime :as hiccupsrt]
[domina.events :as ev]
[cljs.reader :refer [read-string]]
[wsosc :as wo]
[clojure.browser.repl :as repl]
))
这是我的 touchstart 事件处理程序:
(defn touchstart [evt]
; store event in an atom for repl access
(swap! de (fn [x] evt))
; print something to html to show a result (no console on the phone)
(dom/set-text! (dom/by-id "result") (str "blah" evt))
; hopefully someday extract touch coordinates here.
(let [rct (.getBoundingClientRect (dom/by-id "osccanvas"))
;touchlist1 (get evt "changedTouches")
;touchlist2 (.changedTouches evt)
;touchlist3 (.-changedTouches evt)
;kies (keys evt)]
wat (:type evt) ; this works
;wat (ev/raw-event evt) ; this works
;touchlist (.-changedTouches evt)]
;touch (.item touchlist 1)]
]
(dom/set-text! (dom/by-id "result") (str "touchstart touch:" wat))))
“de”是我试图用于调试的原子。我能够从事件中获取 :type 但仅此而已。除了 ev/raw-event 之外,几乎所有其他评论的东西都不起作用。 raw-event 返回一个从 repl 中相当难以理解的对象,至少对我来说是这样。如果我交换的话! de 与 raw-event 看起来像这样:
ClojureScript:myproj>@de
#<[object Object]>
我不知道如何从中提取信息,它似乎对 (keys x) 或 (.keys x) 等内容没有反应。
同样奇怪的是,我可以在上面的函数中调用 (:type evt) ,但是如果我将 evt 分配给 de,我就不能对 repl 处的“de”原子做同样的事情,即 (:type @de )。
好吧,经过多次挫折后,我终于开始工作了。事实证明,有很多层次在起作用,而我并没有真正意识到(并且不想意识到!)。最主要的是,domina 触摸事件对象中没有触摸信息 - 即使在 domina 获取事件之前,该信息也会被删除。就像这样:
原始浏览器事件 -> google 闭包库 -> domina 库 -> 我的代码
谷歌闭包(不是 clojure,它的 javascript)库实际上删除了触摸信息,因此它在我得到的事件对象中不可用。谢谢,谷歌。然而,原始事件仍然可以访问,只是向下两层。代码如下所示:
(defn touchstart [evt]
(let [wat (ev/raw-event evt)
touches (.-changedTouches (.getBrowserEvent wat))
touch (.item touches 0)
]
(domousedown (.-clientX touch) (.-clientY touch))
))
所以我使用 Domina 的 raw-event 函数来获取事件的 google 闭包版本('wat')。但它也没有触摸信息。我必须使用 getBrowserEvent 更上一层,然后我可以调用此处记录的changedTouches 方法:
https://developer.mozilla.org/en-US/docs/DOM/TouchEvent https://developer.mozilla.org/en-US/docs/DOM/TouchEvent
最后一个难题是首先检测触摸屏是否存在,这样我就可以为此设置正确的事件函数。这个非 Clojure 黑客可以完成以下工作:
(if (js* "'ontouchstart' in window")
<set up touch events>
<set up non-touch events>)
我在这里尝试了 clojure 语法的各种排列,但似乎没有任何效果对我有用。对此持开放态度。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)