@@ -59,27 +59,21 @@ external toSyntheticEvent: synthetic<'a> => Synthetic.t = "%identity"
59
59
module Clipboard = {
60
60
type tag = JsxEvent .Clipboard .tag
61
61
type t = synthetic <tag >
62
- include MakeEventWithType ({
63
- type t = t
64
- })
62
+ include MakeEventWithType ({type t = t })
65
63
@get external clipboardData : t => {.. } = "clipboardData" /* Should return Dom.dataTransfer */
66
64
}
67
65
68
66
module Composition = {
69
67
type tag = JsxEvent .Composition .tag
70
68
type t = synthetic <tag >
71
- include MakeEventWithType ({
72
- type t = t
73
- })
69
+ include MakeEventWithType ({type t = t })
74
70
@get external data : t => string = "data"
75
71
}
76
72
77
73
module Keyboard = {
78
74
type tag = JsxEvent .Keyboard .tag
79
75
type t = synthetic <tag >
80
- include MakeEventWithType ({
81
- type t = t
82
- })
76
+ include MakeEventWithType ({type t = t })
83
77
@get external altKey : t => bool = "altKey"
84
78
@get external charCode : t => int = "charCode"
85
79
@get external code : t => string = "code"
@@ -99,27 +93,21 @@ module Keyboard = {
99
93
module Focus = {
100
94
type tag = JsxEvent .Focus .tag
101
95
type t = synthetic <tag >
102
- include MakeEventWithType ({
103
- type t = t
104
- })
96
+ include MakeEventWithType ({type t = t })
105
97
@get @return (nullable )
106
98
external relatedTarget : t => option <{.. }> = "relatedTarget" /* Should return Dom.eventTarget */
107
99
}
108
100
109
101
module Form = {
110
102
type tag = JsxEvent .Form .tag
111
103
type t = synthetic <tag >
112
- include MakeEventWithType ({
113
- type t = t
114
- })
104
+ include MakeEventWithType ({type t = t })
115
105
}
116
106
117
107
module Mouse = {
118
108
type tag = JsxEvent .Mouse .tag
119
109
type t = synthetic <tag >
120
- include MakeEventWithType ({
121
- type t = t
122
- })
110
+ include MakeEventWithType ({type t = t })
123
111
@get external altKey : t => bool = "altKey"
124
112
@get external button : t => int = "button"
125
113
@get external buttons : t => int = "buttons"
@@ -143,9 +131,7 @@ module Mouse = {
143
131
module Pointer = {
144
132
type tag = JsxEvent .Pointer .tag
145
133
type t = synthetic <tag >
146
- include MakeEventWithType ({
147
- type t = t
148
- })
134
+ include MakeEventWithType ({type t = t })
149
135
150
136
// UIEvent
151
137
@get external detail : t => int = "detail"
@@ -190,17 +176,13 @@ module Pointer = {
190
176
module Selection = {
191
177
type tag = JsxEvent .Selection .tag
192
178
type t = synthetic <tag >
193
- include MakeEventWithType ({
194
- type t = t
195
- })
179
+ include MakeEventWithType ({type t = t })
196
180
}
197
181
198
182
module Touch = {
199
183
type tag = JsxEvent .Touch .tag
200
184
type t = synthetic <tag >
201
- include MakeEventWithType ({
202
- type t = t
203
- })
185
+ include MakeEventWithType ({type t = t })
204
186
@get external altKey : t => bool = "altKey"
205
187
@get external changedTouches : t => {.. } = "changedTouches" /* Should return Dom.touchList */
206
188
@get external ctrlKey : t => bool = "ctrlKey"
@@ -215,19 +197,15 @@ module Touch = {
215
197
module UI = {
216
198
type tag = JsxEvent .UI .tag
217
199
type t = synthetic <tag >
218
- include MakeEventWithType ({
219
- type t = t
220
- })
200
+ include MakeEventWithType ({type t = t })
221
201
@get external detail : t => int = "detail"
222
202
@get external view : t => Dom .window = "view" /* Should return DOMAbstractView/WindowProxy */
223
203
}
224
204
225
205
module Wheel = {
226
206
type tag = JsxEvent .Wheel .tag
227
207
type t = synthetic <tag >
228
- include MakeEventWithType ({
229
- type t = t
230
- })
208
+ include MakeEventWithType ({type t = t })
231
209
@get external deltaMode : t => int = "deltaMode"
232
210
@get external deltaX : t => float = "deltaX"
233
211
@get external deltaY : t => float = "deltaY"
@@ -237,25 +215,19 @@ module Wheel = {
237
215
module Media = {
238
216
type tag = JsxEvent .Media .tag
239
217
type t = synthetic <tag >
240
- include MakeEventWithType ({
241
- type t = t
242
- })
218
+ include MakeEventWithType ({type t = t })
243
219
}
244
220
245
221
module Image = {
246
222
type tag = JsxEvent .Image .tag
247
223
type t = synthetic <tag >
248
- include MakeEventWithType ({
249
- type t = t
250
- })
224
+ include MakeEventWithType ({type t = t })
251
225
}
252
226
253
227
module Animation = {
254
228
type tag = JsxEvent .Animation .tag
255
229
type t = synthetic <tag >
256
- include MakeEventWithType ({
257
- type t = t
258
- })
230
+ include MakeEventWithType ({type t = t })
259
231
@get external animationName : t => string = "animationName"
260
232
@get external pseudoElement : t => string = "pseudoElement"
261
233
@get external elapsedTime : t => float = "elapsedTime"
@@ -264,9 +236,7 @@ module Animation = {
264
236
module Transition = {
265
237
type tag = JsxEvent .Transition .tag
266
238
type t = synthetic <tag >
267
- include MakeEventWithType ({
268
- type t = t
269
- })
239
+ include MakeEventWithType ({type t = t })
270
240
@get external propertyName : t => string = "propertyName"
271
241
@get external pseudoElement : t => string = "pseudoElement"
272
242
@get external elapsedTime : t => float = "elapsedTime"
0 commit comments