{-# LANGUAGE PatternSynonyms #-} module Language.Javascript.JSaddle.DOM.Generated.Element (getAttribute, setAttribute, removeAttribute, getAttributeNode, setAttributeNode, removeAttributeNode, getElementsByTagName, hasAttributes, getAttributeNS, setAttributeNS, removeAttributeNS, getElementsByTagNameNS, getAttributeNodeNS, setAttributeNodeNS, hasAttribute, hasAttributeNS, focus, blur, scrollIntoView, scrollIntoViewIfNeeded, scrollByLines, scrollByPages, getElementsByClassName, querySelector, querySelectorAll, matches, closest, webkitMatchesSelector, getClientRects, getBoundingClientRect, webkitRequestFullScreen, webkitRequestFullscreen, requestPointerLock, webkitGetRegionFlowRanges, pattern ALLOW_KEYBOARD_INPUT, getTagName, getAttributes, getStyle, setId, getId, getOffsetLeft, getOffsetTop, getOffsetWidth, getOffsetHeight, getClientLeft, getClientTop, getClientWidth, getClientHeight, setScrollLeft, getScrollLeft, setScrollTop, getScrollTop, getScrollWidth, getScrollHeight, getOffsetParent, setInnerHTML, getInnerHTML, setOuterHTML, getOuterHTML, setClassName, getClassName, getClassList, getDataset, getFirstElementChild, getLastElementChild, getPreviousElementSibling, getNextElementSibling, getChildElementCount, setUiactions, getUiactions, getWebkitRegionOverset, abort, blurEvent, change, click, contextMenu, dblClick, drag, dragEnd, dragEnter, dragLeave, dragOver, dragStart, drop, error, focusEvent, input, invalid, keyDown, keyPress, keyUp, load, mouseDown, mouseEnter, mouseLeave, mouseMove, mouseOut, mouseOver, mouseUp, mouseWheel, scroll, select, submit, wheel, beforeCut, cut, beforeCopy, copy, beforePaste, paste, reset, search, selectStart, touchStart, touchMove, touchEnd, touchCancel, webKitFullscreenChange, webKitFullscreenError, webKitWillRevealBottom, webKitWillRevealLeft, webKitWillRevealRight, webKitWillRevealTop, Element, castToElement, gTypeElement, IsElement, toElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) import Data.Int (Int64) import Data.Word (Word, Word64) import Language.Javascript.JSaddle.DOM.Types import Control.Applicative ((<$>)) import Control.Monad (void) import Control.Lens.Operators ((^.)) import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName) import Language.Javascript.JSaddle.DOM.Enums -- | getAttribute :: (MonadDOM m, IsElement self, ToJSString name, FromJSString result) => self -> name -> m (Maybe result) getAttribute self name = liftDOM (((toElement self) ^. jsf "getAttribute" [toJSVal name]) >>= fromMaybeJSString) -- | setAttribute :: (MonadDOM m, IsElement self, ToJSString name, ToJSString value) => self -> name -> value -> m () setAttribute self name value = liftDOM (void ((toElement self) ^. jsf "setAttribute" [toJSVal name, toJSVal value])) -- | removeAttribute :: (MonadDOM m, IsElement self, ToJSString name) => self -> name -> m () removeAttribute self name = liftDOM (void ((toElement self) ^. jsf "removeAttribute" [toJSVal name])) -- | getAttributeNode :: (MonadDOM m, IsElement self, ToJSString name) => self -> name -> m (Maybe Attr) getAttributeNode self name = liftDOM (((toElement self) ^. jsf "getAttributeNode" [toJSVal name]) >>= fromJSVal) -- | setAttributeNode :: (MonadDOM m, IsElement self) => self -> Maybe Attr -> m (Maybe Attr) setAttributeNode self newAttr = liftDOM (((toElement self) ^. jsf "setAttributeNode" [toJSVal newAttr]) >>= fromJSVal) -- | removeAttributeNode :: (MonadDOM m, IsElement self) => self -> Maybe Attr -> m (Maybe Attr) removeAttributeNode self oldAttr = liftDOM (((toElement self) ^. jsf "removeAttributeNode" [toJSVal oldAttr]) >>= fromJSVal) -- | getElementsByTagName :: (MonadDOM m, IsElement self, ToJSString name) => self -> name -> m (Maybe NodeList) getElementsByTagName self name = liftDOM (((toElement self) ^. jsf "getElementsByTagName" [toJSVal name]) >>= fromJSVal) -- | hasAttributes :: (MonadDOM m, IsElement self) => self -> m Bool hasAttributes self = liftDOM (((toElement self) ^. js "hasAttributes") >>= valToBool) -- | getAttributeNS :: (MonadDOM m, IsElement self, ToJSString namespaceURI, ToJSString localName, FromJSString result) => self -> Maybe namespaceURI -> localName -> m result getAttributeNS self namespaceURI localName = liftDOM (((toElement self) ^. jsf "getAttributeNS" [toJSVal namespaceURI, toJSVal localName]) >>= fromJSValUnchecked) -- | setAttributeNS :: (MonadDOM m, IsElement self, ToJSString namespaceURI, ToJSString qualifiedName, ToJSString value) => self -> Maybe namespaceURI -> qualifiedName -> value -> m () setAttributeNS self namespaceURI qualifiedName value = liftDOM (void ((toElement self) ^. jsf "setAttributeNS" [toJSVal namespaceURI, toJSVal qualifiedName, toJSVal value])) -- | removeAttributeNS :: (MonadDOM m, IsElement self, ToJSString namespaceURI, ToJSString localName) => self -> Maybe namespaceURI -> localName -> m () removeAttributeNS self namespaceURI localName = liftDOM (void ((toElement self) ^. jsf "removeAttributeNS" [toJSVal namespaceURI, toJSVal localName])) -- | getElementsByTagNameNS :: (MonadDOM m, IsElement self, ToJSString namespaceURI, ToJSString localName) => self -> Maybe namespaceURI -> localName -> m (Maybe NodeList) getElementsByTagNameNS self namespaceURI localName = liftDOM (((toElement self) ^. jsf "getElementsByTagNameNS" [toJSVal namespaceURI, toJSVal localName]) >>= fromJSVal) -- | getAttributeNodeNS :: (MonadDOM m, IsElement self, ToJSString namespaceURI, ToJSString localName) => self -> Maybe namespaceURI -> localName -> m (Maybe Attr) getAttributeNodeNS self namespaceURI localName = liftDOM (((toElement self) ^. jsf "getAttributeNodeNS" [toJSVal namespaceURI, toJSVal localName]) >>= fromJSVal) -- | setAttributeNodeNS :: (MonadDOM m, IsElement self) => self -> Maybe Attr -> m (Maybe Attr) setAttributeNodeNS self newAttr = liftDOM (((toElement self) ^. jsf "setAttributeNodeNS" [toJSVal newAttr]) >>= fromJSVal) -- | hasAttribute :: (MonadDOM m, IsElement self, ToJSString name) => self -> name -> m Bool hasAttribute self name = liftDOM (((toElement self) ^. jsf "hasAttribute" [toJSVal name]) >>= valToBool) -- | hasAttributeNS :: (MonadDOM m, IsElement self, ToJSString namespaceURI, ToJSString localName) => self -> Maybe namespaceURI -> localName -> m Bool hasAttributeNS self namespaceURI localName = liftDOM (((toElement self) ^. jsf "hasAttributeNS" [toJSVal namespaceURI, toJSVal localName]) >>= valToBool) -- | focus :: (MonadDOM m, IsElement self) => self -> m () focus self = liftDOM (void ((toElement self) ^. js "focus")) -- | blur :: (MonadDOM m, IsElement self) => self -> m () blur self = liftDOM (void ((toElement self) ^. js "blur")) -- | scrollIntoView :: (MonadDOM m, IsElement self) => self -> Bool -> m () scrollIntoView self alignWithTop = liftDOM (void ((toElement self) ^. jsf "scrollIntoView" [toJSVal alignWithTop])) -- | scrollIntoViewIfNeeded :: (MonadDOM m, IsElement self) => self -> Bool -> m () scrollIntoViewIfNeeded self centerIfNeeded = liftDOM (void ((toElement self) ^. jsf "scrollIntoViewIfNeeded" [toJSVal centerIfNeeded])) -- | scrollByLines :: (MonadDOM m, IsElement self) => self -> Int -> m () scrollByLines self lines = liftDOM (void ((toElement self) ^. jsf "scrollByLines" [toJSVal lines])) -- | scrollByPages :: (MonadDOM m, IsElement self) => self -> Int -> m () scrollByPages self pages = liftDOM (void ((toElement self) ^. jsf "scrollByPages" [toJSVal pages])) -- | getElementsByClassName :: (MonadDOM m, IsElement self, ToJSString name) => self -> name -> m (Maybe NodeList) getElementsByClassName self name = liftDOM (((toElement self) ^. jsf "getElementsByClassName" [toJSVal name]) >>= fromJSVal) -- | querySelector :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m (Maybe Element) querySelector self selectors = liftDOM (((toElement self) ^. jsf "querySelector" [toJSVal selectors]) >>= fromJSVal) -- | querySelectorAll :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m (Maybe NodeList) querySelectorAll self selectors = liftDOM (((toElement self) ^. jsf "querySelectorAll" [toJSVal selectors]) >>= fromJSVal) -- | matches :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m Bool matches self selectors = liftDOM (((toElement self) ^. jsf "matches" [toJSVal selectors]) >>= valToBool) -- | closest :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m (Maybe Element) closest self selectors = liftDOM (((toElement self) ^. jsf "closest" [toJSVal selectors]) >>= fromJSVal) -- | webkitMatchesSelector :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m Bool webkitMatchesSelector self selectors = liftDOM (((toElement self) ^. jsf "webkitMatchesSelector" [toJSVal selectors]) >>= valToBool) -- | getClientRects :: (MonadDOM m, IsElement self) => self -> m (Maybe ClientRectList) getClientRects self = liftDOM (((toElement self) ^. js "getClientRects") >>= fromJSVal) -- | getBoundingClientRect :: (MonadDOM m, IsElement self) => self -> m (Maybe ClientRect) getBoundingClientRect self = liftDOM (((toElement self) ^. js "getBoundingClientRect") >>= fromJSVal) -- | webkitRequestFullScreen :: (MonadDOM m, IsElement self) => self -> Word -> m () webkitRequestFullScreen self flags = liftDOM (void ((toElement self) ^. jsf "webkitRequestFullScreen" [toJSVal flags])) -- | webkitRequestFullscreen :: (MonadDOM m, IsElement self) => self -> m () webkitRequestFullscreen self = liftDOM (void ((toElement self) ^. js "webkitRequestFullscreen")) -- | requestPointerLock :: (MonadDOM m, IsElement self) => self -> m () requestPointerLock self = liftDOM (void ((toElement self) ^. js "requestPointerLock")) -- | webkitGetRegionFlowRanges :: (MonadDOM m, IsElement self) => self -> m [Maybe Range] webkitGetRegionFlowRanges self = liftDOM (((toElement self) ^. js "webkitGetRegionFlowRanges") >>= fromJSArray) pattern ALLOW_KEYBOARD_INPUT = 1 -- | getTagName :: (MonadDOM m, IsElement self, FromJSString result) => self -> m (Maybe result) getTagName self = liftDOM (((toElement self) ^. js "tagName") >>= fromMaybeJSString) -- | getAttributes :: (MonadDOM m, IsElement self) => self -> m (Maybe NamedNodeMap) getAttributes self = liftDOM (((toElement self) ^. js "attributes") >>= fromJSVal) -- | getStyle :: (MonadDOM m, IsElement self) => self -> m (Maybe CSSStyleDeclaration) getStyle self = liftDOM (((toElement self) ^. js "style") >>= fromJSVal) -- | setId :: (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m () setId self val = liftDOM ((toElement self) ^. jss "id" (toJSVal val)) -- | getId :: (MonadDOM m, IsElement self, FromJSString result) => self -> m result getId self = liftDOM (((toElement self) ^. js "id") >>= fromJSValUnchecked) -- | getOffsetLeft :: (MonadDOM m, IsElement self) => self -> m Double getOffsetLeft self = liftDOM (((toElement self) ^. js "offsetLeft") >>= valToNumber) -- | getOffsetTop :: (MonadDOM m, IsElement self) => self -> m Double getOffsetTop self = liftDOM (((toElement self) ^. js "offsetTop") >>= valToNumber) -- | getOffsetWidth :: (MonadDOM m, IsElement self) => self -> m Double getOffsetWidth self = liftDOM (((toElement self) ^. js "offsetWidth") >>= valToNumber) -- | getOffsetHeight :: (MonadDOM m, IsElement self) => self -> m Double getOffsetHeight self = liftDOM (((toElement self) ^. js "offsetHeight") >>= valToNumber) -- | getClientLeft :: (MonadDOM m, IsElement self) => self -> m Double getClientLeft self = liftDOM (((toElement self) ^. js "clientLeft") >>= valToNumber) -- | getClientTop :: (MonadDOM m, IsElement self) => self -> m Double getClientTop self = liftDOM (((toElement self) ^. js "clientTop") >>= valToNumber) -- | getClientWidth :: (MonadDOM m, IsElement self) => self -> m Double getClientWidth self = liftDOM (((toElement self) ^. js "clientWidth") >>= valToNumber) -- | getClientHeight :: (MonadDOM m, IsElement self) => self -> m Double getClientHeight self = liftDOM (((toElement self) ^. js "clientHeight") >>= valToNumber) -- | setScrollLeft :: (MonadDOM m, IsElement self) => self -> Int -> m () setScrollLeft self val = liftDOM ((toElement self) ^. jss "scrollLeft" (toJSVal val)) -- | getScrollLeft :: (MonadDOM m, IsElement self) => self -> m Int getScrollLeft self = liftDOM (round <$> (((toElement self) ^. js "scrollLeft") >>= valToNumber)) -- | setScrollTop :: (MonadDOM m, IsElement self) => self -> Int -> m () setScrollTop self val = liftDOM ((toElement self) ^. jss "scrollTop" (toJSVal val)) -- | getScrollTop :: (MonadDOM m, IsElement self) => self -> m Int getScrollTop self = liftDOM (round <$> (((toElement self) ^. js "scrollTop") >>= valToNumber)) -- | getScrollWidth :: (MonadDOM m, IsElement self) => self -> m Int getScrollWidth self = liftDOM (round <$> (((toElement self) ^. js "scrollWidth") >>= valToNumber)) -- | getScrollHeight :: (MonadDOM m, IsElement self) => self -> m Int getScrollHeight self = liftDOM (round <$> (((toElement self) ^. js "scrollHeight") >>= valToNumber)) -- | getOffsetParent :: (MonadDOM m, IsElement self) => self -> m (Maybe Element) getOffsetParent self = liftDOM (((toElement self) ^. js "offsetParent") >>= fromJSVal) -- | setInnerHTML :: (MonadDOM m, IsElement self, ToJSString val) => self -> Maybe val -> m () setInnerHTML self val = liftDOM ((toElement self) ^. jss "innerHTML" (toJSVal val)) -- | getInnerHTML :: (MonadDOM m, IsElement self, FromJSString result) => self -> m (Maybe result) getInnerHTML self = liftDOM (((toElement self) ^. js "innerHTML") >>= fromMaybeJSString) -- | setOuterHTML :: (MonadDOM m, IsElement self, ToJSString val) => self -> Maybe val -> m () setOuterHTML self val = liftDOM ((toElement self) ^. jss "outerHTML" (toJSVal val)) -- | getOuterHTML :: (MonadDOM m, IsElement self, FromJSString result) => self -> m (Maybe result) getOuterHTML self = liftDOM (((toElement self) ^. js "outerHTML") >>= fromMaybeJSString) -- | setClassName :: (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m () setClassName self val = liftDOM ((toElement self) ^. jss "className" (toJSVal val)) -- | getClassName :: (MonadDOM m, IsElement self, FromJSString result) => self -> m result getClassName self = liftDOM (((toElement self) ^. js "className") >>= fromJSValUnchecked) -- | getClassList :: (MonadDOM m, IsElement self) => self -> m (Maybe DOMTokenList) getClassList self = liftDOM (((toElement self) ^. js "classList") >>= fromJSVal) -- | getDataset :: (MonadDOM m, IsElement self) => self -> m (Maybe DOMStringMap) getDataset self = liftDOM (((toElement self) ^. js "dataset") >>= fromJSVal) -- | getFirstElementChild :: (MonadDOM m, IsElement self) => self -> m (Maybe Element) getFirstElementChild self = liftDOM (((toElement self) ^. js "firstElementChild") >>= fromJSVal) -- | getLastElementChild :: (MonadDOM m, IsElement self) => self -> m (Maybe Element) getLastElementChild self = liftDOM (((toElement self) ^. js "lastElementChild") >>= fromJSVal) -- | getPreviousElementSibling :: (MonadDOM m, IsElement self) => self -> m (Maybe Element) getPreviousElementSibling self = liftDOM (((toElement self) ^. js "previousElementSibling") >>= fromJSVal) -- | getNextElementSibling :: (MonadDOM m, IsElement self) => self -> m (Maybe Element) getNextElementSibling self = liftDOM (((toElement self) ^. js "nextElementSibling") >>= fromJSVal) -- | getChildElementCount :: (MonadDOM m, IsElement self) => self -> m Word getChildElementCount self = liftDOM (round <$> (((toElement self) ^. js "childElementCount") >>= valToNumber)) -- | setUiactions :: (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m () setUiactions self val = liftDOM ((toElement self) ^. jss "uiactions" (toJSVal val)) -- | getUiactions :: (MonadDOM m, IsElement self, FromJSString result) => self -> m result getUiactions self = liftDOM (((toElement self) ^. js "uiactions") >>= fromJSValUnchecked) -- | getWebkitRegionOverset :: (MonadDOM m, IsElement self, FromJSString result) => self -> m result getWebkitRegionOverset self = liftDOM (((toElement self) ^. js "webkitRegionOverset") >>= fromJSValUnchecked) -- | abort :: (IsElement self, IsEventTarget self) => EventName self UIEvent abort = unsafeEventName (toJSString "abort") -- | blurEvent :: (IsElement self, IsEventTarget self) => EventName self FocusEvent blurEvent = unsafeEventName (toJSString "blur") -- | change :: (IsElement self, IsEventTarget self) => EventName self Event change = unsafeEventName (toJSString "change") -- | click :: (IsElement self, IsEventTarget self) => EventName self MouseEvent click = unsafeEventName (toJSString "click") -- | contextMenu :: (IsElement self, IsEventTarget self) => EventName self MouseEvent contextMenu = unsafeEventName (toJSString "contextmenu") -- | dblClick :: (IsElement self, IsEventTarget self) => EventName self MouseEvent dblClick = unsafeEventName (toJSString "dblclick") -- | drag :: (IsElement self, IsEventTarget self) => EventName self MouseEvent drag = unsafeEventName (toJSString "drag") -- | dragEnd :: (IsElement self, IsEventTarget self) => EventName self MouseEvent dragEnd = unsafeEventName (toJSString "dragend") -- | dragEnter :: (IsElement self, IsEventTarget self) => EventName self MouseEvent dragEnter = unsafeEventName (toJSString "dragenter") -- | dragLeave :: (IsElement self, IsEventTarget self) => EventName self MouseEvent dragLeave = unsafeEventName (toJSString "dragleave") -- | dragOver :: (IsElement self, IsEventTarget self) => EventName self MouseEvent dragOver = unsafeEventName (toJSString "dragover") -- | dragStart :: (IsElement self, IsEventTarget self) => EventName self MouseEvent dragStart = unsafeEventName (toJSString "dragstart") -- | drop :: (IsElement self, IsEventTarget self) => EventName self MouseEvent drop = unsafeEventName (toJSString "drop") -- | error :: (IsElement self, IsEventTarget self) => EventName self UIEvent error = unsafeEventName (toJSString "error") -- | focusEvent :: (IsElement self, IsEventTarget self) => EventName self FocusEvent focusEvent = unsafeEventName (toJSString "focus") -- | input :: (IsElement self, IsEventTarget self) => EventName self Event input = unsafeEventName (toJSString "input") -- | invalid :: (IsElement self, IsEventTarget self) => EventName self Event invalid = unsafeEventName (toJSString "invalid") -- | keyDown :: (IsElement self, IsEventTarget self) => EventName self KeyboardEvent keyDown = unsafeEventName (toJSString "keydown") -- | keyPress :: (IsElement self, IsEventTarget self) => EventName self KeyboardEvent keyPress = unsafeEventName (toJSString "keypress") -- | keyUp :: (IsElement self, IsEventTarget self) => EventName self KeyboardEvent keyUp = unsafeEventName (toJSString "keyup") -- | load :: (IsElement self, IsEventTarget self) => EventName self UIEvent load = unsafeEventName (toJSString "load") -- | mouseDown :: (IsElement self, IsEventTarget self) => EventName self MouseEvent mouseDown = unsafeEventName (toJSString "mousedown") -- | mouseEnter :: (IsElement self, IsEventTarget self) => EventName self MouseEvent mouseEnter = unsafeEventName (toJSString "mouseenter") -- | mouseLeave :: (IsElement self, IsEventTarget self) => EventName self MouseEvent mouseLeave = unsafeEventName (toJSString "mouseleave") -- | mouseMove :: (IsElement self, IsEventTarget self) => EventName self MouseEvent mouseMove = unsafeEventName (toJSString "mousemove") -- | mouseOut :: (IsElement self, IsEventTarget self) => EventName self MouseEvent mouseOut = unsafeEventName (toJSString "mouseout") -- | mouseOver :: (IsElement self, IsEventTarget self) => EventName self MouseEvent mouseOver = unsafeEventName (toJSString "mouseover") -- | mouseUp :: (IsElement self, IsEventTarget self) => EventName self MouseEvent mouseUp = unsafeEventName (toJSString "mouseup") -- | mouseWheel :: (IsElement self, IsEventTarget self) => EventName self MouseEvent mouseWheel = unsafeEventName (toJSString "mousewheel") -- | scroll :: (IsElement self, IsEventTarget self) => EventName self UIEvent scroll = unsafeEventName (toJSString "scroll") -- | select :: (IsElement self, IsEventTarget self) => EventName self UIEvent select = unsafeEventName (toJSString "select") -- | submit :: (IsElement self, IsEventTarget self) => EventName self Event submit = unsafeEventName (toJSString "submit") -- | wheel :: (IsElement self, IsEventTarget self) => EventName self WheelEvent wheel = unsafeEventName (toJSString "wheel") -- | beforeCut :: (IsElement self, IsEventTarget self) => EventName self Event beforeCut = unsafeEventName (toJSString "beforecut") -- | cut :: (IsElement self, IsEventTarget self) => EventName self Event cut = unsafeEventName (toJSString "cut") -- | beforeCopy :: (IsElement self, IsEventTarget self) => EventName self Event beforeCopy = unsafeEventName (toJSString "beforecopy") -- | copy :: (IsElement self, IsEventTarget self) => EventName self Event copy = unsafeEventName (toJSString "copy") -- | beforePaste :: (IsElement self, IsEventTarget self) => EventName self Event beforePaste = unsafeEventName (toJSString "beforepaste") -- | paste :: (IsElement self, IsEventTarget self) => EventName self Event paste = unsafeEventName (toJSString "paste") -- | reset :: (IsElement self, IsEventTarget self) => EventName self Event reset = unsafeEventName (toJSString "reset") -- | search :: (IsElement self, IsEventTarget self) => EventName self Event search = unsafeEventName (toJSString "search") -- | selectStart :: (IsElement self, IsEventTarget self) => EventName self Event selectStart = unsafeEventName (toJSString "selectstart") -- | touchStart :: (IsElement self, IsEventTarget self) => EventName self TouchEvent touchStart = unsafeEventName (toJSString "touchstart") -- | touchMove :: (IsElement self, IsEventTarget self) => EventName self TouchEvent touchMove = unsafeEventName (toJSString "touchmove") -- | touchEnd :: (IsElement self, IsEventTarget self) => EventName self TouchEvent touchEnd = unsafeEventName (toJSString "touchend") -- | touchCancel :: (IsElement self, IsEventTarget self) => EventName self TouchEvent touchCancel = unsafeEventName (toJSString "touchcancel") -- | webKitFullscreenChange :: (IsElement self, IsEventTarget self) => EventName self Event webKitFullscreenChange = unsafeEventName (toJSString "webkitfullscreenchange") -- | webKitFullscreenError :: (IsElement self, IsEventTarget self) => EventName self Event webKitFullscreenError = unsafeEventName (toJSString "webkitfullscreenerror") -- | webKitWillRevealBottom :: (IsElement self, IsEventTarget self) => EventName self Event webKitWillRevealBottom = unsafeEventName (toJSString "webkitwillrevealbottom") -- | webKitWillRevealLeft :: (IsElement self, IsEventTarget self) => EventName self Event webKitWillRevealLeft = unsafeEventName (toJSString "webkitwillrevealleft") -- | webKitWillRevealRight :: (IsElement self, IsEventTarget self) => EventName self Event webKitWillRevealRight = unsafeEventName (toJSString "webkitwillrevealright") -- | webKitWillRevealTop :: (IsElement self, IsEventTarget self) => EventName self Event webKitWillRevealTop = unsafeEventName (toJSString "webkitwillrevealtop")