File tree Expand file tree Collapse file tree 2 files changed +2
-4
lines changed Expand file tree Collapse file tree 2 files changed +2
-4
lines changed Original file line number Diff line number Diff line change 114
114
(defn pointer-handler
115
115
[db e now]
116
116
(let [{:keys [pointer-offset tool dom-rect drag primary-tool drag-threshold nearest-neighbor]} db
117
- {:keys [button buttons pointer-pos]} e
117
+ {:keys [button pointer-pos]} e
118
118
adjusted-pointer-pos (frame.h/adjust-pointer-pos db pointer-pos)
119
119
db (snap.h/update-nearest-neighbors db)]
120
120
(case (:type e)
143
143
(-> (assoc :primary-tool tool)
144
144
(activate :pan ))
145
145
146
- (not= buttons :right )
146
+ (not= button :right )
147
147
(assoc :pointer-offset pointer-pos
148
148
:adjusted-pointer-offset adjusted-pointer-pos
149
149
:nearest-neighbor-offset (:point nearest-neighbor))
Original file line number Diff line number Diff line change 23
23
[:pointer-id number?]
24
24
[:primary boolean?]
25
25
[:button [:maybe PointerButton]]
26
- [:buttons [:maybe PointerButton]]
27
26
[:modifiers [:set ModifierKey]]])
28
27
29
28
(m/=> ctrl? [:-> map? boolean?])
91
90
:pointer-id (.-pointerId e)
92
91
:primary (.-isPrimary e)
93
92
:button (button->key (.-button e))
94
- :buttons (button->key (.-buttons e))
95
93
:modifiers (modifiers e)}]))
You can’t perform that action at this time.
0 commit comments