let
cast ev : t = cast ev
~kind:[
`
SELECTION_CLEAR
;
`
SELECTION_REQUEST
;
`
SELECTION_NOTIFY
]