{-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE CPP #-} {-# LANGUAGE TypeSynonymInstances #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE ConstraintKinds #-} {-# LANGUAGE LambdaCase #-} module Language.Javascript.JSaddle.DOM.Types ( -- * Monad DOM, DOMContext, askDOM, runDOM, MonadDOM(..) -- * Object , maybeNullOrUndefined, maybeNullOrUndefined', maybeToNullable , propagateGError, GType(..) , GObject(..), IsGObject, toGObject, castToGObject, gTypeGObject, unsafeCastGObject, isA, objectToString , ToJSVal(..), FromJSVal(..), fromJSArray, fromJSArrayUnchecked -- * DOMString , DOMString(..), ToDOMString(..), FromDOMString(..), IsDOMString, ToJSString(..), FromJSString(..) , toMaybeJSString, fromMaybeJSString -- * Callbacks , Callback(..) , withCallback , AudioBufferCallback(..) , DatabaseCallback(..) , MediaQueryListListener(..) , MediaStreamTrackSourcesCallback(..) , NavigatorUserMediaErrorCallback(..) , NavigatorUserMediaSuccessCallback(..) , NotificationPermissionCallback(..) , PositionCallback(..) , PositionErrorCallback(..) , RequestAnimationFrameCallback(..) , RTCPeerConnectionErrorCallback(..) , RTCSessionDescriptionCallback(..) , RTCStatsCallback(..) , SQLStatementCallback(..) , SQLStatementErrorCallback(..) , SQLTransactionCallback(..) , SQLTransactionErrorCallback(..) , StorageErrorCallback(..) , StorageQuotaCallback(..) , StorageUsageCallback(..) , StringCallback(..) , VoidCallback(..) -- * Dictionaries , Dictionary(Dictionary), unDictionary, IsDictionary, toDictionary , BlobPropertyBag(BlobPropertyBag), unBlobPropertyBag, IsBlobPropertyBag, toBlobPropertyBag -- * Mutation Callback , MutationCallback(MutationCallback), unMutationCallback, IsMutationCallback, toMutationCallback -- * Promise , Promise(Promise), unPromise, IsPromise, toPromise, castToPromise, gTypePromise -- * Date , Date(Date), unDate, IsDate, toDate, castToDate, gTypeDate -- * Arrays , Array(Array), unArray, IsArray, toArray, castToArray, gTypeArray , ObjectArray(ObjectArray), unObjectArray, IsObjectArray, toObjectArray , ArrayBuffer(ArrayBuffer), unArrayBuffer, IsArrayBuffer, toArrayBuffer, castToArrayBuffer, gTypeArrayBuffer , ArrayBufferView(ArrayBufferView), unArrayBufferView, IsArrayBufferView, toArrayBufferView , Float32Array(Float32Array), unFloat32Array, IsFloat32Array, toFloat32Array, castToFloat32Array, gTypeFloat32Array , Float64Array(Float64Array), unFloat64Array, IsFloat64Array, toFloat64Array, castToFloat64Array, gTypeFloat64Array , Uint8Array(Uint8Array), unUint8Array, IsUint8Array, toUint8Array, castToUint8Array, gTypeUint8Array , Uint8ClampedArray(Uint8ClampedArray), unUint8ClampedArray, IsUint8ClampedArray, toUint8ClampedArray, castToUint8ClampedArray, gTypeUint8ClampedArray , Uint16Array(Uint16Array), unUint16Array, IsUint16Array, toUint16Array, castToUint16Array, gTypeUint16Array , Uint32Array(Uint32Array), unUint32Array, IsUint32Array, toUint32Array, castToUint32Array, gTypeUint32Array , Int8Array(Int8Array), unInt8Array, IsInt8Array, toInt8Array, castToInt8Array, gTypeInt8Array , Int16Array(Int16Array), unInt16Array, IsInt16Array, toInt16Array, castToInt16Array, gTypeInt16Array , Int32Array(Int32Array), unInt32Array, IsInt32Array, toInt32Array, castToInt32Array, gTypeInt32Array -- * Geolocation , SerializedScriptValue(SerializedScriptValue), unSerializedScriptValue, IsSerializedScriptValue, toSerializedScriptValue , PositionOptions(PositionOptions), unPositionOptions, IsPositionOptions, toPositionOptions , Acceleration(Acceleration), unAcceleration, IsAcceleration, toAcceleration , RotationRate(RotationRate), unRotationRate, IsRotationRate, toRotationRate -- * Crypto , Algorithm(Algorithm), unAlgorithm, IsAlgorithm, toAlgorithm , CryptoOperationData(CryptoOperationData), unCryptoOperationData, IsCryptoOperationData, toCryptoOperationData -- * CanvasStyle (fill & stroke style) , CanvasStyle(CanvasStyle), unCanvasStyle, IsCanvasStyle, toCanvasStyle , DOMException(DOMException), unDOMException, IsDOMException, toDOMException -- * WebGL typedefs , GLenum(..), GLboolean(..), GLbitfield(..), GLbyte(..), GLshort(..), GLint(..), GLsizei(..) , GLintptr(..), GLsizeiptr(..), GLubyte(..), GLushort(..), GLuint(..), GLfloat(..), GLclampf(..) , GLint64, GLuint64 -- * Interface types from IDL files -- AUTO GENERATION STARTS HERE , ANGLEInstancedArrays(ANGLEInstancedArrays), unANGLEInstancedArrays, castToANGLEInstancedArrays, gTypeANGLEInstancedArrays , AbstractView(AbstractView), unAbstractView, castToAbstractView, gTypeAbstractView , AbstractWorker(AbstractWorker), unAbstractWorker, castToAbstractWorker, gTypeAbstractWorker , AllAudioCapabilities(AllAudioCapabilities), unAllAudioCapabilities, castToAllAudioCapabilities, gTypeAllAudioCapabilities , AllVideoCapabilities(AllVideoCapabilities), unAllVideoCapabilities, castToAllVideoCapabilities, gTypeAllVideoCapabilities , AnalyserNode(AnalyserNode), unAnalyserNode, castToAnalyserNode, gTypeAnalyserNode , AnimationEvent(AnimationEvent), unAnimationEvent, castToAnimationEvent, gTypeAnimationEvent , ApplicationCache(ApplicationCache), unApplicationCache, castToApplicationCache, gTypeApplicationCache , Attr(Attr), unAttr, castToAttr, gTypeAttr , AudioBuffer(AudioBuffer), unAudioBuffer, castToAudioBuffer, gTypeAudioBuffer , AudioBufferSourceNode(AudioBufferSourceNode), unAudioBufferSourceNode, castToAudioBufferSourceNode, gTypeAudioBufferSourceNode , AudioContext(AudioContext), unAudioContext, IsAudioContext, toAudioContext, castToAudioContext, gTypeAudioContext , AudioDestinationNode(AudioDestinationNode), unAudioDestinationNode, castToAudioDestinationNode, gTypeAudioDestinationNode , AudioListener(AudioListener), unAudioListener, castToAudioListener, gTypeAudioListener , AudioNode(AudioNode), unAudioNode, IsAudioNode, toAudioNode, castToAudioNode, gTypeAudioNode , AudioParam(AudioParam), unAudioParam, castToAudioParam, gTypeAudioParam , AudioProcessingEvent(AudioProcessingEvent), unAudioProcessingEvent, castToAudioProcessingEvent, gTypeAudioProcessingEvent , AudioStreamTrack(AudioStreamTrack), unAudioStreamTrack, castToAudioStreamTrack, gTypeAudioStreamTrack , AudioTrack(AudioTrack), unAudioTrack, castToAudioTrack, gTypeAudioTrack , AudioTrackList(AudioTrackList), unAudioTrackList, castToAudioTrackList, gTypeAudioTrackList , AutocompleteErrorEvent(AutocompleteErrorEvent), unAutocompleteErrorEvent, castToAutocompleteErrorEvent, gTypeAutocompleteErrorEvent , BarProp(BarProp), unBarProp, castToBarProp, gTypeBarProp , BatteryManager(BatteryManager), unBatteryManager, castToBatteryManager, gTypeBatteryManager , BeforeLoadEvent(BeforeLoadEvent), unBeforeLoadEvent, castToBeforeLoadEvent, gTypeBeforeLoadEvent , BeforeUnloadEvent(BeforeUnloadEvent), unBeforeUnloadEvent, castToBeforeUnloadEvent, gTypeBeforeUnloadEvent , BiquadFilterNode(BiquadFilterNode), unBiquadFilterNode, castToBiquadFilterNode, gTypeBiquadFilterNode , Blob(Blob), unBlob, IsBlob, toBlob, castToBlob, gTypeBlob , CDATASection(CDATASection), unCDATASection, castToCDATASection, gTypeCDATASection , CSS(CSS), unCSS, castToCSS, gTypeCSS , CSSCharsetRule(CSSCharsetRule), unCSSCharsetRule, castToCSSCharsetRule, gTypeCSSCharsetRule , CSSFontFaceLoadEvent(CSSFontFaceLoadEvent), unCSSFontFaceLoadEvent, castToCSSFontFaceLoadEvent, gTypeCSSFontFaceLoadEvent , CSSFontFaceRule(CSSFontFaceRule), unCSSFontFaceRule, castToCSSFontFaceRule, gTypeCSSFontFaceRule , CSSImportRule(CSSImportRule), unCSSImportRule, castToCSSImportRule, gTypeCSSImportRule , CSSKeyframeRule(CSSKeyframeRule), unCSSKeyframeRule, castToCSSKeyframeRule, gTypeCSSKeyframeRule , CSSKeyframesRule(CSSKeyframesRule), unCSSKeyframesRule, castToCSSKeyframesRule, gTypeCSSKeyframesRule , CSSMediaRule(CSSMediaRule), unCSSMediaRule, castToCSSMediaRule, gTypeCSSMediaRule , CSSPageRule(CSSPageRule), unCSSPageRule, castToCSSPageRule, gTypeCSSPageRule , CSSPrimitiveValue(CSSPrimitiveValue), unCSSPrimitiveValue, castToCSSPrimitiveValue, gTypeCSSPrimitiveValue , CSSRule(CSSRule), unCSSRule, IsCSSRule, toCSSRule, castToCSSRule, gTypeCSSRule , CSSRuleList(CSSRuleList), unCSSRuleList, castToCSSRuleList, gTypeCSSRuleList , CSSStyleDeclaration(CSSStyleDeclaration), unCSSStyleDeclaration, castToCSSStyleDeclaration, gTypeCSSStyleDeclaration , CSSStyleRule(CSSStyleRule), unCSSStyleRule, castToCSSStyleRule, gTypeCSSStyleRule , CSSStyleSheet(CSSStyleSheet), unCSSStyleSheet, castToCSSStyleSheet, gTypeCSSStyleSheet , CSSSupportsRule(CSSSupportsRule), unCSSSupportsRule, castToCSSSupportsRule, gTypeCSSSupportsRule , CSSUnknownRule(CSSUnknownRule), unCSSUnknownRule, castToCSSUnknownRule, gTypeCSSUnknownRule , CSSValue(CSSValue), unCSSValue, IsCSSValue, toCSSValue, castToCSSValue, gTypeCSSValue , CSSValueList(CSSValueList), unCSSValueList, IsCSSValueList, toCSSValueList, castToCSSValueList, gTypeCSSValueList , CanvasGradient(CanvasGradient), unCanvasGradient, castToCanvasGradient, gTypeCanvasGradient , CanvasPattern(CanvasPattern), unCanvasPattern, castToCanvasPattern, gTypeCanvasPattern , CanvasProxy(CanvasProxy), unCanvasProxy, castToCanvasProxy, gTypeCanvasProxy , CanvasRenderingContext(CanvasRenderingContext), unCanvasRenderingContext, IsCanvasRenderingContext, toCanvasRenderingContext, castToCanvasRenderingContext, gTypeCanvasRenderingContext , CanvasRenderingContext2D(CanvasRenderingContext2D), unCanvasRenderingContext2D, castToCanvasRenderingContext2D, gTypeCanvasRenderingContext2D , CapabilityRange(CapabilityRange), unCapabilityRange, castToCapabilityRange, gTypeCapabilityRange , ChannelMergerNode(ChannelMergerNode), unChannelMergerNode, castToChannelMergerNode, gTypeChannelMergerNode , ChannelSplitterNode(ChannelSplitterNode), unChannelSplitterNode, castToChannelSplitterNode, gTypeChannelSplitterNode , CharacterData(CharacterData), unCharacterData, IsCharacterData, toCharacterData, castToCharacterData, gTypeCharacterData , ChildNode(ChildNode), unChildNode, castToChildNode, gTypeChildNode , ClientRect(ClientRect), unClientRect, castToClientRect, gTypeClientRect , ClientRectList(ClientRectList), unClientRectList, castToClientRectList, gTypeClientRectList , CloseEvent(CloseEvent), unCloseEvent, castToCloseEvent, gTypeCloseEvent , CommandLineAPIHost(CommandLineAPIHost), unCommandLineAPIHost, castToCommandLineAPIHost, gTypeCommandLineAPIHost , Comment(Comment), unComment, castToComment, gTypeComment , CompositionEvent(CompositionEvent), unCompositionEvent, castToCompositionEvent, gTypeCompositionEvent , ConvolverNode(ConvolverNode), unConvolverNode, castToConvolverNode, gTypeConvolverNode , Coordinates(Coordinates), unCoordinates, castToCoordinates, gTypeCoordinates , Counter(Counter), unCounter, castToCounter, gTypeCounter , Crypto(Crypto), unCrypto, castToCrypto, gTypeCrypto , CryptoKey(CryptoKey), unCryptoKey, castToCryptoKey, gTypeCryptoKey , CryptoKeyPair(CryptoKeyPair), unCryptoKeyPair, castToCryptoKeyPair, gTypeCryptoKeyPair , CustomEvent(CustomEvent), unCustomEvent, castToCustomEvent, gTypeCustomEvent , DOMError(DOMError), unDOMError, IsDOMError, toDOMError, castToDOMError, gTypeDOMError , DOMImplementation(DOMImplementation), unDOMImplementation, castToDOMImplementation, gTypeDOMImplementation , DOMNamedFlowCollection(DOMNamedFlowCollection), unDOMNamedFlowCollection, castToDOMNamedFlowCollection, gTypeDOMNamedFlowCollection , DOMParser(DOMParser), unDOMParser, castToDOMParser, gTypeDOMParser , DOMSettableTokenList(DOMSettableTokenList), unDOMSettableTokenList, castToDOMSettableTokenList, gTypeDOMSettableTokenList , DOMStringList(DOMStringList), unDOMStringList, castToDOMStringList, gTypeDOMStringList , DOMStringMap(DOMStringMap), unDOMStringMap, castToDOMStringMap, gTypeDOMStringMap , DOMTokenList(DOMTokenList), unDOMTokenList, IsDOMTokenList, toDOMTokenList, castToDOMTokenList, gTypeDOMTokenList , DataCue(DataCue), unDataCue, castToDataCue, gTypeDataCue , DataTransfer(DataTransfer), unDataTransfer, castToDataTransfer, gTypeDataTransfer , DataTransferItem(DataTransferItem), unDataTransferItem, castToDataTransferItem, gTypeDataTransferItem , DataTransferItemList(DataTransferItemList), unDataTransferItemList, castToDataTransferItemList, gTypeDataTransferItemList , Database(Database), unDatabase, castToDatabase, gTypeDatabase , DedicatedWorkerGlobalScope(DedicatedWorkerGlobalScope), unDedicatedWorkerGlobalScope, castToDedicatedWorkerGlobalScope, gTypeDedicatedWorkerGlobalScope , DelayNode(DelayNode), unDelayNode, castToDelayNode, gTypeDelayNode , DeviceMotionEvent(DeviceMotionEvent), unDeviceMotionEvent, castToDeviceMotionEvent, gTypeDeviceMotionEvent , DeviceOrientationEvent(DeviceOrientationEvent), unDeviceOrientationEvent, castToDeviceOrientationEvent, gTypeDeviceOrientationEvent , DeviceProximityEvent(DeviceProximityEvent), unDeviceProximityEvent, castToDeviceProximityEvent, gTypeDeviceProximityEvent , Document(Document), unDocument, IsDocument, toDocument, castToDocument, gTypeDocument , DocumentFragment(DocumentFragment), unDocumentFragment, castToDocumentFragment, gTypeDocumentFragment , DocumentType(DocumentType), unDocumentType, castToDocumentType, gTypeDocumentType , DynamicsCompressorNode(DynamicsCompressorNode), unDynamicsCompressorNode, castToDynamicsCompressorNode, gTypeDynamicsCompressorNode , EXTBlendMinMax(EXTBlendMinMax), unEXTBlendMinMax, castToEXTBlendMinMax, gTypeEXTBlendMinMax , EXTFragDepth(EXTFragDepth), unEXTFragDepth, castToEXTFragDepth, gTypeEXTFragDepth , EXTShaderTextureLOD(EXTShaderTextureLOD), unEXTShaderTextureLOD, castToEXTShaderTextureLOD, gTypeEXTShaderTextureLOD , EXTTextureFilterAnisotropic(EXTTextureFilterAnisotropic), unEXTTextureFilterAnisotropic, castToEXTTextureFilterAnisotropic, gTypeEXTTextureFilterAnisotropic , EXTsRGB(EXTsRGB), unEXTsRGB, castToEXTsRGB, gTypeEXTsRGB , Element(Element), unElement, IsElement, toElement, castToElement, gTypeElement , Entity(Entity), unEntity, castToEntity, gTypeEntity , EntityReference(EntityReference), unEntityReference, castToEntityReference, gTypeEntityReference , ErrorEvent(ErrorEvent), unErrorEvent, castToErrorEvent, gTypeErrorEvent , Event(Event), unEvent, IsEvent, toEvent, castToEvent, gTypeEvent , EventListener(EventListener), unEventListener, castToEventListener, gTypeEventListener , EventSource(EventSource), unEventSource, castToEventSource, gTypeEventSource , EventTarget(EventTarget), unEventTarget, IsEventTarget, toEventTarget, castToEventTarget, gTypeEventTarget , File(File), unFile, castToFile, gTypeFile , FileError(FileError), unFileError, castToFileError, gTypeFileError , FileList(FileList), unFileList, castToFileList, gTypeFileList , FileReader(FileReader), unFileReader, castToFileReader, gTypeFileReader , FileReaderSync(FileReaderSync), unFileReaderSync, castToFileReaderSync, gTypeFileReaderSync , FocusEvent(FocusEvent), unFocusEvent, castToFocusEvent, gTypeFocusEvent , FontLoader(FontLoader), unFontLoader, castToFontLoader, gTypeFontLoader , FormData(FormData), unFormData, castToFormData, gTypeFormData , GainNode(GainNode), unGainNode, castToGainNode, gTypeGainNode , Gamepad(Gamepad), unGamepad, castToGamepad, gTypeGamepad , GamepadButton(GamepadButton), unGamepadButton, castToGamepadButton, gTypeGamepadButton , GamepadEvent(GamepadEvent), unGamepadEvent, castToGamepadEvent, gTypeGamepadEvent , Geolocation(Geolocation), unGeolocation, castToGeolocation, gTypeGeolocation , Geoposition(Geoposition), unGeoposition, castToGeoposition, gTypeGeoposition , HTMLAllCollection(HTMLAllCollection), unHTMLAllCollection, castToHTMLAllCollection, gTypeHTMLAllCollection , HTMLAnchorElement(HTMLAnchorElement), unHTMLAnchorElement, castToHTMLAnchorElement, gTypeHTMLAnchorElement , HTMLAppletElement(HTMLAppletElement), unHTMLAppletElement, castToHTMLAppletElement, gTypeHTMLAppletElement , HTMLAreaElement(HTMLAreaElement), unHTMLAreaElement, castToHTMLAreaElement, gTypeHTMLAreaElement , HTMLAudioElement(HTMLAudioElement), unHTMLAudioElement, castToHTMLAudioElement, gTypeHTMLAudioElement , HTMLBRElement(HTMLBRElement), unHTMLBRElement, castToHTMLBRElement, gTypeHTMLBRElement , HTMLBaseElement(HTMLBaseElement), unHTMLBaseElement, castToHTMLBaseElement, gTypeHTMLBaseElement , HTMLBaseFontElement(HTMLBaseFontElement), unHTMLBaseFontElement, castToHTMLBaseFontElement, gTypeHTMLBaseFontElement , HTMLBodyElement(HTMLBodyElement), unHTMLBodyElement, castToHTMLBodyElement, gTypeHTMLBodyElement , HTMLButtonElement(HTMLButtonElement), unHTMLButtonElement, castToHTMLButtonElement, gTypeHTMLButtonElement , HTMLCanvasElement(HTMLCanvasElement), unHTMLCanvasElement, castToHTMLCanvasElement, gTypeHTMLCanvasElement , HTMLCollection(HTMLCollection), unHTMLCollection, IsHTMLCollection, toHTMLCollection, castToHTMLCollection, gTypeHTMLCollection , HTMLDListElement(HTMLDListElement), unHTMLDListElement, castToHTMLDListElement, gTypeHTMLDListElement , HTMLDataListElement(HTMLDataListElement), unHTMLDataListElement, castToHTMLDataListElement, gTypeHTMLDataListElement , HTMLDetailsElement(HTMLDetailsElement), unHTMLDetailsElement, castToHTMLDetailsElement, gTypeHTMLDetailsElement , HTMLDirectoryElement(HTMLDirectoryElement), unHTMLDirectoryElement, castToHTMLDirectoryElement, gTypeHTMLDirectoryElement , HTMLDivElement(HTMLDivElement), unHTMLDivElement, castToHTMLDivElement, gTypeHTMLDivElement , HTMLDocument(HTMLDocument), unHTMLDocument, castToHTMLDocument, gTypeHTMLDocument , HTMLElement(HTMLElement), unHTMLElement, IsHTMLElement, toHTMLElement, castToHTMLElement, gTypeHTMLElement , HTMLEmbedElement(HTMLEmbedElement), unHTMLEmbedElement, castToHTMLEmbedElement, gTypeHTMLEmbedElement , HTMLFieldSetElement(HTMLFieldSetElement), unHTMLFieldSetElement, castToHTMLFieldSetElement, gTypeHTMLFieldSetElement , HTMLFontElement(HTMLFontElement), unHTMLFontElement, castToHTMLFontElement, gTypeHTMLFontElement , HTMLFormControlsCollection(HTMLFormControlsCollection), unHTMLFormControlsCollection, castToHTMLFormControlsCollection, gTypeHTMLFormControlsCollection , HTMLFormElement(HTMLFormElement), unHTMLFormElement, castToHTMLFormElement, gTypeHTMLFormElement , HTMLFrameElement(HTMLFrameElement), unHTMLFrameElement, castToHTMLFrameElement, gTypeHTMLFrameElement , HTMLFrameSetElement(HTMLFrameSetElement), unHTMLFrameSetElement, castToHTMLFrameSetElement, gTypeHTMLFrameSetElement , HTMLHRElement(HTMLHRElement), unHTMLHRElement, castToHTMLHRElement, gTypeHTMLHRElement , HTMLHeadElement(HTMLHeadElement), unHTMLHeadElement, castToHTMLHeadElement, gTypeHTMLHeadElement , HTMLHeadingElement(HTMLHeadingElement), unHTMLHeadingElement, castToHTMLHeadingElement, gTypeHTMLHeadingElement , HTMLHtmlElement(HTMLHtmlElement), unHTMLHtmlElement, castToHTMLHtmlElement, gTypeHTMLHtmlElement , HTMLIFrameElement(HTMLIFrameElement), unHTMLIFrameElement, castToHTMLIFrameElement, gTypeHTMLIFrameElement , HTMLImageElement(HTMLImageElement), unHTMLImageElement, castToHTMLImageElement, gTypeHTMLImageElement , HTMLInputElement(HTMLInputElement), unHTMLInputElement, castToHTMLInputElement, gTypeHTMLInputElement , HTMLKeygenElement(HTMLKeygenElement), unHTMLKeygenElement, castToHTMLKeygenElement, gTypeHTMLKeygenElement , HTMLLIElement(HTMLLIElement), unHTMLLIElement, castToHTMLLIElement, gTypeHTMLLIElement , HTMLLabelElement(HTMLLabelElement), unHTMLLabelElement, castToHTMLLabelElement, gTypeHTMLLabelElement , HTMLLegendElement(HTMLLegendElement), unHTMLLegendElement, castToHTMLLegendElement, gTypeHTMLLegendElement , HTMLLinkElement(HTMLLinkElement), unHTMLLinkElement, castToHTMLLinkElement, gTypeHTMLLinkElement , HTMLMapElement(HTMLMapElement), unHTMLMapElement, castToHTMLMapElement, gTypeHTMLMapElement , HTMLMarqueeElement(HTMLMarqueeElement), unHTMLMarqueeElement, castToHTMLMarqueeElement, gTypeHTMLMarqueeElement , HTMLMediaElement(HTMLMediaElement), unHTMLMediaElement, IsHTMLMediaElement, toHTMLMediaElement, castToHTMLMediaElement, gTypeHTMLMediaElement , HTMLMenuElement(HTMLMenuElement), unHTMLMenuElement, castToHTMLMenuElement, gTypeHTMLMenuElement , HTMLMetaElement(HTMLMetaElement), unHTMLMetaElement, castToHTMLMetaElement, gTypeHTMLMetaElement , HTMLMeterElement(HTMLMeterElement), unHTMLMeterElement, castToHTMLMeterElement, gTypeHTMLMeterElement , HTMLModElement(HTMLModElement), unHTMLModElement, castToHTMLModElement, gTypeHTMLModElement , HTMLOListElement(HTMLOListElement), unHTMLOListElement, castToHTMLOListElement, gTypeHTMLOListElement , HTMLObjectElement(HTMLObjectElement), unHTMLObjectElement, castToHTMLObjectElement, gTypeHTMLObjectElement , HTMLOptGroupElement(HTMLOptGroupElement), unHTMLOptGroupElement, castToHTMLOptGroupElement, gTypeHTMLOptGroupElement , HTMLOptionElement(HTMLOptionElement), unHTMLOptionElement, castToHTMLOptionElement, gTypeHTMLOptionElement , HTMLOptionsCollection(HTMLOptionsCollection), unHTMLOptionsCollection, castToHTMLOptionsCollection, gTypeHTMLOptionsCollection , HTMLOutputElement(HTMLOutputElement), unHTMLOutputElement, castToHTMLOutputElement, gTypeHTMLOutputElement , HTMLParagraphElement(HTMLParagraphElement), unHTMLParagraphElement, castToHTMLParagraphElement, gTypeHTMLParagraphElement , HTMLParamElement(HTMLParamElement), unHTMLParamElement, castToHTMLParamElement, gTypeHTMLParamElement , HTMLPreElement(HTMLPreElement), unHTMLPreElement, castToHTMLPreElement, gTypeHTMLPreElement , HTMLProgressElement(HTMLProgressElement), unHTMLProgressElement, castToHTMLProgressElement, gTypeHTMLProgressElement , HTMLQuoteElement(HTMLQuoteElement), unHTMLQuoteElement, castToHTMLQuoteElement, gTypeHTMLQuoteElement , HTMLScriptElement(HTMLScriptElement), unHTMLScriptElement, castToHTMLScriptElement, gTypeHTMLScriptElement , HTMLSelectElement(HTMLSelectElement), unHTMLSelectElement, castToHTMLSelectElement, gTypeHTMLSelectElement , HTMLSourceElement(HTMLSourceElement), unHTMLSourceElement, castToHTMLSourceElement, gTypeHTMLSourceElement , HTMLSpanElement(HTMLSpanElement), unHTMLSpanElement, castToHTMLSpanElement, gTypeHTMLSpanElement , HTMLStyleElement(HTMLStyleElement), unHTMLStyleElement, castToHTMLStyleElement, gTypeHTMLStyleElement , HTMLTableCaptionElement(HTMLTableCaptionElement), unHTMLTableCaptionElement, castToHTMLTableCaptionElement, gTypeHTMLTableCaptionElement , HTMLTableCellElement(HTMLTableCellElement), unHTMLTableCellElement, castToHTMLTableCellElement, gTypeHTMLTableCellElement , HTMLTableColElement(HTMLTableColElement), unHTMLTableColElement, castToHTMLTableColElement, gTypeHTMLTableColElement , HTMLTableElement(HTMLTableElement), unHTMLTableElement, castToHTMLTableElement, gTypeHTMLTableElement , HTMLTableRowElement(HTMLTableRowElement), unHTMLTableRowElement, castToHTMLTableRowElement, gTypeHTMLTableRowElement , HTMLTableSectionElement(HTMLTableSectionElement), unHTMLTableSectionElement, castToHTMLTableSectionElement, gTypeHTMLTableSectionElement , HTMLTemplateElement(HTMLTemplateElement), unHTMLTemplateElement, castToHTMLTemplateElement, gTypeHTMLTemplateElement , HTMLTextAreaElement(HTMLTextAreaElement), unHTMLTextAreaElement, castToHTMLTextAreaElement, gTypeHTMLTextAreaElement , HTMLTitleElement(HTMLTitleElement), unHTMLTitleElement, castToHTMLTitleElement, gTypeHTMLTitleElement , HTMLTrackElement(HTMLTrackElement), unHTMLTrackElement, castToHTMLTrackElement, gTypeHTMLTrackElement , HTMLUListElement(HTMLUListElement), unHTMLUListElement, castToHTMLUListElement, gTypeHTMLUListElement , HTMLUnknownElement(HTMLUnknownElement), unHTMLUnknownElement, castToHTMLUnknownElement, gTypeHTMLUnknownElement , HTMLVideoElement(HTMLVideoElement), unHTMLVideoElement, castToHTMLVideoElement, gTypeHTMLVideoElement , HashChangeEvent(HashChangeEvent), unHashChangeEvent, castToHashChangeEvent, gTypeHashChangeEvent , History(History), unHistory, castToHistory, gTypeHistory , IDBAny(IDBAny), unIDBAny, castToIDBAny, gTypeIDBAny , IDBCursor(IDBCursor), unIDBCursor, IsIDBCursor, toIDBCursor, castToIDBCursor, gTypeIDBCursor , IDBCursorWithValue(IDBCursorWithValue), unIDBCursorWithValue, castToIDBCursorWithValue, gTypeIDBCursorWithValue , IDBDatabase(IDBDatabase), unIDBDatabase, castToIDBDatabase, gTypeIDBDatabase , IDBFactory(IDBFactory), unIDBFactory, castToIDBFactory, gTypeIDBFactory , IDBIndex(IDBIndex), unIDBIndex, castToIDBIndex, gTypeIDBIndex , IDBKeyRange(IDBKeyRange), unIDBKeyRange, castToIDBKeyRange, gTypeIDBKeyRange , IDBObjectStore(IDBObjectStore), unIDBObjectStore, castToIDBObjectStore, gTypeIDBObjectStore , IDBOpenDBRequest(IDBOpenDBRequest), unIDBOpenDBRequest, castToIDBOpenDBRequest, gTypeIDBOpenDBRequest , IDBRequest(IDBRequest), unIDBRequest, IsIDBRequest, toIDBRequest, castToIDBRequest, gTypeIDBRequest , IDBTransaction(IDBTransaction), unIDBTransaction, castToIDBTransaction, gTypeIDBTransaction , IDBVersionChangeEvent(IDBVersionChangeEvent), unIDBVersionChangeEvent, castToIDBVersionChangeEvent, gTypeIDBVersionChangeEvent , ImageData(ImageData), unImageData, castToImageData, gTypeImageData , InspectorFrontendHost(InspectorFrontendHost), unInspectorFrontendHost, castToInspectorFrontendHost, gTypeInspectorFrontendHost , InternalSettings(InternalSettings), unInternalSettings, castToInternalSettings, gTypeInternalSettings , Internals(Internals), unInternals, castToInternals, gTypeInternals , KeyboardEvent(KeyboardEvent), unKeyboardEvent, castToKeyboardEvent, gTypeKeyboardEvent , Location(Location), unLocation, castToLocation, gTypeLocation , MallocStatistics(MallocStatistics), unMallocStatistics, castToMallocStatistics, gTypeMallocStatistics , MediaController(MediaController), unMediaController, castToMediaController, gTypeMediaController , MediaControlsHost(MediaControlsHost), unMediaControlsHost, castToMediaControlsHost, gTypeMediaControlsHost , MediaElementAudioSourceNode(MediaElementAudioSourceNode), unMediaElementAudioSourceNode, castToMediaElementAudioSourceNode, gTypeMediaElementAudioSourceNode , MediaError(MediaError), unMediaError, castToMediaError, gTypeMediaError , MediaKeyError(MediaKeyError), unMediaKeyError, castToMediaKeyError, gTypeMediaKeyError , MediaKeyEvent(MediaKeyEvent), unMediaKeyEvent, castToMediaKeyEvent, gTypeMediaKeyEvent , MediaKeyMessageEvent(MediaKeyMessageEvent), unMediaKeyMessageEvent, castToMediaKeyMessageEvent, gTypeMediaKeyMessageEvent , MediaKeyNeededEvent(MediaKeyNeededEvent), unMediaKeyNeededEvent, castToMediaKeyNeededEvent, gTypeMediaKeyNeededEvent , MediaKeySession(MediaKeySession), unMediaKeySession, castToMediaKeySession, gTypeMediaKeySession , MediaKeys(MediaKeys), unMediaKeys, castToMediaKeys, gTypeMediaKeys , MediaList(MediaList), unMediaList, castToMediaList, gTypeMediaList , MediaQueryList(MediaQueryList), unMediaQueryList, castToMediaQueryList, gTypeMediaQueryList , MediaSource(MediaSource), unMediaSource, castToMediaSource, gTypeMediaSource , MediaSourceStates(MediaSourceStates), unMediaSourceStates, castToMediaSourceStates, gTypeMediaSourceStates , MediaStream(MediaStream), unMediaStream, castToMediaStream, gTypeMediaStream , MediaStreamAudioDestinationNode(MediaStreamAudioDestinationNode), unMediaStreamAudioDestinationNode, castToMediaStreamAudioDestinationNode, gTypeMediaStreamAudioDestinationNode , MediaStreamAudioSourceNode(MediaStreamAudioSourceNode), unMediaStreamAudioSourceNode, castToMediaStreamAudioSourceNode, gTypeMediaStreamAudioSourceNode , MediaStreamCapabilities(MediaStreamCapabilities), unMediaStreamCapabilities, IsMediaStreamCapabilities, toMediaStreamCapabilities, castToMediaStreamCapabilities, gTypeMediaStreamCapabilities , MediaStreamEvent(MediaStreamEvent), unMediaStreamEvent, castToMediaStreamEvent, gTypeMediaStreamEvent , MediaStreamTrack(MediaStreamTrack), unMediaStreamTrack, IsMediaStreamTrack, toMediaStreamTrack, castToMediaStreamTrack, gTypeMediaStreamTrack , MediaStreamTrackEvent(MediaStreamTrackEvent), unMediaStreamTrackEvent, castToMediaStreamTrackEvent, gTypeMediaStreamTrackEvent , MediaTrackConstraint(MediaTrackConstraint), unMediaTrackConstraint, castToMediaTrackConstraint, gTypeMediaTrackConstraint , MediaTrackConstraintSet(MediaTrackConstraintSet), unMediaTrackConstraintSet, castToMediaTrackConstraintSet, gTypeMediaTrackConstraintSet , MediaTrackConstraints(MediaTrackConstraints), unMediaTrackConstraints, castToMediaTrackConstraints, gTypeMediaTrackConstraints , MemoryInfo(MemoryInfo), unMemoryInfo, castToMemoryInfo, gTypeMemoryInfo , MessageChannel(MessageChannel), unMessageChannel, castToMessageChannel, gTypeMessageChannel , MessageEvent(MessageEvent), unMessageEvent, castToMessageEvent, gTypeMessageEvent , MessagePort(MessagePort), unMessagePort, castToMessagePort, gTypeMessagePort , MimeType(MimeType), unMimeType, castToMimeType, gTypeMimeType , MimeTypeArray(MimeTypeArray), unMimeTypeArray, castToMimeTypeArray, gTypeMimeTypeArray , MouseEvent(MouseEvent), unMouseEvent, IsMouseEvent, toMouseEvent, castToMouseEvent, gTypeMouseEvent , MutationEvent(MutationEvent), unMutationEvent, castToMutationEvent, gTypeMutationEvent , MutationObserver(MutationObserver), unMutationObserver, castToMutationObserver, gTypeMutationObserver , MutationRecord(MutationRecord), unMutationRecord, castToMutationRecord, gTypeMutationRecord , NamedNodeMap(NamedNodeMap), unNamedNodeMap, castToNamedNodeMap, gTypeNamedNodeMap , Navigator(Navigator), unNavigator, castToNavigator, gTypeNavigator , NavigatorUserMediaError(NavigatorUserMediaError), unNavigatorUserMediaError, castToNavigatorUserMediaError, gTypeNavigatorUserMediaError , Node(Node), unNode, IsNode, toNode, castToNode, gTypeNode , NodeFilter(NodeFilter), unNodeFilter, castToNodeFilter, gTypeNodeFilter , NodeIterator(NodeIterator), unNodeIterator, castToNodeIterator, gTypeNodeIterator , NodeList(NodeList), unNodeList, IsNodeList, toNodeList, castToNodeList, gTypeNodeList , Notification(Notification), unNotification, castToNotification, gTypeNotification , NotificationCenter(NotificationCenter), unNotificationCenter, castToNotificationCenter, gTypeNotificationCenter , OESElementIndexUint(OESElementIndexUint), unOESElementIndexUint, castToOESElementIndexUint, gTypeOESElementIndexUint , OESStandardDerivatives(OESStandardDerivatives), unOESStandardDerivatives, castToOESStandardDerivatives, gTypeOESStandardDerivatives , OESTextureFloat(OESTextureFloat), unOESTextureFloat, castToOESTextureFloat, gTypeOESTextureFloat , OESTextureFloatLinear(OESTextureFloatLinear), unOESTextureFloatLinear, castToOESTextureFloatLinear, gTypeOESTextureFloatLinear , OESTextureHalfFloat(OESTextureHalfFloat), unOESTextureHalfFloat, castToOESTextureHalfFloat, gTypeOESTextureHalfFloat , OESTextureHalfFloatLinear(OESTextureHalfFloatLinear), unOESTextureHalfFloatLinear, castToOESTextureHalfFloatLinear, gTypeOESTextureHalfFloatLinear , OESVertexArrayObject(OESVertexArrayObject), unOESVertexArrayObject, castToOESVertexArrayObject, gTypeOESVertexArrayObject , OfflineAudioCompletionEvent(OfflineAudioCompletionEvent), unOfflineAudioCompletionEvent, castToOfflineAudioCompletionEvent, gTypeOfflineAudioCompletionEvent , OfflineAudioContext(OfflineAudioContext), unOfflineAudioContext, castToOfflineAudioContext, gTypeOfflineAudioContext , OscillatorNode(OscillatorNode), unOscillatorNode, castToOscillatorNode, gTypeOscillatorNode , OverflowEvent(OverflowEvent), unOverflowEvent, castToOverflowEvent, gTypeOverflowEvent , PageTransitionEvent(PageTransitionEvent), unPageTransitionEvent, castToPageTransitionEvent, gTypePageTransitionEvent , PannerNode(PannerNode), unPannerNode, castToPannerNode, gTypePannerNode , Path2D(Path2D), unPath2D, castToPath2D, gTypePath2D , Performance(Performance), unPerformance, castToPerformance, gTypePerformance , PerformanceEntry(PerformanceEntry), unPerformanceEntry, IsPerformanceEntry, toPerformanceEntry, castToPerformanceEntry, gTypePerformanceEntry , PerformanceEntryList(PerformanceEntryList), unPerformanceEntryList, castToPerformanceEntryList, gTypePerformanceEntryList , PerformanceMark(PerformanceMark), unPerformanceMark, castToPerformanceMark, gTypePerformanceMark , PerformanceMeasure(PerformanceMeasure), unPerformanceMeasure, castToPerformanceMeasure, gTypePerformanceMeasure , PerformanceNavigation(PerformanceNavigation), unPerformanceNavigation, castToPerformanceNavigation, gTypePerformanceNavigation , PerformanceResourceTiming(PerformanceResourceTiming), unPerformanceResourceTiming, castToPerformanceResourceTiming, gTypePerformanceResourceTiming , PerformanceTiming(PerformanceTiming), unPerformanceTiming, castToPerformanceTiming, gTypePerformanceTiming , PeriodicWave(PeriodicWave), unPeriodicWave, castToPeriodicWave, gTypePeriodicWave , Plugin(Plugin), unPlugin, castToPlugin, gTypePlugin , PluginArray(PluginArray), unPluginArray, castToPluginArray, gTypePluginArray , PopStateEvent(PopStateEvent), unPopStateEvent, castToPopStateEvent, gTypePopStateEvent , PositionError(PositionError), unPositionError, castToPositionError, gTypePositionError , ProcessingInstruction(ProcessingInstruction), unProcessingInstruction, castToProcessingInstruction, gTypeProcessingInstruction , ProgressEvent(ProgressEvent), unProgressEvent, IsProgressEvent, toProgressEvent, castToProgressEvent, gTypeProgressEvent , QuickTimePluginReplacement(QuickTimePluginReplacement), unQuickTimePluginReplacement, castToQuickTimePluginReplacement, gTypeQuickTimePluginReplacement , RGBColor(RGBColor), unRGBColor, castToRGBColor, gTypeRGBColor , RTCConfiguration(RTCConfiguration), unRTCConfiguration, castToRTCConfiguration, gTypeRTCConfiguration , RTCDTMFSender(RTCDTMFSender), unRTCDTMFSender, castToRTCDTMFSender, gTypeRTCDTMFSender , RTCDTMFToneChangeEvent(RTCDTMFToneChangeEvent), unRTCDTMFToneChangeEvent, castToRTCDTMFToneChangeEvent, gTypeRTCDTMFToneChangeEvent , RTCDataChannel(RTCDataChannel), unRTCDataChannel, castToRTCDataChannel, gTypeRTCDataChannel , RTCDataChannelEvent(RTCDataChannelEvent), unRTCDataChannelEvent, castToRTCDataChannelEvent, gTypeRTCDataChannelEvent , RTCIceCandidate(RTCIceCandidate), unRTCIceCandidate, castToRTCIceCandidate, gTypeRTCIceCandidate , RTCIceCandidateEvent(RTCIceCandidateEvent), unRTCIceCandidateEvent, castToRTCIceCandidateEvent, gTypeRTCIceCandidateEvent , RTCIceServer(RTCIceServer), unRTCIceServer, castToRTCIceServer, gTypeRTCIceServer , RTCPeerConnection(RTCPeerConnection), unRTCPeerConnection, castToRTCPeerConnection, gTypeRTCPeerConnection , RTCSessionDescription(RTCSessionDescription), unRTCSessionDescription, castToRTCSessionDescription, gTypeRTCSessionDescription , RTCStatsReport(RTCStatsReport), unRTCStatsReport, castToRTCStatsReport, gTypeRTCStatsReport , RTCStatsResponse(RTCStatsResponse), unRTCStatsResponse, castToRTCStatsResponse, gTypeRTCStatsResponse , RadioNodeList(RadioNodeList), unRadioNodeList, castToRadioNodeList, gTypeRadioNodeList , Range(Range), unRange, castToRange, gTypeRange , ReadableStream(ReadableStream), unReadableStream, castToReadableStream, gTypeReadableStream , Rect(Rect), unRect, castToRect, gTypeRect , SQLError(SQLError), unSQLError, castToSQLError, gTypeSQLError , SQLResultSet(SQLResultSet), unSQLResultSet, castToSQLResultSet, gTypeSQLResultSet , SQLResultSetRowList(SQLResultSetRowList), unSQLResultSetRowList, castToSQLResultSetRowList, gTypeSQLResultSetRowList , SQLTransaction(SQLTransaction), unSQLTransaction, castToSQLTransaction, gTypeSQLTransaction , SVGAElement(SVGAElement), unSVGAElement, castToSVGAElement, gTypeSVGAElement , SVGAltGlyphDefElement(SVGAltGlyphDefElement), unSVGAltGlyphDefElement, castToSVGAltGlyphDefElement, gTypeSVGAltGlyphDefElement , SVGAltGlyphElement(SVGAltGlyphElement), unSVGAltGlyphElement, castToSVGAltGlyphElement, gTypeSVGAltGlyphElement , SVGAltGlyphItemElement(SVGAltGlyphItemElement), unSVGAltGlyphItemElement, castToSVGAltGlyphItemElement, gTypeSVGAltGlyphItemElement , SVGAngle(SVGAngle), unSVGAngle, castToSVGAngle, gTypeSVGAngle , SVGAnimateColorElement(SVGAnimateColorElement), unSVGAnimateColorElement, castToSVGAnimateColorElement, gTypeSVGAnimateColorElement , SVGAnimateElement(SVGAnimateElement), unSVGAnimateElement, castToSVGAnimateElement, gTypeSVGAnimateElement , SVGAnimateMotionElement(SVGAnimateMotionElement), unSVGAnimateMotionElement, castToSVGAnimateMotionElement, gTypeSVGAnimateMotionElement , SVGAnimateTransformElement(SVGAnimateTransformElement), unSVGAnimateTransformElement, castToSVGAnimateTransformElement, gTypeSVGAnimateTransformElement , SVGAnimatedAngle(SVGAnimatedAngle), unSVGAnimatedAngle, castToSVGAnimatedAngle, gTypeSVGAnimatedAngle , SVGAnimatedBoolean(SVGAnimatedBoolean), unSVGAnimatedBoolean, castToSVGAnimatedBoolean, gTypeSVGAnimatedBoolean , SVGAnimatedEnumeration(SVGAnimatedEnumeration), unSVGAnimatedEnumeration, castToSVGAnimatedEnumeration, gTypeSVGAnimatedEnumeration , SVGAnimatedInteger(SVGAnimatedInteger), unSVGAnimatedInteger, castToSVGAnimatedInteger, gTypeSVGAnimatedInteger , SVGAnimatedLength(SVGAnimatedLength), unSVGAnimatedLength, castToSVGAnimatedLength, gTypeSVGAnimatedLength , SVGAnimatedLengthList(SVGAnimatedLengthList), unSVGAnimatedLengthList, castToSVGAnimatedLengthList, gTypeSVGAnimatedLengthList , SVGAnimatedNumber(SVGAnimatedNumber), unSVGAnimatedNumber, castToSVGAnimatedNumber, gTypeSVGAnimatedNumber , SVGAnimatedNumberList(SVGAnimatedNumberList), unSVGAnimatedNumberList, castToSVGAnimatedNumberList, gTypeSVGAnimatedNumberList , SVGAnimatedPreserveAspectRatio(SVGAnimatedPreserveAspectRatio), unSVGAnimatedPreserveAspectRatio, castToSVGAnimatedPreserveAspectRatio, gTypeSVGAnimatedPreserveAspectRatio , SVGAnimatedRect(SVGAnimatedRect), unSVGAnimatedRect, castToSVGAnimatedRect, gTypeSVGAnimatedRect , SVGAnimatedString(SVGAnimatedString), unSVGAnimatedString, castToSVGAnimatedString, gTypeSVGAnimatedString , SVGAnimatedTransformList(SVGAnimatedTransformList), unSVGAnimatedTransformList, castToSVGAnimatedTransformList, gTypeSVGAnimatedTransformList , SVGAnimationElement(SVGAnimationElement), unSVGAnimationElement, IsSVGAnimationElement, toSVGAnimationElement, castToSVGAnimationElement, gTypeSVGAnimationElement , SVGCircleElement(SVGCircleElement), unSVGCircleElement, castToSVGCircleElement, gTypeSVGCircleElement , SVGClipPathElement(SVGClipPathElement), unSVGClipPathElement, castToSVGClipPathElement, gTypeSVGClipPathElement , SVGColor(SVGColor), unSVGColor, IsSVGColor, toSVGColor, castToSVGColor, gTypeSVGColor , SVGComponentTransferFunctionElement(SVGComponentTransferFunctionElement), unSVGComponentTransferFunctionElement, IsSVGComponentTransferFunctionElement, toSVGComponentTransferFunctionElement, castToSVGComponentTransferFunctionElement, gTypeSVGComponentTransferFunctionElement , SVGCursorElement(SVGCursorElement), unSVGCursorElement, castToSVGCursorElement, gTypeSVGCursorElement , SVGDefsElement(SVGDefsElement), unSVGDefsElement, castToSVGDefsElement, gTypeSVGDefsElement , SVGDescElement(SVGDescElement), unSVGDescElement, castToSVGDescElement, gTypeSVGDescElement , SVGDocument(SVGDocument), unSVGDocument, castToSVGDocument, gTypeSVGDocument , SVGElement(SVGElement), unSVGElement, IsSVGElement, toSVGElement, castToSVGElement, gTypeSVGElement , SVGEllipseElement(SVGEllipseElement), unSVGEllipseElement, castToSVGEllipseElement, gTypeSVGEllipseElement , SVGExternalResourcesRequired(SVGExternalResourcesRequired), unSVGExternalResourcesRequired, castToSVGExternalResourcesRequired, gTypeSVGExternalResourcesRequired , SVGFEBlendElement(SVGFEBlendElement), unSVGFEBlendElement, castToSVGFEBlendElement, gTypeSVGFEBlendElement , SVGFEColorMatrixElement(SVGFEColorMatrixElement), unSVGFEColorMatrixElement, castToSVGFEColorMatrixElement, gTypeSVGFEColorMatrixElement , SVGFEComponentTransferElement(SVGFEComponentTransferElement), unSVGFEComponentTransferElement, castToSVGFEComponentTransferElement, gTypeSVGFEComponentTransferElement , SVGFECompositeElement(SVGFECompositeElement), unSVGFECompositeElement, castToSVGFECompositeElement, gTypeSVGFECompositeElement , SVGFEConvolveMatrixElement(SVGFEConvolveMatrixElement), unSVGFEConvolveMatrixElement, castToSVGFEConvolveMatrixElement, gTypeSVGFEConvolveMatrixElement , SVGFEDiffuseLightingElement(SVGFEDiffuseLightingElement), unSVGFEDiffuseLightingElement, castToSVGFEDiffuseLightingElement, gTypeSVGFEDiffuseLightingElement , SVGFEDisplacementMapElement(SVGFEDisplacementMapElement), unSVGFEDisplacementMapElement, castToSVGFEDisplacementMapElement, gTypeSVGFEDisplacementMapElement , SVGFEDistantLightElement(SVGFEDistantLightElement), unSVGFEDistantLightElement, castToSVGFEDistantLightElement, gTypeSVGFEDistantLightElement , SVGFEDropShadowElement(SVGFEDropShadowElement), unSVGFEDropShadowElement, castToSVGFEDropShadowElement, gTypeSVGFEDropShadowElement , SVGFEFloodElement(SVGFEFloodElement), unSVGFEFloodElement, castToSVGFEFloodElement, gTypeSVGFEFloodElement , SVGFEFuncAElement(SVGFEFuncAElement), unSVGFEFuncAElement, castToSVGFEFuncAElement, gTypeSVGFEFuncAElement , SVGFEFuncBElement(SVGFEFuncBElement), unSVGFEFuncBElement, castToSVGFEFuncBElement, gTypeSVGFEFuncBElement , SVGFEFuncGElement(SVGFEFuncGElement), unSVGFEFuncGElement, castToSVGFEFuncGElement, gTypeSVGFEFuncGElement , SVGFEFuncRElement(SVGFEFuncRElement), unSVGFEFuncRElement, castToSVGFEFuncRElement, gTypeSVGFEFuncRElement , SVGFEGaussianBlurElement(SVGFEGaussianBlurElement), unSVGFEGaussianBlurElement, castToSVGFEGaussianBlurElement, gTypeSVGFEGaussianBlurElement , SVGFEImageElement(SVGFEImageElement), unSVGFEImageElement, castToSVGFEImageElement, gTypeSVGFEImageElement , SVGFEMergeElement(SVGFEMergeElement), unSVGFEMergeElement, castToSVGFEMergeElement, gTypeSVGFEMergeElement , SVGFEMergeNodeElement(SVGFEMergeNodeElement), unSVGFEMergeNodeElement, castToSVGFEMergeNodeElement, gTypeSVGFEMergeNodeElement , SVGFEMorphologyElement(SVGFEMorphologyElement), unSVGFEMorphologyElement, castToSVGFEMorphologyElement, gTypeSVGFEMorphologyElement , SVGFEOffsetElement(SVGFEOffsetElement), unSVGFEOffsetElement, castToSVGFEOffsetElement, gTypeSVGFEOffsetElement , SVGFEPointLightElement(SVGFEPointLightElement), unSVGFEPointLightElement, castToSVGFEPointLightElement, gTypeSVGFEPointLightElement , SVGFESpecularLightingElement(SVGFESpecularLightingElement), unSVGFESpecularLightingElement, castToSVGFESpecularLightingElement, gTypeSVGFESpecularLightingElement , SVGFESpotLightElement(SVGFESpotLightElement), unSVGFESpotLightElement, castToSVGFESpotLightElement, gTypeSVGFESpotLightElement , SVGFETileElement(SVGFETileElement), unSVGFETileElement, castToSVGFETileElement, gTypeSVGFETileElement , SVGFETurbulenceElement(SVGFETurbulenceElement), unSVGFETurbulenceElement, castToSVGFETurbulenceElement, gTypeSVGFETurbulenceElement , SVGFilterElement(SVGFilterElement), unSVGFilterElement, castToSVGFilterElement, gTypeSVGFilterElement , SVGFilterPrimitiveStandardAttributes(SVGFilterPrimitiveStandardAttributes), unSVGFilterPrimitiveStandardAttributes, castToSVGFilterPrimitiveStandardAttributes, gTypeSVGFilterPrimitiveStandardAttributes , SVGFitToViewBox(SVGFitToViewBox), unSVGFitToViewBox, castToSVGFitToViewBox, gTypeSVGFitToViewBox , SVGFontElement(SVGFontElement), unSVGFontElement, castToSVGFontElement, gTypeSVGFontElement , SVGFontFaceElement(SVGFontFaceElement), unSVGFontFaceElement, castToSVGFontFaceElement, gTypeSVGFontFaceElement , SVGFontFaceFormatElement(SVGFontFaceFormatElement), unSVGFontFaceFormatElement, castToSVGFontFaceFormatElement, gTypeSVGFontFaceFormatElement , SVGFontFaceNameElement(SVGFontFaceNameElement), unSVGFontFaceNameElement, castToSVGFontFaceNameElement, gTypeSVGFontFaceNameElement , SVGFontFaceSrcElement(SVGFontFaceSrcElement), unSVGFontFaceSrcElement, castToSVGFontFaceSrcElement, gTypeSVGFontFaceSrcElement , SVGFontFaceUriElement(SVGFontFaceUriElement), unSVGFontFaceUriElement, castToSVGFontFaceUriElement, gTypeSVGFontFaceUriElement , SVGForeignObjectElement(SVGForeignObjectElement), unSVGForeignObjectElement, castToSVGForeignObjectElement, gTypeSVGForeignObjectElement , SVGGElement(SVGGElement), unSVGGElement, castToSVGGElement, gTypeSVGGElement , SVGGlyphElement(SVGGlyphElement), unSVGGlyphElement, castToSVGGlyphElement, gTypeSVGGlyphElement , SVGGlyphRefElement(SVGGlyphRefElement), unSVGGlyphRefElement, castToSVGGlyphRefElement, gTypeSVGGlyphRefElement , SVGGradientElement(SVGGradientElement), unSVGGradientElement, IsSVGGradientElement, toSVGGradientElement, castToSVGGradientElement, gTypeSVGGradientElement , SVGGraphicsElement(SVGGraphicsElement), unSVGGraphicsElement, IsSVGGraphicsElement, toSVGGraphicsElement, castToSVGGraphicsElement, gTypeSVGGraphicsElement , SVGHKernElement(SVGHKernElement), unSVGHKernElement, castToSVGHKernElement, gTypeSVGHKernElement , SVGImageElement(SVGImageElement), unSVGImageElement, castToSVGImageElement, gTypeSVGImageElement , SVGLength(SVGLength), unSVGLength, castToSVGLength, gTypeSVGLength , SVGLengthList(SVGLengthList), unSVGLengthList, castToSVGLengthList, gTypeSVGLengthList , SVGLineElement(SVGLineElement), unSVGLineElement, castToSVGLineElement, gTypeSVGLineElement , SVGLinearGradientElement(SVGLinearGradientElement), unSVGLinearGradientElement, castToSVGLinearGradientElement, gTypeSVGLinearGradientElement , SVGMPathElement(SVGMPathElement), unSVGMPathElement, castToSVGMPathElement, gTypeSVGMPathElement , SVGMarkerElement(SVGMarkerElement), unSVGMarkerElement, castToSVGMarkerElement, gTypeSVGMarkerElement , SVGMaskElement(SVGMaskElement), unSVGMaskElement, castToSVGMaskElement, gTypeSVGMaskElement , SVGMatrix(SVGMatrix), unSVGMatrix, castToSVGMatrix, gTypeSVGMatrix , SVGMetadataElement(SVGMetadataElement), unSVGMetadataElement, castToSVGMetadataElement, gTypeSVGMetadataElement , SVGMissingGlyphElement(SVGMissingGlyphElement), unSVGMissingGlyphElement, castToSVGMissingGlyphElement, gTypeSVGMissingGlyphElement , SVGNumber(SVGNumber), unSVGNumber, castToSVGNumber, gTypeSVGNumber , SVGNumberList(SVGNumberList), unSVGNumberList, castToSVGNumberList, gTypeSVGNumberList , SVGPaint(SVGPaint), unSVGPaint, castToSVGPaint, gTypeSVGPaint , SVGPathElement(SVGPathElement), unSVGPathElement, castToSVGPathElement, gTypeSVGPathElement , SVGPathSeg(SVGPathSeg), unSVGPathSeg, IsSVGPathSeg, toSVGPathSeg, castToSVGPathSeg, gTypeSVGPathSeg , SVGPathSegArcAbs(SVGPathSegArcAbs), unSVGPathSegArcAbs, castToSVGPathSegArcAbs, gTypeSVGPathSegArcAbs , SVGPathSegArcRel(SVGPathSegArcRel), unSVGPathSegArcRel, castToSVGPathSegArcRel, gTypeSVGPathSegArcRel , SVGPathSegClosePath(SVGPathSegClosePath), unSVGPathSegClosePath, castToSVGPathSegClosePath, gTypeSVGPathSegClosePath , SVGPathSegCurvetoCubicAbs(SVGPathSegCurvetoCubicAbs), unSVGPathSegCurvetoCubicAbs, castToSVGPathSegCurvetoCubicAbs, gTypeSVGPathSegCurvetoCubicAbs , SVGPathSegCurvetoCubicRel(SVGPathSegCurvetoCubicRel), unSVGPathSegCurvetoCubicRel, castToSVGPathSegCurvetoCubicRel, gTypeSVGPathSegCurvetoCubicRel , SVGPathSegCurvetoCubicSmoothAbs(SVGPathSegCurvetoCubicSmoothAbs), unSVGPathSegCurvetoCubicSmoothAbs, castToSVGPathSegCurvetoCubicSmoothAbs, gTypeSVGPathSegCurvetoCubicSmoothAbs , SVGPathSegCurvetoCubicSmoothRel(SVGPathSegCurvetoCubicSmoothRel), unSVGPathSegCurvetoCubicSmoothRel, castToSVGPathSegCurvetoCubicSmoothRel, gTypeSVGPathSegCurvetoCubicSmoothRel , SVGPathSegCurvetoQuadraticAbs(SVGPathSegCurvetoQuadraticAbs), unSVGPathSegCurvetoQuadraticAbs, castToSVGPathSegCurvetoQuadraticAbs, gTypeSVGPathSegCurvetoQuadraticAbs , SVGPathSegCurvetoQuadraticRel(SVGPathSegCurvetoQuadraticRel), unSVGPathSegCurvetoQuadraticRel, castToSVGPathSegCurvetoQuadraticRel, gTypeSVGPathSegCurvetoQuadraticRel , SVGPathSegCurvetoQuadraticSmoothAbs(SVGPathSegCurvetoQuadraticSmoothAbs), unSVGPathSegCurvetoQuadraticSmoothAbs, castToSVGPathSegCurvetoQuadraticSmoothAbs, gTypeSVGPathSegCurvetoQuadraticSmoothAbs , SVGPathSegCurvetoQuadraticSmoothRel(SVGPathSegCurvetoQuadraticSmoothRel), unSVGPathSegCurvetoQuadraticSmoothRel, castToSVGPathSegCurvetoQuadraticSmoothRel, gTypeSVGPathSegCurvetoQuadraticSmoothRel , SVGPathSegLinetoAbs(SVGPathSegLinetoAbs), unSVGPathSegLinetoAbs, castToSVGPathSegLinetoAbs, gTypeSVGPathSegLinetoAbs , SVGPathSegLinetoHorizontalAbs(SVGPathSegLinetoHorizontalAbs), unSVGPathSegLinetoHorizontalAbs, castToSVGPathSegLinetoHorizontalAbs, gTypeSVGPathSegLinetoHorizontalAbs , SVGPathSegLinetoHorizontalRel(SVGPathSegLinetoHorizontalRel), unSVGPathSegLinetoHorizontalRel, castToSVGPathSegLinetoHorizontalRel, gTypeSVGPathSegLinetoHorizontalRel , SVGPathSegLinetoRel(SVGPathSegLinetoRel), unSVGPathSegLinetoRel, castToSVGPathSegLinetoRel, gTypeSVGPathSegLinetoRel , SVGPathSegLinetoVerticalAbs(SVGPathSegLinetoVerticalAbs), unSVGPathSegLinetoVerticalAbs, castToSVGPathSegLinetoVerticalAbs, gTypeSVGPathSegLinetoVerticalAbs , SVGPathSegLinetoVerticalRel(SVGPathSegLinetoVerticalRel), unSVGPathSegLinetoVerticalRel, castToSVGPathSegLinetoVerticalRel, gTypeSVGPathSegLinetoVerticalRel , SVGPathSegList(SVGPathSegList), unSVGPathSegList, castToSVGPathSegList, gTypeSVGPathSegList , SVGPathSegMovetoAbs(SVGPathSegMovetoAbs), unSVGPathSegMovetoAbs, castToSVGPathSegMovetoAbs, gTypeSVGPathSegMovetoAbs , SVGPathSegMovetoRel(SVGPathSegMovetoRel), unSVGPathSegMovetoRel, castToSVGPathSegMovetoRel, gTypeSVGPathSegMovetoRel , SVGPatternElement(SVGPatternElement), unSVGPatternElement, castToSVGPatternElement, gTypeSVGPatternElement , SVGPoint(SVGPoint), unSVGPoint, castToSVGPoint, gTypeSVGPoint , SVGPointList(SVGPointList), unSVGPointList, castToSVGPointList, gTypeSVGPointList , SVGPolygonElement(SVGPolygonElement), unSVGPolygonElement, castToSVGPolygonElement, gTypeSVGPolygonElement , SVGPolylineElement(SVGPolylineElement), unSVGPolylineElement, castToSVGPolylineElement, gTypeSVGPolylineElement , SVGPreserveAspectRatio(SVGPreserveAspectRatio), unSVGPreserveAspectRatio, castToSVGPreserveAspectRatio, gTypeSVGPreserveAspectRatio , SVGRadialGradientElement(SVGRadialGradientElement), unSVGRadialGradientElement, castToSVGRadialGradientElement, gTypeSVGRadialGradientElement , SVGRect(SVGRect), unSVGRect, castToSVGRect, gTypeSVGRect , SVGRectElement(SVGRectElement), unSVGRectElement, castToSVGRectElement, gTypeSVGRectElement , SVGRenderingIntent(SVGRenderingIntent), unSVGRenderingIntent, castToSVGRenderingIntent, gTypeSVGRenderingIntent , SVGSVGElement(SVGSVGElement), unSVGSVGElement, castToSVGSVGElement, gTypeSVGSVGElement , SVGScriptElement(SVGScriptElement), unSVGScriptElement, castToSVGScriptElement, gTypeSVGScriptElement , SVGSetElement(SVGSetElement), unSVGSetElement, castToSVGSetElement, gTypeSVGSetElement , SVGStopElement(SVGStopElement), unSVGStopElement, castToSVGStopElement, gTypeSVGStopElement , SVGStringList(SVGStringList), unSVGStringList, castToSVGStringList, gTypeSVGStringList , SVGStyleElement(SVGStyleElement), unSVGStyleElement, castToSVGStyleElement, gTypeSVGStyleElement , SVGSwitchElement(SVGSwitchElement), unSVGSwitchElement, castToSVGSwitchElement, gTypeSVGSwitchElement , SVGSymbolElement(SVGSymbolElement), unSVGSymbolElement, castToSVGSymbolElement, gTypeSVGSymbolElement , SVGTRefElement(SVGTRefElement), unSVGTRefElement, castToSVGTRefElement, gTypeSVGTRefElement , SVGTSpanElement(SVGTSpanElement), unSVGTSpanElement, castToSVGTSpanElement, gTypeSVGTSpanElement , SVGTests(SVGTests), unSVGTests, castToSVGTests, gTypeSVGTests , SVGTextContentElement(SVGTextContentElement), unSVGTextContentElement, IsSVGTextContentElement, toSVGTextContentElement, castToSVGTextContentElement, gTypeSVGTextContentElement , SVGTextElement(SVGTextElement), unSVGTextElement, castToSVGTextElement, gTypeSVGTextElement , SVGTextPathElement(SVGTextPathElement), unSVGTextPathElement, castToSVGTextPathElement, gTypeSVGTextPathElement , SVGTextPositioningElement(SVGTextPositioningElement), unSVGTextPositioningElement, IsSVGTextPositioningElement, toSVGTextPositioningElement, castToSVGTextPositioningElement, gTypeSVGTextPositioningElement , SVGTitleElement(SVGTitleElement), unSVGTitleElement, castToSVGTitleElement, gTypeSVGTitleElement , SVGTransform(SVGTransform), unSVGTransform, castToSVGTransform, gTypeSVGTransform , SVGTransformList(SVGTransformList), unSVGTransformList, castToSVGTransformList, gTypeSVGTransformList , SVGURIReference(SVGURIReference), unSVGURIReference, castToSVGURIReference, gTypeSVGURIReference , SVGUnitTypes(SVGUnitTypes), unSVGUnitTypes, castToSVGUnitTypes, gTypeSVGUnitTypes , SVGUseElement(SVGUseElement), unSVGUseElement, castToSVGUseElement, gTypeSVGUseElement , SVGVKernElement(SVGVKernElement), unSVGVKernElement, castToSVGVKernElement, gTypeSVGVKernElement , SVGViewElement(SVGViewElement), unSVGViewElement, castToSVGViewElement, gTypeSVGViewElement , SVGViewSpec(SVGViewSpec), unSVGViewSpec, castToSVGViewSpec, gTypeSVGViewSpec , SVGZoomAndPan(SVGZoomAndPan), unSVGZoomAndPan, castToSVGZoomAndPan, gTypeSVGZoomAndPan , SVGZoomEvent(SVGZoomEvent), unSVGZoomEvent, castToSVGZoomEvent, gTypeSVGZoomEvent , Screen(Screen), unScreen, castToScreen, gTypeScreen , ScriptProcessorNode(ScriptProcessorNode), unScriptProcessorNode, castToScriptProcessorNode, gTypeScriptProcessorNode , ScriptProfile(ScriptProfile), unScriptProfile, castToScriptProfile, gTypeScriptProfile , ScriptProfileNode(ScriptProfileNode), unScriptProfileNode, castToScriptProfileNode, gTypeScriptProfileNode , SecurityPolicy(SecurityPolicy), unSecurityPolicy, castToSecurityPolicy, gTypeSecurityPolicy , SecurityPolicyViolationEvent(SecurityPolicyViolationEvent), unSecurityPolicyViolationEvent, castToSecurityPolicyViolationEvent, gTypeSecurityPolicyViolationEvent , Selection(Selection), unSelection, castToSelection, gTypeSelection , SourceBuffer(SourceBuffer), unSourceBuffer, castToSourceBuffer, gTypeSourceBuffer , SourceBufferList(SourceBufferList), unSourceBufferList, castToSourceBufferList, gTypeSourceBufferList , SourceInfo(SourceInfo), unSourceInfo, castToSourceInfo, gTypeSourceInfo , SpeechSynthesis(SpeechSynthesis), unSpeechSynthesis, castToSpeechSynthesis, gTypeSpeechSynthesis , SpeechSynthesisEvent(SpeechSynthesisEvent), unSpeechSynthesisEvent, castToSpeechSynthesisEvent, gTypeSpeechSynthesisEvent , SpeechSynthesisUtterance(SpeechSynthesisUtterance), unSpeechSynthesisUtterance, castToSpeechSynthesisUtterance, gTypeSpeechSynthesisUtterance , SpeechSynthesisVoice(SpeechSynthesisVoice), unSpeechSynthesisVoice, castToSpeechSynthesisVoice, gTypeSpeechSynthesisVoice , Storage(Storage), unStorage, castToStorage, gTypeStorage , StorageEvent(StorageEvent), unStorageEvent, castToStorageEvent, gTypeStorageEvent , StorageInfo(StorageInfo), unStorageInfo, castToStorageInfo, gTypeStorageInfo , StorageQuota(StorageQuota), unStorageQuota, castToStorageQuota, gTypeStorageQuota , StyleMedia(StyleMedia), unStyleMedia, castToStyleMedia, gTypeStyleMedia , StyleSheet(StyleSheet), unStyleSheet, IsStyleSheet, toStyleSheet, castToStyleSheet, gTypeStyleSheet , StyleSheetList(StyleSheetList), unStyleSheetList, castToStyleSheetList, gTypeStyleSheetList , SubtleCrypto(SubtleCrypto), unSubtleCrypto, castToSubtleCrypto, gTypeSubtleCrypto , Text(Text), unText, IsText, toText, castToText, gTypeText , TextEvent(TextEvent), unTextEvent, castToTextEvent, gTypeTextEvent , TextMetrics(TextMetrics), unTextMetrics, castToTextMetrics, gTypeTextMetrics , TextTrack(TextTrack), unTextTrack, castToTextTrack, gTypeTextTrack , TextTrackCue(TextTrackCue), unTextTrackCue, IsTextTrackCue, toTextTrackCue, castToTextTrackCue, gTypeTextTrackCue , TextTrackCueList(TextTrackCueList), unTextTrackCueList, castToTextTrackCueList, gTypeTextTrackCueList , TextTrackList(TextTrackList), unTextTrackList, castToTextTrackList, gTypeTextTrackList , TimeRanges(TimeRanges), unTimeRanges, castToTimeRanges, gTypeTimeRanges , Touch(Touch), unTouch, castToTouch, gTypeTouch , TouchEvent(TouchEvent), unTouchEvent, castToTouchEvent, gTypeTouchEvent , TouchList(TouchList), unTouchList, castToTouchList, gTypeTouchList , TrackEvent(TrackEvent), unTrackEvent, castToTrackEvent, gTypeTrackEvent , TransitionEvent(TransitionEvent), unTransitionEvent, castToTransitionEvent, gTypeTransitionEvent , TreeWalker(TreeWalker), unTreeWalker, castToTreeWalker, gTypeTreeWalker , TypeConversions(TypeConversions), unTypeConversions, castToTypeConversions, gTypeTypeConversions , UIEvent(UIEvent), unUIEvent, IsUIEvent, toUIEvent, castToUIEvent, gTypeUIEvent , UIRequestEvent(UIRequestEvent), unUIRequestEvent, castToUIRequestEvent, gTypeUIRequestEvent , URL(URL), unURL, castToURL, gTypeURL , URLUtils(URLUtils), unURLUtils, castToURLUtils, gTypeURLUtils , UserMessageHandler(UserMessageHandler), unUserMessageHandler, castToUserMessageHandler, gTypeUserMessageHandler , UserMessageHandlersNamespace(UserMessageHandlersNamespace), unUserMessageHandlersNamespace, castToUserMessageHandlersNamespace, gTypeUserMessageHandlersNamespace , VTTCue(VTTCue), unVTTCue, castToVTTCue, gTypeVTTCue , VTTRegion(VTTRegion), unVTTRegion, castToVTTRegion, gTypeVTTRegion , VTTRegionList(VTTRegionList), unVTTRegionList, castToVTTRegionList, gTypeVTTRegionList , ValidityState(ValidityState), unValidityState, castToValidityState, gTypeValidityState , VideoPlaybackQuality(VideoPlaybackQuality), unVideoPlaybackQuality, castToVideoPlaybackQuality, gTypeVideoPlaybackQuality , VideoStreamTrack(VideoStreamTrack), unVideoStreamTrack, castToVideoStreamTrack, gTypeVideoStreamTrack , VideoTrack(VideoTrack), unVideoTrack, castToVideoTrack, gTypeVideoTrack , VideoTrackList(VideoTrackList), unVideoTrackList, castToVideoTrackList, gTypeVideoTrackList , WaveShaperNode(WaveShaperNode), unWaveShaperNode, castToWaveShaperNode, gTypeWaveShaperNode , WebGL2RenderingContext(WebGL2RenderingContext), unWebGL2RenderingContext, castToWebGL2RenderingContext, gTypeWebGL2RenderingContext , WebGLActiveInfo(WebGLActiveInfo), unWebGLActiveInfo, castToWebGLActiveInfo, gTypeWebGLActiveInfo , WebGLBuffer(WebGLBuffer), unWebGLBuffer, castToWebGLBuffer, gTypeWebGLBuffer , WebGLCompressedTextureATC(WebGLCompressedTextureATC), unWebGLCompressedTextureATC, castToWebGLCompressedTextureATC, gTypeWebGLCompressedTextureATC , WebGLCompressedTexturePVRTC(WebGLCompressedTexturePVRTC), unWebGLCompressedTexturePVRTC, castToWebGLCompressedTexturePVRTC, gTypeWebGLCompressedTexturePVRTC , WebGLCompressedTextureS3TC(WebGLCompressedTextureS3TC), unWebGLCompressedTextureS3TC, castToWebGLCompressedTextureS3TC, gTypeWebGLCompressedTextureS3TC , WebGLContextAttributes(WebGLContextAttributes), unWebGLContextAttributes, castToWebGLContextAttributes, gTypeWebGLContextAttributes , WebGLContextEvent(WebGLContextEvent), unWebGLContextEvent, castToWebGLContextEvent, gTypeWebGLContextEvent , WebGLDebugRendererInfo(WebGLDebugRendererInfo), unWebGLDebugRendererInfo, castToWebGLDebugRendererInfo, gTypeWebGLDebugRendererInfo , WebGLDebugShaders(WebGLDebugShaders), unWebGLDebugShaders, castToWebGLDebugShaders, gTypeWebGLDebugShaders , WebGLDepthTexture(WebGLDepthTexture), unWebGLDepthTexture, castToWebGLDepthTexture, gTypeWebGLDepthTexture , WebGLDrawBuffers(WebGLDrawBuffers), unWebGLDrawBuffers, castToWebGLDrawBuffers, gTypeWebGLDrawBuffers , WebGLFramebuffer(WebGLFramebuffer), unWebGLFramebuffer, castToWebGLFramebuffer, gTypeWebGLFramebuffer , WebGLLoseContext(WebGLLoseContext), unWebGLLoseContext, castToWebGLLoseContext, gTypeWebGLLoseContext , WebGLProgram(WebGLProgram), unWebGLProgram, castToWebGLProgram, gTypeWebGLProgram , WebGLQuery(WebGLQuery), unWebGLQuery, castToWebGLQuery, gTypeWebGLQuery , WebGLRenderbuffer(WebGLRenderbuffer), unWebGLRenderbuffer, castToWebGLRenderbuffer, gTypeWebGLRenderbuffer , WebGLRenderingContext(WebGLRenderingContext), unWebGLRenderingContext, castToWebGLRenderingContext, gTypeWebGLRenderingContext , WebGLRenderingContextBase(WebGLRenderingContextBase), unWebGLRenderingContextBase, IsWebGLRenderingContextBase, toWebGLRenderingContextBase, castToWebGLRenderingContextBase, gTypeWebGLRenderingContextBase , WebGLSampler(WebGLSampler), unWebGLSampler, castToWebGLSampler, gTypeWebGLSampler , WebGLShader(WebGLShader), unWebGLShader, castToWebGLShader, gTypeWebGLShader , WebGLShaderPrecisionFormat(WebGLShaderPrecisionFormat), unWebGLShaderPrecisionFormat, castToWebGLShaderPrecisionFormat, gTypeWebGLShaderPrecisionFormat , WebGLSync(WebGLSync), unWebGLSync, castToWebGLSync, gTypeWebGLSync , WebGLTexture(WebGLTexture), unWebGLTexture, castToWebGLTexture, gTypeWebGLTexture , WebGLTransformFeedback(WebGLTransformFeedback), unWebGLTransformFeedback, castToWebGLTransformFeedback, gTypeWebGLTransformFeedback , WebGLUniformLocation(WebGLUniformLocation), unWebGLUniformLocation, castToWebGLUniformLocation, gTypeWebGLUniformLocation , WebGLVertexArrayObject(WebGLVertexArrayObject), unWebGLVertexArrayObject, castToWebGLVertexArrayObject, gTypeWebGLVertexArrayObject , WebGLVertexArrayObjectOES(WebGLVertexArrayObjectOES), unWebGLVertexArrayObjectOES, castToWebGLVertexArrayObjectOES, gTypeWebGLVertexArrayObjectOES , WebKitAnimationEvent(WebKitAnimationEvent), unWebKitAnimationEvent, castToWebKitAnimationEvent, gTypeWebKitAnimationEvent , WebKitCSSFilterValue(WebKitCSSFilterValue), unWebKitCSSFilterValue, castToWebKitCSSFilterValue, gTypeWebKitCSSFilterValue , WebKitCSSMatrix(WebKitCSSMatrix), unWebKitCSSMatrix, castToWebKitCSSMatrix, gTypeWebKitCSSMatrix , WebKitCSSRegionRule(WebKitCSSRegionRule), unWebKitCSSRegionRule, castToWebKitCSSRegionRule, gTypeWebKitCSSRegionRule , WebKitCSSTransformValue(WebKitCSSTransformValue), unWebKitCSSTransformValue, castToWebKitCSSTransformValue, gTypeWebKitCSSTransformValue , WebKitCSSViewportRule(WebKitCSSViewportRule), unWebKitCSSViewportRule, castToWebKitCSSViewportRule, gTypeWebKitCSSViewportRule , WebKitNamedFlow(WebKitNamedFlow), unWebKitNamedFlow, castToWebKitNamedFlow, gTypeWebKitNamedFlow , WebKitNamespace(WebKitNamespace), unWebKitNamespace, castToWebKitNamespace, gTypeWebKitNamespace , WebKitPlaybackTargetAvailabilityEvent(WebKitPlaybackTargetAvailabilityEvent), unWebKitPlaybackTargetAvailabilityEvent, castToWebKitPlaybackTargetAvailabilityEvent, gTypeWebKitPlaybackTargetAvailabilityEvent , WebKitPoint(WebKitPoint), unWebKitPoint, castToWebKitPoint, gTypeWebKitPoint , WebKitTransitionEvent(WebKitTransitionEvent), unWebKitTransitionEvent, castToWebKitTransitionEvent, gTypeWebKitTransitionEvent , WebSocket(WebSocket), unWebSocket, castToWebSocket, gTypeWebSocket , WheelEvent(WheelEvent), unWheelEvent, castToWheelEvent, gTypeWheelEvent , Window(Window), unWindow, castToWindow, gTypeWindow , WindowBase64(WindowBase64), unWindowBase64, castToWindowBase64, gTypeWindowBase64 , WindowTimers(WindowTimers), unWindowTimers, castToWindowTimers, gTypeWindowTimers , Worker(Worker), unWorker, castToWorker, gTypeWorker , WorkerGlobalScope(WorkerGlobalScope), unWorkerGlobalScope, IsWorkerGlobalScope, toWorkerGlobalScope, castToWorkerGlobalScope, gTypeWorkerGlobalScope , WorkerLocation(WorkerLocation), unWorkerLocation, castToWorkerLocation, gTypeWorkerLocation , WorkerNavigator(WorkerNavigator), unWorkerNavigator, castToWorkerNavigator, gTypeWorkerNavigator , XMLHttpRequest(XMLHttpRequest), unXMLHttpRequest, castToXMLHttpRequest, gTypeXMLHttpRequest , XMLHttpRequestProgressEvent(XMLHttpRequestProgressEvent), unXMLHttpRequestProgressEvent, castToXMLHttpRequestProgressEvent, gTypeXMLHttpRequestProgressEvent , XMLHttpRequestUpload(XMLHttpRequestUpload), unXMLHttpRequestUpload, castToXMLHttpRequestUpload, gTypeXMLHttpRequestUpload , XMLSerializer(XMLSerializer), unXMLSerializer, castToXMLSerializer, gTypeXMLSerializer , XPathEvaluator(XPathEvaluator), unXPathEvaluator, castToXPathEvaluator, gTypeXPathEvaluator , XPathExpression(XPathExpression), unXPathExpression, castToXPathExpression, gTypeXPathExpression , XPathNSResolver(XPathNSResolver), unXPathNSResolver, castToXPathNSResolver, gTypeXPathNSResolver , XPathResult(XPathResult), unXPathResult, castToXPathResult, gTypeXPathResult , XSLTProcessor(XSLTProcessor), unXSLTProcessor, castToXSLTProcessor, gTypeXSLTProcessor -- AUTO GENERATION ENDS HERE ) where import Prelude () import Prelude.Compat hiding((!!)) import qualified Data.Text as T (unpack, Text) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int8, Int16, Int32, Int64) import Data.Word (Word8, Word16, Word32, Word64) import Language.Javascript.JSaddle (Object(..), valToBool, valMakeNull, valToNumber, (!!), js, JSVal, JSString, JSM, maybeNullOrUndefined, maybeNullOrUndefined', valToStr, jsg, ToJSString(..), strToText, MakeObject(..), Nullable(..), Function(..), freeFunction, instanceOf, JSContextRef) import Foreign.Ptr (nullPtr) import Control.Lens.Operators ((^.)) import Data.Maybe (catMaybes) import Language.Javascript.JSaddle.Classes (ToJSVal(..)) import Control.Monad ((>=>)) import Data.Coerce (coerce, Coercible) import Control.Monad.Trans.Reader (ReaderT(..), ask) import Control.Exception (bracket) type DOM = JSM type DOMContext = JSContextRef askDOM :: MonadDOM m => m DOMContext askDOM = liftDOM ask runDOM :: DOM a -> DOMContext -> IO a runDOM = runReaderT class (Applicative m, MonadIO m) => MonadDOM m where liftDOM :: JSM a -> m a {-# MINIMAL liftDOM #-} instance MonadDOM JSM where liftDOM = id {-# INLINE liftDOM #-} #ifdef ghcjs_HOST_OS postGUIAsync :: IO () -> IO () postGUIAsync = id postGUISync :: IO a -> IO a postGUISync = id #endif propagateGError :: a -> a propagateGError = id newtype GType = GType Object typeInstanceIsA :: ToJSVal value => value -> GType -> JSM Bool typeInstanceIsA o (GType t) = o `instanceOf` t -- The usage of foreignPtrToPtr should be safe as the evaluation will only be -- forced if the object is used afterwards -- castTo :: (IsGObject obj, IsGObject obj') => JSM GType -> String -> obj -> JSM obj' castTo gtype objTypeName obj = do gtype' <- gtype let gobj@(GObject objRef) = toGObject obj typeInstanceIsA objRef gtype' >>= \case True -> return $ unsafeCastGObject gobj False -> error $ "Cannot cast object to " ++ objTypeName -- | Determine if this is an instance of a particular type -- isA :: IsGObject o => o -> GType -> JSM Bool isA obj = typeInstanceIsA (unGObject $ toGObject obj) newtype GObject = GObject { unGObject :: JSVal } class (ToJSVal o, FromJSVal o) => IsGObject o where -- | Safe upcast. toGObject :: o -> GObject -- | Unchecked downcast. unsafeCastGObject :: GObject -> o class PToJSVal o where pToJSVal :: o -> JSVal class PFromJSVal o where pFromJSVal :: JSVal -> o --class ToJSVal o where -- toJSVal :: o -> JSM JSVal class FromJSVal o where fromJSVal :: JSVal -> JSM (Maybe o) fromJSVal = maybeNullOrUndefined' fromJSValUnchecked fromJSValUnchecked :: JSVal -> JSM o fromJSValUnchecked v = fromJSVal v >>= \case Nothing -> error "fromJSValUnchecked" Just r -> return r fromJSArray :: FromJSVal o => JSVal -> JSM [Maybe o] fromJSArray a = do l <- a ^. js "length" >>= valToNumber mapM (\i -> a !! i >>= fromJSVal) [0..round l - 1] fromJSArrayUnchecked :: FromJSVal o => JSVal -> JSM [o] fromJSArrayUnchecked a = do l <- a ^. js "length" >>= valToNumber mapM (\i -> a !! i >>= fromJSValUnchecked) [0..round l - 1] -- newtype Nullable a = Nullable JSVal nullableToMaybe :: FromJSVal a => JSVal -> JSM (Maybe a) nullableToMaybe = fromJSVal {-# INLINE nullableToMaybe #-} -- maybeToNullable :: ToJSVal a => Maybe a -> JSM JSVal maybeToNullable Nothing = valMakeNull maybeToNullable (Just a) = toJSVal a {-# INLINE maybeToNullable #-} instance PToJSVal GObject where pToJSVal = unGObject {-# INLINE pToJSVal #-} instance PFromJSVal GObject where pFromJSVal = GObject {-# INLINE pFromJSVal #-} instance ToJSVal GObject where toJSVal = return . unGObject {-# INLINE toJSVal #-} instance FromJSVal GObject where fromJSVal val = fmap GObject <$> maybeNullOrUndefined val {-# INLINE fromJSVal #-} --instance IsGObject o => PToJSVal o where -- pToJSVal = unGObject . toGObject -- {-# INLINE pToJSVal #-} -- --instance IsGObject o => PFromJSVal o where -- pFromJSVal = unsafeCastGObject . GObject . castRef -- {-# INLINE pFromJSVal #-} -- --instance IsGObject o => ToJSVal o where -- toJSVal = return . unGObject . toGObject -- {-# INLINE toJSVal #-} -- --instance IsGObject o => FromJSVal o where -- fromJSVal = return . fmap (unsafeCastGObject . GObject . castRef) . maybeJSNullOrUndefined -- {-# INLINE fromJSVal #-} instance IsGObject GObject where toGObject = id {-# INLINE toGObject #-} unsafeCastGObject = id {-# INLINE unsafeCastGObject #-} castToGObject :: IsGObject obj => obj -> JSM obj castToGObject = return #ifdef ghcjs_HOST_OS foreign import javascript unsafe "object" gTypeGObject :: GType #else gTypeGObject :: GType gTypeGObject = error "gTypeGObject: only available in JavaScript" #endif objectToString :: (IsGObject self, FromJSString result) => self -> JSM result objectToString self = fromJSValUnchecked (unGObject $ toGObject self) -- | Fastest string type to use when you just -- want to take a string from the DOM then -- give it back as is. type DOMString = JSString class FromJSVal s => FromJSString s where fromJSString :: JSString -> JSM s fromJSStringArray :: FromJSString s => JSVal -> JSM [s] fromJSStringArray a = do l <- a ^. js "length" >>= valToNumber mapM (\i -> a !! i >>= valToStr >>= fromJSString) [0..round l - 1] --fromJSString :: FromJSString a => JSString -> a --fromJSString a = pFromJSVal . pToJSVal --{-# INLINE fromJSString #-} toMaybeJSString :: ToJSString a => Maybe a -> JSM JSVal toMaybeJSString Nothing = valMakeNull toMaybeJSString (Just a) = toJSVal (toJSString a) {-# INLINE toMaybeJSString #-} fromMaybeJSString :: FromJSString a => JSVal -> JSM (Maybe a) fromMaybeJSString = maybeNullOrUndefined' (valToStr >=> fromJSString) {-# INLINE fromMaybeJSString #-} instance FromJSVal JSVal where fromJSValUnchecked = return instance FromJSVal Double where fromJSValUnchecked = valToNumber instance FromJSVal Float where fromJSValUnchecked v = realToFrac <$> valToNumber v instance FromJSVal Int where fromJSValUnchecked v = round <$> valToNumber v instance FromJSVal Int32 where fromJSValUnchecked v = round <$> valToNumber v instance FromJSVal Int64 where fromJSValUnchecked v = round <$> valToNumber v instance FromJSVal Word where fromJSValUnchecked v = round <$> valToNumber v instance FromJSVal Word32 where fromJSValUnchecked v = round <$> valToNumber v instance FromJSVal Word64 where fromJSValUnchecked v = round <$> valToNumber v instance FromJSVal Bool where fromJSValUnchecked = valToBool instance FromJSVal T.Text where fromJSValUnchecked v = valToStr v >>= strToText instance FromJSString T.Text where fromJSString = strToText instance FromJSVal String where fromJSValUnchecked v = T.unpack <$> (valToStr v >>= strToText) instance FromJSString String where fromJSString v = T.unpack <$> strToText v instance FromJSVal JSString where fromJSValUnchecked = valToStr instance FromJSString JSString where fromJSString = return type ToDOMString s = ToJSString s type FromDOMString s = FromJSString s type IsDOMString s = (ToDOMString s, FromDOMString s) -- Callbacks newtype Callback a = Callback Function withCallback :: (MonadDOM m, Coercible c Function) => JSM c -> (c -> JSM a) -> m a withCallback aquire f = do jsCtx <- liftDOM ask liftIO $ bracket (runReaderT aquire jsCtx) (freeFunction . coerce) (\t -> runReaderT (f t) jsCtx) newtype AudioBufferCallback = AudioBufferCallback (Callback (JSVal -> IO ())) instance ToJSVal AudioBufferCallback where toJSVal (AudioBufferCallback (Callback r)) = toJSVal r newtype DatabaseCallback = DatabaseCallback (Callback (JSVal -> IO ())) instance ToJSVal DatabaseCallback where toJSVal (DatabaseCallback (Callback r)) = toJSVal r newtype MediaQueryListListener = MediaQueryListListener (Callback (JSVal -> IO ())) instance ToJSVal MediaQueryListListener where toJSVal (MediaQueryListListener (Callback r)) = toJSVal r newtype MediaStreamTrackSourcesCallback = MediaStreamTrackSourcesCallback (Callback (JSVal -> IO ())) instance ToJSVal MediaStreamTrackSourcesCallback where toJSVal (MediaStreamTrackSourcesCallback (Callback r)) = toJSVal r newtype NavigatorUserMediaErrorCallback = NavigatorUserMediaErrorCallback (Callback (JSVal -> IO ())) instance ToJSVal NavigatorUserMediaErrorCallback where toJSVal (NavigatorUserMediaErrorCallback (Callback r)) = toJSVal r newtype NavigatorUserMediaSuccessCallback = NavigatorUserMediaSuccessCallback (Callback (JSVal -> IO ())) instance ToJSVal NavigatorUserMediaSuccessCallback where toJSVal (NavigatorUserMediaSuccessCallback (Callback r)) = toJSVal r newtype NotificationPermissionCallback permissions = NotificationPermissionCallback (Callback (JSVal -> IO ())) instance ToJSVal (NotificationPermissionCallback permissions) where toJSVal (NotificationPermissionCallback (Callback r)) = toJSVal r newtype PositionCallback = PositionCallback (Callback (JSVal -> IO ())) instance ToJSVal PositionCallback where toJSVal (PositionCallback (Callback r)) = toJSVal r newtype PositionErrorCallback = PositionErrorCallback (Callback (JSVal -> IO ())) instance ToJSVal PositionErrorCallback where toJSVal (PositionErrorCallback (Callback r)) = toJSVal r newtype RequestAnimationFrameCallback = RequestAnimationFrameCallback (Callback (JSVal -> IO ())) instance ToJSVal RequestAnimationFrameCallback where toJSVal (RequestAnimationFrameCallback (Callback r)) = toJSVal r newtype RTCPeerConnectionErrorCallback = RTCPeerConnectionErrorCallback (Callback (JSVal -> IO ())) instance ToJSVal RTCPeerConnectionErrorCallback where toJSVal (RTCPeerConnectionErrorCallback (Callback r)) = toJSVal r newtype RTCSessionDescriptionCallback = RTCSessionDescriptionCallback (Callback (JSVal -> IO ())) instance ToJSVal RTCSessionDescriptionCallback where toJSVal (RTCSessionDescriptionCallback (Callback r)) = toJSVal r newtype RTCStatsCallback = RTCStatsCallback (Callback (JSVal -> IO ())) instance ToJSVal RTCStatsCallback where toJSVal (RTCStatsCallback (Callback r)) = toJSVal r newtype SQLStatementCallback = SQLStatementCallback (Callback (JSVal -> JSVal -> IO ())) instance ToJSVal SQLStatementCallback where toJSVal (SQLStatementCallback (Callback r)) = toJSVal r newtype SQLStatementErrorCallback = SQLStatementErrorCallback (Callback (JSVal -> JSVal -> IO ())) instance ToJSVal SQLStatementErrorCallback where toJSVal (SQLStatementErrorCallback (Callback r)) = toJSVal r newtype SQLTransactionCallback = SQLTransactionCallback (Callback (JSVal -> IO ())) instance ToJSVal SQLTransactionCallback where toJSVal (SQLTransactionCallback (Callback r)) = toJSVal r newtype SQLTransactionErrorCallback = SQLTransactionErrorCallback (Callback (JSVal -> IO ())) instance ToJSVal SQLTransactionErrorCallback where toJSVal (SQLTransactionErrorCallback (Callback r)) = toJSVal r newtype StorageErrorCallback = StorageErrorCallback (Callback (JSVal -> IO ())) instance ToJSVal StorageErrorCallback where toJSVal (StorageErrorCallback (Callback r)) = toJSVal r newtype StorageQuotaCallback = StorageQuotaCallback (Callback (JSVal -> IO ())) instance ToJSVal StorageQuotaCallback where toJSVal (StorageQuotaCallback (Callback r)) = toJSVal r newtype StorageUsageCallback = StorageUsageCallback (Callback (JSVal -> JSVal -> IO ())) instance ToJSVal StorageUsageCallback where toJSVal (StorageUsageCallback (Callback r)) = toJSVal r newtype StringCallback s = StringCallback (Callback (JSVal -> IO ())) instance ToJSVal (StringCallback s) where toJSVal (StringCallback (Callback r)) = toJSVal r newtype VoidCallback = VoidCallback (Callback (IO ())) instance ToJSVal VoidCallback where toJSVal (VoidCallback (Callback r)) = toJSVal r -- Custom types #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype SerializedScriptValue = SerializedScriptValue { unSerializedScriptValue :: JSVal } instance PToJSVal SerializedScriptValue where pToJSVal = unSerializedScriptValue {-# INLINE pToJSVal #-} instance PFromJSVal SerializedScriptValue where pFromJSVal = SerializedScriptValue {-# INLINE pFromJSVal #-} instance ToJSVal SerializedScriptValue where toJSVal = return . unSerializedScriptValue {-# INLINE toJSVal #-} instance FromJSVal SerializedScriptValue where fromJSVal v = fmap SerializedScriptValue <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsSerializedScriptValue o toSerializedScriptValue :: IsSerializedScriptValue o => o -> SerializedScriptValue toSerializedScriptValue = unsafeCastGObject . toGObject instance IsSerializedScriptValue SerializedScriptValue instance IsGObject SerializedScriptValue where toGObject = GObject . unSerializedScriptValue unsafeCastGObject = SerializedScriptValue . unGObject -- TODO add more IsSerializedScriptValue instances #else -- TODO work out how we can support SerializedScriptValue in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype PositionOptions = PositionOptions { unPositionOptions :: JSVal } instance PToJSVal PositionOptions where pToJSVal = unPositionOptions {-# INLINE pToJSVal #-} instance PFromJSVal PositionOptions where pFromJSVal = PositionOptions {-# INLINE pFromJSVal #-} instance ToJSVal PositionOptions where toJSVal = return . unPositionOptions {-# INLINE toJSVal #-} instance FromJSVal PositionOptions where fromJSVal v = fmap PositionOptions <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsPositionOptions o toPositionOptions :: IsPositionOptions o => o -> PositionOptions toPositionOptions = unsafeCastGObject . toGObject instance IsPositionOptions PositionOptions instance IsGObject PositionOptions where toGObject = GObject . unPositionOptions unsafeCastGObject = PositionOptions . unGObject -- TODO add more IsPositionOptions instances #else -- TODO work out how we can support PositionOptions in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Dictionary = Dictionary { unDictionary :: JSVal } instance PToJSVal Dictionary where pToJSVal = unDictionary {-# INLINE pToJSVal #-} instance PFromJSVal Dictionary where pFromJSVal = Dictionary {-# INLINE pFromJSVal #-} instance ToJSVal Dictionary where toJSVal = return . unDictionary {-# INLINE toJSVal #-} instance FromJSVal Dictionary where fromJSVal v = fmap Dictionary <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsDictionary o toDictionary :: IsDictionary o => o -> Dictionary toDictionary = unsafeCastGObject . toGObject instance IsDictionary Dictionary instance IsGObject Dictionary where toGObject = GObject . unDictionary unsafeCastGObject = Dictionary . unGObject -- TODO add more IsDictionary instances #else -- TODO work out how we can support Dictionary in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype BlobPropertyBag = BlobPropertyBag { unBlobPropertyBag :: JSVal } instance PToJSVal BlobPropertyBag where pToJSVal = unBlobPropertyBag {-# INLINE pToJSVal #-} instance PFromJSVal BlobPropertyBag where pFromJSVal = BlobPropertyBag {-# INLINE pFromJSVal #-} instance ToJSVal BlobPropertyBag where toJSVal = return . unBlobPropertyBag {-# INLINE toJSVal #-} instance FromJSVal BlobPropertyBag where fromJSVal v = fmap BlobPropertyBag <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsBlobPropertyBag o toBlobPropertyBag :: IsBlobPropertyBag o => o -> BlobPropertyBag toBlobPropertyBag = unsafeCastGObject . toGObject instance IsBlobPropertyBag BlobPropertyBag instance IsGObject BlobPropertyBag where toGObject = GObject . unBlobPropertyBag unsafeCastGObject = BlobPropertyBag . unGObject -- TODO add more IsBlobPropertyBag instances #else -- TODO work out how we can support BlobPropertyBag in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype MutationCallback = MutationCallback { unMutationCallback :: JSVal } instance PToJSVal MutationCallback where pToJSVal = unMutationCallback {-# INLINE pToJSVal #-} instance PFromJSVal MutationCallback where pFromJSVal = MutationCallback {-# INLINE pFromJSVal #-} instance ToJSVal MutationCallback where toJSVal = return . unMutationCallback {-# INLINE toJSVal #-} instance FromJSVal MutationCallback where fromJSVal v = fmap MutationCallback <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsMutationCallback o toMutationCallback :: IsMutationCallback o => o -> MutationCallback toMutationCallback = unsafeCastGObject . toGObject instance IsMutationCallback MutationCallback instance IsGObject MutationCallback where toGObject = GObject . unMutationCallback unsafeCastGObject = MutationCallback . unGObject -- TODO add more IsMutationCallback instances #else -- TODO work out how we can support MutationCallback in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Promise = Promise { unPromise :: JSVal } instance PToJSVal Promise where pToJSVal = unPromise {-# INLINE pToJSVal #-} instance PFromJSVal Promise where pFromJSVal = Promise {-# INLINE pFromJSVal #-} instance ToJSVal Promise where toJSVal = return . unPromise {-# INLINE toJSVal #-} instance FromJSVal Promise where fromJSVal v = fmap Promise <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsPromise o toPromise :: IsPromise o => o -> Promise toPromise = unsafeCastGObject . toGObject instance IsPromise Promise instance IsGObject Promise where toGObject = GObject . unPromise unsafeCastGObject = Promise . unGObject -- TODO add more IsPromise instances castToPromise :: IsGObject obj => obj -> JSM Promise castToPromise = castTo gTypePromise "Promise" gTypePromise :: JSM GType gTypePromise = GType . Object <$> jsg "Promise" #else -- TODO work out how we can support Promise in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype ArrayBuffer = ArrayBuffer { unArrayBuffer :: JSVal } instance PToJSVal ArrayBuffer where pToJSVal = unArrayBuffer {-# INLINE pToJSVal #-} instance PFromJSVal ArrayBuffer where pFromJSVal = ArrayBuffer {-# INLINE pFromJSVal #-} instance ToJSVal ArrayBuffer where toJSVal = return . unArrayBuffer {-# INLINE toJSVal #-} instance FromJSVal ArrayBuffer where fromJSVal v = fmap ArrayBuffer <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsArrayBuffer o toArrayBuffer :: IsArrayBuffer o => o -> ArrayBuffer toArrayBuffer = unsafeCastGObject . toGObject instance IsArrayBuffer ArrayBuffer instance IsGObject ArrayBuffer where toGObject = GObject . unArrayBuffer unsafeCastGObject = ArrayBuffer . unGObject castToArrayBuffer :: IsGObject obj => obj -> JSM ArrayBuffer castToArrayBuffer = castTo gTypeArrayBuffer "ArrayBuffer" gTypeArrayBuffer :: JSM GType gTypeArrayBuffer = GType . Object <$> jsg "ArrayBuffer" #else -- TODO work out how we can support ArrayBuffer in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Float32Array = Float32Array { unFloat32Array :: JSVal } instance PToJSVal Float32Array where pToJSVal = unFloat32Array {-# INLINE pToJSVal #-} instance PFromJSVal Float32Array where pFromJSVal = Float32Array {-# INLINE pFromJSVal #-} instance ToJSVal Float32Array where toJSVal = return . unFloat32Array {-# INLINE toJSVal #-} instance FromJSVal Float32Array where fromJSVal v = fmap Float32Array <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsFloat32Array o toFloat32Array :: IsFloat32Array o => o -> Float32Array toFloat32Array = unsafeCastGObject . toGObject instance IsFloat32Array Float32Array instance IsGObject Float32Array where toGObject = GObject . unFloat32Array unsafeCastGObject = Float32Array . unGObject -- TODO add more IsFloat32Array instances castToFloat32Array :: IsGObject obj => obj -> JSM Float32Array castToFloat32Array = castTo gTypeFloat32Array "Float32Array" gTypeFloat32Array :: JSM GType gTypeFloat32Array = GType . Object <$> jsg "Float32Array" #else -- TODO work out how we can support Float32Array in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Float64Array = Float64Array { unFloat64Array :: JSVal } instance PToJSVal Float64Array where pToJSVal = unFloat64Array {-# INLINE pToJSVal #-} instance PFromJSVal Float64Array where pFromJSVal = Float64Array {-# INLINE pFromJSVal #-} instance ToJSVal Float64Array where toJSVal = return . unFloat64Array {-# INLINE toJSVal #-} instance FromJSVal Float64Array where fromJSVal v = fmap Float64Array <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsFloat64Array o toFloat64Array :: IsFloat64Array o => o -> Float64Array toFloat64Array = unsafeCastGObject . toGObject instance IsFloat64Array Float64Array instance IsGObject Float64Array where toGObject = GObject . unFloat64Array unsafeCastGObject = Float64Array . unGObject -- TODO add more IsFloat64Array instances castToFloat64Array :: IsGObject obj => obj -> JSM Float64Array castToFloat64Array = castTo gTypeFloat64Array "Float64Array" gTypeFloat64Array :: JSM GType gTypeFloat64Array = GType . Object <$> jsg "Float64Array" #else -- TODO work out how we can support Float64Array in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Uint8Array = Uint8Array { unUint8Array :: JSVal } instance PToJSVal Uint8Array where pToJSVal = unUint8Array {-# INLINE pToJSVal #-} instance PFromJSVal Uint8Array where pFromJSVal = Uint8Array {-# INLINE pFromJSVal #-} instance ToJSVal Uint8Array where toJSVal = return . unUint8Array {-# INLINE toJSVal #-} instance FromJSVal Uint8Array where fromJSVal v = fmap Uint8Array <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsUint8Array o toUint8Array :: IsUint8Array o => o -> Uint8Array toUint8Array = unsafeCastGObject . toGObject instance IsUint8Array Uint8Array instance IsGObject Uint8Array where toGObject = GObject . unUint8Array unsafeCastGObject = Uint8Array . unGObject -- TODO add more IsUint8Array instances castToUint8Array :: IsGObject obj => obj -> JSM Uint8Array castToUint8Array = castTo gTypeUint8Array "Uint8Array" gTypeUint8Array :: JSM GType gTypeUint8Array = GType . Object <$> jsg "Uint8Array" #else -- TODO work out how we can support Uint8Array in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Uint8ClampedArray = Uint8ClampedArray { unUint8ClampedArray :: JSVal } instance PToJSVal Uint8ClampedArray where pToJSVal = unUint8ClampedArray {-# INLINE pToJSVal #-} instance PFromJSVal Uint8ClampedArray where pFromJSVal = Uint8ClampedArray {-# INLINE pFromJSVal #-} instance ToJSVal Uint8ClampedArray where toJSVal = return . unUint8ClampedArray {-# INLINE toJSVal #-} instance FromJSVal Uint8ClampedArray where fromJSVal v = fmap Uint8ClampedArray <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsUint8ClampedArray o toUint8ClampedArray :: IsUint8ClampedArray o => o -> Uint8ClampedArray toUint8ClampedArray = unsafeCastGObject . toGObject instance IsUint8ClampedArray Uint8ClampedArray instance IsGObject Uint8ClampedArray where toGObject = GObject . unUint8ClampedArray unsafeCastGObject = Uint8ClampedArray . unGObject -- TODO add more IsUint8ClampedArray instances castToUint8ClampedArray :: IsGObject obj => obj -> JSM Uint8ClampedArray castToUint8ClampedArray = castTo gTypeUint8ClampedArray "Uint8ClampedArray" gTypeUint8ClampedArray :: JSM GType gTypeUint8ClampedArray = GType . Object <$> jsg "Uint8ClampedArray" #else -- TODO work out how we can support Uint8ClampedArray in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Uint16Array = Uint16Array { unUint16Array :: JSVal } instance PToJSVal Uint16Array where pToJSVal = unUint16Array {-# INLINE pToJSVal #-} instance PFromJSVal Uint16Array where pFromJSVal = Uint16Array {-# INLINE pFromJSVal #-} instance ToJSVal Uint16Array where toJSVal = return . unUint16Array {-# INLINE toJSVal #-} instance FromJSVal Uint16Array where fromJSVal v = fmap Uint16Array <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsUint16Array o toUint16Array :: IsUint16Array o => o -> Uint16Array toUint16Array = unsafeCastGObject . toGObject instance IsUint16Array Uint16Array instance IsGObject Uint16Array where toGObject = GObject . unUint16Array unsafeCastGObject = Uint16Array . unGObject -- TODO add more IsUint16Array instances castToUint16Array :: IsGObject obj => obj -> JSM Uint16Array castToUint16Array = castTo gTypeUint16Array "Uint16Array" gTypeUint16Array :: JSM GType gTypeUint16Array = GType . Object <$> jsg "Uint16Array" #else -- TODO work out how we can support Uint16Array in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Uint32Array = Uint32Array { unUint32Array :: JSVal } instance PToJSVal Uint32Array where pToJSVal = unUint32Array {-# INLINE pToJSVal #-} instance PFromJSVal Uint32Array where pFromJSVal = Uint32Array {-# INLINE pFromJSVal #-} instance ToJSVal Uint32Array where toJSVal = return . unUint32Array {-# INLINE toJSVal #-} instance FromJSVal Uint32Array where fromJSVal v = fmap Uint32Array <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsUint32Array o toUint32Array :: IsUint32Array o => o -> Uint32Array toUint32Array = unsafeCastGObject . toGObject instance IsUint32Array Uint32Array instance IsGObject Uint32Array where toGObject = GObject . unUint32Array unsafeCastGObject = Uint32Array . unGObject -- TODO add more IsUint32Array instances castToUint32Array :: IsGObject obj => obj -> JSM Uint32Array castToUint32Array = castTo gTypeUint32Array "Uint32Array" gTypeUint32Array :: JSM GType gTypeUint32Array = GType . Object <$> jsg "Uint32Array" #else -- TODO work out how we can support Uint32Array in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Int8Array = Int8Array { unInt8Array :: JSVal } instance PToJSVal Int8Array where pToJSVal = unInt8Array {-# INLINE pToJSVal #-} instance PFromJSVal Int8Array where pFromJSVal = Int8Array {-# INLINE pFromJSVal #-} instance ToJSVal Int8Array where toJSVal = return . unInt8Array {-# INLINE toJSVal #-} instance FromJSVal Int8Array where fromJSVal v = fmap Int8Array <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsInt8Array o toInt8Array :: IsInt8Array o => o -> Int8Array toInt8Array = unsafeCastGObject . toGObject instance IsInt8Array Int8Array instance IsGObject Int8Array where toGObject = GObject . unInt8Array unsafeCastGObject = Int8Array . unGObject -- TODO add more IsInt8Array instances castToInt8Array :: IsGObject obj => obj -> JSM Int8Array castToInt8Array = castTo gTypeInt8Array "Int8Array" gTypeInt8Array :: JSM GType gTypeInt8Array = GType . Object <$> jsg "Int8Array" #else -- TODO work out how we can support Int8Array in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Int16Array = Int16Array { unInt16Array :: JSVal } instance PToJSVal Int16Array where pToJSVal = unInt16Array {-# INLINE pToJSVal #-} instance PFromJSVal Int16Array where pFromJSVal = Int16Array {-# INLINE pFromJSVal #-} instance ToJSVal Int16Array where toJSVal = return . unInt16Array {-# INLINE toJSVal #-} instance FromJSVal Int16Array where fromJSVal v = fmap Int16Array <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsInt16Array o toInt16Array :: IsInt16Array o => o -> Int16Array toInt16Array = unsafeCastGObject . toGObject instance IsInt16Array Int16Array instance IsGObject Int16Array where toGObject = GObject . unInt16Array unsafeCastGObject = Int16Array . unGObject -- TODO add more IsInt16Array instances castToInt16Array :: IsGObject obj => obj -> JSM Int16Array castToInt16Array = castTo gTypeInt16Array "Int16Array" gTypeInt16Array :: JSM GType gTypeInt16Array = GType . Object <$> jsg "Int16Array" #else -- TODO work out how we can support Int16Array in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Int32Array = Int32Array { unInt32Array :: JSVal } instance PToJSVal Int32Array where pToJSVal = unInt32Array {-# INLINE pToJSVal #-} instance PFromJSVal Int32Array where pFromJSVal = Int32Array {-# INLINE pFromJSVal #-} instance ToJSVal Int32Array where toJSVal = return . unInt32Array {-# INLINE toJSVal #-} instance FromJSVal Int32Array where fromJSVal v = fmap Int32Array <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsInt32Array o toInt32Array :: IsInt32Array o => o -> Int32Array toInt32Array = unsafeCastGObject . toGObject instance IsInt32Array Int32Array instance IsGObject Int32Array where toGObject = GObject . unInt32Array unsafeCastGObject = Int32Array . unGObject -- TODO add more IsInt32Array instances castToInt32Array :: IsGObject obj => obj -> JSM Int32Array castToInt32Array = castTo gTypeInt32Array "Int32Array" gTypeInt32Array :: JSM GType gTypeInt32Array = GType . Object <$> jsg "Int32Array" #else -- TODO work out how we can support Int32Array in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype ObjectArray = ObjectArray { unObjectArray :: JSVal } instance PToJSVal ObjectArray where pToJSVal = unObjectArray {-# INLINE pToJSVal #-} instance PFromJSVal ObjectArray where pFromJSVal = ObjectArray {-# INLINE pFromJSVal #-} instance ToJSVal ObjectArray where toJSVal = return . unObjectArray {-# INLINE toJSVal #-} instance FromJSVal ObjectArray where fromJSVal v = fmap ObjectArray <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsObjectArray o toObjectArray :: IsObjectArray o => o -> ObjectArray toObjectArray = unsafeCastGObject . toGObject instance IsObjectArray ObjectArray instance IsGObject ObjectArray where toGObject = GObject . unObjectArray unsafeCastGObject = ObjectArray . unGObject -- TODO add more IsObjectArray instances #else -- TODO work out how we can support ObjectArray in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype ArrayBufferView = ArrayBufferView { unArrayBufferView :: JSVal } instance PToJSVal ArrayBufferView where pToJSVal = unArrayBufferView {-# INLINE pToJSVal #-} instance PFromJSVal ArrayBufferView where pFromJSVal = ArrayBufferView {-# INLINE pFromJSVal #-} instance ToJSVal ArrayBufferView where toJSVal = return . unArrayBufferView {-# INLINE toJSVal #-} instance FromJSVal ArrayBufferView where fromJSVal v = fmap ArrayBufferView <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsArrayBufferView o toArrayBufferView :: IsArrayBufferView o => o -> ArrayBufferView toArrayBufferView = unsafeCastGObject . toGObject instance IsArrayBufferView ArrayBufferView instance IsGObject ArrayBufferView where toGObject = GObject . unArrayBufferView unsafeCastGObject = ArrayBufferView . unGObject -- TODO add more IsArrayBufferView instances #else -- TODO work out how we can support ArrayBufferView in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Array = Array { unArray :: JSVal } instance PToJSVal Array where pToJSVal = unArray {-# INLINE pToJSVal #-} instance PFromJSVal Array where pFromJSVal = Array {-# INLINE pFromJSVal #-} instance ToJSVal Array where toJSVal = return . unArray {-# INLINE toJSVal #-} instance FromJSVal Array where fromJSVal v = fmap Array <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsArray o toArray :: IsArray o => o -> Array toArray = unsafeCastGObject . toGObject instance IsArray Array instance IsGObject Array where toGObject = GObject . unArray unsafeCastGObject = Array . unGObject -- TODO add more IsArray instances castToArray :: IsGObject obj => obj -> JSM Array castToArray = castTo gTypeArray "Array" gTypeArray :: JSM GType gTypeArray = GType . Object <$> jsg "Array" #else -- TODO work out how we can support Array in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Date = Date { unDate :: JSVal } instance PToJSVal Date where pToJSVal = unDate {-# INLINE pToJSVal #-} instance PFromJSVal Date where pFromJSVal = Date {-# INLINE pFromJSVal #-} instance ToJSVal Date where toJSVal = return . unDate {-# INLINE toJSVal #-} instance FromJSVal Date where fromJSVal v = fmap Date <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsDate o toDate :: IsDate o => o -> Date toDate = unsafeCastGObject . toGObject instance IsDate Date instance IsGObject Date where toGObject = GObject . unDate unsafeCastGObject = Date . unGObject -- TODO add more IsDate instances castToDate :: IsGObject obj => obj -> JSM Date castToDate = castTo gTypeDate "Date" gTypeDate :: JSM GType gTypeDate = GType . Object <$> jsg "Date" #else -- TODO work out how we can support Date in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Acceleration = Acceleration { unAcceleration :: JSVal } instance PToJSVal Acceleration where pToJSVal = unAcceleration {-# INLINE pToJSVal #-} instance PFromJSVal Acceleration where pFromJSVal = Acceleration {-# INLINE pFromJSVal #-} instance ToJSVal Acceleration where toJSVal = return . unAcceleration {-# INLINE toJSVal #-} instance FromJSVal Acceleration where fromJSVal v = fmap Acceleration <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsAcceleration o toAcceleration :: IsAcceleration o => o -> Acceleration toAcceleration = unsafeCastGObject . toGObject instance IsAcceleration Acceleration instance IsGObject Acceleration where toGObject = GObject . unAcceleration unsafeCastGObject = Acceleration . unGObject -- TODO add more IsAcceleration instances #else -- TODO work out how we can support Acceleration in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype RotationRate = RotationRate { unRotationRate :: JSVal } instance PToJSVal RotationRate where pToJSVal = unRotationRate {-# INLINE pToJSVal #-} instance PFromJSVal RotationRate where pFromJSVal = RotationRate {-# INLINE pFromJSVal #-} instance ToJSVal RotationRate where toJSVal = return . unRotationRate {-# INLINE toJSVal #-} instance FromJSVal RotationRate where fromJSVal v = fmap RotationRate <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsRotationRate o toRotationRate :: IsRotationRate o => o -> RotationRate toRotationRate = unsafeCastGObject . toGObject instance IsRotationRate RotationRate instance IsGObject RotationRate where toGObject = GObject . unRotationRate unsafeCastGObject = RotationRate . unGObject -- TODO add more IsRotationRate instances #else -- TODO work out how we can support RotationRate in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Algorithm = Algorithm { unAlgorithm :: JSVal } instance PToJSVal Algorithm where pToJSVal = unAlgorithm {-# INLINE pToJSVal #-} instance PFromJSVal Algorithm where pFromJSVal = Algorithm {-# INLINE pFromJSVal #-} instance ToJSVal Algorithm where toJSVal = return . unAlgorithm {-# INLINE toJSVal #-} instance FromJSVal Algorithm where fromJSVal v = fmap Algorithm <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsAlgorithm o toAlgorithm :: IsAlgorithm o => o -> Algorithm toAlgorithm = unsafeCastGObject . toGObject instance IsAlgorithm Algorithm instance IsGObject Algorithm where toGObject = GObject . unAlgorithm unsafeCastGObject = Algorithm . unGObject -- TODO add more IsAlgorithm instances #else -- TODO work out how we can support Algorithm in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype CryptoOperationData = CryptoOperationData { unCryptoOperationData :: JSVal } instance PToJSVal CryptoOperationData where pToJSVal = unCryptoOperationData {-# INLINE pToJSVal #-} instance PFromJSVal CryptoOperationData where pFromJSVal = CryptoOperationData {-# INLINE pFromJSVal #-} instance ToJSVal CryptoOperationData where toJSVal = return . unCryptoOperationData {-# INLINE toJSVal #-} instance FromJSVal CryptoOperationData where fromJSVal v = fmap CryptoOperationData <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsCryptoOperationData o toCryptoOperationData :: IsCryptoOperationData o => o -> CryptoOperationData toCryptoOperationData = unsafeCastGObject . toGObject instance IsCryptoOperationData CryptoOperationData instance IsGObject CryptoOperationData where toGObject = GObject . unCryptoOperationData unsafeCastGObject = CryptoOperationData . unGObject instance IsCryptoOperationData ArrayBuffer instance IsCryptoOperationData ArrayBufferView #else -- TODO work out how we can support CryptoOperationData in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype CanvasStyle = CanvasStyle { unCanvasStyle :: JSVal } instance PToJSVal CanvasStyle where pToJSVal = unCanvasStyle {-# INLINE pToJSVal #-} instance PFromJSVal CanvasStyle where pFromJSVal = CanvasStyle {-# INLINE pFromJSVal #-} instance ToJSVal CanvasStyle where toJSVal = return . unCanvasStyle {-# INLINE toJSVal #-} instance FromJSVal CanvasStyle where fromJSVal v = fmap CanvasStyle <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsCanvasStyle o toCanvasStyle :: IsCanvasStyle o => o -> CanvasStyle toCanvasStyle = unsafeCastGObject . toGObject instance IsCanvasStyle CanvasStyle instance IsGObject CanvasStyle where toGObject = GObject . unCanvasStyle unsafeCastGObject = CanvasStyle . unGObject instance IsCanvasStyle CanvasGradient instance IsCanvasStyle CanvasPattern #else -- TODO work out how we can support CanvasStyle in native code #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype DOMException = DOMException { unDOMException :: JSVal } instance PToJSVal DOMException where pToJSVal = unDOMException {-# INLINE pToJSVal #-} instance PFromJSVal DOMException where pFromJSVal = DOMException {-# INLINE pFromJSVal #-} instance ToJSVal DOMException where toJSVal = return . unDOMException {-# INLINE toJSVal #-} instance FromJSVal DOMException where fromJSVal v = fmap DOMException <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} class IsGObject o => IsDOMException o toDOMException :: IsDOMException o => o -> DOMException toDOMException = unsafeCastGObject . toGObject instance IsDOMException DOMException instance IsGObject DOMException where toGObject = GObject . unDOMException unsafeCastGObject = DOMException . unGObject #else -- TODO work out how we can support DOMException in native code #endif type GLenum = Word32 type GLboolean = Bool type GLbitfield = Word32 type GLbyte = Int8 type GLshort = Int16 type GLint = Int32 type GLint64 = Int64 type GLsizei = Int32 type GLintptr = Int64 type GLsizeiptr = Int64 type GLubyte = Word8 type GLushort = Word16 type GLuint = Word32 type GLuint64 = Word64 type GLfloat = Double type GLclampf = Double -- AUTO GENERATION STARTS HERE -- The remainder of this file is generated from IDL files using domconv-webkit-jsffi #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ANGLEInstancedArrays". -- -- newtype ANGLEInstancedArrays = ANGLEInstancedArrays { unANGLEInstancedArrays :: JSVal } instance PToJSVal ANGLEInstancedArrays where pToJSVal = unANGLEInstancedArrays {-# INLINE pToJSVal #-} instance PFromJSVal ANGLEInstancedArrays where pFromJSVal = ANGLEInstancedArrays {-# INLINE pFromJSVal #-} instance ToJSVal ANGLEInstancedArrays where toJSVal = return . unANGLEInstancedArrays {-# INLINE toJSVal #-} instance FromJSVal ANGLEInstancedArrays where fromJSVal v = fmap ANGLEInstancedArrays <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject ANGLEInstancedArrays where makeObject = makeObject . unANGLEInstancedArrays instance IsGObject ANGLEInstancedArrays where toGObject = GObject . unANGLEInstancedArrays {-# INLINE toGObject #-} unsafeCastGObject = ANGLEInstancedArrays . unGObject {-# INLINE unsafeCastGObject #-} castToANGLEInstancedArrays :: IsGObject obj => obj -> JSM ANGLEInstancedArrays castToANGLEInstancedArrays = castTo gTypeANGLEInstancedArrays "ANGLEInstancedArrays" gTypeANGLEInstancedArrays :: JSM GType gTypeANGLEInstancedArrays = GType . Object <$> jsg "ANGLEInstancedArrays" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AbstractView". -- -- newtype AbstractView = AbstractView { unAbstractView :: JSVal } instance PToJSVal AbstractView where pToJSVal = unAbstractView {-# INLINE pToJSVal #-} instance PFromJSVal AbstractView where pFromJSVal = AbstractView {-# INLINE pFromJSVal #-} instance ToJSVal AbstractView where toJSVal = return . unAbstractView {-# INLINE toJSVal #-} instance FromJSVal AbstractView where fromJSVal v = fmap AbstractView <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject AbstractView where makeObject = makeObject . unAbstractView instance IsGObject AbstractView where toGObject = GObject . unAbstractView {-# INLINE toGObject #-} unsafeCastGObject = AbstractView . unGObject {-# INLINE unsafeCastGObject #-} castToAbstractView :: IsGObject obj => obj -> JSM AbstractView castToAbstractView = castTo gTypeAbstractView "AbstractView" gTypeAbstractView :: JSM GType gTypeAbstractView = GType . Object <$> jsg "AbstractView" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AbstractWorker". -- -- newtype AbstractWorker = AbstractWorker { unAbstractWorker :: JSVal } instance PToJSVal AbstractWorker where pToJSVal = unAbstractWorker {-# INLINE pToJSVal #-} instance PFromJSVal AbstractWorker where pFromJSVal = AbstractWorker {-# INLINE pFromJSVal #-} instance ToJSVal AbstractWorker where toJSVal = return . unAbstractWorker {-# INLINE toJSVal #-} instance FromJSVal AbstractWorker where fromJSVal v = fmap AbstractWorker <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject AbstractWorker where makeObject = makeObject . unAbstractWorker instance IsGObject AbstractWorker where toGObject = GObject . unAbstractWorker {-# INLINE toGObject #-} unsafeCastGObject = AbstractWorker . unGObject {-# INLINE unsafeCastGObject #-} castToAbstractWorker :: IsGObject obj => obj -> JSM AbstractWorker castToAbstractWorker = castTo gTypeAbstractWorker "AbstractWorker" gTypeAbstractWorker :: JSM GType gTypeAbstractWorker = GType . Object <$> jsg "AbstractWorker" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AllAudioCapabilities". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.MediaStreamCapabilities" -- -- newtype AllAudioCapabilities = AllAudioCapabilities { unAllAudioCapabilities :: JSVal } instance PToJSVal AllAudioCapabilities where pToJSVal = unAllAudioCapabilities {-# INLINE pToJSVal #-} instance PFromJSVal AllAudioCapabilities where pFromJSVal = AllAudioCapabilities {-# INLINE pFromJSVal #-} instance ToJSVal AllAudioCapabilities where toJSVal = return . unAllAudioCapabilities {-# INLINE toJSVal #-} instance FromJSVal AllAudioCapabilities where fromJSVal v = fmap AllAudioCapabilities <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject AllAudioCapabilities where makeObject = makeObject . unAllAudioCapabilities instance IsMediaStreamCapabilities AllAudioCapabilities instance IsGObject AllAudioCapabilities where toGObject = GObject . unAllAudioCapabilities {-# INLINE toGObject #-} unsafeCastGObject = AllAudioCapabilities . unGObject {-# INLINE unsafeCastGObject #-} castToAllAudioCapabilities :: IsGObject obj => obj -> JSM AllAudioCapabilities castToAllAudioCapabilities = castTo gTypeAllAudioCapabilities "AllAudioCapabilities" gTypeAllAudioCapabilities :: JSM GType gTypeAllAudioCapabilities = GType . Object <$> jsg "AllAudioCapabilities" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AllVideoCapabilities". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.MediaStreamCapabilities" -- -- newtype AllVideoCapabilities = AllVideoCapabilities { unAllVideoCapabilities :: JSVal } instance PToJSVal AllVideoCapabilities where pToJSVal = unAllVideoCapabilities {-# INLINE pToJSVal #-} instance PFromJSVal AllVideoCapabilities where pFromJSVal = AllVideoCapabilities {-# INLINE pFromJSVal #-} instance ToJSVal AllVideoCapabilities where toJSVal = return . unAllVideoCapabilities {-# INLINE toJSVal #-} instance FromJSVal AllVideoCapabilities where fromJSVal v = fmap AllVideoCapabilities <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject AllVideoCapabilities where makeObject = makeObject . unAllVideoCapabilities instance IsMediaStreamCapabilities AllVideoCapabilities instance IsGObject AllVideoCapabilities where toGObject = GObject . unAllVideoCapabilities {-# INLINE toGObject #-} unsafeCastGObject = AllVideoCapabilities . unGObject {-# INLINE unsafeCastGObject #-} castToAllVideoCapabilities :: IsGObject obj => obj -> JSM AllVideoCapabilities castToAllVideoCapabilities = castTo gTypeAllVideoCapabilities "AllVideoCapabilities" gTypeAllVideoCapabilities :: JSM GType gTypeAllVideoCapabilities = GType . Object <$> jsg "AllVideoCapabilities" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AnalyserNode". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.AudioNode" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype AnalyserNode = AnalyserNode { unAnalyserNode :: JSVal } instance PToJSVal AnalyserNode where pToJSVal = unAnalyserNode {-# INLINE pToJSVal #-} instance PFromJSVal AnalyserNode where pFromJSVal = AnalyserNode {-# INLINE pFromJSVal #-} instance ToJSVal AnalyserNode where toJSVal = return . unAnalyserNode {-# INLINE toJSVal #-} instance FromJSVal AnalyserNode where fromJSVal v = fmap AnalyserNode <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject AnalyserNode where makeObject = makeObject . unAnalyserNode instance IsAudioNode AnalyserNode instance IsEventTarget AnalyserNode instance IsGObject AnalyserNode where toGObject = GObject . unAnalyserNode {-# INLINE toGObject #-} unsafeCastGObject = AnalyserNode . unGObject {-# INLINE unsafeCastGObject #-} castToAnalyserNode :: IsGObject obj => obj -> JSM AnalyserNode castToAnalyserNode = castTo gTypeAnalyserNode "AnalyserNode" gTypeAnalyserNode :: JSM GType gTypeAnalyserNode = GType . Object <$> jsg "AnalyserNode" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AnimationEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype AnimationEvent = AnimationEvent { unAnimationEvent :: JSVal } instance PToJSVal AnimationEvent where pToJSVal = unAnimationEvent {-# INLINE pToJSVal #-} instance PFromJSVal AnimationEvent where pFromJSVal = AnimationEvent {-# INLINE pFromJSVal #-} instance ToJSVal AnimationEvent where toJSVal = return . unAnimationEvent {-# INLINE toJSVal #-} instance FromJSVal AnimationEvent where fromJSVal v = fmap AnimationEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject AnimationEvent where makeObject = makeObject . unAnimationEvent instance IsEvent AnimationEvent instance IsGObject AnimationEvent where toGObject = GObject . unAnimationEvent {-# INLINE toGObject #-} unsafeCastGObject = AnimationEvent . unGObject {-# INLINE unsafeCastGObject #-} castToAnimationEvent :: IsGObject obj => obj -> JSM AnimationEvent castToAnimationEvent = castTo gTypeAnimationEvent "AnimationEvent" gTypeAnimationEvent :: JSM GType gTypeAnimationEvent = GType . Object <$> jsg "AnimationEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ApplicationCache". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype ApplicationCache = ApplicationCache { unApplicationCache :: JSVal } instance PToJSVal ApplicationCache where pToJSVal = unApplicationCache {-# INLINE pToJSVal #-} instance PFromJSVal ApplicationCache where pFromJSVal = ApplicationCache {-# INLINE pFromJSVal #-} instance ToJSVal ApplicationCache where toJSVal = return . unApplicationCache {-# INLINE toJSVal #-} instance FromJSVal ApplicationCache where fromJSVal v = fmap ApplicationCache <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject ApplicationCache where makeObject = makeObject . unApplicationCache instance IsEventTarget ApplicationCache instance IsGObject ApplicationCache where toGObject = GObject . unApplicationCache {-# INLINE toGObject #-} unsafeCastGObject = ApplicationCache . unGObject {-# INLINE unsafeCastGObject #-} castToApplicationCache :: IsGObject obj => obj -> JSM ApplicationCache castToApplicationCache = castTo gTypeApplicationCache "ApplicationCache" gTypeApplicationCache :: JSM GType gTypeApplicationCache = GType . Object <$> jsg "ApplicationCache" #else type IsApplicationCache o = ApplicationCacheClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Attr". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype Attr = Attr { unAttr :: JSVal } instance PToJSVal Attr where pToJSVal = unAttr {-# INLINE pToJSVal #-} instance PFromJSVal Attr where pFromJSVal = Attr {-# INLINE pFromJSVal #-} instance ToJSVal Attr where toJSVal = return . unAttr {-# INLINE toJSVal #-} instance FromJSVal Attr where fromJSVal v = fmap Attr <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Attr where makeObject = makeObject . unAttr instance IsNode Attr instance IsEventTarget Attr instance IsGObject Attr where toGObject = GObject . unAttr {-# INLINE toGObject #-} unsafeCastGObject = Attr . unGObject {-# INLINE unsafeCastGObject #-} castToAttr :: IsGObject obj => obj -> JSM Attr castToAttr = castTo gTypeAttr "Attr" gTypeAttr :: JSM GType gTypeAttr = GType . Object <$> jsg "Attr" #else type IsAttr o = AttrClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AudioBuffer". -- -- newtype AudioBuffer = AudioBuffer { unAudioBuffer :: JSVal } instance PToJSVal AudioBuffer where pToJSVal = unAudioBuffer {-# INLINE pToJSVal #-} instance PFromJSVal AudioBuffer where pFromJSVal = AudioBuffer {-# INLINE pFromJSVal #-} instance ToJSVal AudioBuffer where toJSVal = return . unAudioBuffer {-# INLINE toJSVal #-} instance FromJSVal AudioBuffer where fromJSVal v = fmap AudioBuffer <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject AudioBuffer where makeObject = makeObject . unAudioBuffer instance IsGObject AudioBuffer where toGObject = GObject . unAudioBuffer {-# INLINE toGObject #-} unsafeCastGObject = AudioBuffer . unGObject {-# INLINE unsafeCastGObject #-} castToAudioBuffer :: IsGObject obj => obj -> JSM AudioBuffer castToAudioBuffer = castTo gTypeAudioBuffer "AudioBuffer" gTypeAudioBuffer :: JSM GType gTypeAudioBuffer = GType . Object <$> jsg "AudioBuffer" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AudioBufferSourceNode". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.AudioNode" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype AudioBufferSourceNode = AudioBufferSourceNode { unAudioBufferSourceNode :: JSVal } instance PToJSVal AudioBufferSourceNode where pToJSVal = unAudioBufferSourceNode {-# INLINE pToJSVal #-} instance PFromJSVal AudioBufferSourceNode where pFromJSVal = AudioBufferSourceNode {-# INLINE pFromJSVal #-} instance ToJSVal AudioBufferSourceNode where toJSVal = return . unAudioBufferSourceNode {-# INLINE toJSVal #-} instance FromJSVal AudioBufferSourceNode where fromJSVal v = fmap AudioBufferSourceNode <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject AudioBufferSourceNode where makeObject = makeObject . unAudioBufferSourceNode instance IsAudioNode AudioBufferSourceNode instance IsEventTarget AudioBufferSourceNode instance IsGObject AudioBufferSourceNode where toGObject = GObject . unAudioBufferSourceNode {-# INLINE toGObject #-} unsafeCastGObject = AudioBufferSourceNode . unGObject {-# INLINE unsafeCastGObject #-} castToAudioBufferSourceNode :: IsGObject obj => obj -> JSM AudioBufferSourceNode castToAudioBufferSourceNode = castTo gTypeAudioBufferSourceNode "AudioBufferSourceNode" gTypeAudioBufferSourceNode :: JSM GType gTypeAudioBufferSourceNode = GType . Object <$> jsg "AudioBufferSourceNode" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AudioContext". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype AudioContext = AudioContext { unAudioContext :: JSVal } instance PToJSVal AudioContext where pToJSVal = unAudioContext {-# INLINE pToJSVal #-} instance PFromJSVal AudioContext where pFromJSVal = AudioContext {-# INLINE pFromJSVal #-} instance ToJSVal AudioContext where toJSVal = return . unAudioContext {-# INLINE toJSVal #-} instance FromJSVal AudioContext where fromJSVal v = fmap AudioContext <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject AudioContext where makeObject = makeObject . unAudioContext class IsEventTarget o => IsAudioContext o toAudioContext :: IsAudioContext o => o -> AudioContext toAudioContext = unsafeCastGObject . toGObject instance IsAudioContext AudioContext instance IsEventTarget AudioContext instance IsGObject AudioContext where toGObject = GObject . unAudioContext {-# INLINE toGObject #-} unsafeCastGObject = AudioContext . unGObject {-# INLINE unsafeCastGObject #-} castToAudioContext :: IsGObject obj => obj -> JSM AudioContext castToAudioContext = castTo gTypeAudioContext "AudioContext" gTypeAudioContext :: JSM GType gTypeAudioContext = GType . Object <$> jsg "AudioContext" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AudioDestinationNode". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.AudioNode" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype AudioDestinationNode = AudioDestinationNode { unAudioDestinationNode :: JSVal } instance PToJSVal AudioDestinationNode where pToJSVal = unAudioDestinationNode {-# INLINE pToJSVal #-} instance PFromJSVal AudioDestinationNode where pFromJSVal = AudioDestinationNode {-# INLINE pFromJSVal #-} instance ToJSVal AudioDestinationNode where toJSVal = return . unAudioDestinationNode {-# INLINE toJSVal #-} instance FromJSVal AudioDestinationNode where fromJSVal v = fmap AudioDestinationNode <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject AudioDestinationNode where makeObject = makeObject . unAudioDestinationNode instance IsAudioNode AudioDestinationNode instance IsEventTarget AudioDestinationNode instance IsGObject AudioDestinationNode where toGObject = GObject . unAudioDestinationNode {-# INLINE toGObject #-} unsafeCastGObject = AudioDestinationNode . unGObject {-# INLINE unsafeCastGObject #-} castToAudioDestinationNode :: IsGObject obj => obj -> JSM AudioDestinationNode castToAudioDestinationNode = castTo gTypeAudioDestinationNode "AudioDestinationNode" gTypeAudioDestinationNode :: JSM GType gTypeAudioDestinationNode = GType . Object <$> jsg "AudioDestinationNode" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AudioListener". -- -- newtype AudioListener = AudioListener { unAudioListener :: JSVal } instance PToJSVal AudioListener where pToJSVal = unAudioListener {-# INLINE pToJSVal #-} instance PFromJSVal AudioListener where pFromJSVal = AudioListener {-# INLINE pFromJSVal #-} instance ToJSVal AudioListener where toJSVal = return . unAudioListener {-# INLINE toJSVal #-} instance FromJSVal AudioListener where fromJSVal v = fmap AudioListener <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject AudioListener where makeObject = makeObject . unAudioListener instance IsGObject AudioListener where toGObject = GObject . unAudioListener {-# INLINE toGObject #-} unsafeCastGObject = AudioListener . unGObject {-# INLINE unsafeCastGObject #-} castToAudioListener :: IsGObject obj => obj -> JSM AudioListener castToAudioListener = castTo gTypeAudioListener "AudioListener" gTypeAudioListener :: JSM GType gTypeAudioListener = GType . Object <$> jsg "AudioListener" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AudioNode". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype AudioNode = AudioNode { unAudioNode :: JSVal } instance PToJSVal AudioNode where pToJSVal = unAudioNode {-# INLINE pToJSVal #-} instance PFromJSVal AudioNode where pFromJSVal = AudioNode {-# INLINE pFromJSVal #-} instance ToJSVal AudioNode where toJSVal = return . unAudioNode {-# INLINE toJSVal #-} instance FromJSVal AudioNode where fromJSVal v = fmap AudioNode <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject AudioNode where makeObject = makeObject . unAudioNode class IsEventTarget o => IsAudioNode o toAudioNode :: IsAudioNode o => o -> AudioNode toAudioNode = unsafeCastGObject . toGObject instance IsAudioNode AudioNode instance IsEventTarget AudioNode instance IsGObject AudioNode where toGObject = GObject . unAudioNode {-# INLINE toGObject #-} unsafeCastGObject = AudioNode . unGObject {-# INLINE unsafeCastGObject #-} castToAudioNode :: IsGObject obj => obj -> JSM AudioNode castToAudioNode = castTo gTypeAudioNode "AudioNode" gTypeAudioNode :: JSM GType gTypeAudioNode = GType . Object <$> jsg "AudioNode" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AudioParam". -- -- newtype AudioParam = AudioParam { unAudioParam :: JSVal } instance PToJSVal AudioParam where pToJSVal = unAudioParam {-# INLINE pToJSVal #-} instance PFromJSVal AudioParam where pFromJSVal = AudioParam {-# INLINE pFromJSVal #-} instance ToJSVal AudioParam where toJSVal = return . unAudioParam {-# INLINE toJSVal #-} instance FromJSVal AudioParam where fromJSVal v = fmap AudioParam <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject AudioParam where makeObject = makeObject . unAudioParam instance IsGObject AudioParam where toGObject = GObject . unAudioParam {-# INLINE toGObject #-} unsafeCastGObject = AudioParam . unGObject {-# INLINE unsafeCastGObject #-} castToAudioParam :: IsGObject obj => obj -> JSM AudioParam castToAudioParam = castTo gTypeAudioParam "AudioParam" gTypeAudioParam :: JSM GType gTypeAudioParam = GType . Object <$> jsg "AudioParam" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AudioProcessingEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype AudioProcessingEvent = AudioProcessingEvent { unAudioProcessingEvent :: JSVal } instance PToJSVal AudioProcessingEvent where pToJSVal = unAudioProcessingEvent {-# INLINE pToJSVal #-} instance PFromJSVal AudioProcessingEvent where pFromJSVal = AudioProcessingEvent {-# INLINE pFromJSVal #-} instance ToJSVal AudioProcessingEvent where toJSVal = return . unAudioProcessingEvent {-# INLINE toJSVal #-} instance FromJSVal AudioProcessingEvent where fromJSVal v = fmap AudioProcessingEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject AudioProcessingEvent where makeObject = makeObject . unAudioProcessingEvent instance IsEvent AudioProcessingEvent instance IsGObject AudioProcessingEvent where toGObject = GObject . unAudioProcessingEvent {-# INLINE toGObject #-} unsafeCastGObject = AudioProcessingEvent . unGObject {-# INLINE unsafeCastGObject #-} castToAudioProcessingEvent :: IsGObject obj => obj -> JSM AudioProcessingEvent castToAudioProcessingEvent = castTo gTypeAudioProcessingEvent "AudioProcessingEvent" gTypeAudioProcessingEvent :: JSM GType gTypeAudioProcessingEvent = GType . Object <$> jsg "AudioProcessingEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AudioStreamTrack". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.MediaStreamTrack" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype AudioStreamTrack = AudioStreamTrack { unAudioStreamTrack :: JSVal } instance PToJSVal AudioStreamTrack where pToJSVal = unAudioStreamTrack {-# INLINE pToJSVal #-} instance PFromJSVal AudioStreamTrack where pFromJSVal = AudioStreamTrack {-# INLINE pFromJSVal #-} instance ToJSVal AudioStreamTrack where toJSVal = return . unAudioStreamTrack {-# INLINE toJSVal #-} instance FromJSVal AudioStreamTrack where fromJSVal v = fmap AudioStreamTrack <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject AudioStreamTrack where makeObject = makeObject . unAudioStreamTrack instance IsMediaStreamTrack AudioStreamTrack instance IsEventTarget AudioStreamTrack instance IsGObject AudioStreamTrack where toGObject = GObject . unAudioStreamTrack {-# INLINE toGObject #-} unsafeCastGObject = AudioStreamTrack . unGObject {-# INLINE unsafeCastGObject #-} castToAudioStreamTrack :: IsGObject obj => obj -> JSM AudioStreamTrack castToAudioStreamTrack = castTo gTypeAudioStreamTrack "AudioStreamTrack" gTypeAudioStreamTrack :: JSM GType gTypeAudioStreamTrack = GType . Object <$> jsg "AudioStreamTrack" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AudioTrack". -- -- newtype AudioTrack = AudioTrack { unAudioTrack :: JSVal } instance PToJSVal AudioTrack where pToJSVal = unAudioTrack {-# INLINE pToJSVal #-} instance PFromJSVal AudioTrack where pFromJSVal = AudioTrack {-# INLINE pFromJSVal #-} instance ToJSVal AudioTrack where toJSVal = return . unAudioTrack {-# INLINE toJSVal #-} instance FromJSVal AudioTrack where fromJSVal v = fmap AudioTrack <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject AudioTrack where makeObject = makeObject . unAudioTrack instance IsGObject AudioTrack where toGObject = GObject . unAudioTrack {-# INLINE toGObject #-} unsafeCastGObject = AudioTrack . unGObject {-# INLINE unsafeCastGObject #-} castToAudioTrack :: IsGObject obj => obj -> JSM AudioTrack castToAudioTrack = castTo gTypeAudioTrack "AudioTrack" gTypeAudioTrack :: JSM GType gTypeAudioTrack = GType . Object <$> jsg "AudioTrack" #else #ifndef USE_OLD_WEBKIT type IsAudioTrack o = AudioTrackClass o #endif #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AudioTrackList". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype AudioTrackList = AudioTrackList { unAudioTrackList :: JSVal } instance PToJSVal AudioTrackList where pToJSVal = unAudioTrackList {-# INLINE pToJSVal #-} instance PFromJSVal AudioTrackList where pFromJSVal = AudioTrackList {-# INLINE pFromJSVal #-} instance ToJSVal AudioTrackList where toJSVal = return . unAudioTrackList {-# INLINE toJSVal #-} instance FromJSVal AudioTrackList where fromJSVal v = fmap AudioTrackList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject AudioTrackList where makeObject = makeObject . unAudioTrackList instance IsEventTarget AudioTrackList instance IsGObject AudioTrackList where toGObject = GObject . unAudioTrackList {-# INLINE toGObject #-} unsafeCastGObject = AudioTrackList . unGObject {-# INLINE unsafeCastGObject #-} castToAudioTrackList :: IsGObject obj => obj -> JSM AudioTrackList castToAudioTrackList = castTo gTypeAudioTrackList "AudioTrackList" gTypeAudioTrackList :: JSM GType gTypeAudioTrackList = GType . Object <$> jsg "AudioTrackList" #else #ifndef USE_OLD_WEBKIT type IsAudioTrackList o = AudioTrackListClass o #endif #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AutocompleteErrorEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype AutocompleteErrorEvent = AutocompleteErrorEvent { unAutocompleteErrorEvent :: JSVal } instance PToJSVal AutocompleteErrorEvent where pToJSVal = unAutocompleteErrorEvent {-# INLINE pToJSVal #-} instance PFromJSVal AutocompleteErrorEvent where pFromJSVal = AutocompleteErrorEvent {-# INLINE pFromJSVal #-} instance ToJSVal AutocompleteErrorEvent where toJSVal = return . unAutocompleteErrorEvent {-# INLINE toJSVal #-} instance FromJSVal AutocompleteErrorEvent where fromJSVal v = fmap AutocompleteErrorEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject AutocompleteErrorEvent where makeObject = makeObject . unAutocompleteErrorEvent instance IsEvent AutocompleteErrorEvent instance IsGObject AutocompleteErrorEvent where toGObject = GObject . unAutocompleteErrorEvent {-# INLINE toGObject #-} unsafeCastGObject = AutocompleteErrorEvent . unGObject {-# INLINE unsafeCastGObject #-} castToAutocompleteErrorEvent :: IsGObject obj => obj -> JSM AutocompleteErrorEvent castToAutocompleteErrorEvent = castTo gTypeAutocompleteErrorEvent "AutocompleteErrorEvent" gTypeAutocompleteErrorEvent :: JSM GType gTypeAutocompleteErrorEvent = GType . Object <$> jsg "AutocompleteErrorEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.BarProp". -- -- newtype BarProp = BarProp { unBarProp :: JSVal } instance PToJSVal BarProp where pToJSVal = unBarProp {-# INLINE pToJSVal #-} instance PFromJSVal BarProp where pFromJSVal = BarProp {-# INLINE pFromJSVal #-} instance ToJSVal BarProp where toJSVal = return . unBarProp {-# INLINE toJSVal #-} instance FromJSVal BarProp where fromJSVal v = fmap BarProp <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject BarProp where makeObject = makeObject . unBarProp instance IsGObject BarProp where toGObject = GObject . unBarProp {-# INLINE toGObject #-} unsafeCastGObject = BarProp . unGObject {-# INLINE unsafeCastGObject #-} castToBarProp :: IsGObject obj => obj -> JSM BarProp castToBarProp = castTo gTypeBarProp "BarProp" gTypeBarProp :: JSM GType gTypeBarProp = GType . Object <$> jsg "BarProp" #else #ifndef USE_OLD_WEBKIT type IsBarProp o = BarPropClass o #endif #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.BatteryManager". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype BatteryManager = BatteryManager { unBatteryManager :: JSVal } instance PToJSVal BatteryManager where pToJSVal = unBatteryManager {-# INLINE pToJSVal #-} instance PFromJSVal BatteryManager where pFromJSVal = BatteryManager {-# INLINE pFromJSVal #-} instance ToJSVal BatteryManager where toJSVal = return . unBatteryManager {-# INLINE toJSVal #-} instance FromJSVal BatteryManager where fromJSVal v = fmap BatteryManager <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject BatteryManager where makeObject = makeObject . unBatteryManager instance IsEventTarget BatteryManager instance IsGObject BatteryManager where toGObject = GObject . unBatteryManager {-# INLINE toGObject #-} unsafeCastGObject = BatteryManager . unGObject {-# INLINE unsafeCastGObject #-} castToBatteryManager :: IsGObject obj => obj -> JSM BatteryManager castToBatteryManager = castTo gTypeBatteryManager "BatteryManager" gTypeBatteryManager :: JSM GType gTypeBatteryManager = GType . Object <$> jsg "BatteryManager" #else #ifndef USE_OLD_WEBKIT type IsBatteryManager o = BatteryManagerClass o #endif #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.BeforeLoadEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype BeforeLoadEvent = BeforeLoadEvent { unBeforeLoadEvent :: JSVal } instance PToJSVal BeforeLoadEvent where pToJSVal = unBeforeLoadEvent {-# INLINE pToJSVal #-} instance PFromJSVal BeforeLoadEvent where pFromJSVal = BeforeLoadEvent {-# INLINE pFromJSVal #-} instance ToJSVal BeforeLoadEvent where toJSVal = return . unBeforeLoadEvent {-# INLINE toJSVal #-} instance FromJSVal BeforeLoadEvent where fromJSVal v = fmap BeforeLoadEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject BeforeLoadEvent where makeObject = makeObject . unBeforeLoadEvent instance IsEvent BeforeLoadEvent instance IsGObject BeforeLoadEvent where toGObject = GObject . unBeforeLoadEvent {-# INLINE toGObject #-} unsafeCastGObject = BeforeLoadEvent . unGObject {-# INLINE unsafeCastGObject #-} castToBeforeLoadEvent :: IsGObject obj => obj -> JSM BeforeLoadEvent castToBeforeLoadEvent = castTo gTypeBeforeLoadEvent "BeforeLoadEvent" gTypeBeforeLoadEvent :: JSM GType gTypeBeforeLoadEvent = GType . Object <$> jsg "BeforeLoadEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.BeforeUnloadEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype BeforeUnloadEvent = BeforeUnloadEvent { unBeforeUnloadEvent :: JSVal } instance PToJSVal BeforeUnloadEvent where pToJSVal = unBeforeUnloadEvent {-# INLINE pToJSVal #-} instance PFromJSVal BeforeUnloadEvent where pFromJSVal = BeforeUnloadEvent {-# INLINE pFromJSVal #-} instance ToJSVal BeforeUnloadEvent where toJSVal = return . unBeforeUnloadEvent {-# INLINE toJSVal #-} instance FromJSVal BeforeUnloadEvent where fromJSVal v = fmap BeforeUnloadEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject BeforeUnloadEvent where makeObject = makeObject . unBeforeUnloadEvent instance IsEvent BeforeUnloadEvent instance IsGObject BeforeUnloadEvent where toGObject = GObject . unBeforeUnloadEvent {-# INLINE toGObject #-} unsafeCastGObject = BeforeUnloadEvent . unGObject {-# INLINE unsafeCastGObject #-} castToBeforeUnloadEvent :: IsGObject obj => obj -> JSM BeforeUnloadEvent castToBeforeUnloadEvent = castTo gTypeBeforeUnloadEvent "BeforeUnloadEvent" gTypeBeforeUnloadEvent :: JSM GType gTypeBeforeUnloadEvent = GType . Object <$> jsg "BeforeUnloadEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.BiquadFilterNode". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.AudioNode" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype BiquadFilterNode = BiquadFilterNode { unBiquadFilterNode :: JSVal } instance PToJSVal BiquadFilterNode where pToJSVal = unBiquadFilterNode {-# INLINE pToJSVal #-} instance PFromJSVal BiquadFilterNode where pFromJSVal = BiquadFilterNode {-# INLINE pFromJSVal #-} instance ToJSVal BiquadFilterNode where toJSVal = return . unBiquadFilterNode {-# INLINE toJSVal #-} instance FromJSVal BiquadFilterNode where fromJSVal v = fmap BiquadFilterNode <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject BiquadFilterNode where makeObject = makeObject . unBiquadFilterNode instance IsAudioNode BiquadFilterNode instance IsEventTarget BiquadFilterNode instance IsGObject BiquadFilterNode where toGObject = GObject . unBiquadFilterNode {-# INLINE toGObject #-} unsafeCastGObject = BiquadFilterNode . unGObject {-# INLINE unsafeCastGObject #-} castToBiquadFilterNode :: IsGObject obj => obj -> JSM BiquadFilterNode castToBiquadFilterNode = castTo gTypeBiquadFilterNode "BiquadFilterNode" gTypeBiquadFilterNode :: JSM GType gTypeBiquadFilterNode = GType . Object <$> jsg "BiquadFilterNode" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Blob". -- -- newtype Blob = Blob { unBlob :: JSVal } instance PToJSVal Blob where pToJSVal = unBlob {-# INLINE pToJSVal #-} instance PFromJSVal Blob where pFromJSVal = Blob {-# INLINE pFromJSVal #-} instance ToJSVal Blob where toJSVal = return . unBlob {-# INLINE toJSVal #-} instance FromJSVal Blob where fromJSVal v = fmap Blob <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Blob where makeObject = makeObject . unBlob class IsGObject o => IsBlob o toBlob :: IsBlob o => o -> Blob toBlob = unsafeCastGObject . toGObject instance IsBlob Blob instance IsGObject Blob where toGObject = GObject . unBlob {-# INLINE toGObject #-} unsafeCastGObject = Blob . unGObject {-# INLINE unsafeCastGObject #-} castToBlob :: IsGObject obj => obj -> JSM Blob castToBlob = castTo gTypeBlob "Blob" gTypeBlob :: JSM GType gTypeBlob = GType . Object <$> jsg "Blob" #else type IsBlob o = BlobClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CDATASection". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Text" -- * "Language.Javascript.JSaddle.DOM.CharacterData" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype CDATASection = CDATASection { unCDATASection :: JSVal } instance PToJSVal CDATASection where pToJSVal = unCDATASection {-# INLINE pToJSVal #-} instance PFromJSVal CDATASection where pFromJSVal = CDATASection {-# INLINE pFromJSVal #-} instance ToJSVal CDATASection where toJSVal = return . unCDATASection {-# INLINE toJSVal #-} instance FromJSVal CDATASection where fromJSVal v = fmap CDATASection <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CDATASection where makeObject = makeObject . unCDATASection instance IsText CDATASection instance IsCharacterData CDATASection instance IsNode CDATASection instance IsEventTarget CDATASection instance IsGObject CDATASection where toGObject = GObject . unCDATASection {-# INLINE toGObject #-} unsafeCastGObject = CDATASection . unGObject {-# INLINE unsafeCastGObject #-} castToCDATASection :: IsGObject obj => obj -> JSM CDATASection castToCDATASection = castTo gTypeCDATASection "CDATASection" gTypeCDATASection :: JSM GType gTypeCDATASection = GType . Object <$> jsg "CDATASection" #else type IsCDATASection o = CDATASectionClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSS". -- -- newtype CSS = CSS { unCSS :: JSVal } instance PToJSVal CSS where pToJSVal = unCSS {-# INLINE pToJSVal #-} instance PFromJSVal CSS where pFromJSVal = CSS {-# INLINE pFromJSVal #-} instance ToJSVal CSS where toJSVal = return . unCSS {-# INLINE toJSVal #-} instance FromJSVal CSS where fromJSVal v = fmap CSS <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CSS where makeObject = makeObject . unCSS instance IsGObject CSS where toGObject = GObject . unCSS {-# INLINE toGObject #-} unsafeCastGObject = CSS . unGObject {-# INLINE unsafeCastGObject #-} castToCSS :: IsGObject obj => obj -> JSM CSS castToCSS = castTo gTypeCSS "CSS" gTypeCSS :: JSM GType gTypeCSS = GType . Object <$> jsg "CSS" #else #ifndef USE_OLD_WEBKIT type IsCSS o = CSSClass o #endif #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSCharsetRule". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.CSSRule" -- -- newtype CSSCharsetRule = CSSCharsetRule { unCSSCharsetRule :: JSVal } instance PToJSVal CSSCharsetRule where pToJSVal = unCSSCharsetRule {-# INLINE pToJSVal #-} instance PFromJSVal CSSCharsetRule where pFromJSVal = CSSCharsetRule {-# INLINE pFromJSVal #-} instance ToJSVal CSSCharsetRule where toJSVal = return . unCSSCharsetRule {-# INLINE toJSVal #-} instance FromJSVal CSSCharsetRule where fromJSVal v = fmap CSSCharsetRule <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CSSCharsetRule where makeObject = makeObject . unCSSCharsetRule instance IsCSSRule CSSCharsetRule instance IsGObject CSSCharsetRule where toGObject = GObject . unCSSCharsetRule {-# INLINE toGObject #-} unsafeCastGObject = CSSCharsetRule . unGObject {-# INLINE unsafeCastGObject #-} castToCSSCharsetRule :: IsGObject obj => obj -> JSM CSSCharsetRule castToCSSCharsetRule = castTo gTypeCSSCharsetRule "CSSCharsetRule" gTypeCSSCharsetRule :: JSM GType gTypeCSSCharsetRule = GType . Object <$> jsg "CSSCharsetRule" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSFontFaceLoadEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype CSSFontFaceLoadEvent = CSSFontFaceLoadEvent { unCSSFontFaceLoadEvent :: JSVal } instance PToJSVal CSSFontFaceLoadEvent where pToJSVal = unCSSFontFaceLoadEvent {-# INLINE pToJSVal #-} instance PFromJSVal CSSFontFaceLoadEvent where pFromJSVal = CSSFontFaceLoadEvent {-# INLINE pFromJSVal #-} instance ToJSVal CSSFontFaceLoadEvent where toJSVal = return . unCSSFontFaceLoadEvent {-# INLINE toJSVal #-} instance FromJSVal CSSFontFaceLoadEvent where fromJSVal v = fmap CSSFontFaceLoadEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CSSFontFaceLoadEvent where makeObject = makeObject . unCSSFontFaceLoadEvent instance IsEvent CSSFontFaceLoadEvent instance IsGObject CSSFontFaceLoadEvent where toGObject = GObject . unCSSFontFaceLoadEvent {-# INLINE toGObject #-} unsafeCastGObject = CSSFontFaceLoadEvent . unGObject {-# INLINE unsafeCastGObject #-} castToCSSFontFaceLoadEvent :: IsGObject obj => obj -> JSM CSSFontFaceLoadEvent castToCSSFontFaceLoadEvent = castTo gTypeCSSFontFaceLoadEvent "CSSFontFaceLoadEvent" gTypeCSSFontFaceLoadEvent :: JSM GType gTypeCSSFontFaceLoadEvent = GType . Object <$> jsg "CSSFontFaceLoadEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSFontFaceRule". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.CSSRule" -- -- newtype CSSFontFaceRule = CSSFontFaceRule { unCSSFontFaceRule :: JSVal } instance PToJSVal CSSFontFaceRule where pToJSVal = unCSSFontFaceRule {-# INLINE pToJSVal #-} instance PFromJSVal CSSFontFaceRule where pFromJSVal = CSSFontFaceRule {-# INLINE pFromJSVal #-} instance ToJSVal CSSFontFaceRule where toJSVal = return . unCSSFontFaceRule {-# INLINE toJSVal #-} instance FromJSVal CSSFontFaceRule where fromJSVal v = fmap CSSFontFaceRule <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CSSFontFaceRule where makeObject = makeObject . unCSSFontFaceRule instance IsCSSRule CSSFontFaceRule instance IsGObject CSSFontFaceRule where toGObject = GObject . unCSSFontFaceRule {-# INLINE toGObject #-} unsafeCastGObject = CSSFontFaceRule . unGObject {-# INLINE unsafeCastGObject #-} castToCSSFontFaceRule :: IsGObject obj => obj -> JSM CSSFontFaceRule castToCSSFontFaceRule = castTo gTypeCSSFontFaceRule "CSSFontFaceRule" gTypeCSSFontFaceRule :: JSM GType gTypeCSSFontFaceRule = GType . Object <$> jsg "CSSFontFaceRule" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSImportRule". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.CSSRule" -- -- newtype CSSImportRule = CSSImportRule { unCSSImportRule :: JSVal } instance PToJSVal CSSImportRule where pToJSVal = unCSSImportRule {-# INLINE pToJSVal #-} instance PFromJSVal CSSImportRule where pFromJSVal = CSSImportRule {-# INLINE pFromJSVal #-} instance ToJSVal CSSImportRule where toJSVal = return . unCSSImportRule {-# INLINE toJSVal #-} instance FromJSVal CSSImportRule where fromJSVal v = fmap CSSImportRule <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CSSImportRule where makeObject = makeObject . unCSSImportRule instance IsCSSRule CSSImportRule instance IsGObject CSSImportRule where toGObject = GObject . unCSSImportRule {-# INLINE toGObject #-} unsafeCastGObject = CSSImportRule . unGObject {-# INLINE unsafeCastGObject #-} castToCSSImportRule :: IsGObject obj => obj -> JSM CSSImportRule castToCSSImportRule = castTo gTypeCSSImportRule "CSSImportRule" gTypeCSSImportRule :: JSM GType gTypeCSSImportRule = GType . Object <$> jsg "CSSImportRule" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSKeyframeRule". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.CSSRule" -- -- newtype CSSKeyframeRule = CSSKeyframeRule { unCSSKeyframeRule :: JSVal } instance PToJSVal CSSKeyframeRule where pToJSVal = unCSSKeyframeRule {-# INLINE pToJSVal #-} instance PFromJSVal CSSKeyframeRule where pFromJSVal = CSSKeyframeRule {-# INLINE pFromJSVal #-} instance ToJSVal CSSKeyframeRule where toJSVal = return . unCSSKeyframeRule {-# INLINE toJSVal #-} instance FromJSVal CSSKeyframeRule where fromJSVal v = fmap CSSKeyframeRule <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CSSKeyframeRule where makeObject = makeObject . unCSSKeyframeRule instance IsCSSRule CSSKeyframeRule instance IsGObject CSSKeyframeRule where toGObject = GObject . unCSSKeyframeRule {-# INLINE toGObject #-} unsafeCastGObject = CSSKeyframeRule . unGObject {-# INLINE unsafeCastGObject #-} castToCSSKeyframeRule :: IsGObject obj => obj -> JSM CSSKeyframeRule castToCSSKeyframeRule = castTo gTypeCSSKeyframeRule "CSSKeyframeRule" gTypeCSSKeyframeRule :: JSM GType gTypeCSSKeyframeRule = GType . Object <$> jsg "CSSKeyframeRule" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSKeyframesRule". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.CSSRule" -- -- newtype CSSKeyframesRule = CSSKeyframesRule { unCSSKeyframesRule :: JSVal } instance PToJSVal CSSKeyframesRule where pToJSVal = unCSSKeyframesRule {-# INLINE pToJSVal #-} instance PFromJSVal CSSKeyframesRule where pFromJSVal = CSSKeyframesRule {-# INLINE pFromJSVal #-} instance ToJSVal CSSKeyframesRule where toJSVal = return . unCSSKeyframesRule {-# INLINE toJSVal #-} instance FromJSVal CSSKeyframesRule where fromJSVal v = fmap CSSKeyframesRule <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CSSKeyframesRule where makeObject = makeObject . unCSSKeyframesRule instance IsCSSRule CSSKeyframesRule instance IsGObject CSSKeyframesRule where toGObject = GObject . unCSSKeyframesRule {-# INLINE toGObject #-} unsafeCastGObject = CSSKeyframesRule . unGObject {-# INLINE unsafeCastGObject #-} castToCSSKeyframesRule :: IsGObject obj => obj -> JSM CSSKeyframesRule castToCSSKeyframesRule = castTo gTypeCSSKeyframesRule "CSSKeyframesRule" gTypeCSSKeyframesRule :: JSM GType gTypeCSSKeyframesRule = GType . Object <$> jsg "CSSKeyframesRule" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSMediaRule". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.CSSRule" -- -- newtype CSSMediaRule = CSSMediaRule { unCSSMediaRule :: JSVal } instance PToJSVal CSSMediaRule where pToJSVal = unCSSMediaRule {-# INLINE pToJSVal #-} instance PFromJSVal CSSMediaRule where pFromJSVal = CSSMediaRule {-# INLINE pFromJSVal #-} instance ToJSVal CSSMediaRule where toJSVal = return . unCSSMediaRule {-# INLINE toJSVal #-} instance FromJSVal CSSMediaRule where fromJSVal v = fmap CSSMediaRule <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CSSMediaRule where makeObject = makeObject . unCSSMediaRule instance IsCSSRule CSSMediaRule instance IsGObject CSSMediaRule where toGObject = GObject . unCSSMediaRule {-# INLINE toGObject #-} unsafeCastGObject = CSSMediaRule . unGObject {-# INLINE unsafeCastGObject #-} castToCSSMediaRule :: IsGObject obj => obj -> JSM CSSMediaRule castToCSSMediaRule = castTo gTypeCSSMediaRule "CSSMediaRule" gTypeCSSMediaRule :: JSM GType gTypeCSSMediaRule = GType . Object <$> jsg "CSSMediaRule" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSPageRule". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.CSSRule" -- -- newtype CSSPageRule = CSSPageRule { unCSSPageRule :: JSVal } instance PToJSVal CSSPageRule where pToJSVal = unCSSPageRule {-# INLINE pToJSVal #-} instance PFromJSVal CSSPageRule where pFromJSVal = CSSPageRule {-# INLINE pFromJSVal #-} instance ToJSVal CSSPageRule where toJSVal = return . unCSSPageRule {-# INLINE toJSVal #-} instance FromJSVal CSSPageRule where fromJSVal v = fmap CSSPageRule <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CSSPageRule where makeObject = makeObject . unCSSPageRule instance IsCSSRule CSSPageRule instance IsGObject CSSPageRule where toGObject = GObject . unCSSPageRule {-# INLINE toGObject #-} unsafeCastGObject = CSSPageRule . unGObject {-# INLINE unsafeCastGObject #-} castToCSSPageRule :: IsGObject obj => obj -> JSM CSSPageRule castToCSSPageRule = castTo gTypeCSSPageRule "CSSPageRule" gTypeCSSPageRule :: JSM GType gTypeCSSPageRule = GType . Object <$> jsg "CSSPageRule" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSPrimitiveValue". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.CSSValue" -- -- newtype CSSPrimitiveValue = CSSPrimitiveValue { unCSSPrimitiveValue :: JSVal } instance PToJSVal CSSPrimitiveValue where pToJSVal = unCSSPrimitiveValue {-# INLINE pToJSVal #-} instance PFromJSVal CSSPrimitiveValue where pFromJSVal = CSSPrimitiveValue {-# INLINE pFromJSVal #-} instance ToJSVal CSSPrimitiveValue where toJSVal = return . unCSSPrimitiveValue {-# INLINE toJSVal #-} instance FromJSVal CSSPrimitiveValue where fromJSVal v = fmap CSSPrimitiveValue <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CSSPrimitiveValue where makeObject = makeObject . unCSSPrimitiveValue instance IsCSSValue CSSPrimitiveValue instance IsGObject CSSPrimitiveValue where toGObject = GObject . unCSSPrimitiveValue {-# INLINE toGObject #-} unsafeCastGObject = CSSPrimitiveValue . unGObject {-# INLINE unsafeCastGObject #-} castToCSSPrimitiveValue :: IsGObject obj => obj -> JSM CSSPrimitiveValue castToCSSPrimitiveValue = castTo gTypeCSSPrimitiveValue "CSSPrimitiveValue" gTypeCSSPrimitiveValue :: JSM GType gTypeCSSPrimitiveValue = GType . Object <$> jsg "CSSPrimitiveValue" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSRule". -- -- newtype CSSRule = CSSRule { unCSSRule :: JSVal } instance PToJSVal CSSRule where pToJSVal = unCSSRule {-# INLINE pToJSVal #-} instance PFromJSVal CSSRule where pFromJSVal = CSSRule {-# INLINE pFromJSVal #-} instance ToJSVal CSSRule where toJSVal = return . unCSSRule {-# INLINE toJSVal #-} instance FromJSVal CSSRule where fromJSVal v = fmap CSSRule <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CSSRule where makeObject = makeObject . unCSSRule class IsGObject o => IsCSSRule o toCSSRule :: IsCSSRule o => o -> CSSRule toCSSRule = unsafeCastGObject . toGObject instance IsCSSRule CSSRule instance IsGObject CSSRule where toGObject = GObject . unCSSRule {-# INLINE toGObject #-} unsafeCastGObject = CSSRule . unGObject {-# INLINE unsafeCastGObject #-} castToCSSRule :: IsGObject obj => obj -> JSM CSSRule castToCSSRule = castTo gTypeCSSRule "CSSRule" gTypeCSSRule :: JSM GType gTypeCSSRule = GType . Object <$> jsg "CSSRule" #else type IsCSSRule o = CSSRuleClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSRuleList". -- -- newtype CSSRuleList = CSSRuleList { unCSSRuleList :: JSVal } instance PToJSVal CSSRuleList where pToJSVal = unCSSRuleList {-# INLINE pToJSVal #-} instance PFromJSVal CSSRuleList where pFromJSVal = CSSRuleList {-# INLINE pFromJSVal #-} instance ToJSVal CSSRuleList where toJSVal = return . unCSSRuleList {-# INLINE toJSVal #-} instance FromJSVal CSSRuleList where fromJSVal v = fmap CSSRuleList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CSSRuleList where makeObject = makeObject . unCSSRuleList instance IsGObject CSSRuleList where toGObject = GObject . unCSSRuleList {-# INLINE toGObject #-} unsafeCastGObject = CSSRuleList . unGObject {-# INLINE unsafeCastGObject #-} castToCSSRuleList :: IsGObject obj => obj -> JSM CSSRuleList castToCSSRuleList = castTo gTypeCSSRuleList "CSSRuleList" gTypeCSSRuleList :: JSM GType gTypeCSSRuleList = GType . Object <$> jsg "CSSRuleList" #else type IsCSSRuleList o = CSSRuleListClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSStyleDeclaration". -- -- newtype CSSStyleDeclaration = CSSStyleDeclaration { unCSSStyleDeclaration :: JSVal } instance PToJSVal CSSStyleDeclaration where pToJSVal = unCSSStyleDeclaration {-# INLINE pToJSVal #-} instance PFromJSVal CSSStyleDeclaration where pFromJSVal = CSSStyleDeclaration {-# INLINE pFromJSVal #-} instance ToJSVal CSSStyleDeclaration where toJSVal = return . unCSSStyleDeclaration {-# INLINE toJSVal #-} instance FromJSVal CSSStyleDeclaration where fromJSVal v = fmap CSSStyleDeclaration <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CSSStyleDeclaration where makeObject = makeObject . unCSSStyleDeclaration instance IsGObject CSSStyleDeclaration where toGObject = GObject . unCSSStyleDeclaration {-# INLINE toGObject #-} unsafeCastGObject = CSSStyleDeclaration . unGObject {-# INLINE unsafeCastGObject #-} castToCSSStyleDeclaration :: IsGObject obj => obj -> JSM CSSStyleDeclaration castToCSSStyleDeclaration = castTo gTypeCSSStyleDeclaration "CSSStyleDeclaration" gTypeCSSStyleDeclaration :: JSM GType gTypeCSSStyleDeclaration = GType . Object <$> jsg "CSSStyleDeclaration" #else type IsCSSStyleDeclaration o = CSSStyleDeclarationClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSStyleRule". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.CSSRule" -- -- newtype CSSStyleRule = CSSStyleRule { unCSSStyleRule :: JSVal } instance PToJSVal CSSStyleRule where pToJSVal = unCSSStyleRule {-# INLINE pToJSVal #-} instance PFromJSVal CSSStyleRule where pFromJSVal = CSSStyleRule {-# INLINE pFromJSVal #-} instance ToJSVal CSSStyleRule where toJSVal = return . unCSSStyleRule {-# INLINE toJSVal #-} instance FromJSVal CSSStyleRule where fromJSVal v = fmap CSSStyleRule <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CSSStyleRule where makeObject = makeObject . unCSSStyleRule instance IsCSSRule CSSStyleRule instance IsGObject CSSStyleRule where toGObject = GObject . unCSSStyleRule {-# INLINE toGObject #-} unsafeCastGObject = CSSStyleRule . unGObject {-# INLINE unsafeCastGObject #-} castToCSSStyleRule :: IsGObject obj => obj -> JSM CSSStyleRule castToCSSStyleRule = castTo gTypeCSSStyleRule "CSSStyleRule" gTypeCSSStyleRule :: JSM GType gTypeCSSStyleRule = GType . Object <$> jsg "CSSStyleRule" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSStyleSheet". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.StyleSheet" -- -- newtype CSSStyleSheet = CSSStyleSheet { unCSSStyleSheet :: JSVal } instance PToJSVal CSSStyleSheet where pToJSVal = unCSSStyleSheet {-# INLINE pToJSVal #-} instance PFromJSVal CSSStyleSheet where pFromJSVal = CSSStyleSheet {-# INLINE pFromJSVal #-} instance ToJSVal CSSStyleSheet where toJSVal = return . unCSSStyleSheet {-# INLINE toJSVal #-} instance FromJSVal CSSStyleSheet where fromJSVal v = fmap CSSStyleSheet <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CSSStyleSheet where makeObject = makeObject . unCSSStyleSheet instance IsStyleSheet CSSStyleSheet instance IsGObject CSSStyleSheet where toGObject = GObject . unCSSStyleSheet {-# INLINE toGObject #-} unsafeCastGObject = CSSStyleSheet . unGObject {-# INLINE unsafeCastGObject #-} castToCSSStyleSheet :: IsGObject obj => obj -> JSM CSSStyleSheet castToCSSStyleSheet = castTo gTypeCSSStyleSheet "CSSStyleSheet" gTypeCSSStyleSheet :: JSM GType gTypeCSSStyleSheet = GType . Object <$> jsg "CSSStyleSheet" #else type IsCSSStyleSheet o = CSSStyleSheetClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSSupportsRule". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.CSSRule" -- -- newtype CSSSupportsRule = CSSSupportsRule { unCSSSupportsRule :: JSVal } instance PToJSVal CSSSupportsRule where pToJSVal = unCSSSupportsRule {-# INLINE pToJSVal #-} instance PFromJSVal CSSSupportsRule where pFromJSVal = CSSSupportsRule {-# INLINE pFromJSVal #-} instance ToJSVal CSSSupportsRule where toJSVal = return . unCSSSupportsRule {-# INLINE toJSVal #-} instance FromJSVal CSSSupportsRule where fromJSVal v = fmap CSSSupportsRule <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CSSSupportsRule where makeObject = makeObject . unCSSSupportsRule instance IsCSSRule CSSSupportsRule instance IsGObject CSSSupportsRule where toGObject = GObject . unCSSSupportsRule {-# INLINE toGObject #-} unsafeCastGObject = CSSSupportsRule . unGObject {-# INLINE unsafeCastGObject #-} castToCSSSupportsRule :: IsGObject obj => obj -> JSM CSSSupportsRule castToCSSSupportsRule = castTo gTypeCSSSupportsRule "CSSSupportsRule" gTypeCSSSupportsRule :: JSM GType gTypeCSSSupportsRule = GType . Object <$> jsg "CSSSupportsRule" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSUnknownRule". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.CSSRule" -- -- newtype CSSUnknownRule = CSSUnknownRule { unCSSUnknownRule :: JSVal } instance PToJSVal CSSUnknownRule where pToJSVal = unCSSUnknownRule {-# INLINE pToJSVal #-} instance PFromJSVal CSSUnknownRule where pFromJSVal = CSSUnknownRule {-# INLINE pFromJSVal #-} instance ToJSVal CSSUnknownRule where toJSVal = return . unCSSUnknownRule {-# INLINE toJSVal #-} instance FromJSVal CSSUnknownRule where fromJSVal v = fmap CSSUnknownRule <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CSSUnknownRule where makeObject = makeObject . unCSSUnknownRule instance IsCSSRule CSSUnknownRule instance IsGObject CSSUnknownRule where toGObject = GObject . unCSSUnknownRule {-# INLINE toGObject #-} unsafeCastGObject = CSSUnknownRule . unGObject {-# INLINE unsafeCastGObject #-} castToCSSUnknownRule :: IsGObject obj => obj -> JSM CSSUnknownRule castToCSSUnknownRule = castTo gTypeCSSUnknownRule "CSSUnknownRule" gTypeCSSUnknownRule :: JSM GType gTypeCSSUnknownRule = GType . Object <$> jsg "CSSUnknownRule" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSValue". -- -- newtype CSSValue = CSSValue { unCSSValue :: JSVal } instance PToJSVal CSSValue where pToJSVal = unCSSValue {-# INLINE pToJSVal #-} instance PFromJSVal CSSValue where pFromJSVal = CSSValue {-# INLINE pFromJSVal #-} instance ToJSVal CSSValue where toJSVal = return . unCSSValue {-# INLINE toJSVal #-} instance FromJSVal CSSValue where fromJSVal v = fmap CSSValue <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CSSValue where makeObject = makeObject . unCSSValue class IsGObject o => IsCSSValue o toCSSValue :: IsCSSValue o => o -> CSSValue toCSSValue = unsafeCastGObject . toGObject instance IsCSSValue CSSValue instance IsGObject CSSValue where toGObject = GObject . unCSSValue {-# INLINE toGObject #-} unsafeCastGObject = CSSValue . unGObject {-# INLINE unsafeCastGObject #-} castToCSSValue :: IsGObject obj => obj -> JSM CSSValue castToCSSValue = castTo gTypeCSSValue "CSSValue" gTypeCSSValue :: JSM GType gTypeCSSValue = GType . Object <$> jsg "CSSValue" #else type IsCSSValue o = CSSValueClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSValueList". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.CSSValue" -- -- newtype CSSValueList = CSSValueList { unCSSValueList :: JSVal } instance PToJSVal CSSValueList where pToJSVal = unCSSValueList {-# INLINE pToJSVal #-} instance PFromJSVal CSSValueList where pFromJSVal = CSSValueList {-# INLINE pFromJSVal #-} instance ToJSVal CSSValueList where toJSVal = return . unCSSValueList {-# INLINE toJSVal #-} instance FromJSVal CSSValueList where fromJSVal v = fmap CSSValueList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CSSValueList where makeObject = makeObject . unCSSValueList class IsCSSValue o => IsCSSValueList o toCSSValueList :: IsCSSValueList o => o -> CSSValueList toCSSValueList = unsafeCastGObject . toGObject instance IsCSSValueList CSSValueList instance IsCSSValue CSSValueList instance IsGObject CSSValueList where toGObject = GObject . unCSSValueList {-# INLINE toGObject #-} unsafeCastGObject = CSSValueList . unGObject {-# INLINE unsafeCastGObject #-} castToCSSValueList :: IsGObject obj => obj -> JSM CSSValueList castToCSSValueList = castTo gTypeCSSValueList "CSSValueList" gTypeCSSValueList :: JSM GType gTypeCSSValueList = GType . Object <$> jsg "CSSValueList" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CanvasGradient". -- -- newtype CanvasGradient = CanvasGradient { unCanvasGradient :: JSVal } instance PToJSVal CanvasGradient where pToJSVal = unCanvasGradient {-# INLINE pToJSVal #-} instance PFromJSVal CanvasGradient where pFromJSVal = CanvasGradient {-# INLINE pFromJSVal #-} instance ToJSVal CanvasGradient where toJSVal = return . unCanvasGradient {-# INLINE toJSVal #-} instance FromJSVal CanvasGradient where fromJSVal v = fmap CanvasGradient <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CanvasGradient where makeObject = makeObject . unCanvasGradient instance IsGObject CanvasGradient where toGObject = GObject . unCanvasGradient {-# INLINE toGObject #-} unsafeCastGObject = CanvasGradient . unGObject {-# INLINE unsafeCastGObject #-} castToCanvasGradient :: IsGObject obj => obj -> JSM CanvasGradient castToCanvasGradient = castTo gTypeCanvasGradient "CanvasGradient" gTypeCanvasGradient :: JSM GType gTypeCanvasGradient = GType . Object <$> jsg "CanvasGradient" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CanvasPattern". -- -- newtype CanvasPattern = CanvasPattern { unCanvasPattern :: JSVal } instance PToJSVal CanvasPattern where pToJSVal = unCanvasPattern {-# INLINE pToJSVal #-} instance PFromJSVal CanvasPattern where pFromJSVal = CanvasPattern {-# INLINE pFromJSVal #-} instance ToJSVal CanvasPattern where toJSVal = return . unCanvasPattern {-# INLINE toJSVal #-} instance FromJSVal CanvasPattern where fromJSVal v = fmap CanvasPattern <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CanvasPattern where makeObject = makeObject . unCanvasPattern instance IsGObject CanvasPattern where toGObject = GObject . unCanvasPattern {-# INLINE toGObject #-} unsafeCastGObject = CanvasPattern . unGObject {-# INLINE unsafeCastGObject #-} castToCanvasPattern :: IsGObject obj => obj -> JSM CanvasPattern castToCanvasPattern = castTo gTypeCanvasPattern "CanvasPattern" gTypeCanvasPattern :: JSM GType gTypeCanvasPattern = GType . Object <$> jsg "CanvasPattern" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CanvasProxy". -- -- newtype CanvasProxy = CanvasProxy { unCanvasProxy :: JSVal } instance PToJSVal CanvasProxy where pToJSVal = unCanvasProxy {-# INLINE pToJSVal #-} instance PFromJSVal CanvasProxy where pFromJSVal = CanvasProxy {-# INLINE pFromJSVal #-} instance ToJSVal CanvasProxy where toJSVal = return . unCanvasProxy {-# INLINE toJSVal #-} instance FromJSVal CanvasProxy where fromJSVal v = fmap CanvasProxy <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CanvasProxy where makeObject = makeObject . unCanvasProxy instance IsGObject CanvasProxy where toGObject = GObject . unCanvasProxy {-# INLINE toGObject #-} unsafeCastGObject = CanvasProxy . unGObject {-# INLINE unsafeCastGObject #-} castToCanvasProxy :: IsGObject obj => obj -> JSM CanvasProxy castToCanvasProxy = castTo gTypeCanvasProxy "CanvasProxy" gTypeCanvasProxy :: JSM GType gTypeCanvasProxy = GType . Object <$> jsg "CanvasProxy" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CanvasRenderingContext". -- -- newtype CanvasRenderingContext = CanvasRenderingContext { unCanvasRenderingContext :: JSVal } instance PToJSVal CanvasRenderingContext where pToJSVal = unCanvasRenderingContext {-# INLINE pToJSVal #-} instance PFromJSVal CanvasRenderingContext where pFromJSVal = CanvasRenderingContext {-# INLINE pFromJSVal #-} instance ToJSVal CanvasRenderingContext where toJSVal = return . unCanvasRenderingContext {-# INLINE toJSVal #-} instance FromJSVal CanvasRenderingContext where fromJSVal v = fmap CanvasRenderingContext <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CanvasRenderingContext where makeObject = makeObject . unCanvasRenderingContext class IsGObject o => IsCanvasRenderingContext o toCanvasRenderingContext :: IsCanvasRenderingContext o => o -> CanvasRenderingContext toCanvasRenderingContext = unsafeCastGObject . toGObject instance IsCanvasRenderingContext CanvasRenderingContext instance IsGObject CanvasRenderingContext where toGObject = GObject . unCanvasRenderingContext {-# INLINE toGObject #-} unsafeCastGObject = CanvasRenderingContext . unGObject {-# INLINE unsafeCastGObject #-} castToCanvasRenderingContext :: IsGObject obj => obj -> JSM CanvasRenderingContext castToCanvasRenderingContext = castTo gTypeCanvasRenderingContext "CanvasRenderingContext" gTypeCanvasRenderingContext :: JSM GType gTypeCanvasRenderingContext = GType . Object <$> jsg "CanvasRenderingContext" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CanvasRenderingContext2D". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.CanvasRenderingContext" -- -- newtype CanvasRenderingContext2D = CanvasRenderingContext2D { unCanvasRenderingContext2D :: JSVal } instance PToJSVal CanvasRenderingContext2D where pToJSVal = unCanvasRenderingContext2D {-# INLINE pToJSVal #-} instance PFromJSVal CanvasRenderingContext2D where pFromJSVal = CanvasRenderingContext2D {-# INLINE pFromJSVal #-} instance ToJSVal CanvasRenderingContext2D where toJSVal = return . unCanvasRenderingContext2D {-# INLINE toJSVal #-} instance FromJSVal CanvasRenderingContext2D where fromJSVal v = fmap CanvasRenderingContext2D <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CanvasRenderingContext2D where makeObject = makeObject . unCanvasRenderingContext2D instance IsCanvasRenderingContext CanvasRenderingContext2D instance IsGObject CanvasRenderingContext2D where toGObject = GObject . unCanvasRenderingContext2D {-# INLINE toGObject #-} unsafeCastGObject = CanvasRenderingContext2D . unGObject {-# INLINE unsafeCastGObject #-} castToCanvasRenderingContext2D :: IsGObject obj => obj -> JSM CanvasRenderingContext2D castToCanvasRenderingContext2D = castTo gTypeCanvasRenderingContext2D "CanvasRenderingContext2D" gTypeCanvasRenderingContext2D :: JSM GType gTypeCanvasRenderingContext2D = GType . Object <$> jsg "CanvasRenderingContext2D" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CapabilityRange". -- -- newtype CapabilityRange = CapabilityRange { unCapabilityRange :: JSVal } instance PToJSVal CapabilityRange where pToJSVal = unCapabilityRange {-# INLINE pToJSVal #-} instance PFromJSVal CapabilityRange where pFromJSVal = CapabilityRange {-# INLINE pFromJSVal #-} instance ToJSVal CapabilityRange where toJSVal = return . unCapabilityRange {-# INLINE toJSVal #-} instance FromJSVal CapabilityRange where fromJSVal v = fmap CapabilityRange <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CapabilityRange where makeObject = makeObject . unCapabilityRange instance IsGObject CapabilityRange where toGObject = GObject . unCapabilityRange {-# INLINE toGObject #-} unsafeCastGObject = CapabilityRange . unGObject {-# INLINE unsafeCastGObject #-} castToCapabilityRange :: IsGObject obj => obj -> JSM CapabilityRange castToCapabilityRange = castTo gTypeCapabilityRange "CapabilityRange" gTypeCapabilityRange :: JSM GType gTypeCapabilityRange = GType . Object <$> jsg "CapabilityRange" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ChannelMergerNode". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.AudioNode" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype ChannelMergerNode = ChannelMergerNode { unChannelMergerNode :: JSVal } instance PToJSVal ChannelMergerNode where pToJSVal = unChannelMergerNode {-# INLINE pToJSVal #-} instance PFromJSVal ChannelMergerNode where pFromJSVal = ChannelMergerNode {-# INLINE pFromJSVal #-} instance ToJSVal ChannelMergerNode where toJSVal = return . unChannelMergerNode {-# INLINE toJSVal #-} instance FromJSVal ChannelMergerNode where fromJSVal v = fmap ChannelMergerNode <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject ChannelMergerNode where makeObject = makeObject . unChannelMergerNode instance IsAudioNode ChannelMergerNode instance IsEventTarget ChannelMergerNode instance IsGObject ChannelMergerNode where toGObject = GObject . unChannelMergerNode {-# INLINE toGObject #-} unsafeCastGObject = ChannelMergerNode . unGObject {-# INLINE unsafeCastGObject #-} castToChannelMergerNode :: IsGObject obj => obj -> JSM ChannelMergerNode castToChannelMergerNode = castTo gTypeChannelMergerNode "ChannelMergerNode" gTypeChannelMergerNode :: JSM GType gTypeChannelMergerNode = GType . Object <$> jsg "ChannelMergerNode" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ChannelSplitterNode". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.AudioNode" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype ChannelSplitterNode = ChannelSplitterNode { unChannelSplitterNode :: JSVal } instance PToJSVal ChannelSplitterNode where pToJSVal = unChannelSplitterNode {-# INLINE pToJSVal #-} instance PFromJSVal ChannelSplitterNode where pFromJSVal = ChannelSplitterNode {-# INLINE pFromJSVal #-} instance ToJSVal ChannelSplitterNode where toJSVal = return . unChannelSplitterNode {-# INLINE toJSVal #-} instance FromJSVal ChannelSplitterNode where fromJSVal v = fmap ChannelSplitterNode <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject ChannelSplitterNode where makeObject = makeObject . unChannelSplitterNode instance IsAudioNode ChannelSplitterNode instance IsEventTarget ChannelSplitterNode instance IsGObject ChannelSplitterNode where toGObject = GObject . unChannelSplitterNode {-# INLINE toGObject #-} unsafeCastGObject = ChannelSplitterNode . unGObject {-# INLINE unsafeCastGObject #-} castToChannelSplitterNode :: IsGObject obj => obj -> JSM ChannelSplitterNode castToChannelSplitterNode = castTo gTypeChannelSplitterNode "ChannelSplitterNode" gTypeChannelSplitterNode :: JSM GType gTypeChannelSplitterNode = GType . Object <$> jsg "ChannelSplitterNode" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CharacterData". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype CharacterData = CharacterData { unCharacterData :: JSVal } instance PToJSVal CharacterData where pToJSVal = unCharacterData {-# INLINE pToJSVal #-} instance PFromJSVal CharacterData where pFromJSVal = CharacterData {-# INLINE pFromJSVal #-} instance ToJSVal CharacterData where toJSVal = return . unCharacterData {-# INLINE toJSVal #-} instance FromJSVal CharacterData where fromJSVal v = fmap CharacterData <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CharacterData where makeObject = makeObject . unCharacterData class IsNode o => IsCharacterData o toCharacterData :: IsCharacterData o => o -> CharacterData toCharacterData = unsafeCastGObject . toGObject instance IsCharacterData CharacterData instance IsNode CharacterData instance IsEventTarget CharacterData instance IsGObject CharacterData where toGObject = GObject . unCharacterData {-# INLINE toGObject #-} unsafeCastGObject = CharacterData . unGObject {-# INLINE unsafeCastGObject #-} castToCharacterData :: IsGObject obj => obj -> JSM CharacterData castToCharacterData = castTo gTypeCharacterData "CharacterData" gTypeCharacterData :: JSM GType gTypeCharacterData = GType . Object <$> jsg "CharacterData" #else type IsCharacterData o = CharacterDataClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ChildNode". -- -- newtype ChildNode = ChildNode { unChildNode :: JSVal } instance PToJSVal ChildNode where pToJSVal = unChildNode {-# INLINE pToJSVal #-} instance PFromJSVal ChildNode where pFromJSVal = ChildNode {-# INLINE pFromJSVal #-} instance ToJSVal ChildNode where toJSVal = return . unChildNode {-# INLINE toJSVal #-} instance FromJSVal ChildNode where fromJSVal v = fmap ChildNode <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject ChildNode where makeObject = makeObject . unChildNode instance IsGObject ChildNode where toGObject = GObject . unChildNode {-# INLINE toGObject #-} unsafeCastGObject = ChildNode . unGObject {-# INLINE unsafeCastGObject #-} castToChildNode :: IsGObject obj => obj -> JSM ChildNode castToChildNode = castTo gTypeChildNode "ChildNode" gTypeChildNode :: JSM GType gTypeChildNode = GType . Object <$> jsg "ChildNode" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ClientRect". -- -- newtype ClientRect = ClientRect { unClientRect :: JSVal } instance PToJSVal ClientRect where pToJSVal = unClientRect {-# INLINE pToJSVal #-} instance PFromJSVal ClientRect where pFromJSVal = ClientRect {-# INLINE pFromJSVal #-} instance ToJSVal ClientRect where toJSVal = return . unClientRect {-# INLINE toJSVal #-} instance FromJSVal ClientRect where fromJSVal v = fmap ClientRect <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject ClientRect where makeObject = makeObject . unClientRect instance IsGObject ClientRect where toGObject = GObject . unClientRect {-# INLINE toGObject #-} unsafeCastGObject = ClientRect . unGObject {-# INLINE unsafeCastGObject #-} castToClientRect :: IsGObject obj => obj -> JSM ClientRect castToClientRect = castTo gTypeClientRect "ClientRect" gTypeClientRect :: JSM GType gTypeClientRect = GType . Object <$> jsg "ClientRect" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ClientRectList". -- -- newtype ClientRectList = ClientRectList { unClientRectList :: JSVal } instance PToJSVal ClientRectList where pToJSVal = unClientRectList {-# INLINE pToJSVal #-} instance PFromJSVal ClientRectList where pFromJSVal = ClientRectList {-# INLINE pFromJSVal #-} instance ToJSVal ClientRectList where toJSVal = return . unClientRectList {-# INLINE toJSVal #-} instance FromJSVal ClientRectList where fromJSVal v = fmap ClientRectList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject ClientRectList where makeObject = makeObject . unClientRectList instance IsGObject ClientRectList where toGObject = GObject . unClientRectList {-# INLINE toGObject #-} unsafeCastGObject = ClientRectList . unGObject {-# INLINE unsafeCastGObject #-} castToClientRectList :: IsGObject obj => obj -> JSM ClientRectList castToClientRectList = castTo gTypeClientRectList "ClientRectList" gTypeClientRectList :: JSM GType gTypeClientRectList = GType . Object <$> jsg "ClientRectList" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CloseEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype CloseEvent = CloseEvent { unCloseEvent :: JSVal } instance PToJSVal CloseEvent where pToJSVal = unCloseEvent {-# INLINE pToJSVal #-} instance PFromJSVal CloseEvent where pFromJSVal = CloseEvent {-# INLINE pFromJSVal #-} instance ToJSVal CloseEvent where toJSVal = return . unCloseEvent {-# INLINE toJSVal #-} instance FromJSVal CloseEvent where fromJSVal v = fmap CloseEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CloseEvent where makeObject = makeObject . unCloseEvent instance IsEvent CloseEvent instance IsGObject CloseEvent where toGObject = GObject . unCloseEvent {-# INLINE toGObject #-} unsafeCastGObject = CloseEvent . unGObject {-# INLINE unsafeCastGObject #-} castToCloseEvent :: IsGObject obj => obj -> JSM CloseEvent castToCloseEvent = castTo gTypeCloseEvent "CloseEvent" gTypeCloseEvent :: JSM GType gTypeCloseEvent = GType . Object <$> jsg "CloseEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CommandLineAPIHost". -- -- newtype CommandLineAPIHost = CommandLineAPIHost { unCommandLineAPIHost :: JSVal } instance PToJSVal CommandLineAPIHost where pToJSVal = unCommandLineAPIHost {-# INLINE pToJSVal #-} instance PFromJSVal CommandLineAPIHost where pFromJSVal = CommandLineAPIHost {-# INLINE pFromJSVal #-} instance ToJSVal CommandLineAPIHost where toJSVal = return . unCommandLineAPIHost {-# INLINE toJSVal #-} instance FromJSVal CommandLineAPIHost where fromJSVal v = fmap CommandLineAPIHost <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CommandLineAPIHost where makeObject = makeObject . unCommandLineAPIHost instance IsGObject CommandLineAPIHost where toGObject = GObject . unCommandLineAPIHost {-# INLINE toGObject #-} unsafeCastGObject = CommandLineAPIHost . unGObject {-# INLINE unsafeCastGObject #-} castToCommandLineAPIHost :: IsGObject obj => obj -> JSM CommandLineAPIHost castToCommandLineAPIHost = castTo gTypeCommandLineAPIHost "CommandLineAPIHost" gTypeCommandLineAPIHost :: JSM GType gTypeCommandLineAPIHost = GType . Object <$> jsg "CommandLineAPIHost" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Comment". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.CharacterData" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype Comment = Comment { unComment :: JSVal } instance PToJSVal Comment where pToJSVal = unComment {-# INLINE pToJSVal #-} instance PFromJSVal Comment where pFromJSVal = Comment {-# INLINE pFromJSVal #-} instance ToJSVal Comment where toJSVal = return . unComment {-# INLINE toJSVal #-} instance FromJSVal Comment where fromJSVal v = fmap Comment <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Comment where makeObject = makeObject . unComment instance IsCharacterData Comment instance IsNode Comment instance IsEventTarget Comment instance IsGObject Comment where toGObject = GObject . unComment {-# INLINE toGObject #-} unsafeCastGObject = Comment . unGObject {-# INLINE unsafeCastGObject #-} castToComment :: IsGObject obj => obj -> JSM Comment castToComment = castTo gTypeComment "Comment" gTypeComment :: JSM GType gTypeComment = GType . Object <$> jsg "Comment" #else type IsComment o = CommentClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CompositionEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.UIEvent" -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype CompositionEvent = CompositionEvent { unCompositionEvent :: JSVal } instance PToJSVal CompositionEvent where pToJSVal = unCompositionEvent {-# INLINE pToJSVal #-} instance PFromJSVal CompositionEvent where pFromJSVal = CompositionEvent {-# INLINE pFromJSVal #-} instance ToJSVal CompositionEvent where toJSVal = return . unCompositionEvent {-# INLINE toJSVal #-} instance FromJSVal CompositionEvent where fromJSVal v = fmap CompositionEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CompositionEvent where makeObject = makeObject . unCompositionEvent instance IsUIEvent CompositionEvent instance IsEvent CompositionEvent instance IsGObject CompositionEvent where toGObject = GObject . unCompositionEvent {-# INLINE toGObject #-} unsafeCastGObject = CompositionEvent . unGObject {-# INLINE unsafeCastGObject #-} castToCompositionEvent :: IsGObject obj => obj -> JSM CompositionEvent castToCompositionEvent = castTo gTypeCompositionEvent "CompositionEvent" gTypeCompositionEvent :: JSM GType gTypeCompositionEvent = GType . Object <$> jsg "CompositionEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ConvolverNode". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.AudioNode" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype ConvolverNode = ConvolverNode { unConvolverNode :: JSVal } instance PToJSVal ConvolverNode where pToJSVal = unConvolverNode {-# INLINE pToJSVal #-} instance PFromJSVal ConvolverNode where pFromJSVal = ConvolverNode {-# INLINE pFromJSVal #-} instance ToJSVal ConvolverNode where toJSVal = return . unConvolverNode {-# INLINE toJSVal #-} instance FromJSVal ConvolverNode where fromJSVal v = fmap ConvolverNode <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject ConvolverNode where makeObject = makeObject . unConvolverNode instance IsAudioNode ConvolverNode instance IsEventTarget ConvolverNode instance IsGObject ConvolverNode where toGObject = GObject . unConvolverNode {-# INLINE toGObject #-} unsafeCastGObject = ConvolverNode . unGObject {-# INLINE unsafeCastGObject #-} castToConvolverNode :: IsGObject obj => obj -> JSM ConvolverNode castToConvolverNode = castTo gTypeConvolverNode "ConvolverNode" gTypeConvolverNode :: JSM GType gTypeConvolverNode = GType . Object <$> jsg "ConvolverNode" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Coordinates". -- -- newtype Coordinates = Coordinates { unCoordinates :: JSVal } instance PToJSVal Coordinates where pToJSVal = unCoordinates {-# INLINE pToJSVal #-} instance PFromJSVal Coordinates where pFromJSVal = Coordinates {-# INLINE pFromJSVal #-} instance ToJSVal Coordinates where toJSVal = return . unCoordinates {-# INLINE toJSVal #-} instance FromJSVal Coordinates where fromJSVal v = fmap Coordinates <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Coordinates where makeObject = makeObject . unCoordinates instance IsGObject Coordinates where toGObject = GObject . unCoordinates {-# INLINE toGObject #-} unsafeCastGObject = Coordinates . unGObject {-# INLINE unsafeCastGObject #-} castToCoordinates :: IsGObject obj => obj -> JSM Coordinates castToCoordinates = castTo gTypeCoordinates "Coordinates" gTypeCoordinates :: JSM GType gTypeCoordinates = GType . Object <$> jsg "Coordinates" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Counter". -- -- newtype Counter = Counter { unCounter :: JSVal } instance PToJSVal Counter where pToJSVal = unCounter {-# INLINE pToJSVal #-} instance PFromJSVal Counter where pFromJSVal = Counter {-# INLINE pFromJSVal #-} instance ToJSVal Counter where toJSVal = return . unCounter {-# INLINE toJSVal #-} instance FromJSVal Counter where fromJSVal v = fmap Counter <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Counter where makeObject = makeObject . unCounter instance IsGObject Counter where toGObject = GObject . unCounter {-# INLINE toGObject #-} unsafeCastGObject = Counter . unGObject {-# INLINE unsafeCastGObject #-} castToCounter :: IsGObject obj => obj -> JSM Counter castToCounter = castTo gTypeCounter "Counter" gTypeCounter :: JSM GType gTypeCounter = GType . Object <$> jsg "Counter" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Crypto". -- -- newtype Crypto = Crypto { unCrypto :: JSVal } instance PToJSVal Crypto where pToJSVal = unCrypto {-# INLINE pToJSVal #-} instance PFromJSVal Crypto where pFromJSVal = Crypto {-# INLINE pFromJSVal #-} instance ToJSVal Crypto where toJSVal = return . unCrypto {-# INLINE toJSVal #-} instance FromJSVal Crypto where fromJSVal v = fmap Crypto <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Crypto where makeObject = makeObject . unCrypto instance IsGObject Crypto where toGObject = GObject . unCrypto {-# INLINE toGObject #-} unsafeCastGObject = Crypto . unGObject {-# INLINE unsafeCastGObject #-} castToCrypto :: IsGObject obj => obj -> JSM Crypto castToCrypto = castTo gTypeCrypto "Crypto" gTypeCrypto :: JSM GType gTypeCrypto = GType . Object <$> jsg "Crypto" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CryptoKey". -- -- newtype CryptoKey = CryptoKey { unCryptoKey :: JSVal } instance PToJSVal CryptoKey where pToJSVal = unCryptoKey {-# INLINE pToJSVal #-} instance PFromJSVal CryptoKey where pFromJSVal = CryptoKey {-# INLINE pFromJSVal #-} instance ToJSVal CryptoKey where toJSVal = return . unCryptoKey {-# INLINE toJSVal #-} instance FromJSVal CryptoKey where fromJSVal v = fmap CryptoKey <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CryptoKey where makeObject = makeObject . unCryptoKey instance IsGObject CryptoKey where toGObject = GObject . unCryptoKey {-# INLINE toGObject #-} unsafeCastGObject = CryptoKey . unGObject {-# INLINE unsafeCastGObject #-} castToCryptoKey :: IsGObject obj => obj -> JSM CryptoKey castToCryptoKey = castTo gTypeCryptoKey "CryptoKey" gTypeCryptoKey :: JSM GType gTypeCryptoKey = GType . Object <$> jsg "CryptoKey" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CryptoKeyPair". -- -- newtype CryptoKeyPair = CryptoKeyPair { unCryptoKeyPair :: JSVal } instance PToJSVal CryptoKeyPair where pToJSVal = unCryptoKeyPair {-# INLINE pToJSVal #-} instance PFromJSVal CryptoKeyPair where pFromJSVal = CryptoKeyPair {-# INLINE pFromJSVal #-} instance ToJSVal CryptoKeyPair where toJSVal = return . unCryptoKeyPair {-# INLINE toJSVal #-} instance FromJSVal CryptoKeyPair where fromJSVal v = fmap CryptoKeyPair <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CryptoKeyPair where makeObject = makeObject . unCryptoKeyPair instance IsGObject CryptoKeyPair where toGObject = GObject . unCryptoKeyPair {-# INLINE toGObject #-} unsafeCastGObject = CryptoKeyPair . unGObject {-# INLINE unsafeCastGObject #-} castToCryptoKeyPair :: IsGObject obj => obj -> JSM CryptoKeyPair castToCryptoKeyPair = castTo gTypeCryptoKeyPair "CryptoKeyPair" gTypeCryptoKeyPair :: JSM GType gTypeCryptoKeyPair = GType . Object <$> jsg "CryptoKeyPair" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CustomEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype CustomEvent = CustomEvent { unCustomEvent :: JSVal } instance PToJSVal CustomEvent where pToJSVal = unCustomEvent {-# INLINE pToJSVal #-} instance PFromJSVal CustomEvent where pFromJSVal = CustomEvent {-# INLINE pFromJSVal #-} instance ToJSVal CustomEvent where toJSVal = return . unCustomEvent {-# INLINE toJSVal #-} instance FromJSVal CustomEvent where fromJSVal v = fmap CustomEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject CustomEvent where makeObject = makeObject . unCustomEvent instance IsEvent CustomEvent instance IsGObject CustomEvent where toGObject = GObject . unCustomEvent {-# INLINE toGObject #-} unsafeCastGObject = CustomEvent . unGObject {-# INLINE unsafeCastGObject #-} castToCustomEvent :: IsGObject obj => obj -> JSM CustomEvent castToCustomEvent = castTo gTypeCustomEvent "CustomEvent" gTypeCustomEvent :: JSM GType gTypeCustomEvent = GType . Object <$> jsg "CustomEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DOMError". -- -- newtype DOMError = DOMError { unDOMError :: JSVal } instance PToJSVal DOMError where pToJSVal = unDOMError {-# INLINE pToJSVal #-} instance PFromJSVal DOMError where pFromJSVal = DOMError {-# INLINE pFromJSVal #-} instance ToJSVal DOMError where toJSVal = return . unDOMError {-# INLINE toJSVal #-} instance FromJSVal DOMError where fromJSVal v = fmap DOMError <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject DOMError where makeObject = makeObject . unDOMError class IsGObject o => IsDOMError o toDOMError :: IsDOMError o => o -> DOMError toDOMError = unsafeCastGObject . toGObject instance IsDOMError DOMError instance IsGObject DOMError where toGObject = GObject . unDOMError {-# INLINE toGObject #-} unsafeCastGObject = DOMError . unGObject {-# INLINE unsafeCastGObject #-} castToDOMError :: IsGObject obj => obj -> JSM DOMError castToDOMError = castTo gTypeDOMError "DOMError" gTypeDOMError :: JSM GType gTypeDOMError = GType . Object <$> jsg "DOMError" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DOMImplementation". -- -- newtype DOMImplementation = DOMImplementation { unDOMImplementation :: JSVal } instance PToJSVal DOMImplementation where pToJSVal = unDOMImplementation {-# INLINE pToJSVal #-} instance PFromJSVal DOMImplementation where pFromJSVal = DOMImplementation {-# INLINE pFromJSVal #-} instance ToJSVal DOMImplementation where toJSVal = return . unDOMImplementation {-# INLINE toJSVal #-} instance FromJSVal DOMImplementation where fromJSVal v = fmap DOMImplementation <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject DOMImplementation where makeObject = makeObject . unDOMImplementation instance IsGObject DOMImplementation where toGObject = GObject . unDOMImplementation {-# INLINE toGObject #-} unsafeCastGObject = DOMImplementation . unGObject {-# INLINE unsafeCastGObject #-} castToDOMImplementation :: IsGObject obj => obj -> JSM DOMImplementation castToDOMImplementation = castTo gTypeDOMImplementation "DOMImplementation" gTypeDOMImplementation :: JSM GType gTypeDOMImplementation = GType . Object <$> jsg "DOMImplementation" #else type IsDOMImplementation o = DOMImplementationClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DOMNamedFlowCollection". -- -- newtype DOMNamedFlowCollection = DOMNamedFlowCollection { unDOMNamedFlowCollection :: JSVal } instance PToJSVal DOMNamedFlowCollection where pToJSVal = unDOMNamedFlowCollection {-# INLINE pToJSVal #-} instance PFromJSVal DOMNamedFlowCollection where pFromJSVal = DOMNamedFlowCollection {-# INLINE pFromJSVal #-} instance ToJSVal DOMNamedFlowCollection where toJSVal = return . unDOMNamedFlowCollection {-# INLINE toJSVal #-} instance FromJSVal DOMNamedFlowCollection where fromJSVal v = fmap DOMNamedFlowCollection <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject DOMNamedFlowCollection where makeObject = makeObject . unDOMNamedFlowCollection instance IsGObject DOMNamedFlowCollection where toGObject = GObject . unDOMNamedFlowCollection {-# INLINE toGObject #-} unsafeCastGObject = DOMNamedFlowCollection . unGObject {-# INLINE unsafeCastGObject #-} castToDOMNamedFlowCollection :: IsGObject obj => obj -> JSM DOMNamedFlowCollection castToDOMNamedFlowCollection = castTo gTypeDOMNamedFlowCollection "DOMNamedFlowCollection" gTypeDOMNamedFlowCollection :: JSM GType gTypeDOMNamedFlowCollection = GType . Object <$> jsg "WebKitNamedFlowCollection" #else #ifndef USE_OLD_WEBKIT type IsDOMNamedFlowCollection o = DOMNamedFlowCollectionClass o #endif #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DOMParser". -- -- newtype DOMParser = DOMParser { unDOMParser :: JSVal } instance PToJSVal DOMParser where pToJSVal = unDOMParser {-# INLINE pToJSVal #-} instance PFromJSVal DOMParser where pFromJSVal = DOMParser {-# INLINE pFromJSVal #-} instance ToJSVal DOMParser where toJSVal = return . unDOMParser {-# INLINE toJSVal #-} instance FromJSVal DOMParser where fromJSVal v = fmap DOMParser <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject DOMParser where makeObject = makeObject . unDOMParser instance IsGObject DOMParser where toGObject = GObject . unDOMParser {-# INLINE toGObject #-} unsafeCastGObject = DOMParser . unGObject {-# INLINE unsafeCastGObject #-} castToDOMParser :: IsGObject obj => obj -> JSM DOMParser castToDOMParser = castTo gTypeDOMParser "DOMParser" gTypeDOMParser :: JSM GType gTypeDOMParser = GType . Object <$> jsg "DOMParser" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DOMSettableTokenList". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.DOMTokenList" -- -- newtype DOMSettableTokenList = DOMSettableTokenList { unDOMSettableTokenList :: JSVal } instance PToJSVal DOMSettableTokenList where pToJSVal = unDOMSettableTokenList {-# INLINE pToJSVal #-} instance PFromJSVal DOMSettableTokenList where pFromJSVal = DOMSettableTokenList {-# INLINE pFromJSVal #-} instance ToJSVal DOMSettableTokenList where toJSVal = return . unDOMSettableTokenList {-# INLINE toJSVal #-} instance FromJSVal DOMSettableTokenList where fromJSVal v = fmap DOMSettableTokenList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject DOMSettableTokenList where makeObject = makeObject . unDOMSettableTokenList instance IsDOMTokenList DOMSettableTokenList instance IsGObject DOMSettableTokenList where toGObject = GObject . unDOMSettableTokenList {-# INLINE toGObject #-} unsafeCastGObject = DOMSettableTokenList . unGObject {-# INLINE unsafeCastGObject #-} castToDOMSettableTokenList :: IsGObject obj => obj -> JSM DOMSettableTokenList castToDOMSettableTokenList = castTo gTypeDOMSettableTokenList "DOMSettableTokenList" gTypeDOMSettableTokenList :: JSM GType gTypeDOMSettableTokenList = GType . Object <$> jsg "DOMSettableTokenList" #else type IsDOMSettableTokenList o = DOMSettableTokenListClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DOMStringList". -- -- newtype DOMStringList = DOMStringList { unDOMStringList :: JSVal } instance PToJSVal DOMStringList where pToJSVal = unDOMStringList {-# INLINE pToJSVal #-} instance PFromJSVal DOMStringList where pFromJSVal = DOMStringList {-# INLINE pFromJSVal #-} instance ToJSVal DOMStringList where toJSVal = return . unDOMStringList {-# INLINE toJSVal #-} instance FromJSVal DOMStringList where fromJSVal v = fmap DOMStringList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject DOMStringList where makeObject = makeObject . unDOMStringList instance IsGObject DOMStringList where toGObject = GObject . unDOMStringList {-# INLINE toGObject #-} unsafeCastGObject = DOMStringList . unGObject {-# INLINE unsafeCastGObject #-} castToDOMStringList :: IsGObject obj => obj -> JSM DOMStringList castToDOMStringList = castTo gTypeDOMStringList "DOMStringList" gTypeDOMStringList :: JSM GType gTypeDOMStringList = GType . Object <$> jsg "DOMStringList" #else type IsDOMStringList o = DOMStringListClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DOMStringMap". -- -- newtype DOMStringMap = DOMStringMap { unDOMStringMap :: JSVal } instance PToJSVal DOMStringMap where pToJSVal = unDOMStringMap {-# INLINE pToJSVal #-} instance PFromJSVal DOMStringMap where pFromJSVal = DOMStringMap {-# INLINE pFromJSVal #-} instance ToJSVal DOMStringMap where toJSVal = return . unDOMStringMap {-# INLINE toJSVal #-} instance FromJSVal DOMStringMap where fromJSVal v = fmap DOMStringMap <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject DOMStringMap where makeObject = makeObject . unDOMStringMap instance IsGObject DOMStringMap where toGObject = GObject . unDOMStringMap {-# INLINE toGObject #-} unsafeCastGObject = DOMStringMap . unGObject {-# INLINE unsafeCastGObject #-} castToDOMStringMap :: IsGObject obj => obj -> JSM DOMStringMap castToDOMStringMap = castTo gTypeDOMStringMap "DOMStringMap" gTypeDOMStringMap :: JSM GType gTypeDOMStringMap = GType . Object <$> jsg "DOMStringMap" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DOMTokenList". -- -- newtype DOMTokenList = DOMTokenList { unDOMTokenList :: JSVal } instance PToJSVal DOMTokenList where pToJSVal = unDOMTokenList {-# INLINE pToJSVal #-} instance PFromJSVal DOMTokenList where pFromJSVal = DOMTokenList {-# INLINE pFromJSVal #-} instance ToJSVal DOMTokenList where toJSVal = return . unDOMTokenList {-# INLINE toJSVal #-} instance FromJSVal DOMTokenList where fromJSVal v = fmap DOMTokenList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject DOMTokenList where makeObject = makeObject . unDOMTokenList class IsGObject o => IsDOMTokenList o toDOMTokenList :: IsDOMTokenList o => o -> DOMTokenList toDOMTokenList = unsafeCastGObject . toGObject instance IsDOMTokenList DOMTokenList instance IsGObject DOMTokenList where toGObject = GObject . unDOMTokenList {-# INLINE toGObject #-} unsafeCastGObject = DOMTokenList . unGObject {-# INLINE unsafeCastGObject #-} castToDOMTokenList :: IsGObject obj => obj -> JSM DOMTokenList castToDOMTokenList = castTo gTypeDOMTokenList "DOMTokenList" gTypeDOMTokenList :: JSM GType gTypeDOMTokenList = GType . Object <$> jsg "DOMTokenList" #else type IsDOMTokenList o = DOMTokenListClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DataCue". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.TextTrackCue" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype DataCue = DataCue { unDataCue :: JSVal } instance PToJSVal DataCue where pToJSVal = unDataCue {-# INLINE pToJSVal #-} instance PFromJSVal DataCue where pFromJSVal = DataCue {-# INLINE pFromJSVal #-} instance ToJSVal DataCue where toJSVal = return . unDataCue {-# INLINE toJSVal #-} instance FromJSVal DataCue where fromJSVal v = fmap DataCue <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject DataCue where makeObject = makeObject . unDataCue instance IsTextTrackCue DataCue instance IsEventTarget DataCue instance IsGObject DataCue where toGObject = GObject . unDataCue {-# INLINE toGObject #-} unsafeCastGObject = DataCue . unGObject {-# INLINE unsafeCastGObject #-} castToDataCue :: IsGObject obj => obj -> JSM DataCue castToDataCue = castTo gTypeDataCue "DataCue" gTypeDataCue :: JSM GType gTypeDataCue = GType . Object <$> jsg "WebKitDataCue" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DataTransfer". -- -- newtype DataTransfer = DataTransfer { unDataTransfer :: JSVal } instance PToJSVal DataTransfer where pToJSVal = unDataTransfer {-# INLINE pToJSVal #-} instance PFromJSVal DataTransfer where pFromJSVal = DataTransfer {-# INLINE pFromJSVal #-} instance ToJSVal DataTransfer where toJSVal = return . unDataTransfer {-# INLINE toJSVal #-} instance FromJSVal DataTransfer where fromJSVal v = fmap DataTransfer <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject DataTransfer where makeObject = makeObject . unDataTransfer instance IsGObject DataTransfer where toGObject = GObject . unDataTransfer {-# INLINE toGObject #-} unsafeCastGObject = DataTransfer . unGObject {-# INLINE unsafeCastGObject #-} castToDataTransfer :: IsGObject obj => obj -> JSM DataTransfer castToDataTransfer = castTo gTypeDataTransfer "DataTransfer" gTypeDataTransfer :: JSM GType gTypeDataTransfer = GType . Object <$> jsg "DataTransfer" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DataTransferItem". -- -- newtype DataTransferItem = DataTransferItem { unDataTransferItem :: JSVal } instance PToJSVal DataTransferItem where pToJSVal = unDataTransferItem {-# INLINE pToJSVal #-} instance PFromJSVal DataTransferItem where pFromJSVal = DataTransferItem {-# INLINE pFromJSVal #-} instance ToJSVal DataTransferItem where toJSVal = return . unDataTransferItem {-# INLINE toJSVal #-} instance FromJSVal DataTransferItem where fromJSVal v = fmap DataTransferItem <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject DataTransferItem where makeObject = makeObject . unDataTransferItem instance IsGObject DataTransferItem where toGObject = GObject . unDataTransferItem {-# INLINE toGObject #-} unsafeCastGObject = DataTransferItem . unGObject {-# INLINE unsafeCastGObject #-} castToDataTransferItem :: IsGObject obj => obj -> JSM DataTransferItem castToDataTransferItem = castTo gTypeDataTransferItem "DataTransferItem" gTypeDataTransferItem :: JSM GType gTypeDataTransferItem = GType . Object <$> jsg "DataTransferItem" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DataTransferItemList". -- -- newtype DataTransferItemList = DataTransferItemList { unDataTransferItemList :: JSVal } instance PToJSVal DataTransferItemList where pToJSVal = unDataTransferItemList {-# INLINE pToJSVal #-} instance PFromJSVal DataTransferItemList where pFromJSVal = DataTransferItemList {-# INLINE pFromJSVal #-} instance ToJSVal DataTransferItemList where toJSVal = return . unDataTransferItemList {-# INLINE toJSVal #-} instance FromJSVal DataTransferItemList where fromJSVal v = fmap DataTransferItemList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject DataTransferItemList where makeObject = makeObject . unDataTransferItemList instance IsGObject DataTransferItemList where toGObject = GObject . unDataTransferItemList {-# INLINE toGObject #-} unsafeCastGObject = DataTransferItemList . unGObject {-# INLINE unsafeCastGObject #-} castToDataTransferItemList :: IsGObject obj => obj -> JSM DataTransferItemList castToDataTransferItemList = castTo gTypeDataTransferItemList "DataTransferItemList" gTypeDataTransferItemList :: JSM GType gTypeDataTransferItemList = GType . Object <$> jsg "DataTransferItemList" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Database". -- -- newtype Database = Database { unDatabase :: JSVal } instance PToJSVal Database where pToJSVal = unDatabase {-# INLINE pToJSVal #-} instance PFromJSVal Database where pFromJSVal = Database {-# INLINE pFromJSVal #-} instance ToJSVal Database where toJSVal = return . unDatabase {-# INLINE toJSVal #-} instance FromJSVal Database where fromJSVal v = fmap Database <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Database where makeObject = makeObject . unDatabase instance IsGObject Database where toGObject = GObject . unDatabase {-# INLINE toGObject #-} unsafeCastGObject = Database . unGObject {-# INLINE unsafeCastGObject #-} castToDatabase :: IsGObject obj => obj -> JSM Database castToDatabase = castTo gTypeDatabase "Database" gTypeDatabase :: JSM GType gTypeDatabase = GType . Object <$> jsg "Database" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DedicatedWorkerGlobalScope". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.WorkerGlobalScope" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype DedicatedWorkerGlobalScope = DedicatedWorkerGlobalScope { unDedicatedWorkerGlobalScope :: JSVal } instance PToJSVal DedicatedWorkerGlobalScope where pToJSVal = unDedicatedWorkerGlobalScope {-# INLINE pToJSVal #-} instance PFromJSVal DedicatedWorkerGlobalScope where pFromJSVal = DedicatedWorkerGlobalScope {-# INLINE pFromJSVal #-} instance ToJSVal DedicatedWorkerGlobalScope where toJSVal = return . unDedicatedWorkerGlobalScope {-# INLINE toJSVal #-} instance FromJSVal DedicatedWorkerGlobalScope where fromJSVal v = fmap DedicatedWorkerGlobalScope <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject DedicatedWorkerGlobalScope where makeObject = makeObject . unDedicatedWorkerGlobalScope instance IsWorkerGlobalScope DedicatedWorkerGlobalScope instance IsEventTarget DedicatedWorkerGlobalScope instance IsGObject DedicatedWorkerGlobalScope where toGObject = GObject . unDedicatedWorkerGlobalScope {-# INLINE toGObject #-} unsafeCastGObject = DedicatedWorkerGlobalScope . unGObject {-# INLINE unsafeCastGObject #-} castToDedicatedWorkerGlobalScope :: IsGObject obj => obj -> JSM DedicatedWorkerGlobalScope castToDedicatedWorkerGlobalScope = castTo gTypeDedicatedWorkerGlobalScope "DedicatedWorkerGlobalScope" gTypeDedicatedWorkerGlobalScope :: JSM GType gTypeDedicatedWorkerGlobalScope = GType . Object <$> jsg "DedicatedWorkerGlobalScope" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DelayNode". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.AudioNode" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype DelayNode = DelayNode { unDelayNode :: JSVal } instance PToJSVal DelayNode where pToJSVal = unDelayNode {-# INLINE pToJSVal #-} instance PFromJSVal DelayNode where pFromJSVal = DelayNode {-# INLINE pFromJSVal #-} instance ToJSVal DelayNode where toJSVal = return . unDelayNode {-# INLINE toJSVal #-} instance FromJSVal DelayNode where fromJSVal v = fmap DelayNode <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject DelayNode where makeObject = makeObject . unDelayNode instance IsAudioNode DelayNode instance IsEventTarget DelayNode instance IsGObject DelayNode where toGObject = GObject . unDelayNode {-# INLINE toGObject #-} unsafeCastGObject = DelayNode . unGObject {-# INLINE unsafeCastGObject #-} castToDelayNode :: IsGObject obj => obj -> JSM DelayNode castToDelayNode = castTo gTypeDelayNode "DelayNode" gTypeDelayNode :: JSM GType gTypeDelayNode = GType . Object <$> jsg "DelayNode" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DeviceMotionEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype DeviceMotionEvent = DeviceMotionEvent { unDeviceMotionEvent :: JSVal } instance PToJSVal DeviceMotionEvent where pToJSVal = unDeviceMotionEvent {-# INLINE pToJSVal #-} instance PFromJSVal DeviceMotionEvent where pFromJSVal = DeviceMotionEvent {-# INLINE pFromJSVal #-} instance ToJSVal DeviceMotionEvent where toJSVal = return . unDeviceMotionEvent {-# INLINE toJSVal #-} instance FromJSVal DeviceMotionEvent where fromJSVal v = fmap DeviceMotionEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject DeviceMotionEvent where makeObject = makeObject . unDeviceMotionEvent instance IsEvent DeviceMotionEvent instance IsGObject DeviceMotionEvent where toGObject = GObject . unDeviceMotionEvent {-# INLINE toGObject #-} unsafeCastGObject = DeviceMotionEvent . unGObject {-# INLINE unsafeCastGObject #-} castToDeviceMotionEvent :: IsGObject obj => obj -> JSM DeviceMotionEvent castToDeviceMotionEvent = castTo gTypeDeviceMotionEvent "DeviceMotionEvent" gTypeDeviceMotionEvent :: JSM GType gTypeDeviceMotionEvent = GType . Object <$> jsg "DeviceMotionEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DeviceOrientationEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype DeviceOrientationEvent = DeviceOrientationEvent { unDeviceOrientationEvent :: JSVal } instance PToJSVal DeviceOrientationEvent where pToJSVal = unDeviceOrientationEvent {-# INLINE pToJSVal #-} instance PFromJSVal DeviceOrientationEvent where pFromJSVal = DeviceOrientationEvent {-# INLINE pFromJSVal #-} instance ToJSVal DeviceOrientationEvent where toJSVal = return . unDeviceOrientationEvent {-# INLINE toJSVal #-} instance FromJSVal DeviceOrientationEvent where fromJSVal v = fmap DeviceOrientationEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject DeviceOrientationEvent where makeObject = makeObject . unDeviceOrientationEvent instance IsEvent DeviceOrientationEvent instance IsGObject DeviceOrientationEvent where toGObject = GObject . unDeviceOrientationEvent {-# INLINE toGObject #-} unsafeCastGObject = DeviceOrientationEvent . unGObject {-# INLINE unsafeCastGObject #-} castToDeviceOrientationEvent :: IsGObject obj => obj -> JSM DeviceOrientationEvent castToDeviceOrientationEvent = castTo gTypeDeviceOrientationEvent "DeviceOrientationEvent" gTypeDeviceOrientationEvent :: JSM GType gTypeDeviceOrientationEvent = GType . Object <$> jsg "DeviceOrientationEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DeviceProximityEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype DeviceProximityEvent = DeviceProximityEvent { unDeviceProximityEvent :: JSVal } instance PToJSVal DeviceProximityEvent where pToJSVal = unDeviceProximityEvent {-# INLINE pToJSVal #-} instance PFromJSVal DeviceProximityEvent where pFromJSVal = DeviceProximityEvent {-# INLINE pFromJSVal #-} instance ToJSVal DeviceProximityEvent where toJSVal = return . unDeviceProximityEvent {-# INLINE toJSVal #-} instance FromJSVal DeviceProximityEvent where fromJSVal v = fmap DeviceProximityEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject DeviceProximityEvent where makeObject = makeObject . unDeviceProximityEvent instance IsEvent DeviceProximityEvent instance IsGObject DeviceProximityEvent where toGObject = GObject . unDeviceProximityEvent {-# INLINE toGObject #-} unsafeCastGObject = DeviceProximityEvent . unGObject {-# INLINE unsafeCastGObject #-} castToDeviceProximityEvent :: IsGObject obj => obj -> JSM DeviceProximityEvent castToDeviceProximityEvent = castTo gTypeDeviceProximityEvent "DeviceProximityEvent" gTypeDeviceProximityEvent :: JSM GType gTypeDeviceProximityEvent = GType . Object <$> jsg "DeviceProximityEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Document". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype Document = Document { unDocument :: JSVal } instance PToJSVal Document where pToJSVal = unDocument {-# INLINE pToJSVal #-} instance PFromJSVal Document where pFromJSVal = Document {-# INLINE pFromJSVal #-} instance ToJSVal Document where toJSVal = return . unDocument {-# INLINE toJSVal #-} instance FromJSVal Document where fromJSVal v = fmap Document <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Document where makeObject = makeObject . unDocument class IsNode o => IsDocument o toDocument :: IsDocument o => o -> Document toDocument = unsafeCastGObject . toGObject instance IsDocument Document instance IsNode Document instance IsEventTarget Document instance IsGObject Document where toGObject = GObject . unDocument {-# INLINE toGObject #-} unsafeCastGObject = Document . unGObject {-# INLINE unsafeCastGObject #-} castToDocument :: IsGObject obj => obj -> JSM Document castToDocument = castTo gTypeDocument "Document" gTypeDocument :: JSM GType gTypeDocument = GType . Object <$> jsg "Document" #else type IsDocument o = DocumentClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DocumentFragment". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype DocumentFragment = DocumentFragment { unDocumentFragment :: JSVal } instance PToJSVal DocumentFragment where pToJSVal = unDocumentFragment {-# INLINE pToJSVal #-} instance PFromJSVal DocumentFragment where pFromJSVal = DocumentFragment {-# INLINE pFromJSVal #-} instance ToJSVal DocumentFragment where toJSVal = return . unDocumentFragment {-# INLINE toJSVal #-} instance FromJSVal DocumentFragment where fromJSVal v = fmap DocumentFragment <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject DocumentFragment where makeObject = makeObject . unDocumentFragment instance IsNode DocumentFragment instance IsEventTarget DocumentFragment instance IsGObject DocumentFragment where toGObject = GObject . unDocumentFragment {-# INLINE toGObject #-} unsafeCastGObject = DocumentFragment . unGObject {-# INLINE unsafeCastGObject #-} castToDocumentFragment :: IsGObject obj => obj -> JSM DocumentFragment castToDocumentFragment = castTo gTypeDocumentFragment "DocumentFragment" gTypeDocumentFragment :: JSM GType gTypeDocumentFragment = GType . Object <$> jsg "DocumentFragment" #else type IsDocumentFragment o = DocumentFragmentClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DocumentType". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype DocumentType = DocumentType { unDocumentType :: JSVal } instance PToJSVal DocumentType where pToJSVal = unDocumentType {-# INLINE pToJSVal #-} instance PFromJSVal DocumentType where pFromJSVal = DocumentType {-# INLINE pFromJSVal #-} instance ToJSVal DocumentType where toJSVal = return . unDocumentType {-# INLINE toJSVal #-} instance FromJSVal DocumentType where fromJSVal v = fmap DocumentType <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject DocumentType where makeObject = makeObject . unDocumentType instance IsNode DocumentType instance IsEventTarget DocumentType instance IsGObject DocumentType where toGObject = GObject . unDocumentType {-# INLINE toGObject #-} unsafeCastGObject = DocumentType . unGObject {-# INLINE unsafeCastGObject #-} castToDocumentType :: IsGObject obj => obj -> JSM DocumentType castToDocumentType = castTo gTypeDocumentType "DocumentType" gTypeDocumentType :: JSM GType gTypeDocumentType = GType . Object <$> jsg "DocumentType" #else type IsDocumentType o = DocumentTypeClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DynamicsCompressorNode". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.AudioNode" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype DynamicsCompressorNode = DynamicsCompressorNode { unDynamicsCompressorNode :: JSVal } instance PToJSVal DynamicsCompressorNode where pToJSVal = unDynamicsCompressorNode {-# INLINE pToJSVal #-} instance PFromJSVal DynamicsCompressorNode where pFromJSVal = DynamicsCompressorNode {-# INLINE pFromJSVal #-} instance ToJSVal DynamicsCompressorNode where toJSVal = return . unDynamicsCompressorNode {-# INLINE toJSVal #-} instance FromJSVal DynamicsCompressorNode where fromJSVal v = fmap DynamicsCompressorNode <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject DynamicsCompressorNode where makeObject = makeObject . unDynamicsCompressorNode instance IsAudioNode DynamicsCompressorNode instance IsEventTarget DynamicsCompressorNode instance IsGObject DynamicsCompressorNode where toGObject = GObject . unDynamicsCompressorNode {-# INLINE toGObject #-} unsafeCastGObject = DynamicsCompressorNode . unGObject {-# INLINE unsafeCastGObject #-} castToDynamicsCompressorNode :: IsGObject obj => obj -> JSM DynamicsCompressorNode castToDynamicsCompressorNode = castTo gTypeDynamicsCompressorNode "DynamicsCompressorNode" gTypeDynamicsCompressorNode :: JSM GType gTypeDynamicsCompressorNode = GType . Object <$> jsg "DynamicsCompressorNode" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.EXTBlendMinMax". -- -- newtype EXTBlendMinMax = EXTBlendMinMax { unEXTBlendMinMax :: JSVal } instance PToJSVal EXTBlendMinMax where pToJSVal = unEXTBlendMinMax {-# INLINE pToJSVal #-} instance PFromJSVal EXTBlendMinMax where pFromJSVal = EXTBlendMinMax {-# INLINE pFromJSVal #-} instance ToJSVal EXTBlendMinMax where toJSVal = return . unEXTBlendMinMax {-# INLINE toJSVal #-} instance FromJSVal EXTBlendMinMax where fromJSVal v = fmap EXTBlendMinMax <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject EXTBlendMinMax where makeObject = makeObject . unEXTBlendMinMax instance IsGObject EXTBlendMinMax where toGObject = GObject . unEXTBlendMinMax {-# INLINE toGObject #-} unsafeCastGObject = EXTBlendMinMax . unGObject {-# INLINE unsafeCastGObject #-} castToEXTBlendMinMax :: IsGObject obj => obj -> JSM EXTBlendMinMax castToEXTBlendMinMax = castTo gTypeEXTBlendMinMax "EXTBlendMinMax" gTypeEXTBlendMinMax :: JSM GType gTypeEXTBlendMinMax = GType . Object <$> jsg "EXTBlendMinMax" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.EXTFragDepth". -- -- newtype EXTFragDepth = EXTFragDepth { unEXTFragDepth :: JSVal } instance PToJSVal EXTFragDepth where pToJSVal = unEXTFragDepth {-# INLINE pToJSVal #-} instance PFromJSVal EXTFragDepth where pFromJSVal = EXTFragDepth {-# INLINE pFromJSVal #-} instance ToJSVal EXTFragDepth where toJSVal = return . unEXTFragDepth {-# INLINE toJSVal #-} instance FromJSVal EXTFragDepth where fromJSVal v = fmap EXTFragDepth <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject EXTFragDepth where makeObject = makeObject . unEXTFragDepth instance IsGObject EXTFragDepth where toGObject = GObject . unEXTFragDepth {-# INLINE toGObject #-} unsafeCastGObject = EXTFragDepth . unGObject {-# INLINE unsafeCastGObject #-} castToEXTFragDepth :: IsGObject obj => obj -> JSM EXTFragDepth castToEXTFragDepth = castTo gTypeEXTFragDepth "EXTFragDepth" gTypeEXTFragDepth :: JSM GType gTypeEXTFragDepth = GType . Object <$> jsg "EXTFragDepth" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.EXTShaderTextureLOD". -- -- newtype EXTShaderTextureLOD = EXTShaderTextureLOD { unEXTShaderTextureLOD :: JSVal } instance PToJSVal EXTShaderTextureLOD where pToJSVal = unEXTShaderTextureLOD {-# INLINE pToJSVal #-} instance PFromJSVal EXTShaderTextureLOD where pFromJSVal = EXTShaderTextureLOD {-# INLINE pFromJSVal #-} instance ToJSVal EXTShaderTextureLOD where toJSVal = return . unEXTShaderTextureLOD {-# INLINE toJSVal #-} instance FromJSVal EXTShaderTextureLOD where fromJSVal v = fmap EXTShaderTextureLOD <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject EXTShaderTextureLOD where makeObject = makeObject . unEXTShaderTextureLOD instance IsGObject EXTShaderTextureLOD where toGObject = GObject . unEXTShaderTextureLOD {-# INLINE toGObject #-} unsafeCastGObject = EXTShaderTextureLOD . unGObject {-# INLINE unsafeCastGObject #-} castToEXTShaderTextureLOD :: IsGObject obj => obj -> JSM EXTShaderTextureLOD castToEXTShaderTextureLOD = castTo gTypeEXTShaderTextureLOD "EXTShaderTextureLOD" gTypeEXTShaderTextureLOD :: JSM GType gTypeEXTShaderTextureLOD = GType . Object <$> jsg "EXTShaderTextureLOD" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.EXTTextureFilterAnisotropic". -- -- newtype EXTTextureFilterAnisotropic = EXTTextureFilterAnisotropic { unEXTTextureFilterAnisotropic :: JSVal } instance PToJSVal EXTTextureFilterAnisotropic where pToJSVal = unEXTTextureFilterAnisotropic {-# INLINE pToJSVal #-} instance PFromJSVal EXTTextureFilterAnisotropic where pFromJSVal = EXTTextureFilterAnisotropic {-# INLINE pFromJSVal #-} instance ToJSVal EXTTextureFilterAnisotropic where toJSVal = return . unEXTTextureFilterAnisotropic {-# INLINE toJSVal #-} instance FromJSVal EXTTextureFilterAnisotropic where fromJSVal v = fmap EXTTextureFilterAnisotropic <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject EXTTextureFilterAnisotropic where makeObject = makeObject . unEXTTextureFilterAnisotropic instance IsGObject EXTTextureFilterAnisotropic where toGObject = GObject . unEXTTextureFilterAnisotropic {-# INLINE toGObject #-} unsafeCastGObject = EXTTextureFilterAnisotropic . unGObject {-# INLINE unsafeCastGObject #-} castToEXTTextureFilterAnisotropic :: IsGObject obj => obj -> JSM EXTTextureFilterAnisotropic castToEXTTextureFilterAnisotropic = castTo gTypeEXTTextureFilterAnisotropic "EXTTextureFilterAnisotropic" gTypeEXTTextureFilterAnisotropic :: JSM GType gTypeEXTTextureFilterAnisotropic = GType . Object <$> jsg "EXTTextureFilterAnisotropic" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.EXTsRGB". -- -- newtype EXTsRGB = EXTsRGB { unEXTsRGB :: JSVal } instance PToJSVal EXTsRGB where pToJSVal = unEXTsRGB {-# INLINE pToJSVal #-} instance PFromJSVal EXTsRGB where pFromJSVal = EXTsRGB {-# INLINE pFromJSVal #-} instance ToJSVal EXTsRGB where toJSVal = return . unEXTsRGB {-# INLINE toJSVal #-} instance FromJSVal EXTsRGB where fromJSVal v = fmap EXTsRGB <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject EXTsRGB where makeObject = makeObject . unEXTsRGB instance IsGObject EXTsRGB where toGObject = GObject . unEXTsRGB {-# INLINE toGObject #-} unsafeCastGObject = EXTsRGB . unGObject {-# INLINE unsafeCastGObject #-} castToEXTsRGB :: IsGObject obj => obj -> JSM EXTsRGB castToEXTsRGB = castTo gTypeEXTsRGB "EXTsRGB" gTypeEXTsRGB :: JSM GType gTypeEXTsRGB = GType . Object <$> jsg "EXTsRGB" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Element". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype Element = Element { unElement :: JSVal } instance PToJSVal Element where pToJSVal = unElement {-# INLINE pToJSVal #-} instance PFromJSVal Element where pFromJSVal = Element {-# INLINE pFromJSVal #-} instance ToJSVal Element where toJSVal = return . unElement {-# INLINE toJSVal #-} instance FromJSVal Element where fromJSVal v = fmap Element <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Element where makeObject = makeObject . unElement class IsNode o => IsElement o toElement :: IsElement o => o -> Element toElement = unsafeCastGObject . toGObject instance IsElement Element instance IsNode Element instance IsEventTarget Element instance IsGObject Element where toGObject = GObject . unElement {-# INLINE toGObject #-} unsafeCastGObject = Element . unGObject {-# INLINE unsafeCastGObject #-} castToElement :: IsGObject obj => obj -> JSM Element castToElement = castTo gTypeElement "Element" gTypeElement :: JSM GType gTypeElement = GType . Object <$> jsg "Element" #else type IsElement o = ElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Entity". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype Entity = Entity { unEntity :: JSVal } instance PToJSVal Entity where pToJSVal = unEntity {-# INLINE pToJSVal #-} instance PFromJSVal Entity where pFromJSVal = Entity {-# INLINE pFromJSVal #-} instance ToJSVal Entity where toJSVal = return . unEntity {-# INLINE toJSVal #-} instance FromJSVal Entity where fromJSVal v = fmap Entity <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Entity where makeObject = makeObject . unEntity instance IsNode Entity instance IsEventTarget Entity instance IsGObject Entity where toGObject = GObject . unEntity {-# INLINE toGObject #-} unsafeCastGObject = Entity . unGObject {-# INLINE unsafeCastGObject #-} castToEntity :: IsGObject obj => obj -> JSM Entity castToEntity = castTo gTypeEntity "Entity" gTypeEntity :: JSM GType gTypeEntity = GType . Object <$> jsg "Entity" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.EntityReference". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype EntityReference = EntityReference { unEntityReference :: JSVal } instance PToJSVal EntityReference where pToJSVal = unEntityReference {-# INLINE pToJSVal #-} instance PFromJSVal EntityReference where pFromJSVal = EntityReference {-# INLINE pFromJSVal #-} instance ToJSVal EntityReference where toJSVal = return . unEntityReference {-# INLINE toJSVal #-} instance FromJSVal EntityReference where fromJSVal v = fmap EntityReference <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject EntityReference where makeObject = makeObject . unEntityReference instance IsNode EntityReference instance IsEventTarget EntityReference instance IsGObject EntityReference where toGObject = GObject . unEntityReference {-# INLINE toGObject #-} unsafeCastGObject = EntityReference . unGObject {-# INLINE unsafeCastGObject #-} castToEntityReference :: IsGObject obj => obj -> JSM EntityReference castToEntityReference = castTo gTypeEntityReference "EntityReference" gTypeEntityReference :: JSM GType gTypeEntityReference = GType . Object <$> jsg "EntityReference" #else type IsEntityReference o = EntityReferenceClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ErrorEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype ErrorEvent = ErrorEvent { unErrorEvent :: JSVal } instance PToJSVal ErrorEvent where pToJSVal = unErrorEvent {-# INLINE pToJSVal #-} instance PFromJSVal ErrorEvent where pFromJSVal = ErrorEvent {-# INLINE pFromJSVal #-} instance ToJSVal ErrorEvent where toJSVal = return . unErrorEvent {-# INLINE toJSVal #-} instance FromJSVal ErrorEvent where fromJSVal v = fmap ErrorEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject ErrorEvent where makeObject = makeObject . unErrorEvent instance IsEvent ErrorEvent instance IsGObject ErrorEvent where toGObject = GObject . unErrorEvent {-# INLINE toGObject #-} unsafeCastGObject = ErrorEvent . unGObject {-# INLINE unsafeCastGObject #-} castToErrorEvent :: IsGObject obj => obj -> JSM ErrorEvent castToErrorEvent = castTo gTypeErrorEvent "ErrorEvent" gTypeErrorEvent :: JSM GType gTypeErrorEvent = GType . Object <$> jsg "ErrorEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Event". -- -- newtype Event = Event { unEvent :: JSVal } instance PToJSVal Event where pToJSVal = unEvent {-# INLINE pToJSVal #-} instance PFromJSVal Event where pFromJSVal = Event {-# INLINE pFromJSVal #-} instance ToJSVal Event where toJSVal = return . unEvent {-# INLINE toJSVal #-} instance FromJSVal Event where fromJSVal v = fmap Event <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Event where makeObject = makeObject . unEvent class IsGObject o => IsEvent o toEvent :: IsEvent o => o -> Event toEvent = unsafeCastGObject . toGObject instance IsEvent Event instance IsGObject Event where toGObject = GObject . unEvent {-# INLINE toGObject #-} unsafeCastGObject = Event . unGObject {-# INLINE unsafeCastGObject #-} castToEvent :: IsGObject obj => obj -> JSM Event castToEvent = castTo gTypeEvent "Event" gTypeEvent :: JSM GType gTypeEvent = GType . Object <$> jsg "Event" #else type IsEvent o = EventClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.EventListener". -- -- newtype EventListener = EventListener { unEventListener :: JSVal } instance PToJSVal EventListener where pToJSVal = unEventListener {-# INLINE pToJSVal #-} instance PFromJSVal EventListener where pFromJSVal = EventListener {-# INLINE pFromJSVal #-} instance ToJSVal EventListener where toJSVal = return . unEventListener {-# INLINE toJSVal #-} instance FromJSVal EventListener where fromJSVal v = fmap EventListener <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject EventListener where makeObject = makeObject . unEventListener instance IsGObject EventListener where toGObject = GObject . unEventListener {-# INLINE toGObject #-} unsafeCastGObject = EventListener . unGObject {-# INLINE unsafeCastGObject #-} castToEventListener :: IsGObject obj => obj -> JSM EventListener castToEventListener = castTo gTypeEventListener "EventListener" gTypeEventListener :: JSM GType gTypeEventListener = GType . Object <$> jsg "EventListener" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.EventSource". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype EventSource = EventSource { unEventSource :: JSVal } instance PToJSVal EventSource where pToJSVal = unEventSource {-# INLINE pToJSVal #-} instance PFromJSVal EventSource where pFromJSVal = EventSource {-# INLINE pFromJSVal #-} instance ToJSVal EventSource where toJSVal = return . unEventSource {-# INLINE toJSVal #-} instance FromJSVal EventSource where fromJSVal v = fmap EventSource <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject EventSource where makeObject = makeObject . unEventSource instance IsEventTarget EventSource instance IsGObject EventSource where toGObject = GObject . unEventSource {-# INLINE toGObject #-} unsafeCastGObject = EventSource . unGObject {-# INLINE unsafeCastGObject #-} castToEventSource :: IsGObject obj => obj -> JSM EventSource castToEventSource = castTo gTypeEventSource "EventSource" gTypeEventSource :: JSM GType gTypeEventSource = GType . Object <$> jsg "EventSource" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.EventTarget". -- -- newtype EventTarget = EventTarget { unEventTarget :: JSVal } instance PToJSVal EventTarget where pToJSVal = unEventTarget {-# INLINE pToJSVal #-} instance PFromJSVal EventTarget where pFromJSVal = EventTarget {-# INLINE pFromJSVal #-} instance ToJSVal EventTarget where toJSVal = return . unEventTarget {-# INLINE toJSVal #-} instance FromJSVal EventTarget where fromJSVal v = fmap EventTarget <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject EventTarget where makeObject = makeObject . unEventTarget class IsGObject o => IsEventTarget o toEventTarget :: IsEventTarget o => o -> EventTarget toEventTarget = unsafeCastGObject . toGObject instance IsEventTarget EventTarget instance IsGObject EventTarget where toGObject = GObject . unEventTarget {-# INLINE toGObject #-} unsafeCastGObject = EventTarget . unGObject {-# INLINE unsafeCastGObject #-} castToEventTarget :: IsGObject obj => obj -> JSM EventTarget castToEventTarget = castTo gTypeEventTarget "EventTarget" gTypeEventTarget :: JSM GType gTypeEventTarget = GType . Object <$> jsg "EventTarget" #else type IsEventTarget o = EventTargetClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.File". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Blob" -- -- newtype File = File { unFile :: JSVal } instance PToJSVal File where pToJSVal = unFile {-# INLINE pToJSVal #-} instance PFromJSVal File where pFromJSVal = File {-# INLINE pFromJSVal #-} instance ToJSVal File where toJSVal = return . unFile {-# INLINE toJSVal #-} instance FromJSVal File where fromJSVal v = fmap File <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject File where makeObject = makeObject . unFile instance IsBlob File instance IsGObject File where toGObject = GObject . unFile {-# INLINE toGObject #-} unsafeCastGObject = File . unGObject {-# INLINE unsafeCastGObject #-} castToFile :: IsGObject obj => obj -> JSM File castToFile = castTo gTypeFile "File" gTypeFile :: JSM GType gTypeFile = GType . Object <$> jsg "File" #else type IsFile o = FileClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.FileError". -- -- newtype FileError = FileError { unFileError :: JSVal } instance PToJSVal FileError where pToJSVal = unFileError {-# INLINE pToJSVal #-} instance PFromJSVal FileError where pFromJSVal = FileError {-# INLINE pFromJSVal #-} instance ToJSVal FileError where toJSVal = return . unFileError {-# INLINE toJSVal #-} instance FromJSVal FileError where fromJSVal v = fmap FileError <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject FileError where makeObject = makeObject . unFileError instance IsGObject FileError where toGObject = GObject . unFileError {-# INLINE toGObject #-} unsafeCastGObject = FileError . unGObject {-# INLINE unsafeCastGObject #-} castToFileError :: IsGObject obj => obj -> JSM FileError castToFileError = castTo gTypeFileError "FileError" gTypeFileError :: JSM GType gTypeFileError = GType . Object <$> jsg "FileError" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.FileList". -- -- newtype FileList = FileList { unFileList :: JSVal } instance PToJSVal FileList where pToJSVal = unFileList {-# INLINE pToJSVal #-} instance PFromJSVal FileList where pFromJSVal = FileList {-# INLINE pFromJSVal #-} instance ToJSVal FileList where toJSVal = return . unFileList {-# INLINE toJSVal #-} instance FromJSVal FileList where fromJSVal v = fmap FileList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject FileList where makeObject = makeObject . unFileList instance IsGObject FileList where toGObject = GObject . unFileList {-# INLINE toGObject #-} unsafeCastGObject = FileList . unGObject {-# INLINE unsafeCastGObject #-} castToFileList :: IsGObject obj => obj -> JSM FileList castToFileList = castTo gTypeFileList "FileList" gTypeFileList :: JSM GType gTypeFileList = GType . Object <$> jsg "FileList" #else type IsFileList o = FileListClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.FileReader". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype FileReader = FileReader { unFileReader :: JSVal } instance PToJSVal FileReader where pToJSVal = unFileReader {-# INLINE pToJSVal #-} instance PFromJSVal FileReader where pFromJSVal = FileReader {-# INLINE pFromJSVal #-} instance ToJSVal FileReader where toJSVal = return . unFileReader {-# INLINE toJSVal #-} instance FromJSVal FileReader where fromJSVal v = fmap FileReader <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject FileReader where makeObject = makeObject . unFileReader instance IsEventTarget FileReader instance IsGObject FileReader where toGObject = GObject . unFileReader {-# INLINE toGObject #-} unsafeCastGObject = FileReader . unGObject {-# INLINE unsafeCastGObject #-} castToFileReader :: IsGObject obj => obj -> JSM FileReader castToFileReader = castTo gTypeFileReader "FileReader" gTypeFileReader :: JSM GType gTypeFileReader = GType . Object <$> jsg "FileReader" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.FileReaderSync". -- -- newtype FileReaderSync = FileReaderSync { unFileReaderSync :: JSVal } instance PToJSVal FileReaderSync where pToJSVal = unFileReaderSync {-# INLINE pToJSVal #-} instance PFromJSVal FileReaderSync where pFromJSVal = FileReaderSync {-# INLINE pFromJSVal #-} instance ToJSVal FileReaderSync where toJSVal = return . unFileReaderSync {-# INLINE toJSVal #-} instance FromJSVal FileReaderSync where fromJSVal v = fmap FileReaderSync <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject FileReaderSync where makeObject = makeObject . unFileReaderSync instance IsGObject FileReaderSync where toGObject = GObject . unFileReaderSync {-# INLINE toGObject #-} unsafeCastGObject = FileReaderSync . unGObject {-# INLINE unsafeCastGObject #-} castToFileReaderSync :: IsGObject obj => obj -> JSM FileReaderSync castToFileReaderSync = castTo gTypeFileReaderSync "FileReaderSync" gTypeFileReaderSync :: JSM GType gTypeFileReaderSync = GType . Object <$> jsg "FileReaderSync" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.FocusEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.UIEvent" -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype FocusEvent = FocusEvent { unFocusEvent :: JSVal } instance PToJSVal FocusEvent where pToJSVal = unFocusEvent {-# INLINE pToJSVal #-} instance PFromJSVal FocusEvent where pFromJSVal = FocusEvent {-# INLINE pFromJSVal #-} instance ToJSVal FocusEvent where toJSVal = return . unFocusEvent {-# INLINE toJSVal #-} instance FromJSVal FocusEvent where fromJSVal v = fmap FocusEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject FocusEvent where makeObject = makeObject . unFocusEvent instance IsUIEvent FocusEvent instance IsEvent FocusEvent instance IsGObject FocusEvent where toGObject = GObject . unFocusEvent {-# INLINE toGObject #-} unsafeCastGObject = FocusEvent . unGObject {-# INLINE unsafeCastGObject #-} castToFocusEvent :: IsGObject obj => obj -> JSM FocusEvent castToFocusEvent = castTo gTypeFocusEvent "FocusEvent" gTypeFocusEvent :: JSM GType gTypeFocusEvent = GType . Object <$> jsg "FocusEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.FontLoader". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype FontLoader = FontLoader { unFontLoader :: JSVal } instance PToJSVal FontLoader where pToJSVal = unFontLoader {-# INLINE pToJSVal #-} instance PFromJSVal FontLoader where pFromJSVal = FontLoader {-# INLINE pFromJSVal #-} instance ToJSVal FontLoader where toJSVal = return . unFontLoader {-# INLINE toJSVal #-} instance FromJSVal FontLoader where fromJSVal v = fmap FontLoader <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject FontLoader where makeObject = makeObject . unFontLoader instance IsEventTarget FontLoader instance IsGObject FontLoader where toGObject = GObject . unFontLoader {-# INLINE toGObject #-} unsafeCastGObject = FontLoader . unGObject {-# INLINE unsafeCastGObject #-} castToFontLoader :: IsGObject obj => obj -> JSM FontLoader castToFontLoader = castTo gTypeFontLoader "FontLoader" gTypeFontLoader :: JSM GType gTypeFontLoader = GType . Object <$> jsg "FontLoader" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.FormData". -- -- newtype FormData = FormData { unFormData :: JSVal } instance PToJSVal FormData where pToJSVal = unFormData {-# INLINE pToJSVal #-} instance PFromJSVal FormData where pFromJSVal = FormData {-# INLINE pFromJSVal #-} instance ToJSVal FormData where toJSVal = return . unFormData {-# INLINE toJSVal #-} instance FromJSVal FormData where fromJSVal v = fmap FormData <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject FormData where makeObject = makeObject . unFormData instance IsGObject FormData where toGObject = GObject . unFormData {-# INLINE toGObject #-} unsafeCastGObject = FormData . unGObject {-# INLINE unsafeCastGObject #-} castToFormData :: IsGObject obj => obj -> JSM FormData castToFormData = castTo gTypeFormData "FormData" gTypeFormData :: JSM GType gTypeFormData = GType . Object <$> jsg "FormData" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.GainNode". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.AudioNode" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype GainNode = GainNode { unGainNode :: JSVal } instance PToJSVal GainNode where pToJSVal = unGainNode {-# INLINE pToJSVal #-} instance PFromJSVal GainNode where pFromJSVal = GainNode {-# INLINE pFromJSVal #-} instance ToJSVal GainNode where toJSVal = return . unGainNode {-# INLINE toJSVal #-} instance FromJSVal GainNode where fromJSVal v = fmap GainNode <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject GainNode where makeObject = makeObject . unGainNode instance IsAudioNode GainNode instance IsEventTarget GainNode instance IsGObject GainNode where toGObject = GObject . unGainNode {-# INLINE toGObject #-} unsafeCastGObject = GainNode . unGObject {-# INLINE unsafeCastGObject #-} castToGainNode :: IsGObject obj => obj -> JSM GainNode castToGainNode = castTo gTypeGainNode "GainNode" gTypeGainNode :: JSM GType gTypeGainNode = GType . Object <$> jsg "GainNode" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Gamepad". -- -- newtype Gamepad = Gamepad { unGamepad :: JSVal } instance PToJSVal Gamepad where pToJSVal = unGamepad {-# INLINE pToJSVal #-} instance PFromJSVal Gamepad where pFromJSVal = Gamepad {-# INLINE pFromJSVal #-} instance ToJSVal Gamepad where toJSVal = return . unGamepad {-# INLINE toJSVal #-} instance FromJSVal Gamepad where fromJSVal v = fmap Gamepad <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Gamepad where makeObject = makeObject . unGamepad instance IsGObject Gamepad where toGObject = GObject . unGamepad {-# INLINE toGObject #-} unsafeCastGObject = Gamepad . unGObject {-# INLINE unsafeCastGObject #-} castToGamepad :: IsGObject obj => obj -> JSM Gamepad castToGamepad = castTo gTypeGamepad "Gamepad" gTypeGamepad :: JSM GType gTypeGamepad = GType . Object <$> jsg "Gamepad" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.GamepadButton". -- -- newtype GamepadButton = GamepadButton { unGamepadButton :: JSVal } instance PToJSVal GamepadButton where pToJSVal = unGamepadButton {-# INLINE pToJSVal #-} instance PFromJSVal GamepadButton where pFromJSVal = GamepadButton {-# INLINE pFromJSVal #-} instance ToJSVal GamepadButton where toJSVal = return . unGamepadButton {-# INLINE toJSVal #-} instance FromJSVal GamepadButton where fromJSVal v = fmap GamepadButton <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject GamepadButton where makeObject = makeObject . unGamepadButton instance IsGObject GamepadButton where toGObject = GObject . unGamepadButton {-# INLINE toGObject #-} unsafeCastGObject = GamepadButton . unGObject {-# INLINE unsafeCastGObject #-} castToGamepadButton :: IsGObject obj => obj -> JSM GamepadButton castToGamepadButton = castTo gTypeGamepadButton "GamepadButton" gTypeGamepadButton :: JSM GType gTypeGamepadButton = GType . Object <$> jsg "GamepadButton" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.GamepadEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype GamepadEvent = GamepadEvent { unGamepadEvent :: JSVal } instance PToJSVal GamepadEvent where pToJSVal = unGamepadEvent {-# INLINE pToJSVal #-} instance PFromJSVal GamepadEvent where pFromJSVal = GamepadEvent {-# INLINE pFromJSVal #-} instance ToJSVal GamepadEvent where toJSVal = return . unGamepadEvent {-# INLINE toJSVal #-} instance FromJSVal GamepadEvent where fromJSVal v = fmap GamepadEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject GamepadEvent where makeObject = makeObject . unGamepadEvent instance IsEvent GamepadEvent instance IsGObject GamepadEvent where toGObject = GObject . unGamepadEvent {-# INLINE toGObject #-} unsafeCastGObject = GamepadEvent . unGObject {-# INLINE unsafeCastGObject #-} castToGamepadEvent :: IsGObject obj => obj -> JSM GamepadEvent castToGamepadEvent = castTo gTypeGamepadEvent "GamepadEvent" gTypeGamepadEvent :: JSM GType gTypeGamepadEvent = GType . Object <$> jsg "GamepadEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Geolocation". -- -- newtype Geolocation = Geolocation { unGeolocation :: JSVal } instance PToJSVal Geolocation where pToJSVal = unGeolocation {-# INLINE pToJSVal #-} instance PFromJSVal Geolocation where pFromJSVal = Geolocation {-# INLINE pFromJSVal #-} instance ToJSVal Geolocation where toJSVal = return . unGeolocation {-# INLINE toJSVal #-} instance FromJSVal Geolocation where fromJSVal v = fmap Geolocation <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Geolocation where makeObject = makeObject . unGeolocation instance IsGObject Geolocation where toGObject = GObject . unGeolocation {-# INLINE toGObject #-} unsafeCastGObject = Geolocation . unGObject {-# INLINE unsafeCastGObject #-} castToGeolocation :: IsGObject obj => obj -> JSM Geolocation castToGeolocation = castTo gTypeGeolocation "Geolocation" gTypeGeolocation :: JSM GType gTypeGeolocation = GType . Object <$> jsg "Geolocation" #else type IsGeolocation o = GeolocationClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Geoposition". -- -- newtype Geoposition = Geoposition { unGeoposition :: JSVal } instance PToJSVal Geoposition where pToJSVal = unGeoposition {-# INLINE pToJSVal #-} instance PFromJSVal Geoposition where pFromJSVal = Geoposition {-# INLINE pFromJSVal #-} instance ToJSVal Geoposition where toJSVal = return . unGeoposition {-# INLINE toJSVal #-} instance FromJSVal Geoposition where fromJSVal v = fmap Geoposition <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Geoposition where makeObject = makeObject . unGeoposition instance IsGObject Geoposition where toGObject = GObject . unGeoposition {-# INLINE toGObject #-} unsafeCastGObject = Geoposition . unGObject {-# INLINE unsafeCastGObject #-} castToGeoposition :: IsGObject obj => obj -> JSM Geoposition castToGeoposition = castTo gTypeGeoposition "Geoposition" gTypeGeoposition :: JSM GType gTypeGeoposition = GType . Object <$> jsg "Geoposition" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLAllCollection". -- -- newtype HTMLAllCollection = HTMLAllCollection { unHTMLAllCollection :: JSVal } instance PToJSVal HTMLAllCollection where pToJSVal = unHTMLAllCollection {-# INLINE pToJSVal #-} instance PFromJSVal HTMLAllCollection where pFromJSVal = HTMLAllCollection {-# INLINE pFromJSVal #-} instance ToJSVal HTMLAllCollection where toJSVal = return . unHTMLAllCollection {-# INLINE toJSVal #-} instance FromJSVal HTMLAllCollection where fromJSVal v = fmap HTMLAllCollection <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLAllCollection where makeObject = makeObject . unHTMLAllCollection instance IsGObject HTMLAllCollection where toGObject = GObject . unHTMLAllCollection {-# INLINE toGObject #-} unsafeCastGObject = HTMLAllCollection . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLAllCollection :: IsGObject obj => obj -> JSM HTMLAllCollection castToHTMLAllCollection = castTo gTypeHTMLAllCollection "HTMLAllCollection" gTypeHTMLAllCollection :: JSM GType gTypeHTMLAllCollection = GType . Object <$> jsg "HTMLAllCollection" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLAnchorElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLAnchorElement = HTMLAnchorElement { unHTMLAnchorElement :: JSVal } instance PToJSVal HTMLAnchorElement where pToJSVal = unHTMLAnchorElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLAnchorElement where pFromJSVal = HTMLAnchorElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLAnchorElement where toJSVal = return . unHTMLAnchorElement {-# INLINE toJSVal #-} instance FromJSVal HTMLAnchorElement where fromJSVal v = fmap HTMLAnchorElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLAnchorElement where makeObject = makeObject . unHTMLAnchorElement instance IsHTMLElement HTMLAnchorElement instance IsElement HTMLAnchorElement instance IsNode HTMLAnchorElement instance IsEventTarget HTMLAnchorElement instance IsGObject HTMLAnchorElement where toGObject = GObject . unHTMLAnchorElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLAnchorElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLAnchorElement :: IsGObject obj => obj -> JSM HTMLAnchorElement castToHTMLAnchorElement = castTo gTypeHTMLAnchorElement "HTMLAnchorElement" gTypeHTMLAnchorElement :: JSM GType gTypeHTMLAnchorElement = GType . Object <$> jsg "HTMLAnchorElement" #else type IsHTMLAnchorElement o = HTMLAnchorElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLAppletElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLAppletElement = HTMLAppletElement { unHTMLAppletElement :: JSVal } instance PToJSVal HTMLAppletElement where pToJSVal = unHTMLAppletElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLAppletElement where pFromJSVal = HTMLAppletElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLAppletElement where toJSVal = return . unHTMLAppletElement {-# INLINE toJSVal #-} instance FromJSVal HTMLAppletElement where fromJSVal v = fmap HTMLAppletElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLAppletElement where makeObject = makeObject . unHTMLAppletElement instance IsHTMLElement HTMLAppletElement instance IsElement HTMLAppletElement instance IsNode HTMLAppletElement instance IsEventTarget HTMLAppletElement instance IsGObject HTMLAppletElement where toGObject = GObject . unHTMLAppletElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLAppletElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLAppletElement :: IsGObject obj => obj -> JSM HTMLAppletElement castToHTMLAppletElement = castTo gTypeHTMLAppletElement "HTMLAppletElement" gTypeHTMLAppletElement :: JSM GType gTypeHTMLAppletElement = GType . Object <$> jsg "HTMLAppletElement" #else type IsHTMLAppletElement o = HTMLAppletElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLAreaElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLAreaElement = HTMLAreaElement { unHTMLAreaElement :: JSVal } instance PToJSVal HTMLAreaElement where pToJSVal = unHTMLAreaElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLAreaElement where pFromJSVal = HTMLAreaElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLAreaElement where toJSVal = return . unHTMLAreaElement {-# INLINE toJSVal #-} instance FromJSVal HTMLAreaElement where fromJSVal v = fmap HTMLAreaElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLAreaElement where makeObject = makeObject . unHTMLAreaElement instance IsHTMLElement HTMLAreaElement instance IsElement HTMLAreaElement instance IsNode HTMLAreaElement instance IsEventTarget HTMLAreaElement instance IsGObject HTMLAreaElement where toGObject = GObject . unHTMLAreaElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLAreaElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLAreaElement :: IsGObject obj => obj -> JSM HTMLAreaElement castToHTMLAreaElement = castTo gTypeHTMLAreaElement "HTMLAreaElement" gTypeHTMLAreaElement :: JSM GType gTypeHTMLAreaElement = GType . Object <$> jsg "HTMLAreaElement" #else type IsHTMLAreaElement o = HTMLAreaElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLAudioElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLMediaElement" -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLAudioElement = HTMLAudioElement { unHTMLAudioElement :: JSVal } instance PToJSVal HTMLAudioElement where pToJSVal = unHTMLAudioElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLAudioElement where pFromJSVal = HTMLAudioElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLAudioElement where toJSVal = return . unHTMLAudioElement {-# INLINE toJSVal #-} instance FromJSVal HTMLAudioElement where fromJSVal v = fmap HTMLAudioElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLAudioElement where makeObject = makeObject . unHTMLAudioElement instance IsHTMLMediaElement HTMLAudioElement instance IsHTMLElement HTMLAudioElement instance IsElement HTMLAudioElement instance IsNode HTMLAudioElement instance IsEventTarget HTMLAudioElement instance IsGObject HTMLAudioElement where toGObject = GObject . unHTMLAudioElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLAudioElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLAudioElement :: IsGObject obj => obj -> JSM HTMLAudioElement castToHTMLAudioElement = castTo gTypeHTMLAudioElement "HTMLAudioElement" gTypeHTMLAudioElement :: JSM GType gTypeHTMLAudioElement = GType . Object <$> jsg "HTMLAudioElement" #else type IsHTMLAudioElement o = HTMLAudioElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLBRElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLBRElement = HTMLBRElement { unHTMLBRElement :: JSVal } instance PToJSVal HTMLBRElement where pToJSVal = unHTMLBRElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLBRElement where pFromJSVal = HTMLBRElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLBRElement where toJSVal = return . unHTMLBRElement {-# INLINE toJSVal #-} instance FromJSVal HTMLBRElement where fromJSVal v = fmap HTMLBRElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLBRElement where makeObject = makeObject . unHTMLBRElement instance IsHTMLElement HTMLBRElement instance IsElement HTMLBRElement instance IsNode HTMLBRElement instance IsEventTarget HTMLBRElement instance IsGObject HTMLBRElement where toGObject = GObject . unHTMLBRElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLBRElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLBRElement :: IsGObject obj => obj -> JSM HTMLBRElement castToHTMLBRElement = castTo gTypeHTMLBRElement "HTMLBRElement" gTypeHTMLBRElement :: JSM GType gTypeHTMLBRElement = GType . Object <$> jsg "HTMLBRElement" #else type IsHTMLBRElement o = HTMLBRElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLBaseElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLBaseElement = HTMLBaseElement { unHTMLBaseElement :: JSVal } instance PToJSVal HTMLBaseElement where pToJSVal = unHTMLBaseElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLBaseElement where pFromJSVal = HTMLBaseElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLBaseElement where toJSVal = return . unHTMLBaseElement {-# INLINE toJSVal #-} instance FromJSVal HTMLBaseElement where fromJSVal v = fmap HTMLBaseElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLBaseElement where makeObject = makeObject . unHTMLBaseElement instance IsHTMLElement HTMLBaseElement instance IsElement HTMLBaseElement instance IsNode HTMLBaseElement instance IsEventTarget HTMLBaseElement instance IsGObject HTMLBaseElement where toGObject = GObject . unHTMLBaseElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLBaseElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLBaseElement :: IsGObject obj => obj -> JSM HTMLBaseElement castToHTMLBaseElement = castTo gTypeHTMLBaseElement "HTMLBaseElement" gTypeHTMLBaseElement :: JSM GType gTypeHTMLBaseElement = GType . Object <$> jsg "HTMLBaseElement" #else type IsHTMLBaseElement o = HTMLBaseElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLBaseFontElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLBaseFontElement = HTMLBaseFontElement { unHTMLBaseFontElement :: JSVal } instance PToJSVal HTMLBaseFontElement where pToJSVal = unHTMLBaseFontElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLBaseFontElement where pFromJSVal = HTMLBaseFontElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLBaseFontElement where toJSVal = return . unHTMLBaseFontElement {-# INLINE toJSVal #-} instance FromJSVal HTMLBaseFontElement where fromJSVal v = fmap HTMLBaseFontElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLBaseFontElement where makeObject = makeObject . unHTMLBaseFontElement instance IsHTMLElement HTMLBaseFontElement instance IsElement HTMLBaseFontElement instance IsNode HTMLBaseFontElement instance IsEventTarget HTMLBaseFontElement instance IsGObject HTMLBaseFontElement where toGObject = GObject . unHTMLBaseFontElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLBaseFontElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLBaseFontElement :: IsGObject obj => obj -> JSM HTMLBaseFontElement castToHTMLBaseFontElement = castTo gTypeHTMLBaseFontElement "HTMLBaseFontElement" gTypeHTMLBaseFontElement :: JSM GType gTypeHTMLBaseFontElement = GType . Object <$> jsg "HTMLBaseFontElement" #else type IsHTMLBaseFontElement o = HTMLBaseFontElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLBodyElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLBodyElement = HTMLBodyElement { unHTMLBodyElement :: JSVal } instance PToJSVal HTMLBodyElement where pToJSVal = unHTMLBodyElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLBodyElement where pFromJSVal = HTMLBodyElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLBodyElement where toJSVal = return . unHTMLBodyElement {-# INLINE toJSVal #-} instance FromJSVal HTMLBodyElement where fromJSVal v = fmap HTMLBodyElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLBodyElement where makeObject = makeObject . unHTMLBodyElement instance IsHTMLElement HTMLBodyElement instance IsElement HTMLBodyElement instance IsNode HTMLBodyElement instance IsEventTarget HTMLBodyElement instance IsGObject HTMLBodyElement where toGObject = GObject . unHTMLBodyElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLBodyElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLBodyElement :: IsGObject obj => obj -> JSM HTMLBodyElement castToHTMLBodyElement = castTo gTypeHTMLBodyElement "HTMLBodyElement" gTypeHTMLBodyElement :: JSM GType gTypeHTMLBodyElement = GType . Object <$> jsg "HTMLBodyElement" #else type IsHTMLBodyElement o = HTMLBodyElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLButtonElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLButtonElement = HTMLButtonElement { unHTMLButtonElement :: JSVal } instance PToJSVal HTMLButtonElement where pToJSVal = unHTMLButtonElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLButtonElement where pFromJSVal = HTMLButtonElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLButtonElement where toJSVal = return . unHTMLButtonElement {-# INLINE toJSVal #-} instance FromJSVal HTMLButtonElement where fromJSVal v = fmap HTMLButtonElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLButtonElement where makeObject = makeObject . unHTMLButtonElement instance IsHTMLElement HTMLButtonElement instance IsElement HTMLButtonElement instance IsNode HTMLButtonElement instance IsEventTarget HTMLButtonElement instance IsGObject HTMLButtonElement where toGObject = GObject . unHTMLButtonElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLButtonElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLButtonElement :: IsGObject obj => obj -> JSM HTMLButtonElement castToHTMLButtonElement = castTo gTypeHTMLButtonElement "HTMLButtonElement" gTypeHTMLButtonElement :: JSM GType gTypeHTMLButtonElement = GType . Object <$> jsg "HTMLButtonElement" #else type IsHTMLButtonElement o = HTMLButtonElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLCanvasElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLCanvasElement = HTMLCanvasElement { unHTMLCanvasElement :: JSVal } instance PToJSVal HTMLCanvasElement where pToJSVal = unHTMLCanvasElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLCanvasElement where pFromJSVal = HTMLCanvasElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLCanvasElement where toJSVal = return . unHTMLCanvasElement {-# INLINE toJSVal #-} instance FromJSVal HTMLCanvasElement where fromJSVal v = fmap HTMLCanvasElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLCanvasElement where makeObject = makeObject . unHTMLCanvasElement instance IsHTMLElement HTMLCanvasElement instance IsElement HTMLCanvasElement instance IsNode HTMLCanvasElement instance IsEventTarget HTMLCanvasElement instance IsGObject HTMLCanvasElement where toGObject = GObject . unHTMLCanvasElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLCanvasElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLCanvasElement :: IsGObject obj => obj -> JSM HTMLCanvasElement castToHTMLCanvasElement = castTo gTypeHTMLCanvasElement "HTMLCanvasElement" gTypeHTMLCanvasElement :: JSM GType gTypeHTMLCanvasElement = GType . Object <$> jsg "HTMLCanvasElement" #else type IsHTMLCanvasElement o = HTMLCanvasElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLCollection". -- -- newtype HTMLCollection = HTMLCollection { unHTMLCollection :: JSVal } instance PToJSVal HTMLCollection where pToJSVal = unHTMLCollection {-# INLINE pToJSVal #-} instance PFromJSVal HTMLCollection where pFromJSVal = HTMLCollection {-# INLINE pFromJSVal #-} instance ToJSVal HTMLCollection where toJSVal = return . unHTMLCollection {-# INLINE toJSVal #-} instance FromJSVal HTMLCollection where fromJSVal v = fmap HTMLCollection <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLCollection where makeObject = makeObject . unHTMLCollection class IsGObject o => IsHTMLCollection o toHTMLCollection :: IsHTMLCollection o => o -> HTMLCollection toHTMLCollection = unsafeCastGObject . toGObject instance IsHTMLCollection HTMLCollection instance IsGObject HTMLCollection where toGObject = GObject . unHTMLCollection {-# INLINE toGObject #-} unsafeCastGObject = HTMLCollection . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLCollection :: IsGObject obj => obj -> JSM HTMLCollection castToHTMLCollection = castTo gTypeHTMLCollection "HTMLCollection" gTypeHTMLCollection :: JSM GType gTypeHTMLCollection = GType . Object <$> jsg "HTMLCollection" #else type IsHTMLCollection o = HTMLCollectionClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLDListElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLDListElement = HTMLDListElement { unHTMLDListElement :: JSVal } instance PToJSVal HTMLDListElement where pToJSVal = unHTMLDListElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLDListElement where pFromJSVal = HTMLDListElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLDListElement where toJSVal = return . unHTMLDListElement {-# INLINE toJSVal #-} instance FromJSVal HTMLDListElement where fromJSVal v = fmap HTMLDListElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLDListElement where makeObject = makeObject . unHTMLDListElement instance IsHTMLElement HTMLDListElement instance IsElement HTMLDListElement instance IsNode HTMLDListElement instance IsEventTarget HTMLDListElement instance IsGObject HTMLDListElement where toGObject = GObject . unHTMLDListElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLDListElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLDListElement :: IsGObject obj => obj -> JSM HTMLDListElement castToHTMLDListElement = castTo gTypeHTMLDListElement "HTMLDListElement" gTypeHTMLDListElement :: JSM GType gTypeHTMLDListElement = GType . Object <$> jsg "HTMLDListElement" #else type IsHTMLDListElement o = HTMLDListElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLDataListElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLDataListElement = HTMLDataListElement { unHTMLDataListElement :: JSVal } instance PToJSVal HTMLDataListElement where pToJSVal = unHTMLDataListElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLDataListElement where pFromJSVal = HTMLDataListElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLDataListElement where toJSVal = return . unHTMLDataListElement {-# INLINE toJSVal #-} instance FromJSVal HTMLDataListElement where fromJSVal v = fmap HTMLDataListElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLDataListElement where makeObject = makeObject . unHTMLDataListElement instance IsHTMLElement HTMLDataListElement instance IsElement HTMLDataListElement instance IsNode HTMLDataListElement instance IsEventTarget HTMLDataListElement instance IsGObject HTMLDataListElement where toGObject = GObject . unHTMLDataListElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLDataListElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLDataListElement :: IsGObject obj => obj -> JSM HTMLDataListElement castToHTMLDataListElement = castTo gTypeHTMLDataListElement "HTMLDataListElement" gTypeHTMLDataListElement :: JSM GType gTypeHTMLDataListElement = GType . Object <$> jsg "HTMLDataListElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLDetailsElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLDetailsElement = HTMLDetailsElement { unHTMLDetailsElement :: JSVal } instance PToJSVal HTMLDetailsElement where pToJSVal = unHTMLDetailsElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLDetailsElement where pFromJSVal = HTMLDetailsElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLDetailsElement where toJSVal = return . unHTMLDetailsElement {-# INLINE toJSVal #-} instance FromJSVal HTMLDetailsElement where fromJSVal v = fmap HTMLDetailsElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLDetailsElement where makeObject = makeObject . unHTMLDetailsElement instance IsHTMLElement HTMLDetailsElement instance IsElement HTMLDetailsElement instance IsNode HTMLDetailsElement instance IsEventTarget HTMLDetailsElement instance IsGObject HTMLDetailsElement where toGObject = GObject . unHTMLDetailsElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLDetailsElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLDetailsElement :: IsGObject obj => obj -> JSM HTMLDetailsElement castToHTMLDetailsElement = castTo gTypeHTMLDetailsElement "HTMLDetailsElement" gTypeHTMLDetailsElement :: JSM GType gTypeHTMLDetailsElement = GType . Object <$> jsg "HTMLDetailsElement" #else type IsHTMLDetailsElement o = HTMLDetailsElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLDirectoryElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLDirectoryElement = HTMLDirectoryElement { unHTMLDirectoryElement :: JSVal } instance PToJSVal HTMLDirectoryElement where pToJSVal = unHTMLDirectoryElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLDirectoryElement where pFromJSVal = HTMLDirectoryElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLDirectoryElement where toJSVal = return . unHTMLDirectoryElement {-# INLINE toJSVal #-} instance FromJSVal HTMLDirectoryElement where fromJSVal v = fmap HTMLDirectoryElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLDirectoryElement where makeObject = makeObject . unHTMLDirectoryElement instance IsHTMLElement HTMLDirectoryElement instance IsElement HTMLDirectoryElement instance IsNode HTMLDirectoryElement instance IsEventTarget HTMLDirectoryElement instance IsGObject HTMLDirectoryElement where toGObject = GObject . unHTMLDirectoryElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLDirectoryElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLDirectoryElement :: IsGObject obj => obj -> JSM HTMLDirectoryElement castToHTMLDirectoryElement = castTo gTypeHTMLDirectoryElement "HTMLDirectoryElement" gTypeHTMLDirectoryElement :: JSM GType gTypeHTMLDirectoryElement = GType . Object <$> jsg "HTMLDirectoryElement" #else type IsHTMLDirectoryElement o = HTMLDirectoryElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLDivElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLDivElement = HTMLDivElement { unHTMLDivElement :: JSVal } instance PToJSVal HTMLDivElement where pToJSVal = unHTMLDivElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLDivElement where pFromJSVal = HTMLDivElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLDivElement where toJSVal = return . unHTMLDivElement {-# INLINE toJSVal #-} instance FromJSVal HTMLDivElement where fromJSVal v = fmap HTMLDivElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLDivElement where makeObject = makeObject . unHTMLDivElement instance IsHTMLElement HTMLDivElement instance IsElement HTMLDivElement instance IsNode HTMLDivElement instance IsEventTarget HTMLDivElement instance IsGObject HTMLDivElement where toGObject = GObject . unHTMLDivElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLDivElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLDivElement :: IsGObject obj => obj -> JSM HTMLDivElement castToHTMLDivElement = castTo gTypeHTMLDivElement "HTMLDivElement" gTypeHTMLDivElement :: JSM GType gTypeHTMLDivElement = GType . Object <$> jsg "HTMLDivElement" #else type IsHTMLDivElement o = HTMLDivElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLDocument". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Document" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLDocument = HTMLDocument { unHTMLDocument :: JSVal } instance PToJSVal HTMLDocument where pToJSVal = unHTMLDocument {-# INLINE pToJSVal #-} instance PFromJSVal HTMLDocument where pFromJSVal = HTMLDocument {-# INLINE pFromJSVal #-} instance ToJSVal HTMLDocument where toJSVal = return . unHTMLDocument {-# INLINE toJSVal #-} instance FromJSVal HTMLDocument where fromJSVal v = fmap HTMLDocument <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLDocument where makeObject = makeObject . unHTMLDocument instance IsDocument HTMLDocument instance IsNode HTMLDocument instance IsEventTarget HTMLDocument instance IsGObject HTMLDocument where toGObject = GObject . unHTMLDocument {-# INLINE toGObject #-} unsafeCastGObject = HTMLDocument . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLDocument :: IsGObject obj => obj -> JSM HTMLDocument castToHTMLDocument = castTo gTypeHTMLDocument "HTMLDocument" gTypeHTMLDocument :: JSM GType gTypeHTMLDocument = GType . Object <$> jsg "HTMLDocument" #else type IsHTMLDocument o = HTMLDocumentClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLElement = HTMLElement { unHTMLElement :: JSVal } instance PToJSVal HTMLElement where pToJSVal = unHTMLElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLElement where pFromJSVal = HTMLElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLElement where toJSVal = return . unHTMLElement {-# INLINE toJSVal #-} instance FromJSVal HTMLElement where fromJSVal v = fmap HTMLElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLElement where makeObject = makeObject . unHTMLElement class IsElement o => IsHTMLElement o toHTMLElement :: IsHTMLElement o => o -> HTMLElement toHTMLElement = unsafeCastGObject . toGObject instance IsHTMLElement HTMLElement instance IsElement HTMLElement instance IsNode HTMLElement instance IsEventTarget HTMLElement instance IsGObject HTMLElement where toGObject = GObject . unHTMLElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLElement :: IsGObject obj => obj -> JSM HTMLElement castToHTMLElement = castTo gTypeHTMLElement "HTMLElement" gTypeHTMLElement :: JSM GType gTypeHTMLElement = GType . Object <$> jsg "HTMLElement" #else type IsHTMLElement o = HTMLElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLEmbedElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLEmbedElement = HTMLEmbedElement { unHTMLEmbedElement :: JSVal } instance PToJSVal HTMLEmbedElement where pToJSVal = unHTMLEmbedElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLEmbedElement where pFromJSVal = HTMLEmbedElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLEmbedElement where toJSVal = return . unHTMLEmbedElement {-# INLINE toJSVal #-} instance FromJSVal HTMLEmbedElement where fromJSVal v = fmap HTMLEmbedElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLEmbedElement where makeObject = makeObject . unHTMLEmbedElement instance IsHTMLElement HTMLEmbedElement instance IsElement HTMLEmbedElement instance IsNode HTMLEmbedElement instance IsEventTarget HTMLEmbedElement instance IsGObject HTMLEmbedElement where toGObject = GObject . unHTMLEmbedElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLEmbedElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLEmbedElement :: IsGObject obj => obj -> JSM HTMLEmbedElement castToHTMLEmbedElement = castTo gTypeHTMLEmbedElement "HTMLEmbedElement" gTypeHTMLEmbedElement :: JSM GType gTypeHTMLEmbedElement = GType . Object <$> jsg "HTMLEmbedElement" #else type IsHTMLEmbedElement o = HTMLEmbedElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLFieldSetElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLFieldSetElement = HTMLFieldSetElement { unHTMLFieldSetElement :: JSVal } instance PToJSVal HTMLFieldSetElement where pToJSVal = unHTMLFieldSetElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLFieldSetElement where pFromJSVal = HTMLFieldSetElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLFieldSetElement where toJSVal = return . unHTMLFieldSetElement {-# INLINE toJSVal #-} instance FromJSVal HTMLFieldSetElement where fromJSVal v = fmap HTMLFieldSetElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLFieldSetElement where makeObject = makeObject . unHTMLFieldSetElement instance IsHTMLElement HTMLFieldSetElement instance IsElement HTMLFieldSetElement instance IsNode HTMLFieldSetElement instance IsEventTarget HTMLFieldSetElement instance IsGObject HTMLFieldSetElement where toGObject = GObject . unHTMLFieldSetElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLFieldSetElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLFieldSetElement :: IsGObject obj => obj -> JSM HTMLFieldSetElement castToHTMLFieldSetElement = castTo gTypeHTMLFieldSetElement "HTMLFieldSetElement" gTypeHTMLFieldSetElement :: JSM GType gTypeHTMLFieldSetElement = GType . Object <$> jsg "HTMLFieldSetElement" #else type IsHTMLFieldSetElement o = HTMLFieldSetElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLFontElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLFontElement = HTMLFontElement { unHTMLFontElement :: JSVal } instance PToJSVal HTMLFontElement where pToJSVal = unHTMLFontElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLFontElement where pFromJSVal = HTMLFontElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLFontElement where toJSVal = return . unHTMLFontElement {-# INLINE toJSVal #-} instance FromJSVal HTMLFontElement where fromJSVal v = fmap HTMLFontElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLFontElement where makeObject = makeObject . unHTMLFontElement instance IsHTMLElement HTMLFontElement instance IsElement HTMLFontElement instance IsNode HTMLFontElement instance IsEventTarget HTMLFontElement instance IsGObject HTMLFontElement where toGObject = GObject . unHTMLFontElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLFontElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLFontElement :: IsGObject obj => obj -> JSM HTMLFontElement castToHTMLFontElement = castTo gTypeHTMLFontElement "HTMLFontElement" gTypeHTMLFontElement :: JSM GType gTypeHTMLFontElement = GType . Object <$> jsg "HTMLFontElement" #else type IsHTMLFontElement o = HTMLFontElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLFormControlsCollection". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLCollection" -- -- newtype HTMLFormControlsCollection = HTMLFormControlsCollection { unHTMLFormControlsCollection :: JSVal } instance PToJSVal HTMLFormControlsCollection where pToJSVal = unHTMLFormControlsCollection {-# INLINE pToJSVal #-} instance PFromJSVal HTMLFormControlsCollection where pFromJSVal = HTMLFormControlsCollection {-# INLINE pFromJSVal #-} instance ToJSVal HTMLFormControlsCollection where toJSVal = return . unHTMLFormControlsCollection {-# INLINE toJSVal #-} instance FromJSVal HTMLFormControlsCollection where fromJSVal v = fmap HTMLFormControlsCollection <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLFormControlsCollection where makeObject = makeObject . unHTMLFormControlsCollection instance IsHTMLCollection HTMLFormControlsCollection instance IsGObject HTMLFormControlsCollection where toGObject = GObject . unHTMLFormControlsCollection {-# INLINE toGObject #-} unsafeCastGObject = HTMLFormControlsCollection . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLFormControlsCollection :: IsGObject obj => obj -> JSM HTMLFormControlsCollection castToHTMLFormControlsCollection = castTo gTypeHTMLFormControlsCollection "HTMLFormControlsCollection" gTypeHTMLFormControlsCollection :: JSM GType gTypeHTMLFormControlsCollection = GType . Object <$> jsg "HTMLFormControlsCollection" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLFormElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLFormElement = HTMLFormElement { unHTMLFormElement :: JSVal } instance PToJSVal HTMLFormElement where pToJSVal = unHTMLFormElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLFormElement where pFromJSVal = HTMLFormElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLFormElement where toJSVal = return . unHTMLFormElement {-# INLINE toJSVal #-} instance FromJSVal HTMLFormElement where fromJSVal v = fmap HTMLFormElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLFormElement where makeObject = makeObject . unHTMLFormElement instance IsHTMLElement HTMLFormElement instance IsElement HTMLFormElement instance IsNode HTMLFormElement instance IsEventTarget HTMLFormElement instance IsGObject HTMLFormElement where toGObject = GObject . unHTMLFormElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLFormElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLFormElement :: IsGObject obj => obj -> JSM HTMLFormElement castToHTMLFormElement = castTo gTypeHTMLFormElement "HTMLFormElement" gTypeHTMLFormElement :: JSM GType gTypeHTMLFormElement = GType . Object <$> jsg "HTMLFormElement" #else type IsHTMLFormElement o = HTMLFormElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLFrameElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLFrameElement = HTMLFrameElement { unHTMLFrameElement :: JSVal } instance PToJSVal HTMLFrameElement where pToJSVal = unHTMLFrameElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLFrameElement where pFromJSVal = HTMLFrameElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLFrameElement where toJSVal = return . unHTMLFrameElement {-# INLINE toJSVal #-} instance FromJSVal HTMLFrameElement where fromJSVal v = fmap HTMLFrameElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLFrameElement where makeObject = makeObject . unHTMLFrameElement instance IsHTMLElement HTMLFrameElement instance IsElement HTMLFrameElement instance IsNode HTMLFrameElement instance IsEventTarget HTMLFrameElement instance IsGObject HTMLFrameElement where toGObject = GObject . unHTMLFrameElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLFrameElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLFrameElement :: IsGObject obj => obj -> JSM HTMLFrameElement castToHTMLFrameElement = castTo gTypeHTMLFrameElement "HTMLFrameElement" gTypeHTMLFrameElement :: JSM GType gTypeHTMLFrameElement = GType . Object <$> jsg "HTMLFrameElement" #else type IsHTMLFrameElement o = HTMLFrameElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLFrameSetElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLFrameSetElement = HTMLFrameSetElement { unHTMLFrameSetElement :: JSVal } instance PToJSVal HTMLFrameSetElement where pToJSVal = unHTMLFrameSetElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLFrameSetElement where pFromJSVal = HTMLFrameSetElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLFrameSetElement where toJSVal = return . unHTMLFrameSetElement {-# INLINE toJSVal #-} instance FromJSVal HTMLFrameSetElement where fromJSVal v = fmap HTMLFrameSetElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLFrameSetElement where makeObject = makeObject . unHTMLFrameSetElement instance IsHTMLElement HTMLFrameSetElement instance IsElement HTMLFrameSetElement instance IsNode HTMLFrameSetElement instance IsEventTarget HTMLFrameSetElement instance IsGObject HTMLFrameSetElement where toGObject = GObject . unHTMLFrameSetElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLFrameSetElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLFrameSetElement :: IsGObject obj => obj -> JSM HTMLFrameSetElement castToHTMLFrameSetElement = castTo gTypeHTMLFrameSetElement "HTMLFrameSetElement" gTypeHTMLFrameSetElement :: JSM GType gTypeHTMLFrameSetElement = GType . Object <$> jsg "HTMLFrameSetElement" #else type IsHTMLFrameSetElement o = HTMLFrameSetElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLHRElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLHRElement = HTMLHRElement { unHTMLHRElement :: JSVal } instance PToJSVal HTMLHRElement where pToJSVal = unHTMLHRElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLHRElement where pFromJSVal = HTMLHRElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLHRElement where toJSVal = return . unHTMLHRElement {-# INLINE toJSVal #-} instance FromJSVal HTMLHRElement where fromJSVal v = fmap HTMLHRElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLHRElement where makeObject = makeObject . unHTMLHRElement instance IsHTMLElement HTMLHRElement instance IsElement HTMLHRElement instance IsNode HTMLHRElement instance IsEventTarget HTMLHRElement instance IsGObject HTMLHRElement where toGObject = GObject . unHTMLHRElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLHRElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLHRElement :: IsGObject obj => obj -> JSM HTMLHRElement castToHTMLHRElement = castTo gTypeHTMLHRElement "HTMLHRElement" gTypeHTMLHRElement :: JSM GType gTypeHTMLHRElement = GType . Object <$> jsg "HTMLHRElement" #else type IsHTMLHRElement o = HTMLHRElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLHeadElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLHeadElement = HTMLHeadElement { unHTMLHeadElement :: JSVal } instance PToJSVal HTMLHeadElement where pToJSVal = unHTMLHeadElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLHeadElement where pFromJSVal = HTMLHeadElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLHeadElement where toJSVal = return . unHTMLHeadElement {-# INLINE toJSVal #-} instance FromJSVal HTMLHeadElement where fromJSVal v = fmap HTMLHeadElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLHeadElement where makeObject = makeObject . unHTMLHeadElement instance IsHTMLElement HTMLHeadElement instance IsElement HTMLHeadElement instance IsNode HTMLHeadElement instance IsEventTarget HTMLHeadElement instance IsGObject HTMLHeadElement where toGObject = GObject . unHTMLHeadElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLHeadElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLHeadElement :: IsGObject obj => obj -> JSM HTMLHeadElement castToHTMLHeadElement = castTo gTypeHTMLHeadElement "HTMLHeadElement" gTypeHTMLHeadElement :: JSM GType gTypeHTMLHeadElement = GType . Object <$> jsg "HTMLHeadElement" #else type IsHTMLHeadElement o = HTMLHeadElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLHeadingElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLHeadingElement = HTMLHeadingElement { unHTMLHeadingElement :: JSVal } instance PToJSVal HTMLHeadingElement where pToJSVal = unHTMLHeadingElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLHeadingElement where pFromJSVal = HTMLHeadingElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLHeadingElement where toJSVal = return . unHTMLHeadingElement {-# INLINE toJSVal #-} instance FromJSVal HTMLHeadingElement where fromJSVal v = fmap HTMLHeadingElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLHeadingElement where makeObject = makeObject . unHTMLHeadingElement instance IsHTMLElement HTMLHeadingElement instance IsElement HTMLHeadingElement instance IsNode HTMLHeadingElement instance IsEventTarget HTMLHeadingElement instance IsGObject HTMLHeadingElement where toGObject = GObject . unHTMLHeadingElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLHeadingElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLHeadingElement :: IsGObject obj => obj -> JSM HTMLHeadingElement castToHTMLHeadingElement = castTo gTypeHTMLHeadingElement "HTMLHeadingElement" gTypeHTMLHeadingElement :: JSM GType gTypeHTMLHeadingElement = GType . Object <$> jsg "HTMLHeadingElement" #else type IsHTMLHeadingElement o = HTMLHeadingElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLHtmlElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLHtmlElement = HTMLHtmlElement { unHTMLHtmlElement :: JSVal } instance PToJSVal HTMLHtmlElement where pToJSVal = unHTMLHtmlElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLHtmlElement where pFromJSVal = HTMLHtmlElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLHtmlElement where toJSVal = return . unHTMLHtmlElement {-# INLINE toJSVal #-} instance FromJSVal HTMLHtmlElement where fromJSVal v = fmap HTMLHtmlElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLHtmlElement where makeObject = makeObject . unHTMLHtmlElement instance IsHTMLElement HTMLHtmlElement instance IsElement HTMLHtmlElement instance IsNode HTMLHtmlElement instance IsEventTarget HTMLHtmlElement instance IsGObject HTMLHtmlElement where toGObject = GObject . unHTMLHtmlElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLHtmlElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLHtmlElement :: IsGObject obj => obj -> JSM HTMLHtmlElement castToHTMLHtmlElement = castTo gTypeHTMLHtmlElement "HTMLHtmlElement" gTypeHTMLHtmlElement :: JSM GType gTypeHTMLHtmlElement = GType . Object <$> jsg "HTMLHtmlElement" #else type IsHTMLHtmlElement o = HTMLHtmlElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLIFrameElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLIFrameElement = HTMLIFrameElement { unHTMLIFrameElement :: JSVal } instance PToJSVal HTMLIFrameElement where pToJSVal = unHTMLIFrameElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLIFrameElement where pFromJSVal = HTMLIFrameElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLIFrameElement where toJSVal = return . unHTMLIFrameElement {-# INLINE toJSVal #-} instance FromJSVal HTMLIFrameElement where fromJSVal v = fmap HTMLIFrameElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLIFrameElement where makeObject = makeObject . unHTMLIFrameElement instance IsHTMLElement HTMLIFrameElement instance IsElement HTMLIFrameElement instance IsNode HTMLIFrameElement instance IsEventTarget HTMLIFrameElement instance IsGObject HTMLIFrameElement where toGObject = GObject . unHTMLIFrameElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLIFrameElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLIFrameElement :: IsGObject obj => obj -> JSM HTMLIFrameElement castToHTMLIFrameElement = castTo gTypeHTMLIFrameElement "HTMLIFrameElement" gTypeHTMLIFrameElement :: JSM GType gTypeHTMLIFrameElement = GType . Object <$> jsg "HTMLIFrameElement" #else type IsHTMLIFrameElement o = HTMLIFrameElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLImageElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLImageElement = HTMLImageElement { unHTMLImageElement :: JSVal } instance PToJSVal HTMLImageElement where pToJSVal = unHTMLImageElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLImageElement where pFromJSVal = HTMLImageElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLImageElement where toJSVal = return . unHTMLImageElement {-# INLINE toJSVal #-} instance FromJSVal HTMLImageElement where fromJSVal v = fmap HTMLImageElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLImageElement where makeObject = makeObject . unHTMLImageElement instance IsHTMLElement HTMLImageElement instance IsElement HTMLImageElement instance IsNode HTMLImageElement instance IsEventTarget HTMLImageElement instance IsGObject HTMLImageElement where toGObject = GObject . unHTMLImageElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLImageElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLImageElement :: IsGObject obj => obj -> JSM HTMLImageElement castToHTMLImageElement = castTo gTypeHTMLImageElement "HTMLImageElement" gTypeHTMLImageElement :: JSM GType gTypeHTMLImageElement = GType . Object <$> jsg "HTMLImageElement" #else type IsHTMLImageElement o = HTMLImageElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLInputElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLInputElement = HTMLInputElement { unHTMLInputElement :: JSVal } instance PToJSVal HTMLInputElement where pToJSVal = unHTMLInputElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLInputElement where pFromJSVal = HTMLInputElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLInputElement where toJSVal = return . unHTMLInputElement {-# INLINE toJSVal #-} instance FromJSVal HTMLInputElement where fromJSVal v = fmap HTMLInputElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLInputElement where makeObject = makeObject . unHTMLInputElement instance IsHTMLElement HTMLInputElement instance IsElement HTMLInputElement instance IsNode HTMLInputElement instance IsEventTarget HTMLInputElement instance IsGObject HTMLInputElement where toGObject = GObject . unHTMLInputElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLInputElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLInputElement :: IsGObject obj => obj -> JSM HTMLInputElement castToHTMLInputElement = castTo gTypeHTMLInputElement "HTMLInputElement" gTypeHTMLInputElement :: JSM GType gTypeHTMLInputElement = GType . Object <$> jsg "HTMLInputElement" #else type IsHTMLInputElement o = HTMLInputElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLKeygenElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLKeygenElement = HTMLKeygenElement { unHTMLKeygenElement :: JSVal } instance PToJSVal HTMLKeygenElement where pToJSVal = unHTMLKeygenElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLKeygenElement where pFromJSVal = HTMLKeygenElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLKeygenElement where toJSVal = return . unHTMLKeygenElement {-# INLINE toJSVal #-} instance FromJSVal HTMLKeygenElement where fromJSVal v = fmap HTMLKeygenElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLKeygenElement where makeObject = makeObject . unHTMLKeygenElement instance IsHTMLElement HTMLKeygenElement instance IsElement HTMLKeygenElement instance IsNode HTMLKeygenElement instance IsEventTarget HTMLKeygenElement instance IsGObject HTMLKeygenElement where toGObject = GObject . unHTMLKeygenElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLKeygenElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLKeygenElement :: IsGObject obj => obj -> JSM HTMLKeygenElement castToHTMLKeygenElement = castTo gTypeHTMLKeygenElement "HTMLKeygenElement" gTypeHTMLKeygenElement :: JSM GType gTypeHTMLKeygenElement = GType . Object <$> jsg "HTMLKeygenElement" #else type IsHTMLKeygenElement o = HTMLKeygenElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLLIElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLLIElement = HTMLLIElement { unHTMLLIElement :: JSVal } instance PToJSVal HTMLLIElement where pToJSVal = unHTMLLIElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLLIElement where pFromJSVal = HTMLLIElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLLIElement where toJSVal = return . unHTMLLIElement {-# INLINE toJSVal #-} instance FromJSVal HTMLLIElement where fromJSVal v = fmap HTMLLIElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLLIElement where makeObject = makeObject . unHTMLLIElement instance IsHTMLElement HTMLLIElement instance IsElement HTMLLIElement instance IsNode HTMLLIElement instance IsEventTarget HTMLLIElement instance IsGObject HTMLLIElement where toGObject = GObject . unHTMLLIElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLLIElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLLIElement :: IsGObject obj => obj -> JSM HTMLLIElement castToHTMLLIElement = castTo gTypeHTMLLIElement "HTMLLIElement" gTypeHTMLLIElement :: JSM GType gTypeHTMLLIElement = GType . Object <$> jsg "HTMLLIElement" #else type IsHTMLLIElement o = HTMLLIElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLLabelElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLLabelElement = HTMLLabelElement { unHTMLLabelElement :: JSVal } instance PToJSVal HTMLLabelElement where pToJSVal = unHTMLLabelElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLLabelElement where pFromJSVal = HTMLLabelElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLLabelElement where toJSVal = return . unHTMLLabelElement {-# INLINE toJSVal #-} instance FromJSVal HTMLLabelElement where fromJSVal v = fmap HTMLLabelElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLLabelElement where makeObject = makeObject . unHTMLLabelElement instance IsHTMLElement HTMLLabelElement instance IsElement HTMLLabelElement instance IsNode HTMLLabelElement instance IsEventTarget HTMLLabelElement instance IsGObject HTMLLabelElement where toGObject = GObject . unHTMLLabelElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLLabelElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLLabelElement :: IsGObject obj => obj -> JSM HTMLLabelElement castToHTMLLabelElement = castTo gTypeHTMLLabelElement "HTMLLabelElement" gTypeHTMLLabelElement :: JSM GType gTypeHTMLLabelElement = GType . Object <$> jsg "HTMLLabelElement" #else type IsHTMLLabelElement o = HTMLLabelElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLLegendElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLLegendElement = HTMLLegendElement { unHTMLLegendElement :: JSVal } instance PToJSVal HTMLLegendElement where pToJSVal = unHTMLLegendElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLLegendElement where pFromJSVal = HTMLLegendElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLLegendElement where toJSVal = return . unHTMLLegendElement {-# INLINE toJSVal #-} instance FromJSVal HTMLLegendElement where fromJSVal v = fmap HTMLLegendElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLLegendElement where makeObject = makeObject . unHTMLLegendElement instance IsHTMLElement HTMLLegendElement instance IsElement HTMLLegendElement instance IsNode HTMLLegendElement instance IsEventTarget HTMLLegendElement instance IsGObject HTMLLegendElement where toGObject = GObject . unHTMLLegendElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLLegendElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLLegendElement :: IsGObject obj => obj -> JSM HTMLLegendElement castToHTMLLegendElement = castTo gTypeHTMLLegendElement "HTMLLegendElement" gTypeHTMLLegendElement :: JSM GType gTypeHTMLLegendElement = GType . Object <$> jsg "HTMLLegendElement" #else type IsHTMLLegendElement o = HTMLLegendElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLLinkElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLLinkElement = HTMLLinkElement { unHTMLLinkElement :: JSVal } instance PToJSVal HTMLLinkElement where pToJSVal = unHTMLLinkElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLLinkElement where pFromJSVal = HTMLLinkElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLLinkElement where toJSVal = return . unHTMLLinkElement {-# INLINE toJSVal #-} instance FromJSVal HTMLLinkElement where fromJSVal v = fmap HTMLLinkElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLLinkElement where makeObject = makeObject . unHTMLLinkElement instance IsHTMLElement HTMLLinkElement instance IsElement HTMLLinkElement instance IsNode HTMLLinkElement instance IsEventTarget HTMLLinkElement instance IsGObject HTMLLinkElement where toGObject = GObject . unHTMLLinkElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLLinkElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLLinkElement :: IsGObject obj => obj -> JSM HTMLLinkElement castToHTMLLinkElement = castTo gTypeHTMLLinkElement "HTMLLinkElement" gTypeHTMLLinkElement :: JSM GType gTypeHTMLLinkElement = GType . Object <$> jsg "HTMLLinkElement" #else type IsHTMLLinkElement o = HTMLLinkElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLMapElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLMapElement = HTMLMapElement { unHTMLMapElement :: JSVal } instance PToJSVal HTMLMapElement where pToJSVal = unHTMLMapElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLMapElement where pFromJSVal = HTMLMapElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLMapElement where toJSVal = return . unHTMLMapElement {-# INLINE toJSVal #-} instance FromJSVal HTMLMapElement where fromJSVal v = fmap HTMLMapElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLMapElement where makeObject = makeObject . unHTMLMapElement instance IsHTMLElement HTMLMapElement instance IsElement HTMLMapElement instance IsNode HTMLMapElement instance IsEventTarget HTMLMapElement instance IsGObject HTMLMapElement where toGObject = GObject . unHTMLMapElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLMapElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLMapElement :: IsGObject obj => obj -> JSM HTMLMapElement castToHTMLMapElement = castTo gTypeHTMLMapElement "HTMLMapElement" gTypeHTMLMapElement :: JSM GType gTypeHTMLMapElement = GType . Object <$> jsg "HTMLMapElement" #else type IsHTMLMapElement o = HTMLMapElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLMarqueeElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLMarqueeElement = HTMLMarqueeElement { unHTMLMarqueeElement :: JSVal } instance PToJSVal HTMLMarqueeElement where pToJSVal = unHTMLMarqueeElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLMarqueeElement where pFromJSVal = HTMLMarqueeElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLMarqueeElement where toJSVal = return . unHTMLMarqueeElement {-# INLINE toJSVal #-} instance FromJSVal HTMLMarqueeElement where fromJSVal v = fmap HTMLMarqueeElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLMarqueeElement where makeObject = makeObject . unHTMLMarqueeElement instance IsHTMLElement HTMLMarqueeElement instance IsElement HTMLMarqueeElement instance IsNode HTMLMarqueeElement instance IsEventTarget HTMLMarqueeElement instance IsGObject HTMLMarqueeElement where toGObject = GObject . unHTMLMarqueeElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLMarqueeElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLMarqueeElement :: IsGObject obj => obj -> JSM HTMLMarqueeElement castToHTMLMarqueeElement = castTo gTypeHTMLMarqueeElement "HTMLMarqueeElement" gTypeHTMLMarqueeElement :: JSM GType gTypeHTMLMarqueeElement = GType . Object <$> jsg "HTMLMarqueeElement" #else type IsHTMLMarqueeElement o = HTMLMarqueeElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLMediaElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLMediaElement = HTMLMediaElement { unHTMLMediaElement :: JSVal } instance PToJSVal HTMLMediaElement where pToJSVal = unHTMLMediaElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLMediaElement where pFromJSVal = HTMLMediaElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLMediaElement where toJSVal = return . unHTMLMediaElement {-# INLINE toJSVal #-} instance FromJSVal HTMLMediaElement where fromJSVal v = fmap HTMLMediaElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLMediaElement where makeObject = makeObject . unHTMLMediaElement class IsHTMLElement o => IsHTMLMediaElement o toHTMLMediaElement :: IsHTMLMediaElement o => o -> HTMLMediaElement toHTMLMediaElement = unsafeCastGObject . toGObject instance IsHTMLMediaElement HTMLMediaElement instance IsHTMLElement HTMLMediaElement instance IsElement HTMLMediaElement instance IsNode HTMLMediaElement instance IsEventTarget HTMLMediaElement instance IsGObject HTMLMediaElement where toGObject = GObject . unHTMLMediaElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLMediaElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLMediaElement :: IsGObject obj => obj -> JSM HTMLMediaElement castToHTMLMediaElement = castTo gTypeHTMLMediaElement "HTMLMediaElement" gTypeHTMLMediaElement :: JSM GType gTypeHTMLMediaElement = GType . Object <$> jsg "HTMLMediaElement" #else type IsHTMLMediaElement o = HTMLMediaElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLMenuElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLMenuElement = HTMLMenuElement { unHTMLMenuElement :: JSVal } instance PToJSVal HTMLMenuElement where pToJSVal = unHTMLMenuElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLMenuElement where pFromJSVal = HTMLMenuElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLMenuElement where toJSVal = return . unHTMLMenuElement {-# INLINE toJSVal #-} instance FromJSVal HTMLMenuElement where fromJSVal v = fmap HTMLMenuElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLMenuElement where makeObject = makeObject . unHTMLMenuElement instance IsHTMLElement HTMLMenuElement instance IsElement HTMLMenuElement instance IsNode HTMLMenuElement instance IsEventTarget HTMLMenuElement instance IsGObject HTMLMenuElement where toGObject = GObject . unHTMLMenuElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLMenuElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLMenuElement :: IsGObject obj => obj -> JSM HTMLMenuElement castToHTMLMenuElement = castTo gTypeHTMLMenuElement "HTMLMenuElement" gTypeHTMLMenuElement :: JSM GType gTypeHTMLMenuElement = GType . Object <$> jsg "HTMLMenuElement" #else type IsHTMLMenuElement o = HTMLMenuElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLMetaElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLMetaElement = HTMLMetaElement { unHTMLMetaElement :: JSVal } instance PToJSVal HTMLMetaElement where pToJSVal = unHTMLMetaElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLMetaElement where pFromJSVal = HTMLMetaElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLMetaElement where toJSVal = return . unHTMLMetaElement {-# INLINE toJSVal #-} instance FromJSVal HTMLMetaElement where fromJSVal v = fmap HTMLMetaElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLMetaElement where makeObject = makeObject . unHTMLMetaElement instance IsHTMLElement HTMLMetaElement instance IsElement HTMLMetaElement instance IsNode HTMLMetaElement instance IsEventTarget HTMLMetaElement instance IsGObject HTMLMetaElement where toGObject = GObject . unHTMLMetaElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLMetaElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLMetaElement :: IsGObject obj => obj -> JSM HTMLMetaElement castToHTMLMetaElement = castTo gTypeHTMLMetaElement "HTMLMetaElement" gTypeHTMLMetaElement :: JSM GType gTypeHTMLMetaElement = GType . Object <$> jsg "HTMLMetaElement" #else type IsHTMLMetaElement o = HTMLMetaElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLMeterElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLMeterElement = HTMLMeterElement { unHTMLMeterElement :: JSVal } instance PToJSVal HTMLMeterElement where pToJSVal = unHTMLMeterElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLMeterElement where pFromJSVal = HTMLMeterElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLMeterElement where toJSVal = return . unHTMLMeterElement {-# INLINE toJSVal #-} instance FromJSVal HTMLMeterElement where fromJSVal v = fmap HTMLMeterElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLMeterElement where makeObject = makeObject . unHTMLMeterElement instance IsHTMLElement HTMLMeterElement instance IsElement HTMLMeterElement instance IsNode HTMLMeterElement instance IsEventTarget HTMLMeterElement instance IsGObject HTMLMeterElement where toGObject = GObject . unHTMLMeterElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLMeterElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLMeterElement :: IsGObject obj => obj -> JSM HTMLMeterElement castToHTMLMeterElement = castTo gTypeHTMLMeterElement "HTMLMeterElement" gTypeHTMLMeterElement :: JSM GType gTypeHTMLMeterElement = GType . Object <$> jsg "HTMLMeterElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLModElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLModElement = HTMLModElement { unHTMLModElement :: JSVal } instance PToJSVal HTMLModElement where pToJSVal = unHTMLModElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLModElement where pFromJSVal = HTMLModElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLModElement where toJSVal = return . unHTMLModElement {-# INLINE toJSVal #-} instance FromJSVal HTMLModElement where fromJSVal v = fmap HTMLModElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLModElement where makeObject = makeObject . unHTMLModElement instance IsHTMLElement HTMLModElement instance IsElement HTMLModElement instance IsNode HTMLModElement instance IsEventTarget HTMLModElement instance IsGObject HTMLModElement where toGObject = GObject . unHTMLModElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLModElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLModElement :: IsGObject obj => obj -> JSM HTMLModElement castToHTMLModElement = castTo gTypeHTMLModElement "HTMLModElement" gTypeHTMLModElement :: JSM GType gTypeHTMLModElement = GType . Object <$> jsg "HTMLModElement" #else type IsHTMLModElement o = HTMLModElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLOListElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLOListElement = HTMLOListElement { unHTMLOListElement :: JSVal } instance PToJSVal HTMLOListElement where pToJSVal = unHTMLOListElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLOListElement where pFromJSVal = HTMLOListElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLOListElement where toJSVal = return . unHTMLOListElement {-# INLINE toJSVal #-} instance FromJSVal HTMLOListElement where fromJSVal v = fmap HTMLOListElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLOListElement where makeObject = makeObject . unHTMLOListElement instance IsHTMLElement HTMLOListElement instance IsElement HTMLOListElement instance IsNode HTMLOListElement instance IsEventTarget HTMLOListElement instance IsGObject HTMLOListElement where toGObject = GObject . unHTMLOListElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLOListElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLOListElement :: IsGObject obj => obj -> JSM HTMLOListElement castToHTMLOListElement = castTo gTypeHTMLOListElement "HTMLOListElement" gTypeHTMLOListElement :: JSM GType gTypeHTMLOListElement = GType . Object <$> jsg "HTMLOListElement" #else type IsHTMLOListElement o = HTMLOListElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLObjectElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLObjectElement = HTMLObjectElement { unHTMLObjectElement :: JSVal } instance PToJSVal HTMLObjectElement where pToJSVal = unHTMLObjectElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLObjectElement where pFromJSVal = HTMLObjectElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLObjectElement where toJSVal = return . unHTMLObjectElement {-# INLINE toJSVal #-} instance FromJSVal HTMLObjectElement where fromJSVal v = fmap HTMLObjectElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLObjectElement where makeObject = makeObject . unHTMLObjectElement instance IsHTMLElement HTMLObjectElement instance IsElement HTMLObjectElement instance IsNode HTMLObjectElement instance IsEventTarget HTMLObjectElement instance IsGObject HTMLObjectElement where toGObject = GObject . unHTMLObjectElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLObjectElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLObjectElement :: IsGObject obj => obj -> JSM HTMLObjectElement castToHTMLObjectElement = castTo gTypeHTMLObjectElement "HTMLObjectElement" gTypeHTMLObjectElement :: JSM GType gTypeHTMLObjectElement = GType . Object <$> jsg "HTMLObjectElement" #else type IsHTMLObjectElement o = HTMLObjectElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLOptGroupElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLOptGroupElement = HTMLOptGroupElement { unHTMLOptGroupElement :: JSVal } instance PToJSVal HTMLOptGroupElement where pToJSVal = unHTMLOptGroupElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLOptGroupElement where pFromJSVal = HTMLOptGroupElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLOptGroupElement where toJSVal = return . unHTMLOptGroupElement {-# INLINE toJSVal #-} instance FromJSVal HTMLOptGroupElement where fromJSVal v = fmap HTMLOptGroupElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLOptGroupElement where makeObject = makeObject . unHTMLOptGroupElement instance IsHTMLElement HTMLOptGroupElement instance IsElement HTMLOptGroupElement instance IsNode HTMLOptGroupElement instance IsEventTarget HTMLOptGroupElement instance IsGObject HTMLOptGroupElement where toGObject = GObject . unHTMLOptGroupElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLOptGroupElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLOptGroupElement :: IsGObject obj => obj -> JSM HTMLOptGroupElement castToHTMLOptGroupElement = castTo gTypeHTMLOptGroupElement "HTMLOptGroupElement" gTypeHTMLOptGroupElement :: JSM GType gTypeHTMLOptGroupElement = GType . Object <$> jsg "HTMLOptGroupElement" #else type IsHTMLOptGroupElement o = HTMLOptGroupElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLOptionElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLOptionElement = HTMLOptionElement { unHTMLOptionElement :: JSVal } instance PToJSVal HTMLOptionElement where pToJSVal = unHTMLOptionElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLOptionElement where pFromJSVal = HTMLOptionElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLOptionElement where toJSVal = return . unHTMLOptionElement {-# INLINE toJSVal #-} instance FromJSVal HTMLOptionElement where fromJSVal v = fmap HTMLOptionElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLOptionElement where makeObject = makeObject . unHTMLOptionElement instance IsHTMLElement HTMLOptionElement instance IsElement HTMLOptionElement instance IsNode HTMLOptionElement instance IsEventTarget HTMLOptionElement instance IsGObject HTMLOptionElement where toGObject = GObject . unHTMLOptionElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLOptionElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLOptionElement :: IsGObject obj => obj -> JSM HTMLOptionElement castToHTMLOptionElement = castTo gTypeHTMLOptionElement "HTMLOptionElement" gTypeHTMLOptionElement :: JSM GType gTypeHTMLOptionElement = GType . Object <$> jsg "HTMLOptionElement" #else type IsHTMLOptionElement o = HTMLOptionElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLOptionsCollection". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLCollection" -- -- newtype HTMLOptionsCollection = HTMLOptionsCollection { unHTMLOptionsCollection :: JSVal } instance PToJSVal HTMLOptionsCollection where pToJSVal = unHTMLOptionsCollection {-# INLINE pToJSVal #-} instance PFromJSVal HTMLOptionsCollection where pFromJSVal = HTMLOptionsCollection {-# INLINE pFromJSVal #-} instance ToJSVal HTMLOptionsCollection where toJSVal = return . unHTMLOptionsCollection {-# INLINE toJSVal #-} instance FromJSVal HTMLOptionsCollection where fromJSVal v = fmap HTMLOptionsCollection <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLOptionsCollection where makeObject = makeObject . unHTMLOptionsCollection instance IsHTMLCollection HTMLOptionsCollection instance IsGObject HTMLOptionsCollection where toGObject = GObject . unHTMLOptionsCollection {-# INLINE toGObject #-} unsafeCastGObject = HTMLOptionsCollection . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLOptionsCollection :: IsGObject obj => obj -> JSM HTMLOptionsCollection castToHTMLOptionsCollection = castTo gTypeHTMLOptionsCollection "HTMLOptionsCollection" gTypeHTMLOptionsCollection :: JSM GType gTypeHTMLOptionsCollection = GType . Object <$> jsg "HTMLOptionsCollection" #else type IsHTMLOptionsCollection o = HTMLOptionsCollectionClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLOutputElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLOutputElement = HTMLOutputElement { unHTMLOutputElement :: JSVal } instance PToJSVal HTMLOutputElement where pToJSVal = unHTMLOutputElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLOutputElement where pFromJSVal = HTMLOutputElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLOutputElement where toJSVal = return . unHTMLOutputElement {-# INLINE toJSVal #-} instance FromJSVal HTMLOutputElement where fromJSVal v = fmap HTMLOutputElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLOutputElement where makeObject = makeObject . unHTMLOutputElement instance IsHTMLElement HTMLOutputElement instance IsElement HTMLOutputElement instance IsNode HTMLOutputElement instance IsEventTarget HTMLOutputElement instance IsGObject HTMLOutputElement where toGObject = GObject . unHTMLOutputElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLOutputElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLOutputElement :: IsGObject obj => obj -> JSM HTMLOutputElement castToHTMLOutputElement = castTo gTypeHTMLOutputElement "HTMLOutputElement" gTypeHTMLOutputElement :: JSM GType gTypeHTMLOutputElement = GType . Object <$> jsg "HTMLOutputElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLParagraphElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLParagraphElement = HTMLParagraphElement { unHTMLParagraphElement :: JSVal } instance PToJSVal HTMLParagraphElement where pToJSVal = unHTMLParagraphElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLParagraphElement where pFromJSVal = HTMLParagraphElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLParagraphElement where toJSVal = return . unHTMLParagraphElement {-# INLINE toJSVal #-} instance FromJSVal HTMLParagraphElement where fromJSVal v = fmap HTMLParagraphElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLParagraphElement where makeObject = makeObject . unHTMLParagraphElement instance IsHTMLElement HTMLParagraphElement instance IsElement HTMLParagraphElement instance IsNode HTMLParagraphElement instance IsEventTarget HTMLParagraphElement instance IsGObject HTMLParagraphElement where toGObject = GObject . unHTMLParagraphElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLParagraphElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLParagraphElement :: IsGObject obj => obj -> JSM HTMLParagraphElement castToHTMLParagraphElement = castTo gTypeHTMLParagraphElement "HTMLParagraphElement" gTypeHTMLParagraphElement :: JSM GType gTypeHTMLParagraphElement = GType . Object <$> jsg "HTMLParagraphElement" #else type IsHTMLParagraphElement o = HTMLParagraphElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLParamElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLParamElement = HTMLParamElement { unHTMLParamElement :: JSVal } instance PToJSVal HTMLParamElement where pToJSVal = unHTMLParamElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLParamElement where pFromJSVal = HTMLParamElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLParamElement where toJSVal = return . unHTMLParamElement {-# INLINE toJSVal #-} instance FromJSVal HTMLParamElement where fromJSVal v = fmap HTMLParamElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLParamElement where makeObject = makeObject . unHTMLParamElement instance IsHTMLElement HTMLParamElement instance IsElement HTMLParamElement instance IsNode HTMLParamElement instance IsEventTarget HTMLParamElement instance IsGObject HTMLParamElement where toGObject = GObject . unHTMLParamElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLParamElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLParamElement :: IsGObject obj => obj -> JSM HTMLParamElement castToHTMLParamElement = castTo gTypeHTMLParamElement "HTMLParamElement" gTypeHTMLParamElement :: JSM GType gTypeHTMLParamElement = GType . Object <$> jsg "HTMLParamElement" #else type IsHTMLParamElement o = HTMLParamElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLPreElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLPreElement = HTMLPreElement { unHTMLPreElement :: JSVal } instance PToJSVal HTMLPreElement where pToJSVal = unHTMLPreElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLPreElement where pFromJSVal = HTMLPreElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLPreElement where toJSVal = return . unHTMLPreElement {-# INLINE toJSVal #-} instance FromJSVal HTMLPreElement where fromJSVal v = fmap HTMLPreElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLPreElement where makeObject = makeObject . unHTMLPreElement instance IsHTMLElement HTMLPreElement instance IsElement HTMLPreElement instance IsNode HTMLPreElement instance IsEventTarget HTMLPreElement instance IsGObject HTMLPreElement where toGObject = GObject . unHTMLPreElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLPreElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLPreElement :: IsGObject obj => obj -> JSM HTMLPreElement castToHTMLPreElement = castTo gTypeHTMLPreElement "HTMLPreElement" gTypeHTMLPreElement :: JSM GType gTypeHTMLPreElement = GType . Object <$> jsg "HTMLPreElement" #else type IsHTMLPreElement o = HTMLPreElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLProgressElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLProgressElement = HTMLProgressElement { unHTMLProgressElement :: JSVal } instance PToJSVal HTMLProgressElement where pToJSVal = unHTMLProgressElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLProgressElement where pFromJSVal = HTMLProgressElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLProgressElement where toJSVal = return . unHTMLProgressElement {-# INLINE toJSVal #-} instance FromJSVal HTMLProgressElement where fromJSVal v = fmap HTMLProgressElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLProgressElement where makeObject = makeObject . unHTMLProgressElement instance IsHTMLElement HTMLProgressElement instance IsElement HTMLProgressElement instance IsNode HTMLProgressElement instance IsEventTarget HTMLProgressElement instance IsGObject HTMLProgressElement where toGObject = GObject . unHTMLProgressElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLProgressElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLProgressElement :: IsGObject obj => obj -> JSM HTMLProgressElement castToHTMLProgressElement = castTo gTypeHTMLProgressElement "HTMLProgressElement" gTypeHTMLProgressElement :: JSM GType gTypeHTMLProgressElement = GType . Object <$> jsg "HTMLProgressElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLQuoteElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLQuoteElement = HTMLQuoteElement { unHTMLQuoteElement :: JSVal } instance PToJSVal HTMLQuoteElement where pToJSVal = unHTMLQuoteElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLQuoteElement where pFromJSVal = HTMLQuoteElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLQuoteElement where toJSVal = return . unHTMLQuoteElement {-# INLINE toJSVal #-} instance FromJSVal HTMLQuoteElement where fromJSVal v = fmap HTMLQuoteElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLQuoteElement where makeObject = makeObject . unHTMLQuoteElement instance IsHTMLElement HTMLQuoteElement instance IsElement HTMLQuoteElement instance IsNode HTMLQuoteElement instance IsEventTarget HTMLQuoteElement instance IsGObject HTMLQuoteElement where toGObject = GObject . unHTMLQuoteElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLQuoteElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLQuoteElement :: IsGObject obj => obj -> JSM HTMLQuoteElement castToHTMLQuoteElement = castTo gTypeHTMLQuoteElement "HTMLQuoteElement" gTypeHTMLQuoteElement :: JSM GType gTypeHTMLQuoteElement = GType . Object <$> jsg "HTMLQuoteElement" #else type IsHTMLQuoteElement o = HTMLQuoteElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLScriptElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLScriptElement = HTMLScriptElement { unHTMLScriptElement :: JSVal } instance PToJSVal HTMLScriptElement where pToJSVal = unHTMLScriptElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLScriptElement where pFromJSVal = HTMLScriptElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLScriptElement where toJSVal = return . unHTMLScriptElement {-# INLINE toJSVal #-} instance FromJSVal HTMLScriptElement where fromJSVal v = fmap HTMLScriptElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLScriptElement where makeObject = makeObject . unHTMLScriptElement instance IsHTMLElement HTMLScriptElement instance IsElement HTMLScriptElement instance IsNode HTMLScriptElement instance IsEventTarget HTMLScriptElement instance IsGObject HTMLScriptElement where toGObject = GObject . unHTMLScriptElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLScriptElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLScriptElement :: IsGObject obj => obj -> JSM HTMLScriptElement castToHTMLScriptElement = castTo gTypeHTMLScriptElement "HTMLScriptElement" gTypeHTMLScriptElement :: JSM GType gTypeHTMLScriptElement = GType . Object <$> jsg "HTMLScriptElement" #else type IsHTMLScriptElement o = HTMLScriptElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLSelectElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLSelectElement = HTMLSelectElement { unHTMLSelectElement :: JSVal } instance PToJSVal HTMLSelectElement where pToJSVal = unHTMLSelectElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLSelectElement where pFromJSVal = HTMLSelectElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLSelectElement where toJSVal = return . unHTMLSelectElement {-# INLINE toJSVal #-} instance FromJSVal HTMLSelectElement where fromJSVal v = fmap HTMLSelectElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLSelectElement where makeObject = makeObject . unHTMLSelectElement instance IsHTMLElement HTMLSelectElement instance IsElement HTMLSelectElement instance IsNode HTMLSelectElement instance IsEventTarget HTMLSelectElement instance IsGObject HTMLSelectElement where toGObject = GObject . unHTMLSelectElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLSelectElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLSelectElement :: IsGObject obj => obj -> JSM HTMLSelectElement castToHTMLSelectElement = castTo gTypeHTMLSelectElement "HTMLSelectElement" gTypeHTMLSelectElement :: JSM GType gTypeHTMLSelectElement = GType . Object <$> jsg "HTMLSelectElement" #else type IsHTMLSelectElement o = HTMLSelectElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLSourceElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLSourceElement = HTMLSourceElement { unHTMLSourceElement :: JSVal } instance PToJSVal HTMLSourceElement where pToJSVal = unHTMLSourceElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLSourceElement where pFromJSVal = HTMLSourceElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLSourceElement where toJSVal = return . unHTMLSourceElement {-# INLINE toJSVal #-} instance FromJSVal HTMLSourceElement where fromJSVal v = fmap HTMLSourceElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLSourceElement where makeObject = makeObject . unHTMLSourceElement instance IsHTMLElement HTMLSourceElement instance IsElement HTMLSourceElement instance IsNode HTMLSourceElement instance IsEventTarget HTMLSourceElement instance IsGObject HTMLSourceElement where toGObject = GObject . unHTMLSourceElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLSourceElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLSourceElement :: IsGObject obj => obj -> JSM HTMLSourceElement castToHTMLSourceElement = castTo gTypeHTMLSourceElement "HTMLSourceElement" gTypeHTMLSourceElement :: JSM GType gTypeHTMLSourceElement = GType . Object <$> jsg "HTMLSourceElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLSpanElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLSpanElement = HTMLSpanElement { unHTMLSpanElement :: JSVal } instance PToJSVal HTMLSpanElement where pToJSVal = unHTMLSpanElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLSpanElement where pFromJSVal = HTMLSpanElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLSpanElement where toJSVal = return . unHTMLSpanElement {-# INLINE toJSVal #-} instance FromJSVal HTMLSpanElement where fromJSVal v = fmap HTMLSpanElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLSpanElement where makeObject = makeObject . unHTMLSpanElement instance IsHTMLElement HTMLSpanElement instance IsElement HTMLSpanElement instance IsNode HTMLSpanElement instance IsEventTarget HTMLSpanElement instance IsGObject HTMLSpanElement where toGObject = GObject . unHTMLSpanElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLSpanElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLSpanElement :: IsGObject obj => obj -> JSM HTMLSpanElement castToHTMLSpanElement = castTo gTypeHTMLSpanElement "HTMLSpanElement" gTypeHTMLSpanElement :: JSM GType gTypeHTMLSpanElement = GType . Object <$> jsg "HTMLSpanElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLStyleElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLStyleElement = HTMLStyleElement { unHTMLStyleElement :: JSVal } instance PToJSVal HTMLStyleElement where pToJSVal = unHTMLStyleElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLStyleElement where pFromJSVal = HTMLStyleElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLStyleElement where toJSVal = return . unHTMLStyleElement {-# INLINE toJSVal #-} instance FromJSVal HTMLStyleElement where fromJSVal v = fmap HTMLStyleElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLStyleElement where makeObject = makeObject . unHTMLStyleElement instance IsHTMLElement HTMLStyleElement instance IsElement HTMLStyleElement instance IsNode HTMLStyleElement instance IsEventTarget HTMLStyleElement instance IsGObject HTMLStyleElement where toGObject = GObject . unHTMLStyleElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLStyleElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLStyleElement :: IsGObject obj => obj -> JSM HTMLStyleElement castToHTMLStyleElement = castTo gTypeHTMLStyleElement "HTMLStyleElement" gTypeHTMLStyleElement :: JSM GType gTypeHTMLStyleElement = GType . Object <$> jsg "HTMLStyleElement" #else type IsHTMLStyleElement o = HTMLStyleElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLTableCaptionElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLTableCaptionElement = HTMLTableCaptionElement { unHTMLTableCaptionElement :: JSVal } instance PToJSVal HTMLTableCaptionElement where pToJSVal = unHTMLTableCaptionElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLTableCaptionElement where pFromJSVal = HTMLTableCaptionElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLTableCaptionElement where toJSVal = return . unHTMLTableCaptionElement {-# INLINE toJSVal #-} instance FromJSVal HTMLTableCaptionElement where fromJSVal v = fmap HTMLTableCaptionElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLTableCaptionElement where makeObject = makeObject . unHTMLTableCaptionElement instance IsHTMLElement HTMLTableCaptionElement instance IsElement HTMLTableCaptionElement instance IsNode HTMLTableCaptionElement instance IsEventTarget HTMLTableCaptionElement instance IsGObject HTMLTableCaptionElement where toGObject = GObject . unHTMLTableCaptionElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLTableCaptionElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLTableCaptionElement :: IsGObject obj => obj -> JSM HTMLTableCaptionElement castToHTMLTableCaptionElement = castTo gTypeHTMLTableCaptionElement "HTMLTableCaptionElement" gTypeHTMLTableCaptionElement :: JSM GType gTypeHTMLTableCaptionElement = GType . Object <$> jsg "HTMLTableCaptionElement" #else type IsHTMLTableCaptionElement o = HTMLTableCaptionElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLTableCellElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLTableCellElement = HTMLTableCellElement { unHTMLTableCellElement :: JSVal } instance PToJSVal HTMLTableCellElement where pToJSVal = unHTMLTableCellElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLTableCellElement where pFromJSVal = HTMLTableCellElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLTableCellElement where toJSVal = return . unHTMLTableCellElement {-# INLINE toJSVal #-} instance FromJSVal HTMLTableCellElement where fromJSVal v = fmap HTMLTableCellElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLTableCellElement where makeObject = makeObject . unHTMLTableCellElement instance IsHTMLElement HTMLTableCellElement instance IsElement HTMLTableCellElement instance IsNode HTMLTableCellElement instance IsEventTarget HTMLTableCellElement instance IsGObject HTMLTableCellElement where toGObject = GObject . unHTMLTableCellElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLTableCellElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLTableCellElement :: IsGObject obj => obj -> JSM HTMLTableCellElement castToHTMLTableCellElement = castTo gTypeHTMLTableCellElement "HTMLTableCellElement" gTypeHTMLTableCellElement :: JSM GType gTypeHTMLTableCellElement = GType . Object <$> jsg "HTMLTableCellElement" #else type IsHTMLTableCellElement o = HTMLTableCellElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLTableColElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLTableColElement = HTMLTableColElement { unHTMLTableColElement :: JSVal } instance PToJSVal HTMLTableColElement where pToJSVal = unHTMLTableColElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLTableColElement where pFromJSVal = HTMLTableColElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLTableColElement where toJSVal = return . unHTMLTableColElement {-# INLINE toJSVal #-} instance FromJSVal HTMLTableColElement where fromJSVal v = fmap HTMLTableColElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLTableColElement where makeObject = makeObject . unHTMLTableColElement instance IsHTMLElement HTMLTableColElement instance IsElement HTMLTableColElement instance IsNode HTMLTableColElement instance IsEventTarget HTMLTableColElement instance IsGObject HTMLTableColElement where toGObject = GObject . unHTMLTableColElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLTableColElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLTableColElement :: IsGObject obj => obj -> JSM HTMLTableColElement castToHTMLTableColElement = castTo gTypeHTMLTableColElement "HTMLTableColElement" gTypeHTMLTableColElement :: JSM GType gTypeHTMLTableColElement = GType . Object <$> jsg "HTMLTableColElement" #else type IsHTMLTableColElement o = HTMLTableColElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLTableElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLTableElement = HTMLTableElement { unHTMLTableElement :: JSVal } instance PToJSVal HTMLTableElement where pToJSVal = unHTMLTableElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLTableElement where pFromJSVal = HTMLTableElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLTableElement where toJSVal = return . unHTMLTableElement {-# INLINE toJSVal #-} instance FromJSVal HTMLTableElement where fromJSVal v = fmap HTMLTableElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLTableElement where makeObject = makeObject . unHTMLTableElement instance IsHTMLElement HTMLTableElement instance IsElement HTMLTableElement instance IsNode HTMLTableElement instance IsEventTarget HTMLTableElement instance IsGObject HTMLTableElement where toGObject = GObject . unHTMLTableElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLTableElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLTableElement :: IsGObject obj => obj -> JSM HTMLTableElement castToHTMLTableElement = castTo gTypeHTMLTableElement "HTMLTableElement" gTypeHTMLTableElement :: JSM GType gTypeHTMLTableElement = GType . Object <$> jsg "HTMLTableElement" #else type IsHTMLTableElement o = HTMLTableElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLTableRowElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLTableRowElement = HTMLTableRowElement { unHTMLTableRowElement :: JSVal } instance PToJSVal HTMLTableRowElement where pToJSVal = unHTMLTableRowElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLTableRowElement where pFromJSVal = HTMLTableRowElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLTableRowElement where toJSVal = return . unHTMLTableRowElement {-# INLINE toJSVal #-} instance FromJSVal HTMLTableRowElement where fromJSVal v = fmap HTMLTableRowElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLTableRowElement where makeObject = makeObject . unHTMLTableRowElement instance IsHTMLElement HTMLTableRowElement instance IsElement HTMLTableRowElement instance IsNode HTMLTableRowElement instance IsEventTarget HTMLTableRowElement instance IsGObject HTMLTableRowElement where toGObject = GObject . unHTMLTableRowElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLTableRowElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLTableRowElement :: IsGObject obj => obj -> JSM HTMLTableRowElement castToHTMLTableRowElement = castTo gTypeHTMLTableRowElement "HTMLTableRowElement" gTypeHTMLTableRowElement :: JSM GType gTypeHTMLTableRowElement = GType . Object <$> jsg "HTMLTableRowElement" #else type IsHTMLTableRowElement o = HTMLTableRowElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLTableSectionElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLTableSectionElement = HTMLTableSectionElement { unHTMLTableSectionElement :: JSVal } instance PToJSVal HTMLTableSectionElement where pToJSVal = unHTMLTableSectionElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLTableSectionElement where pFromJSVal = HTMLTableSectionElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLTableSectionElement where toJSVal = return . unHTMLTableSectionElement {-# INLINE toJSVal #-} instance FromJSVal HTMLTableSectionElement where fromJSVal v = fmap HTMLTableSectionElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLTableSectionElement where makeObject = makeObject . unHTMLTableSectionElement instance IsHTMLElement HTMLTableSectionElement instance IsElement HTMLTableSectionElement instance IsNode HTMLTableSectionElement instance IsEventTarget HTMLTableSectionElement instance IsGObject HTMLTableSectionElement where toGObject = GObject . unHTMLTableSectionElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLTableSectionElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLTableSectionElement :: IsGObject obj => obj -> JSM HTMLTableSectionElement castToHTMLTableSectionElement = castTo gTypeHTMLTableSectionElement "HTMLTableSectionElement" gTypeHTMLTableSectionElement :: JSM GType gTypeHTMLTableSectionElement = GType . Object <$> jsg "HTMLTableSectionElement" #else type IsHTMLTableSectionElement o = HTMLTableSectionElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLTemplateElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLTemplateElement = HTMLTemplateElement { unHTMLTemplateElement :: JSVal } instance PToJSVal HTMLTemplateElement where pToJSVal = unHTMLTemplateElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLTemplateElement where pFromJSVal = HTMLTemplateElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLTemplateElement where toJSVal = return . unHTMLTemplateElement {-# INLINE toJSVal #-} instance FromJSVal HTMLTemplateElement where fromJSVal v = fmap HTMLTemplateElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLTemplateElement where makeObject = makeObject . unHTMLTemplateElement instance IsHTMLElement HTMLTemplateElement instance IsElement HTMLTemplateElement instance IsNode HTMLTemplateElement instance IsEventTarget HTMLTemplateElement instance IsGObject HTMLTemplateElement where toGObject = GObject . unHTMLTemplateElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLTemplateElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLTemplateElement :: IsGObject obj => obj -> JSM HTMLTemplateElement castToHTMLTemplateElement = castTo gTypeHTMLTemplateElement "HTMLTemplateElement" gTypeHTMLTemplateElement :: JSM GType gTypeHTMLTemplateElement = GType . Object <$> jsg "HTMLTemplateElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLTextAreaElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLTextAreaElement = HTMLTextAreaElement { unHTMLTextAreaElement :: JSVal } instance PToJSVal HTMLTextAreaElement where pToJSVal = unHTMLTextAreaElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLTextAreaElement where pFromJSVal = HTMLTextAreaElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLTextAreaElement where toJSVal = return . unHTMLTextAreaElement {-# INLINE toJSVal #-} instance FromJSVal HTMLTextAreaElement where fromJSVal v = fmap HTMLTextAreaElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLTextAreaElement where makeObject = makeObject . unHTMLTextAreaElement instance IsHTMLElement HTMLTextAreaElement instance IsElement HTMLTextAreaElement instance IsNode HTMLTextAreaElement instance IsEventTarget HTMLTextAreaElement instance IsGObject HTMLTextAreaElement where toGObject = GObject . unHTMLTextAreaElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLTextAreaElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLTextAreaElement :: IsGObject obj => obj -> JSM HTMLTextAreaElement castToHTMLTextAreaElement = castTo gTypeHTMLTextAreaElement "HTMLTextAreaElement" gTypeHTMLTextAreaElement :: JSM GType gTypeHTMLTextAreaElement = GType . Object <$> jsg "HTMLTextAreaElement" #else type IsHTMLTextAreaElement o = HTMLTextAreaElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLTitleElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLTitleElement = HTMLTitleElement { unHTMLTitleElement :: JSVal } instance PToJSVal HTMLTitleElement where pToJSVal = unHTMLTitleElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLTitleElement where pFromJSVal = HTMLTitleElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLTitleElement where toJSVal = return . unHTMLTitleElement {-# INLINE toJSVal #-} instance FromJSVal HTMLTitleElement where fromJSVal v = fmap HTMLTitleElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLTitleElement where makeObject = makeObject . unHTMLTitleElement instance IsHTMLElement HTMLTitleElement instance IsElement HTMLTitleElement instance IsNode HTMLTitleElement instance IsEventTarget HTMLTitleElement instance IsGObject HTMLTitleElement where toGObject = GObject . unHTMLTitleElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLTitleElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLTitleElement :: IsGObject obj => obj -> JSM HTMLTitleElement castToHTMLTitleElement = castTo gTypeHTMLTitleElement "HTMLTitleElement" gTypeHTMLTitleElement :: JSM GType gTypeHTMLTitleElement = GType . Object <$> jsg "HTMLTitleElement" #else type IsHTMLTitleElement o = HTMLTitleElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLTrackElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLTrackElement = HTMLTrackElement { unHTMLTrackElement :: JSVal } instance PToJSVal HTMLTrackElement where pToJSVal = unHTMLTrackElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLTrackElement where pFromJSVal = HTMLTrackElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLTrackElement where toJSVal = return . unHTMLTrackElement {-# INLINE toJSVal #-} instance FromJSVal HTMLTrackElement where fromJSVal v = fmap HTMLTrackElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLTrackElement where makeObject = makeObject . unHTMLTrackElement instance IsHTMLElement HTMLTrackElement instance IsElement HTMLTrackElement instance IsNode HTMLTrackElement instance IsEventTarget HTMLTrackElement instance IsGObject HTMLTrackElement where toGObject = GObject . unHTMLTrackElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLTrackElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLTrackElement :: IsGObject obj => obj -> JSM HTMLTrackElement castToHTMLTrackElement = castTo gTypeHTMLTrackElement "HTMLTrackElement" gTypeHTMLTrackElement :: JSM GType gTypeHTMLTrackElement = GType . Object <$> jsg "HTMLTrackElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLUListElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLUListElement = HTMLUListElement { unHTMLUListElement :: JSVal } instance PToJSVal HTMLUListElement where pToJSVal = unHTMLUListElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLUListElement where pFromJSVal = HTMLUListElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLUListElement where toJSVal = return . unHTMLUListElement {-# INLINE toJSVal #-} instance FromJSVal HTMLUListElement where fromJSVal v = fmap HTMLUListElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLUListElement where makeObject = makeObject . unHTMLUListElement instance IsHTMLElement HTMLUListElement instance IsElement HTMLUListElement instance IsNode HTMLUListElement instance IsEventTarget HTMLUListElement instance IsGObject HTMLUListElement where toGObject = GObject . unHTMLUListElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLUListElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLUListElement :: IsGObject obj => obj -> JSM HTMLUListElement castToHTMLUListElement = castTo gTypeHTMLUListElement "HTMLUListElement" gTypeHTMLUListElement :: JSM GType gTypeHTMLUListElement = GType . Object <$> jsg "HTMLUListElement" #else type IsHTMLUListElement o = HTMLUListElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLUnknownElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLUnknownElement = HTMLUnknownElement { unHTMLUnknownElement :: JSVal } instance PToJSVal HTMLUnknownElement where pToJSVal = unHTMLUnknownElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLUnknownElement where pFromJSVal = HTMLUnknownElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLUnknownElement where toJSVal = return . unHTMLUnknownElement {-# INLINE toJSVal #-} instance FromJSVal HTMLUnknownElement where fromJSVal v = fmap HTMLUnknownElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLUnknownElement where makeObject = makeObject . unHTMLUnknownElement instance IsHTMLElement HTMLUnknownElement instance IsElement HTMLUnknownElement instance IsNode HTMLUnknownElement instance IsEventTarget HTMLUnknownElement instance IsGObject HTMLUnknownElement where toGObject = GObject . unHTMLUnknownElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLUnknownElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLUnknownElement :: IsGObject obj => obj -> JSM HTMLUnknownElement castToHTMLUnknownElement = castTo gTypeHTMLUnknownElement "HTMLUnknownElement" gTypeHTMLUnknownElement :: JSM GType gTypeHTMLUnknownElement = GType . Object <$> jsg "HTMLUnknownElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLVideoElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.HTMLMediaElement" -- * "Language.Javascript.JSaddle.DOM.HTMLElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype HTMLVideoElement = HTMLVideoElement { unHTMLVideoElement :: JSVal } instance PToJSVal HTMLVideoElement where pToJSVal = unHTMLVideoElement {-# INLINE pToJSVal #-} instance PFromJSVal HTMLVideoElement where pFromJSVal = HTMLVideoElement {-# INLINE pFromJSVal #-} instance ToJSVal HTMLVideoElement where toJSVal = return . unHTMLVideoElement {-# INLINE toJSVal #-} instance FromJSVal HTMLVideoElement where fromJSVal v = fmap HTMLVideoElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HTMLVideoElement where makeObject = makeObject . unHTMLVideoElement instance IsHTMLMediaElement HTMLVideoElement instance IsHTMLElement HTMLVideoElement instance IsElement HTMLVideoElement instance IsNode HTMLVideoElement instance IsEventTarget HTMLVideoElement instance IsGObject HTMLVideoElement where toGObject = GObject . unHTMLVideoElement {-# INLINE toGObject #-} unsafeCastGObject = HTMLVideoElement . unGObject {-# INLINE unsafeCastGObject #-} castToHTMLVideoElement :: IsGObject obj => obj -> JSM HTMLVideoElement castToHTMLVideoElement = castTo gTypeHTMLVideoElement "HTMLVideoElement" gTypeHTMLVideoElement :: JSM GType gTypeHTMLVideoElement = GType . Object <$> jsg "HTMLVideoElement" #else type IsHTMLVideoElement o = HTMLVideoElementClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HashChangeEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype HashChangeEvent = HashChangeEvent { unHashChangeEvent :: JSVal } instance PToJSVal HashChangeEvent where pToJSVal = unHashChangeEvent {-# INLINE pToJSVal #-} instance PFromJSVal HashChangeEvent where pFromJSVal = HashChangeEvent {-# INLINE pFromJSVal #-} instance ToJSVal HashChangeEvent where toJSVal = return . unHashChangeEvent {-# INLINE toJSVal #-} instance FromJSVal HashChangeEvent where fromJSVal v = fmap HashChangeEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject HashChangeEvent where makeObject = makeObject . unHashChangeEvent instance IsEvent HashChangeEvent instance IsGObject HashChangeEvent where toGObject = GObject . unHashChangeEvent {-# INLINE toGObject #-} unsafeCastGObject = HashChangeEvent . unGObject {-# INLINE unsafeCastGObject #-} castToHashChangeEvent :: IsGObject obj => obj -> JSM HashChangeEvent castToHashChangeEvent = castTo gTypeHashChangeEvent "HashChangeEvent" gTypeHashChangeEvent :: JSM GType gTypeHashChangeEvent = GType . Object <$> jsg "HashChangeEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.History". -- -- newtype History = History { unHistory :: JSVal } instance PToJSVal History where pToJSVal = unHistory {-# INLINE pToJSVal #-} instance PFromJSVal History where pFromJSVal = History {-# INLINE pFromJSVal #-} instance ToJSVal History where toJSVal = return . unHistory {-# INLINE toJSVal #-} instance FromJSVal History where fromJSVal v = fmap History <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject History where makeObject = makeObject . unHistory instance IsGObject History where toGObject = GObject . unHistory {-# INLINE toGObject #-} unsafeCastGObject = History . unGObject {-# INLINE unsafeCastGObject #-} castToHistory :: IsGObject obj => obj -> JSM History castToHistory = castTo gTypeHistory "History" gTypeHistory :: JSM GType gTypeHistory = GType . Object <$> jsg "History" #else type IsHistory o = HistoryClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.IDBAny". -- -- newtype IDBAny = IDBAny { unIDBAny :: JSVal } instance PToJSVal IDBAny where pToJSVal = unIDBAny {-# INLINE pToJSVal #-} instance PFromJSVal IDBAny where pFromJSVal = IDBAny {-# INLINE pFromJSVal #-} instance ToJSVal IDBAny where toJSVal = return . unIDBAny {-# INLINE toJSVal #-} instance FromJSVal IDBAny where fromJSVal v = fmap IDBAny <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject IDBAny where makeObject = makeObject . unIDBAny instance IsGObject IDBAny where toGObject = GObject . unIDBAny {-# INLINE toGObject #-} unsafeCastGObject = IDBAny . unGObject {-# INLINE unsafeCastGObject #-} castToIDBAny :: IsGObject obj => obj -> JSM IDBAny castToIDBAny = castTo gTypeIDBAny "IDBAny" gTypeIDBAny :: JSM GType gTypeIDBAny = GType . Object <$> jsg "IDBAny" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.IDBCursor". -- -- newtype IDBCursor = IDBCursor { unIDBCursor :: JSVal } instance PToJSVal IDBCursor where pToJSVal = unIDBCursor {-# INLINE pToJSVal #-} instance PFromJSVal IDBCursor where pFromJSVal = IDBCursor {-# INLINE pFromJSVal #-} instance ToJSVal IDBCursor where toJSVal = return . unIDBCursor {-# INLINE toJSVal #-} instance FromJSVal IDBCursor where fromJSVal v = fmap IDBCursor <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject IDBCursor where makeObject = makeObject . unIDBCursor class IsGObject o => IsIDBCursor o toIDBCursor :: IsIDBCursor o => o -> IDBCursor toIDBCursor = unsafeCastGObject . toGObject instance IsIDBCursor IDBCursor instance IsGObject IDBCursor where toGObject = GObject . unIDBCursor {-# INLINE toGObject #-} unsafeCastGObject = IDBCursor . unGObject {-# INLINE unsafeCastGObject #-} castToIDBCursor :: IsGObject obj => obj -> JSM IDBCursor castToIDBCursor = castTo gTypeIDBCursor "IDBCursor" gTypeIDBCursor :: JSM GType gTypeIDBCursor = GType . Object <$> jsg "IDBCursor" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.IDBCursorWithValue". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.IDBCursor" -- -- newtype IDBCursorWithValue = IDBCursorWithValue { unIDBCursorWithValue :: JSVal } instance PToJSVal IDBCursorWithValue where pToJSVal = unIDBCursorWithValue {-# INLINE pToJSVal #-} instance PFromJSVal IDBCursorWithValue where pFromJSVal = IDBCursorWithValue {-# INLINE pFromJSVal #-} instance ToJSVal IDBCursorWithValue where toJSVal = return . unIDBCursorWithValue {-# INLINE toJSVal #-} instance FromJSVal IDBCursorWithValue where fromJSVal v = fmap IDBCursorWithValue <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject IDBCursorWithValue where makeObject = makeObject . unIDBCursorWithValue instance IsIDBCursor IDBCursorWithValue instance IsGObject IDBCursorWithValue where toGObject = GObject . unIDBCursorWithValue {-# INLINE toGObject #-} unsafeCastGObject = IDBCursorWithValue . unGObject {-# INLINE unsafeCastGObject #-} castToIDBCursorWithValue :: IsGObject obj => obj -> JSM IDBCursorWithValue castToIDBCursorWithValue = castTo gTypeIDBCursorWithValue "IDBCursorWithValue" gTypeIDBCursorWithValue :: JSM GType gTypeIDBCursorWithValue = GType . Object <$> jsg "IDBCursorWithValue" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.IDBDatabase". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype IDBDatabase = IDBDatabase { unIDBDatabase :: JSVal } instance PToJSVal IDBDatabase where pToJSVal = unIDBDatabase {-# INLINE pToJSVal #-} instance PFromJSVal IDBDatabase where pFromJSVal = IDBDatabase {-# INLINE pFromJSVal #-} instance ToJSVal IDBDatabase where toJSVal = return . unIDBDatabase {-# INLINE toJSVal #-} instance FromJSVal IDBDatabase where fromJSVal v = fmap IDBDatabase <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject IDBDatabase where makeObject = makeObject . unIDBDatabase instance IsEventTarget IDBDatabase instance IsGObject IDBDatabase where toGObject = GObject . unIDBDatabase {-# INLINE toGObject #-} unsafeCastGObject = IDBDatabase . unGObject {-# INLINE unsafeCastGObject #-} castToIDBDatabase :: IsGObject obj => obj -> JSM IDBDatabase castToIDBDatabase = castTo gTypeIDBDatabase "IDBDatabase" gTypeIDBDatabase :: JSM GType gTypeIDBDatabase = GType . Object <$> jsg "IDBDatabase" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.IDBFactory". -- -- newtype IDBFactory = IDBFactory { unIDBFactory :: JSVal } instance PToJSVal IDBFactory where pToJSVal = unIDBFactory {-# INLINE pToJSVal #-} instance PFromJSVal IDBFactory where pFromJSVal = IDBFactory {-# INLINE pFromJSVal #-} instance ToJSVal IDBFactory where toJSVal = return . unIDBFactory {-# INLINE toJSVal #-} instance FromJSVal IDBFactory where fromJSVal v = fmap IDBFactory <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject IDBFactory where makeObject = makeObject . unIDBFactory instance IsGObject IDBFactory where toGObject = GObject . unIDBFactory {-# INLINE toGObject #-} unsafeCastGObject = IDBFactory . unGObject {-# INLINE unsafeCastGObject #-} castToIDBFactory :: IsGObject obj => obj -> JSM IDBFactory castToIDBFactory = castTo gTypeIDBFactory "IDBFactory" gTypeIDBFactory :: JSM GType gTypeIDBFactory = GType . Object <$> jsg "IDBFactory" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.IDBIndex". -- -- newtype IDBIndex = IDBIndex { unIDBIndex :: JSVal } instance PToJSVal IDBIndex where pToJSVal = unIDBIndex {-# INLINE pToJSVal #-} instance PFromJSVal IDBIndex where pFromJSVal = IDBIndex {-# INLINE pFromJSVal #-} instance ToJSVal IDBIndex where toJSVal = return . unIDBIndex {-# INLINE toJSVal #-} instance FromJSVal IDBIndex where fromJSVal v = fmap IDBIndex <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject IDBIndex where makeObject = makeObject . unIDBIndex instance IsGObject IDBIndex where toGObject = GObject . unIDBIndex {-# INLINE toGObject #-} unsafeCastGObject = IDBIndex . unGObject {-# INLINE unsafeCastGObject #-} castToIDBIndex :: IsGObject obj => obj -> JSM IDBIndex castToIDBIndex = castTo gTypeIDBIndex "IDBIndex" gTypeIDBIndex :: JSM GType gTypeIDBIndex = GType . Object <$> jsg "IDBIndex" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.IDBKeyRange". -- -- newtype IDBKeyRange = IDBKeyRange { unIDBKeyRange :: JSVal } instance PToJSVal IDBKeyRange where pToJSVal = unIDBKeyRange {-# INLINE pToJSVal #-} instance PFromJSVal IDBKeyRange where pFromJSVal = IDBKeyRange {-# INLINE pFromJSVal #-} instance ToJSVal IDBKeyRange where toJSVal = return . unIDBKeyRange {-# INLINE toJSVal #-} instance FromJSVal IDBKeyRange where fromJSVal v = fmap IDBKeyRange <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject IDBKeyRange where makeObject = makeObject . unIDBKeyRange instance IsGObject IDBKeyRange where toGObject = GObject . unIDBKeyRange {-# INLINE toGObject #-} unsafeCastGObject = IDBKeyRange . unGObject {-# INLINE unsafeCastGObject #-} castToIDBKeyRange :: IsGObject obj => obj -> JSM IDBKeyRange castToIDBKeyRange = castTo gTypeIDBKeyRange "IDBKeyRange" gTypeIDBKeyRange :: JSM GType gTypeIDBKeyRange = GType . Object <$> jsg "IDBKeyRange" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.IDBObjectStore". -- -- newtype IDBObjectStore = IDBObjectStore { unIDBObjectStore :: JSVal } instance PToJSVal IDBObjectStore where pToJSVal = unIDBObjectStore {-# INLINE pToJSVal #-} instance PFromJSVal IDBObjectStore where pFromJSVal = IDBObjectStore {-# INLINE pFromJSVal #-} instance ToJSVal IDBObjectStore where toJSVal = return . unIDBObjectStore {-# INLINE toJSVal #-} instance FromJSVal IDBObjectStore where fromJSVal v = fmap IDBObjectStore <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject IDBObjectStore where makeObject = makeObject . unIDBObjectStore instance IsGObject IDBObjectStore where toGObject = GObject . unIDBObjectStore {-# INLINE toGObject #-} unsafeCastGObject = IDBObjectStore . unGObject {-# INLINE unsafeCastGObject #-} castToIDBObjectStore :: IsGObject obj => obj -> JSM IDBObjectStore castToIDBObjectStore = castTo gTypeIDBObjectStore "IDBObjectStore" gTypeIDBObjectStore :: JSM GType gTypeIDBObjectStore = GType . Object <$> jsg "IDBObjectStore" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.IDBOpenDBRequest". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.IDBRequest" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype IDBOpenDBRequest = IDBOpenDBRequest { unIDBOpenDBRequest :: JSVal } instance PToJSVal IDBOpenDBRequest where pToJSVal = unIDBOpenDBRequest {-# INLINE pToJSVal #-} instance PFromJSVal IDBOpenDBRequest where pFromJSVal = IDBOpenDBRequest {-# INLINE pFromJSVal #-} instance ToJSVal IDBOpenDBRequest where toJSVal = return . unIDBOpenDBRequest {-# INLINE toJSVal #-} instance FromJSVal IDBOpenDBRequest where fromJSVal v = fmap IDBOpenDBRequest <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject IDBOpenDBRequest where makeObject = makeObject . unIDBOpenDBRequest instance IsIDBRequest IDBOpenDBRequest instance IsEventTarget IDBOpenDBRequest instance IsGObject IDBOpenDBRequest where toGObject = GObject . unIDBOpenDBRequest {-# INLINE toGObject #-} unsafeCastGObject = IDBOpenDBRequest . unGObject {-# INLINE unsafeCastGObject #-} castToIDBOpenDBRequest :: IsGObject obj => obj -> JSM IDBOpenDBRequest castToIDBOpenDBRequest = castTo gTypeIDBOpenDBRequest "IDBOpenDBRequest" gTypeIDBOpenDBRequest :: JSM GType gTypeIDBOpenDBRequest = GType . Object <$> jsg "IDBOpenDBRequest" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.IDBRequest". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype IDBRequest = IDBRequest { unIDBRequest :: JSVal } instance PToJSVal IDBRequest where pToJSVal = unIDBRequest {-# INLINE pToJSVal #-} instance PFromJSVal IDBRequest where pFromJSVal = IDBRequest {-# INLINE pFromJSVal #-} instance ToJSVal IDBRequest where toJSVal = return . unIDBRequest {-# INLINE toJSVal #-} instance FromJSVal IDBRequest where fromJSVal v = fmap IDBRequest <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject IDBRequest where makeObject = makeObject . unIDBRequest class IsEventTarget o => IsIDBRequest o toIDBRequest :: IsIDBRequest o => o -> IDBRequest toIDBRequest = unsafeCastGObject . toGObject instance IsIDBRequest IDBRequest instance IsEventTarget IDBRequest instance IsGObject IDBRequest where toGObject = GObject . unIDBRequest {-# INLINE toGObject #-} unsafeCastGObject = IDBRequest . unGObject {-# INLINE unsafeCastGObject #-} castToIDBRequest :: IsGObject obj => obj -> JSM IDBRequest castToIDBRequest = castTo gTypeIDBRequest "IDBRequest" gTypeIDBRequest :: JSM GType gTypeIDBRequest = GType . Object <$> jsg "IDBRequest" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.IDBTransaction". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype IDBTransaction = IDBTransaction { unIDBTransaction :: JSVal } instance PToJSVal IDBTransaction where pToJSVal = unIDBTransaction {-# INLINE pToJSVal #-} instance PFromJSVal IDBTransaction where pFromJSVal = IDBTransaction {-# INLINE pFromJSVal #-} instance ToJSVal IDBTransaction where toJSVal = return . unIDBTransaction {-# INLINE toJSVal #-} instance FromJSVal IDBTransaction where fromJSVal v = fmap IDBTransaction <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject IDBTransaction where makeObject = makeObject . unIDBTransaction instance IsEventTarget IDBTransaction instance IsGObject IDBTransaction where toGObject = GObject . unIDBTransaction {-# INLINE toGObject #-} unsafeCastGObject = IDBTransaction . unGObject {-# INLINE unsafeCastGObject #-} castToIDBTransaction :: IsGObject obj => obj -> JSM IDBTransaction castToIDBTransaction = castTo gTypeIDBTransaction "IDBTransaction" gTypeIDBTransaction :: JSM GType gTypeIDBTransaction = GType . Object <$> jsg "IDBTransaction" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.IDBVersionChangeEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype IDBVersionChangeEvent = IDBVersionChangeEvent { unIDBVersionChangeEvent :: JSVal } instance PToJSVal IDBVersionChangeEvent where pToJSVal = unIDBVersionChangeEvent {-# INLINE pToJSVal #-} instance PFromJSVal IDBVersionChangeEvent where pFromJSVal = IDBVersionChangeEvent {-# INLINE pFromJSVal #-} instance ToJSVal IDBVersionChangeEvent where toJSVal = return . unIDBVersionChangeEvent {-# INLINE toJSVal #-} instance FromJSVal IDBVersionChangeEvent where fromJSVal v = fmap IDBVersionChangeEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject IDBVersionChangeEvent where makeObject = makeObject . unIDBVersionChangeEvent instance IsEvent IDBVersionChangeEvent instance IsGObject IDBVersionChangeEvent where toGObject = GObject . unIDBVersionChangeEvent {-# INLINE toGObject #-} unsafeCastGObject = IDBVersionChangeEvent . unGObject {-# INLINE unsafeCastGObject #-} castToIDBVersionChangeEvent :: IsGObject obj => obj -> JSM IDBVersionChangeEvent castToIDBVersionChangeEvent = castTo gTypeIDBVersionChangeEvent "IDBVersionChangeEvent" gTypeIDBVersionChangeEvent :: JSM GType gTypeIDBVersionChangeEvent = GType . Object <$> jsg "IDBVersionChangeEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ImageData". -- -- newtype ImageData = ImageData { unImageData :: JSVal } instance PToJSVal ImageData where pToJSVal = unImageData {-# INLINE pToJSVal #-} instance PFromJSVal ImageData where pFromJSVal = ImageData {-# INLINE pFromJSVal #-} instance ToJSVal ImageData where toJSVal = return . unImageData {-# INLINE toJSVal #-} instance FromJSVal ImageData where fromJSVal v = fmap ImageData <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject ImageData where makeObject = makeObject . unImageData instance IsGObject ImageData where toGObject = GObject . unImageData {-# INLINE toGObject #-} unsafeCastGObject = ImageData . unGObject {-# INLINE unsafeCastGObject #-} castToImageData :: IsGObject obj => obj -> JSM ImageData castToImageData = castTo gTypeImageData "ImageData" gTypeImageData :: JSM GType gTypeImageData = GType . Object <$> jsg "ImageData" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.InspectorFrontendHost". -- -- newtype InspectorFrontendHost = InspectorFrontendHost { unInspectorFrontendHost :: JSVal } instance PToJSVal InspectorFrontendHost where pToJSVal = unInspectorFrontendHost {-# INLINE pToJSVal #-} instance PFromJSVal InspectorFrontendHost where pFromJSVal = InspectorFrontendHost {-# INLINE pFromJSVal #-} instance ToJSVal InspectorFrontendHost where toJSVal = return . unInspectorFrontendHost {-# INLINE toJSVal #-} instance FromJSVal InspectorFrontendHost where fromJSVal v = fmap InspectorFrontendHost <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject InspectorFrontendHost where makeObject = makeObject . unInspectorFrontendHost instance IsGObject InspectorFrontendHost where toGObject = GObject . unInspectorFrontendHost {-# INLINE toGObject #-} unsafeCastGObject = InspectorFrontendHost . unGObject {-# INLINE unsafeCastGObject #-} castToInspectorFrontendHost :: IsGObject obj => obj -> JSM InspectorFrontendHost castToInspectorFrontendHost = castTo gTypeInspectorFrontendHost "InspectorFrontendHost" gTypeInspectorFrontendHost :: JSM GType gTypeInspectorFrontendHost = GType . Object <$> jsg "InspectorFrontendHost" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.InternalSettings". -- Base interface functions are in: -- -- -- newtype InternalSettings = InternalSettings { unInternalSettings :: JSVal } instance PToJSVal InternalSettings where pToJSVal = unInternalSettings {-# INLINE pToJSVal #-} instance PFromJSVal InternalSettings where pFromJSVal = InternalSettings {-# INLINE pFromJSVal #-} instance ToJSVal InternalSettings where toJSVal = return . unInternalSettings {-# INLINE toJSVal #-} instance FromJSVal InternalSettings where fromJSVal v = fmap InternalSettings <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject InternalSettings where makeObject = makeObject . unInternalSettings instance IsGObject InternalSettings where toGObject = GObject . unInternalSettings {-# INLINE toGObject #-} unsafeCastGObject = InternalSettings . unGObject {-# INLINE unsafeCastGObject #-} castToInternalSettings :: IsGObject obj => obj -> JSM InternalSettings castToInternalSettings = castTo gTypeInternalSettings "InternalSettings" gTypeInternalSettings :: JSM GType gTypeInternalSettings = GType . Object <$> jsg "InternalSettings" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Internals". -- -- newtype Internals = Internals { unInternals :: JSVal } instance PToJSVal Internals where pToJSVal = unInternals {-# INLINE pToJSVal #-} instance PFromJSVal Internals where pFromJSVal = Internals {-# INLINE pFromJSVal #-} instance ToJSVal Internals where toJSVal = return . unInternals {-# INLINE toJSVal #-} instance FromJSVal Internals where fromJSVal v = fmap Internals <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Internals where makeObject = makeObject . unInternals instance IsGObject Internals where toGObject = GObject . unInternals {-# INLINE toGObject #-} unsafeCastGObject = Internals . unGObject {-# INLINE unsafeCastGObject #-} castToInternals :: IsGObject obj => obj -> JSM Internals castToInternals = castTo gTypeInternals "Internals" gTypeInternals :: JSM GType gTypeInternals = GType . Object <$> jsg "Internals" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.KeyboardEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.UIEvent" -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype KeyboardEvent = KeyboardEvent { unKeyboardEvent :: JSVal } instance PToJSVal KeyboardEvent where pToJSVal = unKeyboardEvent {-# INLINE pToJSVal #-} instance PFromJSVal KeyboardEvent where pFromJSVal = KeyboardEvent {-# INLINE pFromJSVal #-} instance ToJSVal KeyboardEvent where toJSVal = return . unKeyboardEvent {-# INLINE toJSVal #-} instance FromJSVal KeyboardEvent where fromJSVal v = fmap KeyboardEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject KeyboardEvent where makeObject = makeObject . unKeyboardEvent instance IsUIEvent KeyboardEvent instance IsEvent KeyboardEvent instance IsGObject KeyboardEvent where toGObject = GObject . unKeyboardEvent {-# INLINE toGObject #-} unsafeCastGObject = KeyboardEvent . unGObject {-# INLINE unsafeCastGObject #-} castToKeyboardEvent :: IsGObject obj => obj -> JSM KeyboardEvent castToKeyboardEvent = castTo gTypeKeyboardEvent "KeyboardEvent" gTypeKeyboardEvent :: JSM GType gTypeKeyboardEvent = GType . Object <$> jsg "KeyboardEvent" #else #ifndef USE_OLD_WEBKIT type IsKeyboardEvent o = KeyboardEventClass o #endif #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Location". -- -- newtype Location = Location { unLocation :: JSVal } instance PToJSVal Location where pToJSVal = unLocation {-# INLINE pToJSVal #-} instance PFromJSVal Location where pFromJSVal = Location {-# INLINE pFromJSVal #-} instance ToJSVal Location where toJSVal = return . unLocation {-# INLINE toJSVal #-} instance FromJSVal Location where fromJSVal v = fmap Location <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Location where makeObject = makeObject . unLocation instance IsGObject Location where toGObject = GObject . unLocation {-# INLINE toGObject #-} unsafeCastGObject = Location . unGObject {-# INLINE unsafeCastGObject #-} castToLocation :: IsGObject obj => obj -> JSM Location castToLocation = castTo gTypeLocation "Location" gTypeLocation :: JSM GType gTypeLocation = GType . Object <$> jsg "Location" #else type IsLocation o = LocationClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MallocStatistics". -- -- newtype MallocStatistics = MallocStatistics { unMallocStatistics :: JSVal } instance PToJSVal MallocStatistics where pToJSVal = unMallocStatistics {-# INLINE pToJSVal #-} instance PFromJSVal MallocStatistics where pFromJSVal = MallocStatistics {-# INLINE pFromJSVal #-} instance ToJSVal MallocStatistics where toJSVal = return . unMallocStatistics {-# INLINE toJSVal #-} instance FromJSVal MallocStatistics where fromJSVal v = fmap MallocStatistics <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MallocStatistics where makeObject = makeObject . unMallocStatistics instance IsGObject MallocStatistics where toGObject = GObject . unMallocStatistics {-# INLINE toGObject #-} unsafeCastGObject = MallocStatistics . unGObject {-# INLINE unsafeCastGObject #-} castToMallocStatistics :: IsGObject obj => obj -> JSM MallocStatistics castToMallocStatistics = castTo gTypeMallocStatistics "MallocStatistics" gTypeMallocStatistics :: JSM GType gTypeMallocStatistics = GType . Object <$> jsg "MallocStatistics" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaController". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype MediaController = MediaController { unMediaController :: JSVal } instance PToJSVal MediaController where pToJSVal = unMediaController {-# INLINE pToJSVal #-} instance PFromJSVal MediaController where pFromJSVal = MediaController {-# INLINE pFromJSVal #-} instance ToJSVal MediaController where toJSVal = return . unMediaController {-# INLINE toJSVal #-} instance FromJSVal MediaController where fromJSVal v = fmap MediaController <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MediaController where makeObject = makeObject . unMediaController instance IsEventTarget MediaController instance IsGObject MediaController where toGObject = GObject . unMediaController {-# INLINE toGObject #-} unsafeCastGObject = MediaController . unGObject {-# INLINE unsafeCastGObject #-} castToMediaController :: IsGObject obj => obj -> JSM MediaController castToMediaController = castTo gTypeMediaController "MediaController" gTypeMediaController :: JSM GType gTypeMediaController = GType . Object <$> jsg "MediaController" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaControlsHost". -- -- newtype MediaControlsHost = MediaControlsHost { unMediaControlsHost :: JSVal } instance PToJSVal MediaControlsHost where pToJSVal = unMediaControlsHost {-# INLINE pToJSVal #-} instance PFromJSVal MediaControlsHost where pFromJSVal = MediaControlsHost {-# INLINE pFromJSVal #-} instance ToJSVal MediaControlsHost where toJSVal = return . unMediaControlsHost {-# INLINE toJSVal #-} instance FromJSVal MediaControlsHost where fromJSVal v = fmap MediaControlsHost <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MediaControlsHost where makeObject = makeObject . unMediaControlsHost instance IsGObject MediaControlsHost where toGObject = GObject . unMediaControlsHost {-# INLINE toGObject #-} unsafeCastGObject = MediaControlsHost . unGObject {-# INLINE unsafeCastGObject #-} castToMediaControlsHost :: IsGObject obj => obj -> JSM MediaControlsHost castToMediaControlsHost = castTo gTypeMediaControlsHost "MediaControlsHost" gTypeMediaControlsHost :: JSM GType gTypeMediaControlsHost = GType . Object <$> jsg "MediaControlsHost" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaElementAudioSourceNode". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.AudioNode" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype MediaElementAudioSourceNode = MediaElementAudioSourceNode { unMediaElementAudioSourceNode :: JSVal } instance PToJSVal MediaElementAudioSourceNode where pToJSVal = unMediaElementAudioSourceNode {-# INLINE pToJSVal #-} instance PFromJSVal MediaElementAudioSourceNode where pFromJSVal = MediaElementAudioSourceNode {-# INLINE pFromJSVal #-} instance ToJSVal MediaElementAudioSourceNode where toJSVal = return . unMediaElementAudioSourceNode {-# INLINE toJSVal #-} instance FromJSVal MediaElementAudioSourceNode where fromJSVal v = fmap MediaElementAudioSourceNode <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MediaElementAudioSourceNode where makeObject = makeObject . unMediaElementAudioSourceNode instance IsAudioNode MediaElementAudioSourceNode instance IsEventTarget MediaElementAudioSourceNode instance IsGObject MediaElementAudioSourceNode where toGObject = GObject . unMediaElementAudioSourceNode {-# INLINE toGObject #-} unsafeCastGObject = MediaElementAudioSourceNode . unGObject {-# INLINE unsafeCastGObject #-} castToMediaElementAudioSourceNode :: IsGObject obj => obj -> JSM MediaElementAudioSourceNode castToMediaElementAudioSourceNode = castTo gTypeMediaElementAudioSourceNode "MediaElementAudioSourceNode" gTypeMediaElementAudioSourceNode :: JSM GType gTypeMediaElementAudioSourceNode = GType . Object <$> jsg "MediaElementAudioSourceNode" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaError". -- -- newtype MediaError = MediaError { unMediaError :: JSVal } instance PToJSVal MediaError where pToJSVal = unMediaError {-# INLINE pToJSVal #-} instance PFromJSVal MediaError where pFromJSVal = MediaError {-# INLINE pFromJSVal #-} instance ToJSVal MediaError where toJSVal = return . unMediaError {-# INLINE toJSVal #-} instance FromJSVal MediaError where fromJSVal v = fmap MediaError <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MediaError where makeObject = makeObject . unMediaError instance IsGObject MediaError where toGObject = GObject . unMediaError {-# INLINE toGObject #-} unsafeCastGObject = MediaError . unGObject {-# INLINE unsafeCastGObject #-} castToMediaError :: IsGObject obj => obj -> JSM MediaError castToMediaError = castTo gTypeMediaError "MediaError" gTypeMediaError :: JSM GType gTypeMediaError = GType . Object <$> jsg "MediaError" #else type IsMediaError o = MediaErrorClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaKeyError". -- -- newtype MediaKeyError = MediaKeyError { unMediaKeyError :: JSVal } instance PToJSVal MediaKeyError where pToJSVal = unMediaKeyError {-# INLINE pToJSVal #-} instance PFromJSVal MediaKeyError where pFromJSVal = MediaKeyError {-# INLINE pFromJSVal #-} instance ToJSVal MediaKeyError where toJSVal = return . unMediaKeyError {-# INLINE toJSVal #-} instance FromJSVal MediaKeyError where fromJSVal v = fmap MediaKeyError <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MediaKeyError where makeObject = makeObject . unMediaKeyError instance IsGObject MediaKeyError where toGObject = GObject . unMediaKeyError {-# INLINE toGObject #-} unsafeCastGObject = MediaKeyError . unGObject {-# INLINE unsafeCastGObject #-} castToMediaKeyError :: IsGObject obj => obj -> JSM MediaKeyError castToMediaKeyError = castTo gTypeMediaKeyError "MediaKeyError" gTypeMediaKeyError :: JSM GType gTypeMediaKeyError = GType . Object <$> jsg "WebKitMediaKeyError" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaKeyEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype MediaKeyEvent = MediaKeyEvent { unMediaKeyEvent :: JSVal } instance PToJSVal MediaKeyEvent where pToJSVal = unMediaKeyEvent {-# INLINE pToJSVal #-} instance PFromJSVal MediaKeyEvent where pFromJSVal = MediaKeyEvent {-# INLINE pFromJSVal #-} instance ToJSVal MediaKeyEvent where toJSVal = return . unMediaKeyEvent {-# INLINE toJSVal #-} instance FromJSVal MediaKeyEvent where fromJSVal v = fmap MediaKeyEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MediaKeyEvent where makeObject = makeObject . unMediaKeyEvent instance IsEvent MediaKeyEvent instance IsGObject MediaKeyEvent where toGObject = GObject . unMediaKeyEvent {-# INLINE toGObject #-} unsafeCastGObject = MediaKeyEvent . unGObject {-# INLINE unsafeCastGObject #-} castToMediaKeyEvent :: IsGObject obj => obj -> JSM MediaKeyEvent castToMediaKeyEvent = castTo gTypeMediaKeyEvent "MediaKeyEvent" gTypeMediaKeyEvent :: JSM GType gTypeMediaKeyEvent = GType . Object <$> jsg "MediaKeyEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaKeyMessageEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype MediaKeyMessageEvent = MediaKeyMessageEvent { unMediaKeyMessageEvent :: JSVal } instance PToJSVal MediaKeyMessageEvent where pToJSVal = unMediaKeyMessageEvent {-# INLINE pToJSVal #-} instance PFromJSVal MediaKeyMessageEvent where pFromJSVal = MediaKeyMessageEvent {-# INLINE pFromJSVal #-} instance ToJSVal MediaKeyMessageEvent where toJSVal = return . unMediaKeyMessageEvent {-# INLINE toJSVal #-} instance FromJSVal MediaKeyMessageEvent where fromJSVal v = fmap MediaKeyMessageEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MediaKeyMessageEvent where makeObject = makeObject . unMediaKeyMessageEvent instance IsEvent MediaKeyMessageEvent instance IsGObject MediaKeyMessageEvent where toGObject = GObject . unMediaKeyMessageEvent {-# INLINE toGObject #-} unsafeCastGObject = MediaKeyMessageEvent . unGObject {-# INLINE unsafeCastGObject #-} castToMediaKeyMessageEvent :: IsGObject obj => obj -> JSM MediaKeyMessageEvent castToMediaKeyMessageEvent = castTo gTypeMediaKeyMessageEvent "MediaKeyMessageEvent" gTypeMediaKeyMessageEvent :: JSM GType gTypeMediaKeyMessageEvent = GType . Object <$> jsg "WebKitMediaKeyMessageEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaKeyNeededEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype MediaKeyNeededEvent = MediaKeyNeededEvent { unMediaKeyNeededEvent :: JSVal } instance PToJSVal MediaKeyNeededEvent where pToJSVal = unMediaKeyNeededEvent {-# INLINE pToJSVal #-} instance PFromJSVal MediaKeyNeededEvent where pFromJSVal = MediaKeyNeededEvent {-# INLINE pFromJSVal #-} instance ToJSVal MediaKeyNeededEvent where toJSVal = return . unMediaKeyNeededEvent {-# INLINE toJSVal #-} instance FromJSVal MediaKeyNeededEvent where fromJSVal v = fmap MediaKeyNeededEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MediaKeyNeededEvent where makeObject = makeObject . unMediaKeyNeededEvent instance IsEvent MediaKeyNeededEvent instance IsGObject MediaKeyNeededEvent where toGObject = GObject . unMediaKeyNeededEvent {-# INLINE toGObject #-} unsafeCastGObject = MediaKeyNeededEvent . unGObject {-# INLINE unsafeCastGObject #-} castToMediaKeyNeededEvent :: IsGObject obj => obj -> JSM MediaKeyNeededEvent castToMediaKeyNeededEvent = castTo gTypeMediaKeyNeededEvent "MediaKeyNeededEvent" gTypeMediaKeyNeededEvent :: JSM GType gTypeMediaKeyNeededEvent = GType . Object <$> jsg "MediaKeyNeededEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaKeySession". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype MediaKeySession = MediaKeySession { unMediaKeySession :: JSVal } instance PToJSVal MediaKeySession where pToJSVal = unMediaKeySession {-# INLINE pToJSVal #-} instance PFromJSVal MediaKeySession where pFromJSVal = MediaKeySession {-# INLINE pFromJSVal #-} instance ToJSVal MediaKeySession where toJSVal = return . unMediaKeySession {-# INLINE toJSVal #-} instance FromJSVal MediaKeySession where fromJSVal v = fmap MediaKeySession <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MediaKeySession where makeObject = makeObject . unMediaKeySession instance IsEventTarget MediaKeySession instance IsGObject MediaKeySession where toGObject = GObject . unMediaKeySession {-# INLINE toGObject #-} unsafeCastGObject = MediaKeySession . unGObject {-# INLINE unsafeCastGObject #-} castToMediaKeySession :: IsGObject obj => obj -> JSM MediaKeySession castToMediaKeySession = castTo gTypeMediaKeySession "MediaKeySession" gTypeMediaKeySession :: JSM GType gTypeMediaKeySession = GType . Object <$> jsg "WebKitMediaKeySession" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaKeys". -- -- newtype MediaKeys = MediaKeys { unMediaKeys :: JSVal } instance PToJSVal MediaKeys where pToJSVal = unMediaKeys {-# INLINE pToJSVal #-} instance PFromJSVal MediaKeys where pFromJSVal = MediaKeys {-# INLINE pFromJSVal #-} instance ToJSVal MediaKeys where toJSVal = return . unMediaKeys {-# INLINE toJSVal #-} instance FromJSVal MediaKeys where fromJSVal v = fmap MediaKeys <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MediaKeys where makeObject = makeObject . unMediaKeys instance IsGObject MediaKeys where toGObject = GObject . unMediaKeys {-# INLINE toGObject #-} unsafeCastGObject = MediaKeys . unGObject {-# INLINE unsafeCastGObject #-} castToMediaKeys :: IsGObject obj => obj -> JSM MediaKeys castToMediaKeys = castTo gTypeMediaKeys "MediaKeys" gTypeMediaKeys :: JSM GType gTypeMediaKeys = GType . Object <$> jsg "WebKitMediaKeys" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaList". -- -- newtype MediaList = MediaList { unMediaList :: JSVal } instance PToJSVal MediaList where pToJSVal = unMediaList {-# INLINE pToJSVal #-} instance PFromJSVal MediaList where pFromJSVal = MediaList {-# INLINE pFromJSVal #-} instance ToJSVal MediaList where toJSVal = return . unMediaList {-# INLINE toJSVal #-} instance FromJSVal MediaList where fromJSVal v = fmap MediaList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MediaList where makeObject = makeObject . unMediaList instance IsGObject MediaList where toGObject = GObject . unMediaList {-# INLINE toGObject #-} unsafeCastGObject = MediaList . unGObject {-# INLINE unsafeCastGObject #-} castToMediaList :: IsGObject obj => obj -> JSM MediaList castToMediaList = castTo gTypeMediaList "MediaList" gTypeMediaList :: JSM GType gTypeMediaList = GType . Object <$> jsg "MediaList" #else type IsMediaList o = MediaListClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaQueryList". -- -- newtype MediaQueryList = MediaQueryList { unMediaQueryList :: JSVal } instance PToJSVal MediaQueryList where pToJSVal = unMediaQueryList {-# INLINE pToJSVal #-} instance PFromJSVal MediaQueryList where pFromJSVal = MediaQueryList {-# INLINE pFromJSVal #-} instance ToJSVal MediaQueryList where toJSVal = return . unMediaQueryList {-# INLINE toJSVal #-} instance FromJSVal MediaQueryList where fromJSVal v = fmap MediaQueryList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MediaQueryList where makeObject = makeObject . unMediaQueryList instance IsGObject MediaQueryList where toGObject = GObject . unMediaQueryList {-# INLINE toGObject #-} unsafeCastGObject = MediaQueryList . unGObject {-# INLINE unsafeCastGObject #-} castToMediaQueryList :: IsGObject obj => obj -> JSM MediaQueryList castToMediaQueryList = castTo gTypeMediaQueryList "MediaQueryList" gTypeMediaQueryList :: JSM GType gTypeMediaQueryList = GType . Object <$> jsg "MediaQueryList" #else type IsMediaQueryList o = MediaQueryListClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaSource". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype MediaSource = MediaSource { unMediaSource :: JSVal } instance PToJSVal MediaSource where pToJSVal = unMediaSource {-# INLINE pToJSVal #-} instance PFromJSVal MediaSource where pFromJSVal = MediaSource {-# INLINE pFromJSVal #-} instance ToJSVal MediaSource where toJSVal = return . unMediaSource {-# INLINE toJSVal #-} instance FromJSVal MediaSource where fromJSVal v = fmap MediaSource <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MediaSource where makeObject = makeObject . unMediaSource instance IsEventTarget MediaSource instance IsGObject MediaSource where toGObject = GObject . unMediaSource {-# INLINE toGObject #-} unsafeCastGObject = MediaSource . unGObject {-# INLINE unsafeCastGObject #-} castToMediaSource :: IsGObject obj => obj -> JSM MediaSource castToMediaSource = castTo gTypeMediaSource "MediaSource" gTypeMediaSource :: JSM GType gTypeMediaSource = GType . Object <$> jsg "MediaSource" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaSourceStates". -- -- newtype MediaSourceStates = MediaSourceStates { unMediaSourceStates :: JSVal } instance PToJSVal MediaSourceStates where pToJSVal = unMediaSourceStates {-# INLINE pToJSVal #-} instance PFromJSVal MediaSourceStates where pFromJSVal = MediaSourceStates {-# INLINE pFromJSVal #-} instance ToJSVal MediaSourceStates where toJSVal = return . unMediaSourceStates {-# INLINE toJSVal #-} instance FromJSVal MediaSourceStates where fromJSVal v = fmap MediaSourceStates <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MediaSourceStates where makeObject = makeObject . unMediaSourceStates instance IsGObject MediaSourceStates where toGObject = GObject . unMediaSourceStates {-# INLINE toGObject #-} unsafeCastGObject = MediaSourceStates . unGObject {-# INLINE unsafeCastGObject #-} castToMediaSourceStates :: IsGObject obj => obj -> JSM MediaSourceStates castToMediaSourceStates = castTo gTypeMediaSourceStates "MediaSourceStates" gTypeMediaSourceStates :: JSM GType gTypeMediaSourceStates = GType . Object <$> jsg "MediaSourceStates" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaStream". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype MediaStream = MediaStream { unMediaStream :: JSVal } instance PToJSVal MediaStream where pToJSVal = unMediaStream {-# INLINE pToJSVal #-} instance PFromJSVal MediaStream where pFromJSVal = MediaStream {-# INLINE pFromJSVal #-} instance ToJSVal MediaStream where toJSVal = return . unMediaStream {-# INLINE toJSVal #-} instance FromJSVal MediaStream where fromJSVal v = fmap MediaStream <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MediaStream where makeObject = makeObject . unMediaStream instance IsEventTarget MediaStream instance IsGObject MediaStream where toGObject = GObject . unMediaStream {-# INLINE toGObject #-} unsafeCastGObject = MediaStream . unGObject {-# INLINE unsafeCastGObject #-} castToMediaStream :: IsGObject obj => obj -> JSM MediaStream castToMediaStream = castTo gTypeMediaStream "MediaStream" gTypeMediaStream :: JSM GType gTypeMediaStream = GType . Object <$> jsg "webkitMediaStream" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaStreamAudioDestinationNode". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.AudioNode" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype MediaStreamAudioDestinationNode = MediaStreamAudioDestinationNode { unMediaStreamAudioDestinationNode :: JSVal } instance PToJSVal MediaStreamAudioDestinationNode where pToJSVal = unMediaStreamAudioDestinationNode {-# INLINE pToJSVal #-} instance PFromJSVal MediaStreamAudioDestinationNode where pFromJSVal = MediaStreamAudioDestinationNode {-# INLINE pFromJSVal #-} instance ToJSVal MediaStreamAudioDestinationNode where toJSVal = return . unMediaStreamAudioDestinationNode {-# INLINE toJSVal #-} instance FromJSVal MediaStreamAudioDestinationNode where fromJSVal v = fmap MediaStreamAudioDestinationNode <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MediaStreamAudioDestinationNode where makeObject = makeObject . unMediaStreamAudioDestinationNode instance IsAudioNode MediaStreamAudioDestinationNode instance IsEventTarget MediaStreamAudioDestinationNode instance IsGObject MediaStreamAudioDestinationNode where toGObject = GObject . unMediaStreamAudioDestinationNode {-# INLINE toGObject #-} unsafeCastGObject = MediaStreamAudioDestinationNode . unGObject {-# INLINE unsafeCastGObject #-} castToMediaStreamAudioDestinationNode :: IsGObject obj => obj -> JSM MediaStreamAudioDestinationNode castToMediaStreamAudioDestinationNode = castTo gTypeMediaStreamAudioDestinationNode "MediaStreamAudioDestinationNode" gTypeMediaStreamAudioDestinationNode :: JSM GType gTypeMediaStreamAudioDestinationNode = GType . Object <$> jsg "MediaStreamAudioDestinationNode" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaStreamAudioSourceNode". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.AudioNode" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype MediaStreamAudioSourceNode = MediaStreamAudioSourceNode { unMediaStreamAudioSourceNode :: JSVal } instance PToJSVal MediaStreamAudioSourceNode where pToJSVal = unMediaStreamAudioSourceNode {-# INLINE pToJSVal #-} instance PFromJSVal MediaStreamAudioSourceNode where pFromJSVal = MediaStreamAudioSourceNode {-# INLINE pFromJSVal #-} instance ToJSVal MediaStreamAudioSourceNode where toJSVal = return . unMediaStreamAudioSourceNode {-# INLINE toJSVal #-} instance FromJSVal MediaStreamAudioSourceNode where fromJSVal v = fmap MediaStreamAudioSourceNode <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MediaStreamAudioSourceNode where makeObject = makeObject . unMediaStreamAudioSourceNode instance IsAudioNode MediaStreamAudioSourceNode instance IsEventTarget MediaStreamAudioSourceNode instance IsGObject MediaStreamAudioSourceNode where toGObject = GObject . unMediaStreamAudioSourceNode {-# INLINE toGObject #-} unsafeCastGObject = MediaStreamAudioSourceNode . unGObject {-# INLINE unsafeCastGObject #-} castToMediaStreamAudioSourceNode :: IsGObject obj => obj -> JSM MediaStreamAudioSourceNode castToMediaStreamAudioSourceNode = castTo gTypeMediaStreamAudioSourceNode "MediaStreamAudioSourceNode" gTypeMediaStreamAudioSourceNode :: JSM GType gTypeMediaStreamAudioSourceNode = GType . Object <$> jsg "MediaStreamAudioSourceNode" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaStreamCapabilities". -- -- newtype MediaStreamCapabilities = MediaStreamCapabilities { unMediaStreamCapabilities :: JSVal } instance PToJSVal MediaStreamCapabilities where pToJSVal = unMediaStreamCapabilities {-# INLINE pToJSVal #-} instance PFromJSVal MediaStreamCapabilities where pFromJSVal = MediaStreamCapabilities {-# INLINE pFromJSVal #-} instance ToJSVal MediaStreamCapabilities where toJSVal = return . unMediaStreamCapabilities {-# INLINE toJSVal #-} instance FromJSVal MediaStreamCapabilities where fromJSVal v = fmap MediaStreamCapabilities <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MediaStreamCapabilities where makeObject = makeObject . unMediaStreamCapabilities class IsGObject o => IsMediaStreamCapabilities o toMediaStreamCapabilities :: IsMediaStreamCapabilities o => o -> MediaStreamCapabilities toMediaStreamCapabilities = unsafeCastGObject . toGObject instance IsMediaStreamCapabilities MediaStreamCapabilities instance IsGObject MediaStreamCapabilities where toGObject = GObject . unMediaStreamCapabilities {-# INLINE toGObject #-} unsafeCastGObject = MediaStreamCapabilities . unGObject {-# INLINE unsafeCastGObject #-} castToMediaStreamCapabilities :: IsGObject obj => obj -> JSM MediaStreamCapabilities castToMediaStreamCapabilities = castTo gTypeMediaStreamCapabilities "MediaStreamCapabilities" gTypeMediaStreamCapabilities :: JSM GType gTypeMediaStreamCapabilities = GType . Object <$> jsg "MediaStreamCapabilities" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaStreamEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype MediaStreamEvent = MediaStreamEvent { unMediaStreamEvent :: JSVal } instance PToJSVal MediaStreamEvent where pToJSVal = unMediaStreamEvent {-# INLINE pToJSVal #-} instance PFromJSVal MediaStreamEvent where pFromJSVal = MediaStreamEvent {-# INLINE pFromJSVal #-} instance ToJSVal MediaStreamEvent where toJSVal = return . unMediaStreamEvent {-# INLINE toJSVal #-} instance FromJSVal MediaStreamEvent where fromJSVal v = fmap MediaStreamEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MediaStreamEvent where makeObject = makeObject . unMediaStreamEvent instance IsEvent MediaStreamEvent instance IsGObject MediaStreamEvent where toGObject = GObject . unMediaStreamEvent {-# INLINE toGObject #-} unsafeCastGObject = MediaStreamEvent . unGObject {-# INLINE unsafeCastGObject #-} castToMediaStreamEvent :: IsGObject obj => obj -> JSM MediaStreamEvent castToMediaStreamEvent = castTo gTypeMediaStreamEvent "MediaStreamEvent" gTypeMediaStreamEvent :: JSM GType gTypeMediaStreamEvent = GType . Object <$> jsg "MediaStreamEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaStreamTrack". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype MediaStreamTrack = MediaStreamTrack { unMediaStreamTrack :: JSVal } instance PToJSVal MediaStreamTrack where pToJSVal = unMediaStreamTrack {-# INLINE pToJSVal #-} instance PFromJSVal MediaStreamTrack where pFromJSVal = MediaStreamTrack {-# INLINE pFromJSVal #-} instance ToJSVal MediaStreamTrack where toJSVal = return . unMediaStreamTrack {-# INLINE toJSVal #-} instance FromJSVal MediaStreamTrack where fromJSVal v = fmap MediaStreamTrack <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MediaStreamTrack where makeObject = makeObject . unMediaStreamTrack class IsEventTarget o => IsMediaStreamTrack o toMediaStreamTrack :: IsMediaStreamTrack o => o -> MediaStreamTrack toMediaStreamTrack = unsafeCastGObject . toGObject instance IsMediaStreamTrack MediaStreamTrack instance IsEventTarget MediaStreamTrack instance IsGObject MediaStreamTrack where toGObject = GObject . unMediaStreamTrack {-# INLINE toGObject #-} unsafeCastGObject = MediaStreamTrack . unGObject {-# INLINE unsafeCastGObject #-} castToMediaStreamTrack :: IsGObject obj => obj -> JSM MediaStreamTrack castToMediaStreamTrack = castTo gTypeMediaStreamTrack "MediaStreamTrack" gTypeMediaStreamTrack :: JSM GType gTypeMediaStreamTrack = GType . Object <$> jsg "MediaStreamTrack" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaStreamTrackEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype MediaStreamTrackEvent = MediaStreamTrackEvent { unMediaStreamTrackEvent :: JSVal } instance PToJSVal MediaStreamTrackEvent where pToJSVal = unMediaStreamTrackEvent {-# INLINE pToJSVal #-} instance PFromJSVal MediaStreamTrackEvent where pFromJSVal = MediaStreamTrackEvent {-# INLINE pFromJSVal #-} instance ToJSVal MediaStreamTrackEvent where toJSVal = return . unMediaStreamTrackEvent {-# INLINE toJSVal #-} instance FromJSVal MediaStreamTrackEvent where fromJSVal v = fmap MediaStreamTrackEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MediaStreamTrackEvent where makeObject = makeObject . unMediaStreamTrackEvent instance IsEvent MediaStreamTrackEvent instance IsGObject MediaStreamTrackEvent where toGObject = GObject . unMediaStreamTrackEvent {-# INLINE toGObject #-} unsafeCastGObject = MediaStreamTrackEvent . unGObject {-# INLINE unsafeCastGObject #-} castToMediaStreamTrackEvent :: IsGObject obj => obj -> JSM MediaStreamTrackEvent castToMediaStreamTrackEvent = castTo gTypeMediaStreamTrackEvent "MediaStreamTrackEvent" gTypeMediaStreamTrackEvent :: JSM GType gTypeMediaStreamTrackEvent = GType . Object <$> jsg "MediaStreamTrackEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaTrackConstraint". -- -- newtype MediaTrackConstraint = MediaTrackConstraint { unMediaTrackConstraint :: JSVal } instance PToJSVal MediaTrackConstraint where pToJSVal = unMediaTrackConstraint {-# INLINE pToJSVal #-} instance PFromJSVal MediaTrackConstraint where pFromJSVal = MediaTrackConstraint {-# INLINE pFromJSVal #-} instance ToJSVal MediaTrackConstraint where toJSVal = return . unMediaTrackConstraint {-# INLINE toJSVal #-} instance FromJSVal MediaTrackConstraint where fromJSVal v = fmap MediaTrackConstraint <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MediaTrackConstraint where makeObject = makeObject . unMediaTrackConstraint instance IsGObject MediaTrackConstraint where toGObject = GObject . unMediaTrackConstraint {-# INLINE toGObject #-} unsafeCastGObject = MediaTrackConstraint . unGObject {-# INLINE unsafeCastGObject #-} castToMediaTrackConstraint :: IsGObject obj => obj -> JSM MediaTrackConstraint castToMediaTrackConstraint = castTo gTypeMediaTrackConstraint "MediaTrackConstraint" gTypeMediaTrackConstraint :: JSM GType gTypeMediaTrackConstraint = GType . Object <$> jsg "MediaTrackConstraint" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaTrackConstraintSet". -- -- newtype MediaTrackConstraintSet = MediaTrackConstraintSet { unMediaTrackConstraintSet :: JSVal } instance PToJSVal MediaTrackConstraintSet where pToJSVal = unMediaTrackConstraintSet {-# INLINE pToJSVal #-} instance PFromJSVal MediaTrackConstraintSet where pFromJSVal = MediaTrackConstraintSet {-# INLINE pFromJSVal #-} instance ToJSVal MediaTrackConstraintSet where toJSVal = return . unMediaTrackConstraintSet {-# INLINE toJSVal #-} instance FromJSVal MediaTrackConstraintSet where fromJSVal v = fmap MediaTrackConstraintSet <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MediaTrackConstraintSet where makeObject = makeObject . unMediaTrackConstraintSet instance IsGObject MediaTrackConstraintSet where toGObject = GObject . unMediaTrackConstraintSet {-# INLINE toGObject #-} unsafeCastGObject = MediaTrackConstraintSet . unGObject {-# INLINE unsafeCastGObject #-} castToMediaTrackConstraintSet :: IsGObject obj => obj -> JSM MediaTrackConstraintSet castToMediaTrackConstraintSet = castTo gTypeMediaTrackConstraintSet "MediaTrackConstraintSet" gTypeMediaTrackConstraintSet :: JSM GType gTypeMediaTrackConstraintSet = GType . Object <$> jsg "MediaTrackConstraintSet" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaTrackConstraints". -- -- newtype MediaTrackConstraints = MediaTrackConstraints { unMediaTrackConstraints :: JSVal } instance PToJSVal MediaTrackConstraints where pToJSVal = unMediaTrackConstraints {-# INLINE pToJSVal #-} instance PFromJSVal MediaTrackConstraints where pFromJSVal = MediaTrackConstraints {-# INLINE pFromJSVal #-} instance ToJSVal MediaTrackConstraints where toJSVal = return . unMediaTrackConstraints {-# INLINE toJSVal #-} instance FromJSVal MediaTrackConstraints where fromJSVal v = fmap MediaTrackConstraints <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MediaTrackConstraints where makeObject = makeObject . unMediaTrackConstraints instance IsGObject MediaTrackConstraints where toGObject = GObject . unMediaTrackConstraints {-# INLINE toGObject #-} unsafeCastGObject = MediaTrackConstraints . unGObject {-# INLINE unsafeCastGObject #-} castToMediaTrackConstraints :: IsGObject obj => obj -> JSM MediaTrackConstraints castToMediaTrackConstraints = castTo gTypeMediaTrackConstraints "MediaTrackConstraints" gTypeMediaTrackConstraints :: JSM GType gTypeMediaTrackConstraints = GType . Object <$> jsg "MediaTrackConstraints" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MemoryInfo". -- -- newtype MemoryInfo = MemoryInfo { unMemoryInfo :: JSVal } instance PToJSVal MemoryInfo where pToJSVal = unMemoryInfo {-# INLINE pToJSVal #-} instance PFromJSVal MemoryInfo where pFromJSVal = MemoryInfo {-# INLINE pFromJSVal #-} instance ToJSVal MemoryInfo where toJSVal = return . unMemoryInfo {-# INLINE toJSVal #-} instance FromJSVal MemoryInfo where fromJSVal v = fmap MemoryInfo <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MemoryInfo where makeObject = makeObject . unMemoryInfo instance IsGObject MemoryInfo where toGObject = GObject . unMemoryInfo {-# INLINE toGObject #-} unsafeCastGObject = MemoryInfo . unGObject {-# INLINE unsafeCastGObject #-} castToMemoryInfo :: IsGObject obj => obj -> JSM MemoryInfo castToMemoryInfo = castTo gTypeMemoryInfo "MemoryInfo" gTypeMemoryInfo :: JSM GType gTypeMemoryInfo = GType . Object <$> jsg "MemoryInfo" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MessageChannel". -- -- newtype MessageChannel = MessageChannel { unMessageChannel :: JSVal } instance PToJSVal MessageChannel where pToJSVal = unMessageChannel {-# INLINE pToJSVal #-} instance PFromJSVal MessageChannel where pFromJSVal = MessageChannel {-# INLINE pFromJSVal #-} instance ToJSVal MessageChannel where toJSVal = return . unMessageChannel {-# INLINE toJSVal #-} instance FromJSVal MessageChannel where fromJSVal v = fmap MessageChannel <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MessageChannel where makeObject = makeObject . unMessageChannel instance IsGObject MessageChannel where toGObject = GObject . unMessageChannel {-# INLINE toGObject #-} unsafeCastGObject = MessageChannel . unGObject {-# INLINE unsafeCastGObject #-} castToMessageChannel :: IsGObject obj => obj -> JSM MessageChannel castToMessageChannel = castTo gTypeMessageChannel "MessageChannel" gTypeMessageChannel :: JSM GType gTypeMessageChannel = GType . Object <$> jsg "MessageChannel" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MessageEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype MessageEvent = MessageEvent { unMessageEvent :: JSVal } instance PToJSVal MessageEvent where pToJSVal = unMessageEvent {-# INLINE pToJSVal #-} instance PFromJSVal MessageEvent where pFromJSVal = MessageEvent {-# INLINE pFromJSVal #-} instance ToJSVal MessageEvent where toJSVal = return . unMessageEvent {-# INLINE toJSVal #-} instance FromJSVal MessageEvent where fromJSVal v = fmap MessageEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MessageEvent where makeObject = makeObject . unMessageEvent instance IsEvent MessageEvent instance IsGObject MessageEvent where toGObject = GObject . unMessageEvent {-# INLINE toGObject #-} unsafeCastGObject = MessageEvent . unGObject {-# INLINE unsafeCastGObject #-} castToMessageEvent :: IsGObject obj => obj -> JSM MessageEvent castToMessageEvent = castTo gTypeMessageEvent "MessageEvent" gTypeMessageEvent :: JSM GType gTypeMessageEvent = GType . Object <$> jsg "MessageEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MessagePort". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype MessagePort = MessagePort { unMessagePort :: JSVal } instance PToJSVal MessagePort where pToJSVal = unMessagePort {-# INLINE pToJSVal #-} instance PFromJSVal MessagePort where pFromJSVal = MessagePort {-# INLINE pFromJSVal #-} instance ToJSVal MessagePort where toJSVal = return . unMessagePort {-# INLINE toJSVal #-} instance FromJSVal MessagePort where fromJSVal v = fmap MessagePort <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MessagePort where makeObject = makeObject . unMessagePort instance IsEventTarget MessagePort instance IsGObject MessagePort where toGObject = GObject . unMessagePort {-# INLINE toGObject #-} unsafeCastGObject = MessagePort . unGObject {-# INLINE unsafeCastGObject #-} castToMessagePort :: IsGObject obj => obj -> JSM MessagePort castToMessagePort = castTo gTypeMessagePort "MessagePort" gTypeMessagePort :: JSM GType gTypeMessagePort = GType . Object <$> jsg "MessagePort" #else type IsMessagePort o = MessagePortClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MimeType". -- -- newtype MimeType = MimeType { unMimeType :: JSVal } instance PToJSVal MimeType where pToJSVal = unMimeType {-# INLINE pToJSVal #-} instance PFromJSVal MimeType where pFromJSVal = MimeType {-# INLINE pFromJSVal #-} instance ToJSVal MimeType where toJSVal = return . unMimeType {-# INLINE toJSVal #-} instance FromJSVal MimeType where fromJSVal v = fmap MimeType <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MimeType where makeObject = makeObject . unMimeType instance IsGObject MimeType where toGObject = GObject . unMimeType {-# INLINE toGObject #-} unsafeCastGObject = MimeType . unGObject {-# INLINE unsafeCastGObject #-} castToMimeType :: IsGObject obj => obj -> JSM MimeType castToMimeType = castTo gTypeMimeType "MimeType" gTypeMimeType :: JSM GType gTypeMimeType = GType . Object <$> jsg "MimeType" #else type IsMimeType o = MimeTypeClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MimeTypeArray". -- -- newtype MimeTypeArray = MimeTypeArray { unMimeTypeArray :: JSVal } instance PToJSVal MimeTypeArray where pToJSVal = unMimeTypeArray {-# INLINE pToJSVal #-} instance PFromJSVal MimeTypeArray where pFromJSVal = MimeTypeArray {-# INLINE pFromJSVal #-} instance ToJSVal MimeTypeArray where toJSVal = return . unMimeTypeArray {-# INLINE toJSVal #-} instance FromJSVal MimeTypeArray where fromJSVal v = fmap MimeTypeArray <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MimeTypeArray where makeObject = makeObject . unMimeTypeArray instance IsGObject MimeTypeArray where toGObject = GObject . unMimeTypeArray {-# INLINE toGObject #-} unsafeCastGObject = MimeTypeArray . unGObject {-# INLINE unsafeCastGObject #-} castToMimeTypeArray :: IsGObject obj => obj -> JSM MimeTypeArray castToMimeTypeArray = castTo gTypeMimeTypeArray "MimeTypeArray" gTypeMimeTypeArray :: JSM GType gTypeMimeTypeArray = GType . Object <$> jsg "MimeTypeArray" #else type IsMimeTypeArray o = MimeTypeArrayClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MouseEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.UIEvent" -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype MouseEvent = MouseEvent { unMouseEvent :: JSVal } instance PToJSVal MouseEvent where pToJSVal = unMouseEvent {-# INLINE pToJSVal #-} instance PFromJSVal MouseEvent where pFromJSVal = MouseEvent {-# INLINE pFromJSVal #-} instance ToJSVal MouseEvent where toJSVal = return . unMouseEvent {-# INLINE toJSVal #-} instance FromJSVal MouseEvent where fromJSVal v = fmap MouseEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MouseEvent where makeObject = makeObject . unMouseEvent class IsUIEvent o => IsMouseEvent o toMouseEvent :: IsMouseEvent o => o -> MouseEvent toMouseEvent = unsafeCastGObject . toGObject instance IsMouseEvent MouseEvent instance IsUIEvent MouseEvent instance IsEvent MouseEvent instance IsGObject MouseEvent where toGObject = GObject . unMouseEvent {-# INLINE toGObject #-} unsafeCastGObject = MouseEvent . unGObject {-# INLINE unsafeCastGObject #-} castToMouseEvent :: IsGObject obj => obj -> JSM MouseEvent castToMouseEvent = castTo gTypeMouseEvent "MouseEvent" gTypeMouseEvent :: JSM GType gTypeMouseEvent = GType . Object <$> jsg "MouseEvent" #else type IsMouseEvent o = MouseEventClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MutationEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype MutationEvent = MutationEvent { unMutationEvent :: JSVal } instance PToJSVal MutationEvent where pToJSVal = unMutationEvent {-# INLINE pToJSVal #-} instance PFromJSVal MutationEvent where pFromJSVal = MutationEvent {-# INLINE pFromJSVal #-} instance ToJSVal MutationEvent where toJSVal = return . unMutationEvent {-# INLINE toJSVal #-} instance FromJSVal MutationEvent where fromJSVal v = fmap MutationEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MutationEvent where makeObject = makeObject . unMutationEvent instance IsEvent MutationEvent instance IsGObject MutationEvent where toGObject = GObject . unMutationEvent {-# INLINE toGObject #-} unsafeCastGObject = MutationEvent . unGObject {-# INLINE unsafeCastGObject #-} castToMutationEvent :: IsGObject obj => obj -> JSM MutationEvent castToMutationEvent = castTo gTypeMutationEvent "MutationEvent" gTypeMutationEvent :: JSM GType gTypeMutationEvent = GType . Object <$> jsg "MutationEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MutationObserver". -- -- newtype MutationObserver = MutationObserver { unMutationObserver :: JSVal } instance PToJSVal MutationObserver where pToJSVal = unMutationObserver {-# INLINE pToJSVal #-} instance PFromJSVal MutationObserver where pFromJSVal = MutationObserver {-# INLINE pFromJSVal #-} instance ToJSVal MutationObserver where toJSVal = return . unMutationObserver {-# INLINE toJSVal #-} instance FromJSVal MutationObserver where fromJSVal v = fmap MutationObserver <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MutationObserver where makeObject = makeObject . unMutationObserver instance IsGObject MutationObserver where toGObject = GObject . unMutationObserver {-# INLINE toGObject #-} unsafeCastGObject = MutationObserver . unGObject {-# INLINE unsafeCastGObject #-} castToMutationObserver :: IsGObject obj => obj -> JSM MutationObserver castToMutationObserver = castTo gTypeMutationObserver "MutationObserver" gTypeMutationObserver :: JSM GType gTypeMutationObserver = GType . Object <$> jsg "MutationObserver" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MutationRecord". -- -- newtype MutationRecord = MutationRecord { unMutationRecord :: JSVal } instance PToJSVal MutationRecord where pToJSVal = unMutationRecord {-# INLINE pToJSVal #-} instance PFromJSVal MutationRecord where pFromJSVal = MutationRecord {-# INLINE pFromJSVal #-} instance ToJSVal MutationRecord where toJSVal = return . unMutationRecord {-# INLINE toJSVal #-} instance FromJSVal MutationRecord where fromJSVal v = fmap MutationRecord <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject MutationRecord where makeObject = makeObject . unMutationRecord instance IsGObject MutationRecord where toGObject = GObject . unMutationRecord {-# INLINE toGObject #-} unsafeCastGObject = MutationRecord . unGObject {-# INLINE unsafeCastGObject #-} castToMutationRecord :: IsGObject obj => obj -> JSM MutationRecord castToMutationRecord = castTo gTypeMutationRecord "MutationRecord" gTypeMutationRecord :: JSM GType gTypeMutationRecord = GType . Object <$> jsg "MutationRecord" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.NamedNodeMap". -- -- newtype NamedNodeMap = NamedNodeMap { unNamedNodeMap :: JSVal } instance PToJSVal NamedNodeMap where pToJSVal = unNamedNodeMap {-# INLINE pToJSVal #-} instance PFromJSVal NamedNodeMap where pFromJSVal = NamedNodeMap {-# INLINE pFromJSVal #-} instance ToJSVal NamedNodeMap where toJSVal = return . unNamedNodeMap {-# INLINE toJSVal #-} instance FromJSVal NamedNodeMap where fromJSVal v = fmap NamedNodeMap <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject NamedNodeMap where makeObject = makeObject . unNamedNodeMap instance IsGObject NamedNodeMap where toGObject = GObject . unNamedNodeMap {-# INLINE toGObject #-} unsafeCastGObject = NamedNodeMap . unGObject {-# INLINE unsafeCastGObject #-} castToNamedNodeMap :: IsGObject obj => obj -> JSM NamedNodeMap castToNamedNodeMap = castTo gTypeNamedNodeMap "NamedNodeMap" gTypeNamedNodeMap :: JSM GType gTypeNamedNodeMap = GType . Object <$> jsg "NamedNodeMap" #else type IsNamedNodeMap o = NamedNodeMapClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Navigator". -- -- newtype Navigator = Navigator { unNavigator :: JSVal } instance PToJSVal Navigator where pToJSVal = unNavigator {-# INLINE pToJSVal #-} instance PFromJSVal Navigator where pFromJSVal = Navigator {-# INLINE pFromJSVal #-} instance ToJSVal Navigator where toJSVal = return . unNavigator {-# INLINE toJSVal #-} instance FromJSVal Navigator where fromJSVal v = fmap Navigator <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Navigator where makeObject = makeObject . unNavigator instance IsGObject Navigator where toGObject = GObject . unNavigator {-# INLINE toGObject #-} unsafeCastGObject = Navigator . unGObject {-# INLINE unsafeCastGObject #-} castToNavigator :: IsGObject obj => obj -> JSM Navigator castToNavigator = castTo gTypeNavigator "Navigator" gTypeNavigator :: JSM GType gTypeNavigator = GType . Object <$> jsg "Navigator" #else type IsNavigator o = NavigatorClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.NavigatorUserMediaError". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.DOMError" -- -- newtype NavigatorUserMediaError = NavigatorUserMediaError { unNavigatorUserMediaError :: JSVal } instance PToJSVal NavigatorUserMediaError where pToJSVal = unNavigatorUserMediaError {-# INLINE pToJSVal #-} instance PFromJSVal NavigatorUserMediaError where pFromJSVal = NavigatorUserMediaError {-# INLINE pFromJSVal #-} instance ToJSVal NavigatorUserMediaError where toJSVal = return . unNavigatorUserMediaError {-# INLINE toJSVal #-} instance FromJSVal NavigatorUserMediaError where fromJSVal v = fmap NavigatorUserMediaError <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject NavigatorUserMediaError where makeObject = makeObject . unNavigatorUserMediaError instance IsDOMError NavigatorUserMediaError instance IsGObject NavigatorUserMediaError where toGObject = GObject . unNavigatorUserMediaError {-# INLINE toGObject #-} unsafeCastGObject = NavigatorUserMediaError . unGObject {-# INLINE unsafeCastGObject #-} castToNavigatorUserMediaError :: IsGObject obj => obj -> JSM NavigatorUserMediaError castToNavigatorUserMediaError = castTo gTypeNavigatorUserMediaError "NavigatorUserMediaError" gTypeNavigatorUserMediaError :: JSM GType gTypeNavigatorUserMediaError = GType . Object <$> jsg "NavigatorUserMediaError" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Node". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype Node = Node { unNode :: JSVal } instance PToJSVal Node where pToJSVal = unNode {-# INLINE pToJSVal #-} instance PFromJSVal Node where pFromJSVal = Node {-# INLINE pFromJSVal #-} instance ToJSVal Node where toJSVal = return . unNode {-# INLINE toJSVal #-} instance FromJSVal Node where fromJSVal v = fmap Node <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Node where makeObject = makeObject . unNode class IsEventTarget o => IsNode o toNode :: IsNode o => o -> Node toNode = unsafeCastGObject . toGObject instance IsNode Node instance IsEventTarget Node instance IsGObject Node where toGObject = GObject . unNode {-# INLINE toGObject #-} unsafeCastGObject = Node . unGObject {-# INLINE unsafeCastGObject #-} castToNode :: IsGObject obj => obj -> JSM Node castToNode = castTo gTypeNode "Node" gTypeNode :: JSM GType gTypeNode = GType . Object <$> jsg "Node" #else type IsNode o = NodeClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.NodeFilter". -- -- newtype NodeFilter = NodeFilter { unNodeFilter :: JSVal } instance PToJSVal NodeFilter where pToJSVal = unNodeFilter {-# INLINE pToJSVal #-} instance PFromJSVal NodeFilter where pFromJSVal = NodeFilter {-# INLINE pFromJSVal #-} instance ToJSVal NodeFilter where toJSVal = return . unNodeFilter {-# INLINE toJSVal #-} instance FromJSVal NodeFilter where fromJSVal v = fmap NodeFilter <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject NodeFilter where makeObject = makeObject . unNodeFilter instance IsGObject NodeFilter where toGObject = GObject . unNodeFilter {-# INLINE toGObject #-} unsafeCastGObject = NodeFilter . unGObject {-# INLINE unsafeCastGObject #-} castToNodeFilter :: IsGObject obj => obj -> JSM NodeFilter castToNodeFilter = castTo gTypeNodeFilter "NodeFilter" gTypeNodeFilter :: JSM GType gTypeNodeFilter = GType . Object <$> jsg "NodeFilter" #else type IsNodeFilter o = NodeFilterClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.NodeIterator". -- -- newtype NodeIterator = NodeIterator { unNodeIterator :: JSVal } instance PToJSVal NodeIterator where pToJSVal = unNodeIterator {-# INLINE pToJSVal #-} instance PFromJSVal NodeIterator where pFromJSVal = NodeIterator {-# INLINE pFromJSVal #-} instance ToJSVal NodeIterator where toJSVal = return . unNodeIterator {-# INLINE toJSVal #-} instance FromJSVal NodeIterator where fromJSVal v = fmap NodeIterator <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject NodeIterator where makeObject = makeObject . unNodeIterator instance IsGObject NodeIterator where toGObject = GObject . unNodeIterator {-# INLINE toGObject #-} unsafeCastGObject = NodeIterator . unGObject {-# INLINE unsafeCastGObject #-} castToNodeIterator :: IsGObject obj => obj -> JSM NodeIterator castToNodeIterator = castTo gTypeNodeIterator "NodeIterator" gTypeNodeIterator :: JSM GType gTypeNodeIterator = GType . Object <$> jsg "NodeIterator" #else type IsNodeIterator o = NodeIteratorClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.NodeList". -- -- newtype NodeList = NodeList { unNodeList :: JSVal } instance PToJSVal NodeList where pToJSVal = unNodeList {-# INLINE pToJSVal #-} instance PFromJSVal NodeList where pFromJSVal = NodeList {-# INLINE pFromJSVal #-} instance ToJSVal NodeList where toJSVal = return . unNodeList {-# INLINE toJSVal #-} instance FromJSVal NodeList where fromJSVal v = fmap NodeList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject NodeList where makeObject = makeObject . unNodeList class IsGObject o => IsNodeList o toNodeList :: IsNodeList o => o -> NodeList toNodeList = unsafeCastGObject . toGObject instance IsNodeList NodeList instance IsGObject NodeList where toGObject = GObject . unNodeList {-# INLINE toGObject #-} unsafeCastGObject = NodeList . unGObject {-# INLINE unsafeCastGObject #-} castToNodeList :: IsGObject obj => obj -> JSM NodeList castToNodeList = castTo gTypeNodeList "NodeList" gTypeNodeList :: JSM GType gTypeNodeList = GType . Object <$> jsg "NodeList" #else type IsNodeList o = NodeListClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Notification". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype Notification = Notification { unNotification :: JSVal } instance PToJSVal Notification where pToJSVal = unNotification {-# INLINE pToJSVal #-} instance PFromJSVal Notification where pFromJSVal = Notification {-# INLINE pFromJSVal #-} instance ToJSVal Notification where toJSVal = return . unNotification {-# INLINE toJSVal #-} instance FromJSVal Notification where fromJSVal v = fmap Notification <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Notification where makeObject = makeObject . unNotification instance IsEventTarget Notification instance IsGObject Notification where toGObject = GObject . unNotification {-# INLINE toGObject #-} unsafeCastGObject = Notification . unGObject {-# INLINE unsafeCastGObject #-} castToNotification :: IsGObject obj => obj -> JSM Notification castToNotification = castTo gTypeNotification "Notification" gTypeNotification :: JSM GType gTypeNotification = GType . Object <$> jsg "Notification" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.NotificationCenter". -- -- newtype NotificationCenter = NotificationCenter { unNotificationCenter :: JSVal } instance PToJSVal NotificationCenter where pToJSVal = unNotificationCenter {-# INLINE pToJSVal #-} instance PFromJSVal NotificationCenter where pFromJSVal = NotificationCenter {-# INLINE pFromJSVal #-} instance ToJSVal NotificationCenter where toJSVal = return . unNotificationCenter {-# INLINE toJSVal #-} instance FromJSVal NotificationCenter where fromJSVal v = fmap NotificationCenter <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject NotificationCenter where makeObject = makeObject . unNotificationCenter instance IsGObject NotificationCenter where toGObject = GObject . unNotificationCenter {-# INLINE toGObject #-} unsafeCastGObject = NotificationCenter . unGObject {-# INLINE unsafeCastGObject #-} castToNotificationCenter :: IsGObject obj => obj -> JSM NotificationCenter castToNotificationCenter = castTo gTypeNotificationCenter "NotificationCenter" gTypeNotificationCenter :: JSM GType gTypeNotificationCenter = GType . Object <$> jsg "NotificationCenter" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.OESElementIndexUint". -- -- newtype OESElementIndexUint = OESElementIndexUint { unOESElementIndexUint :: JSVal } instance PToJSVal OESElementIndexUint where pToJSVal = unOESElementIndexUint {-# INLINE pToJSVal #-} instance PFromJSVal OESElementIndexUint where pFromJSVal = OESElementIndexUint {-# INLINE pFromJSVal #-} instance ToJSVal OESElementIndexUint where toJSVal = return . unOESElementIndexUint {-# INLINE toJSVal #-} instance FromJSVal OESElementIndexUint where fromJSVal v = fmap OESElementIndexUint <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject OESElementIndexUint where makeObject = makeObject . unOESElementIndexUint instance IsGObject OESElementIndexUint where toGObject = GObject . unOESElementIndexUint {-# INLINE toGObject #-} unsafeCastGObject = OESElementIndexUint . unGObject {-# INLINE unsafeCastGObject #-} castToOESElementIndexUint :: IsGObject obj => obj -> JSM OESElementIndexUint castToOESElementIndexUint = castTo gTypeOESElementIndexUint "OESElementIndexUint" gTypeOESElementIndexUint :: JSM GType gTypeOESElementIndexUint = GType . Object <$> jsg "OESElementIndexUint" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.OESStandardDerivatives". -- -- newtype OESStandardDerivatives = OESStandardDerivatives { unOESStandardDerivatives :: JSVal } instance PToJSVal OESStandardDerivatives where pToJSVal = unOESStandardDerivatives {-# INLINE pToJSVal #-} instance PFromJSVal OESStandardDerivatives where pFromJSVal = OESStandardDerivatives {-# INLINE pFromJSVal #-} instance ToJSVal OESStandardDerivatives where toJSVal = return . unOESStandardDerivatives {-# INLINE toJSVal #-} instance FromJSVal OESStandardDerivatives where fromJSVal v = fmap OESStandardDerivatives <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject OESStandardDerivatives where makeObject = makeObject . unOESStandardDerivatives instance IsGObject OESStandardDerivatives where toGObject = GObject . unOESStandardDerivatives {-# INLINE toGObject #-} unsafeCastGObject = OESStandardDerivatives . unGObject {-# INLINE unsafeCastGObject #-} castToOESStandardDerivatives :: IsGObject obj => obj -> JSM OESStandardDerivatives castToOESStandardDerivatives = castTo gTypeOESStandardDerivatives "OESStandardDerivatives" gTypeOESStandardDerivatives :: JSM GType gTypeOESStandardDerivatives = GType . Object <$> jsg "OESStandardDerivatives" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.OESTextureFloat". -- -- newtype OESTextureFloat = OESTextureFloat { unOESTextureFloat :: JSVal } instance PToJSVal OESTextureFloat where pToJSVal = unOESTextureFloat {-# INLINE pToJSVal #-} instance PFromJSVal OESTextureFloat where pFromJSVal = OESTextureFloat {-# INLINE pFromJSVal #-} instance ToJSVal OESTextureFloat where toJSVal = return . unOESTextureFloat {-# INLINE toJSVal #-} instance FromJSVal OESTextureFloat where fromJSVal v = fmap OESTextureFloat <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject OESTextureFloat where makeObject = makeObject . unOESTextureFloat instance IsGObject OESTextureFloat where toGObject = GObject . unOESTextureFloat {-# INLINE toGObject #-} unsafeCastGObject = OESTextureFloat . unGObject {-# INLINE unsafeCastGObject #-} castToOESTextureFloat :: IsGObject obj => obj -> JSM OESTextureFloat castToOESTextureFloat = castTo gTypeOESTextureFloat "OESTextureFloat" gTypeOESTextureFloat :: JSM GType gTypeOESTextureFloat = GType . Object <$> jsg "OESTextureFloat" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.OESTextureFloatLinear". -- -- newtype OESTextureFloatLinear = OESTextureFloatLinear { unOESTextureFloatLinear :: JSVal } instance PToJSVal OESTextureFloatLinear where pToJSVal = unOESTextureFloatLinear {-# INLINE pToJSVal #-} instance PFromJSVal OESTextureFloatLinear where pFromJSVal = OESTextureFloatLinear {-# INLINE pFromJSVal #-} instance ToJSVal OESTextureFloatLinear where toJSVal = return . unOESTextureFloatLinear {-# INLINE toJSVal #-} instance FromJSVal OESTextureFloatLinear where fromJSVal v = fmap OESTextureFloatLinear <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject OESTextureFloatLinear where makeObject = makeObject . unOESTextureFloatLinear instance IsGObject OESTextureFloatLinear where toGObject = GObject . unOESTextureFloatLinear {-# INLINE toGObject #-} unsafeCastGObject = OESTextureFloatLinear . unGObject {-# INLINE unsafeCastGObject #-} castToOESTextureFloatLinear :: IsGObject obj => obj -> JSM OESTextureFloatLinear castToOESTextureFloatLinear = castTo gTypeOESTextureFloatLinear "OESTextureFloatLinear" gTypeOESTextureFloatLinear :: JSM GType gTypeOESTextureFloatLinear = GType . Object <$> jsg "OESTextureFloatLinear" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.OESTextureHalfFloat". -- -- newtype OESTextureHalfFloat = OESTextureHalfFloat { unOESTextureHalfFloat :: JSVal } instance PToJSVal OESTextureHalfFloat where pToJSVal = unOESTextureHalfFloat {-# INLINE pToJSVal #-} instance PFromJSVal OESTextureHalfFloat where pFromJSVal = OESTextureHalfFloat {-# INLINE pFromJSVal #-} instance ToJSVal OESTextureHalfFloat where toJSVal = return . unOESTextureHalfFloat {-# INLINE toJSVal #-} instance FromJSVal OESTextureHalfFloat where fromJSVal v = fmap OESTextureHalfFloat <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject OESTextureHalfFloat where makeObject = makeObject . unOESTextureHalfFloat instance IsGObject OESTextureHalfFloat where toGObject = GObject . unOESTextureHalfFloat {-# INLINE toGObject #-} unsafeCastGObject = OESTextureHalfFloat . unGObject {-# INLINE unsafeCastGObject #-} castToOESTextureHalfFloat :: IsGObject obj => obj -> JSM OESTextureHalfFloat castToOESTextureHalfFloat = castTo gTypeOESTextureHalfFloat "OESTextureHalfFloat" gTypeOESTextureHalfFloat :: JSM GType gTypeOESTextureHalfFloat = GType . Object <$> jsg "OESTextureHalfFloat" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.OESTextureHalfFloatLinear". -- -- newtype OESTextureHalfFloatLinear = OESTextureHalfFloatLinear { unOESTextureHalfFloatLinear :: JSVal } instance PToJSVal OESTextureHalfFloatLinear where pToJSVal = unOESTextureHalfFloatLinear {-# INLINE pToJSVal #-} instance PFromJSVal OESTextureHalfFloatLinear where pFromJSVal = OESTextureHalfFloatLinear {-# INLINE pFromJSVal #-} instance ToJSVal OESTextureHalfFloatLinear where toJSVal = return . unOESTextureHalfFloatLinear {-# INLINE toJSVal #-} instance FromJSVal OESTextureHalfFloatLinear where fromJSVal v = fmap OESTextureHalfFloatLinear <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject OESTextureHalfFloatLinear where makeObject = makeObject . unOESTextureHalfFloatLinear instance IsGObject OESTextureHalfFloatLinear where toGObject = GObject . unOESTextureHalfFloatLinear {-# INLINE toGObject #-} unsafeCastGObject = OESTextureHalfFloatLinear . unGObject {-# INLINE unsafeCastGObject #-} castToOESTextureHalfFloatLinear :: IsGObject obj => obj -> JSM OESTextureHalfFloatLinear castToOESTextureHalfFloatLinear = castTo gTypeOESTextureHalfFloatLinear "OESTextureHalfFloatLinear" gTypeOESTextureHalfFloatLinear :: JSM GType gTypeOESTextureHalfFloatLinear = GType . Object <$> jsg "OESTextureHalfFloatLinear" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.OESVertexArrayObject". -- -- newtype OESVertexArrayObject = OESVertexArrayObject { unOESVertexArrayObject :: JSVal } instance PToJSVal OESVertexArrayObject where pToJSVal = unOESVertexArrayObject {-# INLINE pToJSVal #-} instance PFromJSVal OESVertexArrayObject where pFromJSVal = OESVertexArrayObject {-# INLINE pFromJSVal #-} instance ToJSVal OESVertexArrayObject where toJSVal = return . unOESVertexArrayObject {-# INLINE toJSVal #-} instance FromJSVal OESVertexArrayObject where fromJSVal v = fmap OESVertexArrayObject <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject OESVertexArrayObject where makeObject = makeObject . unOESVertexArrayObject instance IsGObject OESVertexArrayObject where toGObject = GObject . unOESVertexArrayObject {-# INLINE toGObject #-} unsafeCastGObject = OESVertexArrayObject . unGObject {-# INLINE unsafeCastGObject #-} castToOESVertexArrayObject :: IsGObject obj => obj -> JSM OESVertexArrayObject castToOESVertexArrayObject = castTo gTypeOESVertexArrayObject "OESVertexArrayObject" gTypeOESVertexArrayObject :: JSM GType gTypeOESVertexArrayObject = GType . Object <$> jsg "OESVertexArrayObject" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.OfflineAudioCompletionEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype OfflineAudioCompletionEvent = OfflineAudioCompletionEvent { unOfflineAudioCompletionEvent :: JSVal } instance PToJSVal OfflineAudioCompletionEvent where pToJSVal = unOfflineAudioCompletionEvent {-# INLINE pToJSVal #-} instance PFromJSVal OfflineAudioCompletionEvent where pFromJSVal = OfflineAudioCompletionEvent {-# INLINE pFromJSVal #-} instance ToJSVal OfflineAudioCompletionEvent where toJSVal = return . unOfflineAudioCompletionEvent {-# INLINE toJSVal #-} instance FromJSVal OfflineAudioCompletionEvent where fromJSVal v = fmap OfflineAudioCompletionEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject OfflineAudioCompletionEvent where makeObject = makeObject . unOfflineAudioCompletionEvent instance IsEvent OfflineAudioCompletionEvent instance IsGObject OfflineAudioCompletionEvent where toGObject = GObject . unOfflineAudioCompletionEvent {-# INLINE toGObject #-} unsafeCastGObject = OfflineAudioCompletionEvent . unGObject {-# INLINE unsafeCastGObject #-} castToOfflineAudioCompletionEvent :: IsGObject obj => obj -> JSM OfflineAudioCompletionEvent castToOfflineAudioCompletionEvent = castTo gTypeOfflineAudioCompletionEvent "OfflineAudioCompletionEvent" gTypeOfflineAudioCompletionEvent :: JSM GType gTypeOfflineAudioCompletionEvent = GType . Object <$> jsg "OfflineAudioCompletionEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.OfflineAudioContext". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.AudioContext" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype OfflineAudioContext = OfflineAudioContext { unOfflineAudioContext :: JSVal } instance PToJSVal OfflineAudioContext where pToJSVal = unOfflineAudioContext {-# INLINE pToJSVal #-} instance PFromJSVal OfflineAudioContext where pFromJSVal = OfflineAudioContext {-# INLINE pFromJSVal #-} instance ToJSVal OfflineAudioContext where toJSVal = return . unOfflineAudioContext {-# INLINE toJSVal #-} instance FromJSVal OfflineAudioContext where fromJSVal v = fmap OfflineAudioContext <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject OfflineAudioContext where makeObject = makeObject . unOfflineAudioContext instance IsAudioContext OfflineAudioContext instance IsEventTarget OfflineAudioContext instance IsGObject OfflineAudioContext where toGObject = GObject . unOfflineAudioContext {-# INLINE toGObject #-} unsafeCastGObject = OfflineAudioContext . unGObject {-# INLINE unsafeCastGObject #-} castToOfflineAudioContext :: IsGObject obj => obj -> JSM OfflineAudioContext castToOfflineAudioContext = castTo gTypeOfflineAudioContext "OfflineAudioContext" gTypeOfflineAudioContext :: JSM GType gTypeOfflineAudioContext = GType . Object <$> jsg "OfflineAudioContext" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.OscillatorNode". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.AudioNode" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype OscillatorNode = OscillatorNode { unOscillatorNode :: JSVal } instance PToJSVal OscillatorNode where pToJSVal = unOscillatorNode {-# INLINE pToJSVal #-} instance PFromJSVal OscillatorNode where pFromJSVal = OscillatorNode {-# INLINE pFromJSVal #-} instance ToJSVal OscillatorNode where toJSVal = return . unOscillatorNode {-# INLINE toJSVal #-} instance FromJSVal OscillatorNode where fromJSVal v = fmap OscillatorNode <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject OscillatorNode where makeObject = makeObject . unOscillatorNode instance IsAudioNode OscillatorNode instance IsEventTarget OscillatorNode instance IsGObject OscillatorNode where toGObject = GObject . unOscillatorNode {-# INLINE toGObject #-} unsafeCastGObject = OscillatorNode . unGObject {-# INLINE unsafeCastGObject #-} castToOscillatorNode :: IsGObject obj => obj -> JSM OscillatorNode castToOscillatorNode = castTo gTypeOscillatorNode "OscillatorNode" gTypeOscillatorNode :: JSM GType gTypeOscillatorNode = GType . Object <$> jsg "OscillatorNode" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.OverflowEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype OverflowEvent = OverflowEvent { unOverflowEvent :: JSVal } instance PToJSVal OverflowEvent where pToJSVal = unOverflowEvent {-# INLINE pToJSVal #-} instance PFromJSVal OverflowEvent where pFromJSVal = OverflowEvent {-# INLINE pFromJSVal #-} instance ToJSVal OverflowEvent where toJSVal = return . unOverflowEvent {-# INLINE toJSVal #-} instance FromJSVal OverflowEvent where fromJSVal v = fmap OverflowEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject OverflowEvent where makeObject = makeObject . unOverflowEvent instance IsEvent OverflowEvent instance IsGObject OverflowEvent where toGObject = GObject . unOverflowEvent {-# INLINE toGObject #-} unsafeCastGObject = OverflowEvent . unGObject {-# INLINE unsafeCastGObject #-} castToOverflowEvent :: IsGObject obj => obj -> JSM OverflowEvent castToOverflowEvent = castTo gTypeOverflowEvent "OverflowEvent" gTypeOverflowEvent :: JSM GType gTypeOverflowEvent = GType . Object <$> jsg "OverflowEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PageTransitionEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype PageTransitionEvent = PageTransitionEvent { unPageTransitionEvent :: JSVal } instance PToJSVal PageTransitionEvent where pToJSVal = unPageTransitionEvent {-# INLINE pToJSVal #-} instance PFromJSVal PageTransitionEvent where pFromJSVal = PageTransitionEvent {-# INLINE pFromJSVal #-} instance ToJSVal PageTransitionEvent where toJSVal = return . unPageTransitionEvent {-# INLINE toJSVal #-} instance FromJSVal PageTransitionEvent where fromJSVal v = fmap PageTransitionEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject PageTransitionEvent where makeObject = makeObject . unPageTransitionEvent instance IsEvent PageTransitionEvent instance IsGObject PageTransitionEvent where toGObject = GObject . unPageTransitionEvent {-# INLINE toGObject #-} unsafeCastGObject = PageTransitionEvent . unGObject {-# INLINE unsafeCastGObject #-} castToPageTransitionEvent :: IsGObject obj => obj -> JSM PageTransitionEvent castToPageTransitionEvent = castTo gTypePageTransitionEvent "PageTransitionEvent" gTypePageTransitionEvent :: JSM GType gTypePageTransitionEvent = GType . Object <$> jsg "PageTransitionEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PannerNode". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.AudioNode" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype PannerNode = PannerNode { unPannerNode :: JSVal } instance PToJSVal PannerNode where pToJSVal = unPannerNode {-# INLINE pToJSVal #-} instance PFromJSVal PannerNode where pFromJSVal = PannerNode {-# INLINE pFromJSVal #-} instance ToJSVal PannerNode where toJSVal = return . unPannerNode {-# INLINE toJSVal #-} instance FromJSVal PannerNode where fromJSVal v = fmap PannerNode <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject PannerNode where makeObject = makeObject . unPannerNode instance IsAudioNode PannerNode instance IsEventTarget PannerNode instance IsGObject PannerNode where toGObject = GObject . unPannerNode {-# INLINE toGObject #-} unsafeCastGObject = PannerNode . unGObject {-# INLINE unsafeCastGObject #-} castToPannerNode :: IsGObject obj => obj -> JSM PannerNode castToPannerNode = castTo gTypePannerNode "PannerNode" gTypePannerNode :: JSM GType gTypePannerNode = GType . Object <$> jsg "webkitAudioPannerNode" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Path2D". -- -- newtype Path2D = Path2D { unPath2D :: JSVal } instance PToJSVal Path2D where pToJSVal = unPath2D {-# INLINE pToJSVal #-} instance PFromJSVal Path2D where pFromJSVal = Path2D {-# INLINE pFromJSVal #-} instance ToJSVal Path2D where toJSVal = return . unPath2D {-# INLINE toJSVal #-} instance FromJSVal Path2D where fromJSVal v = fmap Path2D <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Path2D where makeObject = makeObject . unPath2D instance IsGObject Path2D where toGObject = GObject . unPath2D {-# INLINE toGObject #-} unsafeCastGObject = Path2D . unGObject {-# INLINE unsafeCastGObject #-} castToPath2D :: IsGObject obj => obj -> JSM Path2D castToPath2D = castTo gTypePath2D "Path2D" gTypePath2D :: JSM GType gTypePath2D = GType . Object <$> jsg "Path2D" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Performance". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype Performance = Performance { unPerformance :: JSVal } instance PToJSVal Performance where pToJSVal = unPerformance {-# INLINE pToJSVal #-} instance PFromJSVal Performance where pFromJSVal = Performance {-# INLINE pFromJSVal #-} instance ToJSVal Performance where toJSVal = return . unPerformance {-# INLINE toJSVal #-} instance FromJSVal Performance where fromJSVal v = fmap Performance <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Performance where makeObject = makeObject . unPerformance instance IsEventTarget Performance instance IsGObject Performance where toGObject = GObject . unPerformance {-# INLINE toGObject #-} unsafeCastGObject = Performance . unGObject {-# INLINE unsafeCastGObject #-} castToPerformance :: IsGObject obj => obj -> JSM Performance castToPerformance = castTo gTypePerformance "Performance" gTypePerformance :: JSM GType gTypePerformance = GType . Object <$> jsg "Performance" #else #ifndef USE_OLD_WEBKIT type IsPerformance o = PerformanceClass o #endif #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PerformanceEntry". -- -- newtype PerformanceEntry = PerformanceEntry { unPerformanceEntry :: JSVal } instance PToJSVal PerformanceEntry where pToJSVal = unPerformanceEntry {-# INLINE pToJSVal #-} instance PFromJSVal PerformanceEntry where pFromJSVal = PerformanceEntry {-# INLINE pFromJSVal #-} instance ToJSVal PerformanceEntry where toJSVal = return . unPerformanceEntry {-# INLINE toJSVal #-} instance FromJSVal PerformanceEntry where fromJSVal v = fmap PerformanceEntry <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject PerformanceEntry where makeObject = makeObject . unPerformanceEntry class IsGObject o => IsPerformanceEntry o toPerformanceEntry :: IsPerformanceEntry o => o -> PerformanceEntry toPerformanceEntry = unsafeCastGObject . toGObject instance IsPerformanceEntry PerformanceEntry instance IsGObject PerformanceEntry where toGObject = GObject . unPerformanceEntry {-# INLINE toGObject #-} unsafeCastGObject = PerformanceEntry . unGObject {-# INLINE unsafeCastGObject #-} castToPerformanceEntry :: IsGObject obj => obj -> JSM PerformanceEntry castToPerformanceEntry = castTo gTypePerformanceEntry "PerformanceEntry" gTypePerformanceEntry :: JSM GType gTypePerformanceEntry = GType . Object <$> jsg "PerformanceEntry" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PerformanceEntryList". -- -- newtype PerformanceEntryList = PerformanceEntryList { unPerformanceEntryList :: JSVal } instance PToJSVal PerformanceEntryList where pToJSVal = unPerformanceEntryList {-# INLINE pToJSVal #-} instance PFromJSVal PerformanceEntryList where pFromJSVal = PerformanceEntryList {-# INLINE pFromJSVal #-} instance ToJSVal PerformanceEntryList where toJSVal = return . unPerformanceEntryList {-# INLINE toJSVal #-} instance FromJSVal PerformanceEntryList where fromJSVal v = fmap PerformanceEntryList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject PerformanceEntryList where makeObject = makeObject . unPerformanceEntryList instance IsGObject PerformanceEntryList where toGObject = GObject . unPerformanceEntryList {-# INLINE toGObject #-} unsafeCastGObject = PerformanceEntryList . unGObject {-# INLINE unsafeCastGObject #-} castToPerformanceEntryList :: IsGObject obj => obj -> JSM PerformanceEntryList castToPerformanceEntryList = castTo gTypePerformanceEntryList "PerformanceEntryList" gTypePerformanceEntryList :: JSM GType gTypePerformanceEntryList = GType . Object <$> jsg "PerformanceEntryList" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PerformanceMark". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.PerformanceEntry" -- -- newtype PerformanceMark = PerformanceMark { unPerformanceMark :: JSVal } instance PToJSVal PerformanceMark where pToJSVal = unPerformanceMark {-# INLINE pToJSVal #-} instance PFromJSVal PerformanceMark where pFromJSVal = PerformanceMark {-# INLINE pFromJSVal #-} instance ToJSVal PerformanceMark where toJSVal = return . unPerformanceMark {-# INLINE toJSVal #-} instance FromJSVal PerformanceMark where fromJSVal v = fmap PerformanceMark <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject PerformanceMark where makeObject = makeObject . unPerformanceMark instance IsPerformanceEntry PerformanceMark instance IsGObject PerformanceMark where toGObject = GObject . unPerformanceMark {-# INLINE toGObject #-} unsafeCastGObject = PerformanceMark . unGObject {-# INLINE unsafeCastGObject #-} castToPerformanceMark :: IsGObject obj => obj -> JSM PerformanceMark castToPerformanceMark = castTo gTypePerformanceMark "PerformanceMark" gTypePerformanceMark :: JSM GType gTypePerformanceMark = GType . Object <$> jsg "PerformanceMark" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PerformanceMeasure". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.PerformanceEntry" -- -- newtype PerformanceMeasure = PerformanceMeasure { unPerformanceMeasure :: JSVal } instance PToJSVal PerformanceMeasure where pToJSVal = unPerformanceMeasure {-# INLINE pToJSVal #-} instance PFromJSVal PerformanceMeasure where pFromJSVal = PerformanceMeasure {-# INLINE pFromJSVal #-} instance ToJSVal PerformanceMeasure where toJSVal = return . unPerformanceMeasure {-# INLINE toJSVal #-} instance FromJSVal PerformanceMeasure where fromJSVal v = fmap PerformanceMeasure <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject PerformanceMeasure where makeObject = makeObject . unPerformanceMeasure instance IsPerformanceEntry PerformanceMeasure instance IsGObject PerformanceMeasure where toGObject = GObject . unPerformanceMeasure {-# INLINE toGObject #-} unsafeCastGObject = PerformanceMeasure . unGObject {-# INLINE unsafeCastGObject #-} castToPerformanceMeasure :: IsGObject obj => obj -> JSM PerformanceMeasure castToPerformanceMeasure = castTo gTypePerformanceMeasure "PerformanceMeasure" gTypePerformanceMeasure :: JSM GType gTypePerformanceMeasure = GType . Object <$> jsg "PerformanceMeasure" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PerformanceNavigation". -- -- newtype PerformanceNavigation = PerformanceNavigation { unPerformanceNavigation :: JSVal } instance PToJSVal PerformanceNavigation where pToJSVal = unPerformanceNavigation {-# INLINE pToJSVal #-} instance PFromJSVal PerformanceNavigation where pFromJSVal = PerformanceNavigation {-# INLINE pFromJSVal #-} instance ToJSVal PerformanceNavigation where toJSVal = return . unPerformanceNavigation {-# INLINE toJSVal #-} instance FromJSVal PerformanceNavigation where fromJSVal v = fmap PerformanceNavigation <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject PerformanceNavigation where makeObject = makeObject . unPerformanceNavigation instance IsGObject PerformanceNavigation where toGObject = GObject . unPerformanceNavigation {-# INLINE toGObject #-} unsafeCastGObject = PerformanceNavigation . unGObject {-# INLINE unsafeCastGObject #-} castToPerformanceNavigation :: IsGObject obj => obj -> JSM PerformanceNavigation castToPerformanceNavigation = castTo gTypePerformanceNavigation "PerformanceNavigation" gTypePerformanceNavigation :: JSM GType gTypePerformanceNavigation = GType . Object <$> jsg "PerformanceNavigation" #else #ifndef USE_OLD_WEBKIT type IsPerformanceNavigation o = PerformanceNavigationClass o #endif #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PerformanceResourceTiming". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.PerformanceEntry" -- -- newtype PerformanceResourceTiming = PerformanceResourceTiming { unPerformanceResourceTiming :: JSVal } instance PToJSVal PerformanceResourceTiming where pToJSVal = unPerformanceResourceTiming {-# INLINE pToJSVal #-} instance PFromJSVal PerformanceResourceTiming where pFromJSVal = PerformanceResourceTiming {-# INLINE pFromJSVal #-} instance ToJSVal PerformanceResourceTiming where toJSVal = return . unPerformanceResourceTiming {-# INLINE toJSVal #-} instance FromJSVal PerformanceResourceTiming where fromJSVal v = fmap PerformanceResourceTiming <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject PerformanceResourceTiming where makeObject = makeObject . unPerformanceResourceTiming instance IsPerformanceEntry PerformanceResourceTiming instance IsGObject PerformanceResourceTiming where toGObject = GObject . unPerformanceResourceTiming {-# INLINE toGObject #-} unsafeCastGObject = PerformanceResourceTiming . unGObject {-# INLINE unsafeCastGObject #-} castToPerformanceResourceTiming :: IsGObject obj => obj -> JSM PerformanceResourceTiming castToPerformanceResourceTiming = castTo gTypePerformanceResourceTiming "PerformanceResourceTiming" gTypePerformanceResourceTiming :: JSM GType gTypePerformanceResourceTiming = GType . Object <$> jsg "PerformanceResourceTiming" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PerformanceTiming". -- -- newtype PerformanceTiming = PerformanceTiming { unPerformanceTiming :: JSVal } instance PToJSVal PerformanceTiming where pToJSVal = unPerformanceTiming {-# INLINE pToJSVal #-} instance PFromJSVal PerformanceTiming where pFromJSVal = PerformanceTiming {-# INLINE pFromJSVal #-} instance ToJSVal PerformanceTiming where toJSVal = return . unPerformanceTiming {-# INLINE toJSVal #-} instance FromJSVal PerformanceTiming where fromJSVal v = fmap PerformanceTiming <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject PerformanceTiming where makeObject = makeObject . unPerformanceTiming instance IsGObject PerformanceTiming where toGObject = GObject . unPerformanceTiming {-# INLINE toGObject #-} unsafeCastGObject = PerformanceTiming . unGObject {-# INLINE unsafeCastGObject #-} castToPerformanceTiming :: IsGObject obj => obj -> JSM PerformanceTiming castToPerformanceTiming = castTo gTypePerformanceTiming "PerformanceTiming" gTypePerformanceTiming :: JSM GType gTypePerformanceTiming = GType . Object <$> jsg "PerformanceTiming" #else #ifndef USE_OLD_WEBKIT type IsPerformanceTiming o = PerformanceTimingClass o #endif #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PeriodicWave". -- -- newtype PeriodicWave = PeriodicWave { unPeriodicWave :: JSVal } instance PToJSVal PeriodicWave where pToJSVal = unPeriodicWave {-# INLINE pToJSVal #-} instance PFromJSVal PeriodicWave where pFromJSVal = PeriodicWave {-# INLINE pFromJSVal #-} instance ToJSVal PeriodicWave where toJSVal = return . unPeriodicWave {-# INLINE toJSVal #-} instance FromJSVal PeriodicWave where fromJSVal v = fmap PeriodicWave <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject PeriodicWave where makeObject = makeObject . unPeriodicWave instance IsGObject PeriodicWave where toGObject = GObject . unPeriodicWave {-# INLINE toGObject #-} unsafeCastGObject = PeriodicWave . unGObject {-# INLINE unsafeCastGObject #-} castToPeriodicWave :: IsGObject obj => obj -> JSM PeriodicWave castToPeriodicWave = castTo gTypePeriodicWave "PeriodicWave" gTypePeriodicWave :: JSM GType gTypePeriodicWave = GType . Object <$> jsg "PeriodicWave" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Plugin". -- -- newtype Plugin = Plugin { unPlugin :: JSVal } instance PToJSVal Plugin where pToJSVal = unPlugin {-# INLINE pToJSVal #-} instance PFromJSVal Plugin where pFromJSVal = Plugin {-# INLINE pFromJSVal #-} instance ToJSVal Plugin where toJSVal = return . unPlugin {-# INLINE toJSVal #-} instance FromJSVal Plugin where fromJSVal v = fmap Plugin <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Plugin where makeObject = makeObject . unPlugin instance IsGObject Plugin where toGObject = GObject . unPlugin {-# INLINE toGObject #-} unsafeCastGObject = Plugin . unGObject {-# INLINE unsafeCastGObject #-} castToPlugin :: IsGObject obj => obj -> JSM Plugin castToPlugin = castTo gTypePlugin "Plugin" gTypePlugin :: JSM GType gTypePlugin = GType . Object <$> jsg "Plugin" #else type IsPlugin o = PluginClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PluginArray". -- -- newtype PluginArray = PluginArray { unPluginArray :: JSVal } instance PToJSVal PluginArray where pToJSVal = unPluginArray {-# INLINE pToJSVal #-} instance PFromJSVal PluginArray where pFromJSVal = PluginArray {-# INLINE pFromJSVal #-} instance ToJSVal PluginArray where toJSVal = return . unPluginArray {-# INLINE toJSVal #-} instance FromJSVal PluginArray where fromJSVal v = fmap PluginArray <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject PluginArray where makeObject = makeObject . unPluginArray instance IsGObject PluginArray where toGObject = GObject . unPluginArray {-# INLINE toGObject #-} unsafeCastGObject = PluginArray . unGObject {-# INLINE unsafeCastGObject #-} castToPluginArray :: IsGObject obj => obj -> JSM PluginArray castToPluginArray = castTo gTypePluginArray "PluginArray" gTypePluginArray :: JSM GType gTypePluginArray = GType . Object <$> jsg "PluginArray" #else type IsPluginArray o = PluginArrayClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PopStateEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype PopStateEvent = PopStateEvent { unPopStateEvent :: JSVal } instance PToJSVal PopStateEvent where pToJSVal = unPopStateEvent {-# INLINE pToJSVal #-} instance PFromJSVal PopStateEvent where pFromJSVal = PopStateEvent {-# INLINE pFromJSVal #-} instance ToJSVal PopStateEvent where toJSVal = return . unPopStateEvent {-# INLINE toJSVal #-} instance FromJSVal PopStateEvent where fromJSVal v = fmap PopStateEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject PopStateEvent where makeObject = makeObject . unPopStateEvent instance IsEvent PopStateEvent instance IsGObject PopStateEvent where toGObject = GObject . unPopStateEvent {-# INLINE toGObject #-} unsafeCastGObject = PopStateEvent . unGObject {-# INLINE unsafeCastGObject #-} castToPopStateEvent :: IsGObject obj => obj -> JSM PopStateEvent castToPopStateEvent = castTo gTypePopStateEvent "PopStateEvent" gTypePopStateEvent :: JSM GType gTypePopStateEvent = GType . Object <$> jsg "PopStateEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PositionError". -- -- newtype PositionError = PositionError { unPositionError :: JSVal } instance PToJSVal PositionError where pToJSVal = unPositionError {-# INLINE pToJSVal #-} instance PFromJSVal PositionError where pFromJSVal = PositionError {-# INLINE pFromJSVal #-} instance ToJSVal PositionError where toJSVal = return . unPositionError {-# INLINE toJSVal #-} instance FromJSVal PositionError where fromJSVal v = fmap PositionError <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject PositionError where makeObject = makeObject . unPositionError instance IsGObject PositionError where toGObject = GObject . unPositionError {-# INLINE toGObject #-} unsafeCastGObject = PositionError . unGObject {-# INLINE unsafeCastGObject #-} castToPositionError :: IsGObject obj => obj -> JSM PositionError castToPositionError = castTo gTypePositionError "PositionError" gTypePositionError :: JSM GType gTypePositionError = GType . Object <$> jsg "PositionError" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ProcessingInstruction". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.CharacterData" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype ProcessingInstruction = ProcessingInstruction { unProcessingInstruction :: JSVal } instance PToJSVal ProcessingInstruction where pToJSVal = unProcessingInstruction {-# INLINE pToJSVal #-} instance PFromJSVal ProcessingInstruction where pFromJSVal = ProcessingInstruction {-# INLINE pFromJSVal #-} instance ToJSVal ProcessingInstruction where toJSVal = return . unProcessingInstruction {-# INLINE toJSVal #-} instance FromJSVal ProcessingInstruction where fromJSVal v = fmap ProcessingInstruction <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject ProcessingInstruction where makeObject = makeObject . unProcessingInstruction instance IsCharacterData ProcessingInstruction instance IsNode ProcessingInstruction instance IsEventTarget ProcessingInstruction instance IsGObject ProcessingInstruction where toGObject = GObject . unProcessingInstruction {-# INLINE toGObject #-} unsafeCastGObject = ProcessingInstruction . unGObject {-# INLINE unsafeCastGObject #-} castToProcessingInstruction :: IsGObject obj => obj -> JSM ProcessingInstruction castToProcessingInstruction = castTo gTypeProcessingInstruction "ProcessingInstruction" gTypeProcessingInstruction :: JSM GType gTypeProcessingInstruction = GType . Object <$> jsg "ProcessingInstruction" #else type IsProcessingInstruction o = ProcessingInstructionClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ProgressEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype ProgressEvent = ProgressEvent { unProgressEvent :: JSVal } instance PToJSVal ProgressEvent where pToJSVal = unProgressEvent {-# INLINE pToJSVal #-} instance PFromJSVal ProgressEvent where pFromJSVal = ProgressEvent {-# INLINE pFromJSVal #-} instance ToJSVal ProgressEvent where toJSVal = return . unProgressEvent {-# INLINE toJSVal #-} instance FromJSVal ProgressEvent where fromJSVal v = fmap ProgressEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject ProgressEvent where makeObject = makeObject . unProgressEvent class IsEvent o => IsProgressEvent o toProgressEvent :: IsProgressEvent o => o -> ProgressEvent toProgressEvent = unsafeCastGObject . toGObject instance IsProgressEvent ProgressEvent instance IsEvent ProgressEvent instance IsGObject ProgressEvent where toGObject = GObject . unProgressEvent {-# INLINE toGObject #-} unsafeCastGObject = ProgressEvent . unGObject {-# INLINE unsafeCastGObject #-} castToProgressEvent :: IsGObject obj => obj -> JSM ProgressEvent castToProgressEvent = castTo gTypeProgressEvent "ProgressEvent" gTypeProgressEvent :: JSM GType gTypeProgressEvent = GType . Object <$> jsg "ProgressEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.QuickTimePluginReplacement". -- -- newtype QuickTimePluginReplacement = QuickTimePluginReplacement { unQuickTimePluginReplacement :: JSVal } instance PToJSVal QuickTimePluginReplacement where pToJSVal = unQuickTimePluginReplacement {-# INLINE pToJSVal #-} instance PFromJSVal QuickTimePluginReplacement where pFromJSVal = QuickTimePluginReplacement {-# INLINE pFromJSVal #-} instance ToJSVal QuickTimePluginReplacement where toJSVal = return . unQuickTimePluginReplacement {-# INLINE toJSVal #-} instance FromJSVal QuickTimePluginReplacement where fromJSVal v = fmap QuickTimePluginReplacement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject QuickTimePluginReplacement where makeObject = makeObject . unQuickTimePluginReplacement instance IsGObject QuickTimePluginReplacement where toGObject = GObject . unQuickTimePluginReplacement {-# INLINE toGObject #-} unsafeCastGObject = QuickTimePluginReplacement . unGObject {-# INLINE unsafeCastGObject #-} castToQuickTimePluginReplacement :: IsGObject obj => obj -> JSM QuickTimePluginReplacement castToQuickTimePluginReplacement = castTo gTypeQuickTimePluginReplacement "QuickTimePluginReplacement" gTypeQuickTimePluginReplacement :: JSM GType gTypeQuickTimePluginReplacement = GType . Object <$> jsg "QuickTimePluginReplacement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RGBColor". -- -- newtype RGBColor = RGBColor { unRGBColor :: JSVal } instance PToJSVal RGBColor where pToJSVal = unRGBColor {-# INLINE pToJSVal #-} instance PFromJSVal RGBColor where pFromJSVal = RGBColor {-# INLINE pFromJSVal #-} instance ToJSVal RGBColor where toJSVal = return . unRGBColor {-# INLINE toJSVal #-} instance FromJSVal RGBColor where fromJSVal v = fmap RGBColor <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject RGBColor where makeObject = makeObject . unRGBColor instance IsGObject RGBColor where toGObject = GObject . unRGBColor {-# INLINE toGObject #-} unsafeCastGObject = RGBColor . unGObject {-# INLINE unsafeCastGObject #-} castToRGBColor :: IsGObject obj => obj -> JSM RGBColor castToRGBColor = castTo gTypeRGBColor "RGBColor" gTypeRGBColor :: JSM GType gTypeRGBColor = GType . Object <$> jsg "RGBColor" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RTCConfiguration". -- -- newtype RTCConfiguration = RTCConfiguration { unRTCConfiguration :: JSVal } instance PToJSVal RTCConfiguration where pToJSVal = unRTCConfiguration {-# INLINE pToJSVal #-} instance PFromJSVal RTCConfiguration where pFromJSVal = RTCConfiguration {-# INLINE pFromJSVal #-} instance ToJSVal RTCConfiguration where toJSVal = return . unRTCConfiguration {-# INLINE toJSVal #-} instance FromJSVal RTCConfiguration where fromJSVal v = fmap RTCConfiguration <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject RTCConfiguration where makeObject = makeObject . unRTCConfiguration instance IsGObject RTCConfiguration where toGObject = GObject . unRTCConfiguration {-# INLINE toGObject #-} unsafeCastGObject = RTCConfiguration . unGObject {-# INLINE unsafeCastGObject #-} castToRTCConfiguration :: IsGObject obj => obj -> JSM RTCConfiguration castToRTCConfiguration = castTo gTypeRTCConfiguration "RTCConfiguration" gTypeRTCConfiguration :: JSM GType gTypeRTCConfiguration = GType . Object <$> jsg "RTCConfiguration" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RTCDTMFSender". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype RTCDTMFSender = RTCDTMFSender { unRTCDTMFSender :: JSVal } instance PToJSVal RTCDTMFSender where pToJSVal = unRTCDTMFSender {-# INLINE pToJSVal #-} instance PFromJSVal RTCDTMFSender where pFromJSVal = RTCDTMFSender {-# INLINE pFromJSVal #-} instance ToJSVal RTCDTMFSender where toJSVal = return . unRTCDTMFSender {-# INLINE toJSVal #-} instance FromJSVal RTCDTMFSender where fromJSVal v = fmap RTCDTMFSender <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject RTCDTMFSender where makeObject = makeObject . unRTCDTMFSender instance IsEventTarget RTCDTMFSender instance IsGObject RTCDTMFSender where toGObject = GObject . unRTCDTMFSender {-# INLINE toGObject #-} unsafeCastGObject = RTCDTMFSender . unGObject {-# INLINE unsafeCastGObject #-} castToRTCDTMFSender :: IsGObject obj => obj -> JSM RTCDTMFSender castToRTCDTMFSender = castTo gTypeRTCDTMFSender "RTCDTMFSender" gTypeRTCDTMFSender :: JSM GType gTypeRTCDTMFSender = GType . Object <$> jsg "RTCDTMFSender" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RTCDTMFToneChangeEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype RTCDTMFToneChangeEvent = RTCDTMFToneChangeEvent { unRTCDTMFToneChangeEvent :: JSVal } instance PToJSVal RTCDTMFToneChangeEvent where pToJSVal = unRTCDTMFToneChangeEvent {-# INLINE pToJSVal #-} instance PFromJSVal RTCDTMFToneChangeEvent where pFromJSVal = RTCDTMFToneChangeEvent {-# INLINE pFromJSVal #-} instance ToJSVal RTCDTMFToneChangeEvent where toJSVal = return . unRTCDTMFToneChangeEvent {-# INLINE toJSVal #-} instance FromJSVal RTCDTMFToneChangeEvent where fromJSVal v = fmap RTCDTMFToneChangeEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject RTCDTMFToneChangeEvent where makeObject = makeObject . unRTCDTMFToneChangeEvent instance IsEvent RTCDTMFToneChangeEvent instance IsGObject RTCDTMFToneChangeEvent where toGObject = GObject . unRTCDTMFToneChangeEvent {-# INLINE toGObject #-} unsafeCastGObject = RTCDTMFToneChangeEvent . unGObject {-# INLINE unsafeCastGObject #-} castToRTCDTMFToneChangeEvent :: IsGObject obj => obj -> JSM RTCDTMFToneChangeEvent castToRTCDTMFToneChangeEvent = castTo gTypeRTCDTMFToneChangeEvent "RTCDTMFToneChangeEvent" gTypeRTCDTMFToneChangeEvent :: JSM GType gTypeRTCDTMFToneChangeEvent = GType . Object <$> jsg "RTCDTMFToneChangeEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RTCDataChannel". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype RTCDataChannel = RTCDataChannel { unRTCDataChannel :: JSVal } instance PToJSVal RTCDataChannel where pToJSVal = unRTCDataChannel {-# INLINE pToJSVal #-} instance PFromJSVal RTCDataChannel where pFromJSVal = RTCDataChannel {-# INLINE pFromJSVal #-} instance ToJSVal RTCDataChannel where toJSVal = return . unRTCDataChannel {-# INLINE toJSVal #-} instance FromJSVal RTCDataChannel where fromJSVal v = fmap RTCDataChannel <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject RTCDataChannel where makeObject = makeObject . unRTCDataChannel instance IsEventTarget RTCDataChannel instance IsGObject RTCDataChannel where toGObject = GObject . unRTCDataChannel {-# INLINE toGObject #-} unsafeCastGObject = RTCDataChannel . unGObject {-# INLINE unsafeCastGObject #-} castToRTCDataChannel :: IsGObject obj => obj -> JSM RTCDataChannel castToRTCDataChannel = castTo gTypeRTCDataChannel "RTCDataChannel" gTypeRTCDataChannel :: JSM GType gTypeRTCDataChannel = GType . Object <$> jsg "RTCDataChannel" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RTCDataChannelEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype RTCDataChannelEvent = RTCDataChannelEvent { unRTCDataChannelEvent :: JSVal } instance PToJSVal RTCDataChannelEvent where pToJSVal = unRTCDataChannelEvent {-# INLINE pToJSVal #-} instance PFromJSVal RTCDataChannelEvent where pFromJSVal = RTCDataChannelEvent {-# INLINE pFromJSVal #-} instance ToJSVal RTCDataChannelEvent where toJSVal = return . unRTCDataChannelEvent {-# INLINE toJSVal #-} instance FromJSVal RTCDataChannelEvent where fromJSVal v = fmap RTCDataChannelEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject RTCDataChannelEvent where makeObject = makeObject . unRTCDataChannelEvent instance IsEvent RTCDataChannelEvent instance IsGObject RTCDataChannelEvent where toGObject = GObject . unRTCDataChannelEvent {-# INLINE toGObject #-} unsafeCastGObject = RTCDataChannelEvent . unGObject {-# INLINE unsafeCastGObject #-} castToRTCDataChannelEvent :: IsGObject obj => obj -> JSM RTCDataChannelEvent castToRTCDataChannelEvent = castTo gTypeRTCDataChannelEvent "RTCDataChannelEvent" gTypeRTCDataChannelEvent :: JSM GType gTypeRTCDataChannelEvent = GType . Object <$> jsg "RTCDataChannelEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RTCIceCandidate". -- -- newtype RTCIceCandidate = RTCIceCandidate { unRTCIceCandidate :: JSVal } instance PToJSVal RTCIceCandidate where pToJSVal = unRTCIceCandidate {-# INLINE pToJSVal #-} instance PFromJSVal RTCIceCandidate where pFromJSVal = RTCIceCandidate {-# INLINE pFromJSVal #-} instance ToJSVal RTCIceCandidate where toJSVal = return . unRTCIceCandidate {-# INLINE toJSVal #-} instance FromJSVal RTCIceCandidate where fromJSVal v = fmap RTCIceCandidate <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject RTCIceCandidate where makeObject = makeObject . unRTCIceCandidate instance IsGObject RTCIceCandidate where toGObject = GObject . unRTCIceCandidate {-# INLINE toGObject #-} unsafeCastGObject = RTCIceCandidate . unGObject {-# INLINE unsafeCastGObject #-} castToRTCIceCandidate :: IsGObject obj => obj -> JSM RTCIceCandidate castToRTCIceCandidate = castTo gTypeRTCIceCandidate "RTCIceCandidate" gTypeRTCIceCandidate :: JSM GType gTypeRTCIceCandidate = GType . Object <$> jsg "RTCIceCandidate" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RTCIceCandidateEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype RTCIceCandidateEvent = RTCIceCandidateEvent { unRTCIceCandidateEvent :: JSVal } instance PToJSVal RTCIceCandidateEvent where pToJSVal = unRTCIceCandidateEvent {-# INLINE pToJSVal #-} instance PFromJSVal RTCIceCandidateEvent where pFromJSVal = RTCIceCandidateEvent {-# INLINE pFromJSVal #-} instance ToJSVal RTCIceCandidateEvent where toJSVal = return . unRTCIceCandidateEvent {-# INLINE toJSVal #-} instance FromJSVal RTCIceCandidateEvent where fromJSVal v = fmap RTCIceCandidateEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject RTCIceCandidateEvent where makeObject = makeObject . unRTCIceCandidateEvent instance IsEvent RTCIceCandidateEvent instance IsGObject RTCIceCandidateEvent where toGObject = GObject . unRTCIceCandidateEvent {-# INLINE toGObject #-} unsafeCastGObject = RTCIceCandidateEvent . unGObject {-# INLINE unsafeCastGObject #-} castToRTCIceCandidateEvent :: IsGObject obj => obj -> JSM RTCIceCandidateEvent castToRTCIceCandidateEvent = castTo gTypeRTCIceCandidateEvent "RTCIceCandidateEvent" gTypeRTCIceCandidateEvent :: JSM GType gTypeRTCIceCandidateEvent = GType . Object <$> jsg "RTCIceCandidateEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RTCIceServer". -- -- newtype RTCIceServer = RTCIceServer { unRTCIceServer :: JSVal } instance PToJSVal RTCIceServer where pToJSVal = unRTCIceServer {-# INLINE pToJSVal #-} instance PFromJSVal RTCIceServer where pFromJSVal = RTCIceServer {-# INLINE pFromJSVal #-} instance ToJSVal RTCIceServer where toJSVal = return . unRTCIceServer {-# INLINE toJSVal #-} instance FromJSVal RTCIceServer where fromJSVal v = fmap RTCIceServer <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject RTCIceServer where makeObject = makeObject . unRTCIceServer instance IsGObject RTCIceServer where toGObject = GObject . unRTCIceServer {-# INLINE toGObject #-} unsafeCastGObject = RTCIceServer . unGObject {-# INLINE unsafeCastGObject #-} castToRTCIceServer :: IsGObject obj => obj -> JSM RTCIceServer castToRTCIceServer = castTo gTypeRTCIceServer "RTCIceServer" gTypeRTCIceServer :: JSM GType gTypeRTCIceServer = GType . Object <$> jsg "RTCIceServer" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RTCPeerConnection". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype RTCPeerConnection = RTCPeerConnection { unRTCPeerConnection :: JSVal } instance PToJSVal RTCPeerConnection where pToJSVal = unRTCPeerConnection {-# INLINE pToJSVal #-} instance PFromJSVal RTCPeerConnection where pFromJSVal = RTCPeerConnection {-# INLINE pFromJSVal #-} instance ToJSVal RTCPeerConnection where toJSVal = return . unRTCPeerConnection {-# INLINE toJSVal #-} instance FromJSVal RTCPeerConnection where fromJSVal v = fmap RTCPeerConnection <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject RTCPeerConnection where makeObject = makeObject . unRTCPeerConnection instance IsEventTarget RTCPeerConnection instance IsGObject RTCPeerConnection where toGObject = GObject . unRTCPeerConnection {-# INLINE toGObject #-} unsafeCastGObject = RTCPeerConnection . unGObject {-# INLINE unsafeCastGObject #-} castToRTCPeerConnection :: IsGObject obj => obj -> JSM RTCPeerConnection castToRTCPeerConnection = castTo gTypeRTCPeerConnection "RTCPeerConnection" gTypeRTCPeerConnection :: JSM GType gTypeRTCPeerConnection = GType . Object <$> jsg "webkitRTCPeerConnection" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RTCSessionDescription". -- -- newtype RTCSessionDescription = RTCSessionDescription { unRTCSessionDescription :: JSVal } instance PToJSVal RTCSessionDescription where pToJSVal = unRTCSessionDescription {-# INLINE pToJSVal #-} instance PFromJSVal RTCSessionDescription where pFromJSVal = RTCSessionDescription {-# INLINE pFromJSVal #-} instance ToJSVal RTCSessionDescription where toJSVal = return . unRTCSessionDescription {-# INLINE toJSVal #-} instance FromJSVal RTCSessionDescription where fromJSVal v = fmap RTCSessionDescription <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject RTCSessionDescription where makeObject = makeObject . unRTCSessionDescription instance IsGObject RTCSessionDescription where toGObject = GObject . unRTCSessionDescription {-# INLINE toGObject #-} unsafeCastGObject = RTCSessionDescription . unGObject {-# INLINE unsafeCastGObject #-} castToRTCSessionDescription :: IsGObject obj => obj -> JSM RTCSessionDescription castToRTCSessionDescription = castTo gTypeRTCSessionDescription "RTCSessionDescription" gTypeRTCSessionDescription :: JSM GType gTypeRTCSessionDescription = GType . Object <$> jsg "RTCSessionDescription" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RTCStatsReport". -- -- newtype RTCStatsReport = RTCStatsReport { unRTCStatsReport :: JSVal } instance PToJSVal RTCStatsReport where pToJSVal = unRTCStatsReport {-# INLINE pToJSVal #-} instance PFromJSVal RTCStatsReport where pFromJSVal = RTCStatsReport {-# INLINE pFromJSVal #-} instance ToJSVal RTCStatsReport where toJSVal = return . unRTCStatsReport {-# INLINE toJSVal #-} instance FromJSVal RTCStatsReport where fromJSVal v = fmap RTCStatsReport <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject RTCStatsReport where makeObject = makeObject . unRTCStatsReport instance IsGObject RTCStatsReport where toGObject = GObject . unRTCStatsReport {-# INLINE toGObject #-} unsafeCastGObject = RTCStatsReport . unGObject {-# INLINE unsafeCastGObject #-} castToRTCStatsReport :: IsGObject obj => obj -> JSM RTCStatsReport castToRTCStatsReport = castTo gTypeRTCStatsReport "RTCStatsReport" gTypeRTCStatsReport :: JSM GType gTypeRTCStatsReport = GType . Object <$> jsg "RTCStatsReport" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RTCStatsResponse". -- -- newtype RTCStatsResponse = RTCStatsResponse { unRTCStatsResponse :: JSVal } instance PToJSVal RTCStatsResponse where pToJSVal = unRTCStatsResponse {-# INLINE pToJSVal #-} instance PFromJSVal RTCStatsResponse where pFromJSVal = RTCStatsResponse {-# INLINE pFromJSVal #-} instance ToJSVal RTCStatsResponse where toJSVal = return . unRTCStatsResponse {-# INLINE toJSVal #-} instance FromJSVal RTCStatsResponse where fromJSVal v = fmap RTCStatsResponse <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject RTCStatsResponse where makeObject = makeObject . unRTCStatsResponse instance IsGObject RTCStatsResponse where toGObject = GObject . unRTCStatsResponse {-# INLINE toGObject #-} unsafeCastGObject = RTCStatsResponse . unGObject {-# INLINE unsafeCastGObject #-} castToRTCStatsResponse :: IsGObject obj => obj -> JSM RTCStatsResponse castToRTCStatsResponse = castTo gTypeRTCStatsResponse "RTCStatsResponse" gTypeRTCStatsResponse :: JSM GType gTypeRTCStatsResponse = GType . Object <$> jsg "RTCStatsResponse" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RadioNodeList". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.NodeList" -- -- newtype RadioNodeList = RadioNodeList { unRadioNodeList :: JSVal } instance PToJSVal RadioNodeList where pToJSVal = unRadioNodeList {-# INLINE pToJSVal #-} instance PFromJSVal RadioNodeList where pFromJSVal = RadioNodeList {-# INLINE pFromJSVal #-} instance ToJSVal RadioNodeList where toJSVal = return . unRadioNodeList {-# INLINE toJSVal #-} instance FromJSVal RadioNodeList where fromJSVal v = fmap RadioNodeList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject RadioNodeList where makeObject = makeObject . unRadioNodeList instance IsNodeList RadioNodeList instance IsGObject RadioNodeList where toGObject = GObject . unRadioNodeList {-# INLINE toGObject #-} unsafeCastGObject = RadioNodeList . unGObject {-# INLINE unsafeCastGObject #-} castToRadioNodeList :: IsGObject obj => obj -> JSM RadioNodeList castToRadioNodeList = castTo gTypeRadioNodeList "RadioNodeList" gTypeRadioNodeList :: JSM GType gTypeRadioNodeList = GType . Object <$> jsg "RadioNodeList" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Range". -- -- newtype Range = Range { unRange :: JSVal } instance PToJSVal Range where pToJSVal = unRange {-# INLINE pToJSVal #-} instance PFromJSVal Range where pFromJSVal = Range {-# INLINE pFromJSVal #-} instance ToJSVal Range where toJSVal = return . unRange {-# INLINE toJSVal #-} instance FromJSVal Range where fromJSVal v = fmap Range <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Range where makeObject = makeObject . unRange instance IsGObject Range where toGObject = GObject . unRange {-# INLINE toGObject #-} unsafeCastGObject = Range . unGObject {-# INLINE unsafeCastGObject #-} castToRange :: IsGObject obj => obj -> JSM Range castToRange = castTo gTypeRange "Range" gTypeRange :: JSM GType gTypeRange = GType . Object <$> jsg "Range" #else type IsRange o = RangeClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ReadableStream". -- -- newtype ReadableStream = ReadableStream { unReadableStream :: JSVal } instance PToJSVal ReadableStream where pToJSVal = unReadableStream {-# INLINE pToJSVal #-} instance PFromJSVal ReadableStream where pFromJSVal = ReadableStream {-# INLINE pFromJSVal #-} instance ToJSVal ReadableStream where toJSVal = return . unReadableStream {-# INLINE toJSVal #-} instance FromJSVal ReadableStream where fromJSVal v = fmap ReadableStream <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject ReadableStream where makeObject = makeObject . unReadableStream instance IsGObject ReadableStream where toGObject = GObject . unReadableStream {-# INLINE toGObject #-} unsafeCastGObject = ReadableStream . unGObject {-# INLINE unsafeCastGObject #-} castToReadableStream :: IsGObject obj => obj -> JSM ReadableStream castToReadableStream = castTo gTypeReadableStream "ReadableStream" gTypeReadableStream :: JSM GType gTypeReadableStream = GType . Object <$> jsg "ReadableStream" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Rect". -- -- newtype Rect = Rect { unRect :: JSVal } instance PToJSVal Rect where pToJSVal = unRect {-# INLINE pToJSVal #-} instance PFromJSVal Rect where pFromJSVal = Rect {-# INLINE pFromJSVal #-} instance ToJSVal Rect where toJSVal = return . unRect {-# INLINE toJSVal #-} instance FromJSVal Rect where fromJSVal v = fmap Rect <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Rect where makeObject = makeObject . unRect instance IsGObject Rect where toGObject = GObject . unRect {-# INLINE toGObject #-} unsafeCastGObject = Rect . unGObject {-# INLINE unsafeCastGObject #-} castToRect :: IsGObject obj => obj -> JSM Rect castToRect = castTo gTypeRect "Rect" gTypeRect :: JSM GType gTypeRect = GType . Object <$> jsg "Rect" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SQLError". -- -- newtype SQLError = SQLError { unSQLError :: JSVal } instance PToJSVal SQLError where pToJSVal = unSQLError {-# INLINE pToJSVal #-} instance PFromJSVal SQLError where pFromJSVal = SQLError {-# INLINE pFromJSVal #-} instance ToJSVal SQLError where toJSVal = return . unSQLError {-# INLINE toJSVal #-} instance FromJSVal SQLError where fromJSVal v = fmap SQLError <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SQLError where makeObject = makeObject . unSQLError instance IsGObject SQLError where toGObject = GObject . unSQLError {-# INLINE toGObject #-} unsafeCastGObject = SQLError . unGObject {-# INLINE unsafeCastGObject #-} castToSQLError :: IsGObject obj => obj -> JSM SQLError castToSQLError = castTo gTypeSQLError "SQLError" gTypeSQLError :: JSM GType gTypeSQLError = GType . Object <$> jsg "SQLError" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SQLResultSet". -- -- newtype SQLResultSet = SQLResultSet { unSQLResultSet :: JSVal } instance PToJSVal SQLResultSet where pToJSVal = unSQLResultSet {-# INLINE pToJSVal #-} instance PFromJSVal SQLResultSet where pFromJSVal = SQLResultSet {-# INLINE pFromJSVal #-} instance ToJSVal SQLResultSet where toJSVal = return . unSQLResultSet {-# INLINE toJSVal #-} instance FromJSVal SQLResultSet where fromJSVal v = fmap SQLResultSet <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SQLResultSet where makeObject = makeObject . unSQLResultSet instance IsGObject SQLResultSet where toGObject = GObject . unSQLResultSet {-# INLINE toGObject #-} unsafeCastGObject = SQLResultSet . unGObject {-# INLINE unsafeCastGObject #-} castToSQLResultSet :: IsGObject obj => obj -> JSM SQLResultSet castToSQLResultSet = castTo gTypeSQLResultSet "SQLResultSet" gTypeSQLResultSet :: JSM GType gTypeSQLResultSet = GType . Object <$> jsg "SQLResultSet" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SQLResultSetRowList". -- -- newtype SQLResultSetRowList = SQLResultSetRowList { unSQLResultSetRowList :: JSVal } instance PToJSVal SQLResultSetRowList where pToJSVal = unSQLResultSetRowList {-# INLINE pToJSVal #-} instance PFromJSVal SQLResultSetRowList where pFromJSVal = SQLResultSetRowList {-# INLINE pFromJSVal #-} instance ToJSVal SQLResultSetRowList where toJSVal = return . unSQLResultSetRowList {-# INLINE toJSVal #-} instance FromJSVal SQLResultSetRowList where fromJSVal v = fmap SQLResultSetRowList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SQLResultSetRowList where makeObject = makeObject . unSQLResultSetRowList instance IsGObject SQLResultSetRowList where toGObject = GObject . unSQLResultSetRowList {-# INLINE toGObject #-} unsafeCastGObject = SQLResultSetRowList . unGObject {-# INLINE unsafeCastGObject #-} castToSQLResultSetRowList :: IsGObject obj => obj -> JSM SQLResultSetRowList castToSQLResultSetRowList = castTo gTypeSQLResultSetRowList "SQLResultSetRowList" gTypeSQLResultSetRowList :: JSM GType gTypeSQLResultSetRowList = GType . Object <$> jsg "SQLResultSetRowList" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SQLTransaction". -- -- newtype SQLTransaction = SQLTransaction { unSQLTransaction :: JSVal } instance PToJSVal SQLTransaction where pToJSVal = unSQLTransaction {-# INLINE pToJSVal #-} instance PFromJSVal SQLTransaction where pFromJSVal = SQLTransaction {-# INLINE pFromJSVal #-} instance ToJSVal SQLTransaction where toJSVal = return . unSQLTransaction {-# INLINE toJSVal #-} instance FromJSVal SQLTransaction where fromJSVal v = fmap SQLTransaction <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SQLTransaction where makeObject = makeObject . unSQLTransaction instance IsGObject SQLTransaction where toGObject = GObject . unSQLTransaction {-# INLINE toGObject #-} unsafeCastGObject = SQLTransaction . unGObject {-# INLINE unsafeCastGObject #-} castToSQLTransaction :: IsGObject obj => obj -> JSM SQLTransaction castToSQLTransaction = castTo gTypeSQLTransaction "SQLTransaction" gTypeSQLTransaction :: JSM GType gTypeSQLTransaction = GType . Object <$> jsg "SQLTransaction" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGAElement = SVGAElement { unSVGAElement :: JSVal } instance PToJSVal SVGAElement where pToJSVal = unSVGAElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGAElement where pFromJSVal = SVGAElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGAElement where toJSVal = return . unSVGAElement {-# INLINE toJSVal #-} instance FromJSVal SVGAElement where fromJSVal v = fmap SVGAElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGAElement where makeObject = makeObject . unSVGAElement instance IsSVGGraphicsElement SVGAElement instance IsSVGElement SVGAElement instance IsElement SVGAElement instance IsNode SVGAElement instance IsEventTarget SVGAElement instance IsGObject SVGAElement where toGObject = GObject . unSVGAElement {-# INLINE toGObject #-} unsafeCastGObject = SVGAElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGAElement :: IsGObject obj => obj -> JSM SVGAElement castToSVGAElement = castTo gTypeSVGAElement "SVGAElement" gTypeSVGAElement :: JSM GType gTypeSVGAElement = GType . Object <$> jsg "SVGAElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAltGlyphDefElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGAltGlyphDefElement = SVGAltGlyphDefElement { unSVGAltGlyphDefElement :: JSVal } instance PToJSVal SVGAltGlyphDefElement where pToJSVal = unSVGAltGlyphDefElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGAltGlyphDefElement where pFromJSVal = SVGAltGlyphDefElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGAltGlyphDefElement where toJSVal = return . unSVGAltGlyphDefElement {-# INLINE toJSVal #-} instance FromJSVal SVGAltGlyphDefElement where fromJSVal v = fmap SVGAltGlyphDefElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGAltGlyphDefElement where makeObject = makeObject . unSVGAltGlyphDefElement instance IsSVGElement SVGAltGlyphDefElement instance IsElement SVGAltGlyphDefElement instance IsNode SVGAltGlyphDefElement instance IsEventTarget SVGAltGlyphDefElement instance IsGObject SVGAltGlyphDefElement where toGObject = GObject . unSVGAltGlyphDefElement {-# INLINE toGObject #-} unsafeCastGObject = SVGAltGlyphDefElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGAltGlyphDefElement :: IsGObject obj => obj -> JSM SVGAltGlyphDefElement castToSVGAltGlyphDefElement = castTo gTypeSVGAltGlyphDefElement "SVGAltGlyphDefElement" gTypeSVGAltGlyphDefElement :: JSM GType gTypeSVGAltGlyphDefElement = GType . Object <$> jsg "SVGAltGlyphDefElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAltGlyphElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGTextPositioningElement" -- * "Language.Javascript.JSaddle.DOM.SVGTextContentElement" -- * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGAltGlyphElement = SVGAltGlyphElement { unSVGAltGlyphElement :: JSVal } instance PToJSVal SVGAltGlyphElement where pToJSVal = unSVGAltGlyphElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGAltGlyphElement where pFromJSVal = SVGAltGlyphElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGAltGlyphElement where toJSVal = return . unSVGAltGlyphElement {-# INLINE toJSVal #-} instance FromJSVal SVGAltGlyphElement where fromJSVal v = fmap SVGAltGlyphElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGAltGlyphElement where makeObject = makeObject . unSVGAltGlyphElement instance IsSVGTextPositioningElement SVGAltGlyphElement instance IsSVGTextContentElement SVGAltGlyphElement instance IsSVGGraphicsElement SVGAltGlyphElement instance IsSVGElement SVGAltGlyphElement instance IsElement SVGAltGlyphElement instance IsNode SVGAltGlyphElement instance IsEventTarget SVGAltGlyphElement instance IsGObject SVGAltGlyphElement where toGObject = GObject . unSVGAltGlyphElement {-# INLINE toGObject #-} unsafeCastGObject = SVGAltGlyphElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGAltGlyphElement :: IsGObject obj => obj -> JSM SVGAltGlyphElement castToSVGAltGlyphElement = castTo gTypeSVGAltGlyphElement "SVGAltGlyphElement" gTypeSVGAltGlyphElement :: JSM GType gTypeSVGAltGlyphElement = GType . Object <$> jsg "SVGAltGlyphElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAltGlyphItemElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGAltGlyphItemElement = SVGAltGlyphItemElement { unSVGAltGlyphItemElement :: JSVal } instance PToJSVal SVGAltGlyphItemElement where pToJSVal = unSVGAltGlyphItemElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGAltGlyphItemElement where pFromJSVal = SVGAltGlyphItemElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGAltGlyphItemElement where toJSVal = return . unSVGAltGlyphItemElement {-# INLINE toJSVal #-} instance FromJSVal SVGAltGlyphItemElement where fromJSVal v = fmap SVGAltGlyphItemElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGAltGlyphItemElement where makeObject = makeObject . unSVGAltGlyphItemElement instance IsSVGElement SVGAltGlyphItemElement instance IsElement SVGAltGlyphItemElement instance IsNode SVGAltGlyphItemElement instance IsEventTarget SVGAltGlyphItemElement instance IsGObject SVGAltGlyphItemElement where toGObject = GObject . unSVGAltGlyphItemElement {-# INLINE toGObject #-} unsafeCastGObject = SVGAltGlyphItemElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGAltGlyphItemElement :: IsGObject obj => obj -> JSM SVGAltGlyphItemElement castToSVGAltGlyphItemElement = castTo gTypeSVGAltGlyphItemElement "SVGAltGlyphItemElement" gTypeSVGAltGlyphItemElement :: JSM GType gTypeSVGAltGlyphItemElement = GType . Object <$> jsg "SVGAltGlyphItemElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAngle". -- -- newtype SVGAngle = SVGAngle { unSVGAngle :: JSVal } instance PToJSVal SVGAngle where pToJSVal = unSVGAngle {-# INLINE pToJSVal #-} instance PFromJSVal SVGAngle where pFromJSVal = SVGAngle {-# INLINE pFromJSVal #-} instance ToJSVal SVGAngle where toJSVal = return . unSVGAngle {-# INLINE toJSVal #-} instance FromJSVal SVGAngle where fromJSVal v = fmap SVGAngle <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGAngle where makeObject = makeObject . unSVGAngle instance IsGObject SVGAngle where toGObject = GObject . unSVGAngle {-# INLINE toGObject #-} unsafeCastGObject = SVGAngle . unGObject {-# INLINE unsafeCastGObject #-} castToSVGAngle :: IsGObject obj => obj -> JSM SVGAngle castToSVGAngle = castTo gTypeSVGAngle "SVGAngle" gTypeSVGAngle :: JSM GType gTypeSVGAngle = GType . Object <$> jsg "SVGAngle" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimateColorElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGAnimationElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGAnimateColorElement = SVGAnimateColorElement { unSVGAnimateColorElement :: JSVal } instance PToJSVal SVGAnimateColorElement where pToJSVal = unSVGAnimateColorElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGAnimateColorElement where pFromJSVal = SVGAnimateColorElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGAnimateColorElement where toJSVal = return . unSVGAnimateColorElement {-# INLINE toJSVal #-} instance FromJSVal SVGAnimateColorElement where fromJSVal v = fmap SVGAnimateColorElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGAnimateColorElement where makeObject = makeObject . unSVGAnimateColorElement instance IsSVGAnimationElement SVGAnimateColorElement instance IsSVGElement SVGAnimateColorElement instance IsElement SVGAnimateColorElement instance IsNode SVGAnimateColorElement instance IsEventTarget SVGAnimateColorElement instance IsGObject SVGAnimateColorElement where toGObject = GObject . unSVGAnimateColorElement {-# INLINE toGObject #-} unsafeCastGObject = SVGAnimateColorElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGAnimateColorElement :: IsGObject obj => obj -> JSM SVGAnimateColorElement castToSVGAnimateColorElement = castTo gTypeSVGAnimateColorElement "SVGAnimateColorElement" gTypeSVGAnimateColorElement :: JSM GType gTypeSVGAnimateColorElement = GType . Object <$> jsg "SVGAnimateColorElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimateElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGAnimationElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGAnimateElement = SVGAnimateElement { unSVGAnimateElement :: JSVal } instance PToJSVal SVGAnimateElement where pToJSVal = unSVGAnimateElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGAnimateElement where pFromJSVal = SVGAnimateElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGAnimateElement where toJSVal = return . unSVGAnimateElement {-# INLINE toJSVal #-} instance FromJSVal SVGAnimateElement where fromJSVal v = fmap SVGAnimateElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGAnimateElement where makeObject = makeObject . unSVGAnimateElement instance IsSVGAnimationElement SVGAnimateElement instance IsSVGElement SVGAnimateElement instance IsElement SVGAnimateElement instance IsNode SVGAnimateElement instance IsEventTarget SVGAnimateElement instance IsGObject SVGAnimateElement where toGObject = GObject . unSVGAnimateElement {-# INLINE toGObject #-} unsafeCastGObject = SVGAnimateElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGAnimateElement :: IsGObject obj => obj -> JSM SVGAnimateElement castToSVGAnimateElement = castTo gTypeSVGAnimateElement "SVGAnimateElement" gTypeSVGAnimateElement :: JSM GType gTypeSVGAnimateElement = GType . Object <$> jsg "SVGAnimateElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimateMotionElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGAnimationElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGAnimateMotionElement = SVGAnimateMotionElement { unSVGAnimateMotionElement :: JSVal } instance PToJSVal SVGAnimateMotionElement where pToJSVal = unSVGAnimateMotionElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGAnimateMotionElement where pFromJSVal = SVGAnimateMotionElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGAnimateMotionElement where toJSVal = return . unSVGAnimateMotionElement {-# INLINE toJSVal #-} instance FromJSVal SVGAnimateMotionElement where fromJSVal v = fmap SVGAnimateMotionElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGAnimateMotionElement where makeObject = makeObject . unSVGAnimateMotionElement instance IsSVGAnimationElement SVGAnimateMotionElement instance IsSVGElement SVGAnimateMotionElement instance IsElement SVGAnimateMotionElement instance IsNode SVGAnimateMotionElement instance IsEventTarget SVGAnimateMotionElement instance IsGObject SVGAnimateMotionElement where toGObject = GObject . unSVGAnimateMotionElement {-# INLINE toGObject #-} unsafeCastGObject = SVGAnimateMotionElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGAnimateMotionElement :: IsGObject obj => obj -> JSM SVGAnimateMotionElement castToSVGAnimateMotionElement = castTo gTypeSVGAnimateMotionElement "SVGAnimateMotionElement" gTypeSVGAnimateMotionElement :: JSM GType gTypeSVGAnimateMotionElement = GType . Object <$> jsg "SVGAnimateMotionElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimateTransformElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGAnimationElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGAnimateTransformElement = SVGAnimateTransformElement { unSVGAnimateTransformElement :: JSVal } instance PToJSVal SVGAnimateTransformElement where pToJSVal = unSVGAnimateTransformElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGAnimateTransformElement where pFromJSVal = SVGAnimateTransformElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGAnimateTransformElement where toJSVal = return . unSVGAnimateTransformElement {-# INLINE toJSVal #-} instance FromJSVal SVGAnimateTransformElement where fromJSVal v = fmap SVGAnimateTransformElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGAnimateTransformElement where makeObject = makeObject . unSVGAnimateTransformElement instance IsSVGAnimationElement SVGAnimateTransformElement instance IsSVGElement SVGAnimateTransformElement instance IsElement SVGAnimateTransformElement instance IsNode SVGAnimateTransformElement instance IsEventTarget SVGAnimateTransformElement instance IsGObject SVGAnimateTransformElement where toGObject = GObject . unSVGAnimateTransformElement {-# INLINE toGObject #-} unsafeCastGObject = SVGAnimateTransformElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGAnimateTransformElement :: IsGObject obj => obj -> JSM SVGAnimateTransformElement castToSVGAnimateTransformElement = castTo gTypeSVGAnimateTransformElement "SVGAnimateTransformElement" gTypeSVGAnimateTransformElement :: JSM GType gTypeSVGAnimateTransformElement = GType . Object <$> jsg "SVGAnimateTransformElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimatedAngle". -- -- newtype SVGAnimatedAngle = SVGAnimatedAngle { unSVGAnimatedAngle :: JSVal } instance PToJSVal SVGAnimatedAngle where pToJSVal = unSVGAnimatedAngle {-# INLINE pToJSVal #-} instance PFromJSVal SVGAnimatedAngle where pFromJSVal = SVGAnimatedAngle {-# INLINE pFromJSVal #-} instance ToJSVal SVGAnimatedAngle where toJSVal = return . unSVGAnimatedAngle {-# INLINE toJSVal #-} instance FromJSVal SVGAnimatedAngle where fromJSVal v = fmap SVGAnimatedAngle <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGAnimatedAngle where makeObject = makeObject . unSVGAnimatedAngle instance IsGObject SVGAnimatedAngle where toGObject = GObject . unSVGAnimatedAngle {-# INLINE toGObject #-} unsafeCastGObject = SVGAnimatedAngle . unGObject {-# INLINE unsafeCastGObject #-} castToSVGAnimatedAngle :: IsGObject obj => obj -> JSM SVGAnimatedAngle castToSVGAnimatedAngle = castTo gTypeSVGAnimatedAngle "SVGAnimatedAngle" gTypeSVGAnimatedAngle :: JSM GType gTypeSVGAnimatedAngle = GType . Object <$> jsg "SVGAnimatedAngle" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimatedBoolean". -- -- newtype SVGAnimatedBoolean = SVGAnimatedBoolean { unSVGAnimatedBoolean :: JSVal } instance PToJSVal SVGAnimatedBoolean where pToJSVal = unSVGAnimatedBoolean {-# INLINE pToJSVal #-} instance PFromJSVal SVGAnimatedBoolean where pFromJSVal = SVGAnimatedBoolean {-# INLINE pFromJSVal #-} instance ToJSVal SVGAnimatedBoolean where toJSVal = return . unSVGAnimatedBoolean {-# INLINE toJSVal #-} instance FromJSVal SVGAnimatedBoolean where fromJSVal v = fmap SVGAnimatedBoolean <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGAnimatedBoolean where makeObject = makeObject . unSVGAnimatedBoolean instance IsGObject SVGAnimatedBoolean where toGObject = GObject . unSVGAnimatedBoolean {-# INLINE toGObject #-} unsafeCastGObject = SVGAnimatedBoolean . unGObject {-# INLINE unsafeCastGObject #-} castToSVGAnimatedBoolean :: IsGObject obj => obj -> JSM SVGAnimatedBoolean castToSVGAnimatedBoolean = castTo gTypeSVGAnimatedBoolean "SVGAnimatedBoolean" gTypeSVGAnimatedBoolean :: JSM GType gTypeSVGAnimatedBoolean = GType . Object <$> jsg "SVGAnimatedBoolean" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimatedEnumeration". -- -- newtype SVGAnimatedEnumeration = SVGAnimatedEnumeration { unSVGAnimatedEnumeration :: JSVal } instance PToJSVal SVGAnimatedEnumeration where pToJSVal = unSVGAnimatedEnumeration {-# INLINE pToJSVal #-} instance PFromJSVal SVGAnimatedEnumeration where pFromJSVal = SVGAnimatedEnumeration {-# INLINE pFromJSVal #-} instance ToJSVal SVGAnimatedEnumeration where toJSVal = return . unSVGAnimatedEnumeration {-# INLINE toJSVal #-} instance FromJSVal SVGAnimatedEnumeration where fromJSVal v = fmap SVGAnimatedEnumeration <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGAnimatedEnumeration where makeObject = makeObject . unSVGAnimatedEnumeration instance IsGObject SVGAnimatedEnumeration where toGObject = GObject . unSVGAnimatedEnumeration {-# INLINE toGObject #-} unsafeCastGObject = SVGAnimatedEnumeration . unGObject {-# INLINE unsafeCastGObject #-} castToSVGAnimatedEnumeration :: IsGObject obj => obj -> JSM SVGAnimatedEnumeration castToSVGAnimatedEnumeration = castTo gTypeSVGAnimatedEnumeration "SVGAnimatedEnumeration" gTypeSVGAnimatedEnumeration :: JSM GType gTypeSVGAnimatedEnumeration = GType . Object <$> jsg "SVGAnimatedEnumeration" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimatedInteger". -- -- newtype SVGAnimatedInteger = SVGAnimatedInteger { unSVGAnimatedInteger :: JSVal } instance PToJSVal SVGAnimatedInteger where pToJSVal = unSVGAnimatedInteger {-# INLINE pToJSVal #-} instance PFromJSVal SVGAnimatedInteger where pFromJSVal = SVGAnimatedInteger {-# INLINE pFromJSVal #-} instance ToJSVal SVGAnimatedInteger where toJSVal = return . unSVGAnimatedInteger {-# INLINE toJSVal #-} instance FromJSVal SVGAnimatedInteger where fromJSVal v = fmap SVGAnimatedInteger <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGAnimatedInteger where makeObject = makeObject . unSVGAnimatedInteger instance IsGObject SVGAnimatedInteger where toGObject = GObject . unSVGAnimatedInteger {-# INLINE toGObject #-} unsafeCastGObject = SVGAnimatedInteger . unGObject {-# INLINE unsafeCastGObject #-} castToSVGAnimatedInteger :: IsGObject obj => obj -> JSM SVGAnimatedInteger castToSVGAnimatedInteger = castTo gTypeSVGAnimatedInteger "SVGAnimatedInteger" gTypeSVGAnimatedInteger :: JSM GType gTypeSVGAnimatedInteger = GType . Object <$> jsg "SVGAnimatedInteger" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimatedLength". -- -- newtype SVGAnimatedLength = SVGAnimatedLength { unSVGAnimatedLength :: JSVal } instance PToJSVal SVGAnimatedLength where pToJSVal = unSVGAnimatedLength {-# INLINE pToJSVal #-} instance PFromJSVal SVGAnimatedLength where pFromJSVal = SVGAnimatedLength {-# INLINE pFromJSVal #-} instance ToJSVal SVGAnimatedLength where toJSVal = return . unSVGAnimatedLength {-# INLINE toJSVal #-} instance FromJSVal SVGAnimatedLength where fromJSVal v = fmap SVGAnimatedLength <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGAnimatedLength where makeObject = makeObject . unSVGAnimatedLength instance IsGObject SVGAnimatedLength where toGObject = GObject . unSVGAnimatedLength {-# INLINE toGObject #-} unsafeCastGObject = SVGAnimatedLength . unGObject {-# INLINE unsafeCastGObject #-} castToSVGAnimatedLength :: IsGObject obj => obj -> JSM SVGAnimatedLength castToSVGAnimatedLength = castTo gTypeSVGAnimatedLength "SVGAnimatedLength" gTypeSVGAnimatedLength :: JSM GType gTypeSVGAnimatedLength = GType . Object <$> jsg "SVGAnimatedLength" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimatedLengthList". -- -- newtype SVGAnimatedLengthList = SVGAnimatedLengthList { unSVGAnimatedLengthList :: JSVal } instance PToJSVal SVGAnimatedLengthList where pToJSVal = unSVGAnimatedLengthList {-# INLINE pToJSVal #-} instance PFromJSVal SVGAnimatedLengthList where pFromJSVal = SVGAnimatedLengthList {-# INLINE pFromJSVal #-} instance ToJSVal SVGAnimatedLengthList where toJSVal = return . unSVGAnimatedLengthList {-# INLINE toJSVal #-} instance FromJSVal SVGAnimatedLengthList where fromJSVal v = fmap SVGAnimatedLengthList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGAnimatedLengthList where makeObject = makeObject . unSVGAnimatedLengthList instance IsGObject SVGAnimatedLengthList where toGObject = GObject . unSVGAnimatedLengthList {-# INLINE toGObject #-} unsafeCastGObject = SVGAnimatedLengthList . unGObject {-# INLINE unsafeCastGObject #-} castToSVGAnimatedLengthList :: IsGObject obj => obj -> JSM SVGAnimatedLengthList castToSVGAnimatedLengthList = castTo gTypeSVGAnimatedLengthList "SVGAnimatedLengthList" gTypeSVGAnimatedLengthList :: JSM GType gTypeSVGAnimatedLengthList = GType . Object <$> jsg "SVGAnimatedLengthList" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimatedNumber". -- -- newtype SVGAnimatedNumber = SVGAnimatedNumber { unSVGAnimatedNumber :: JSVal } instance PToJSVal SVGAnimatedNumber where pToJSVal = unSVGAnimatedNumber {-# INLINE pToJSVal #-} instance PFromJSVal SVGAnimatedNumber where pFromJSVal = SVGAnimatedNumber {-# INLINE pFromJSVal #-} instance ToJSVal SVGAnimatedNumber where toJSVal = return . unSVGAnimatedNumber {-# INLINE toJSVal #-} instance FromJSVal SVGAnimatedNumber where fromJSVal v = fmap SVGAnimatedNumber <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGAnimatedNumber where makeObject = makeObject . unSVGAnimatedNumber instance IsGObject SVGAnimatedNumber where toGObject = GObject . unSVGAnimatedNumber {-# INLINE toGObject #-} unsafeCastGObject = SVGAnimatedNumber . unGObject {-# INLINE unsafeCastGObject #-} castToSVGAnimatedNumber :: IsGObject obj => obj -> JSM SVGAnimatedNumber castToSVGAnimatedNumber = castTo gTypeSVGAnimatedNumber "SVGAnimatedNumber" gTypeSVGAnimatedNumber :: JSM GType gTypeSVGAnimatedNumber = GType . Object <$> jsg "SVGAnimatedNumber" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimatedNumberList". -- -- newtype SVGAnimatedNumberList = SVGAnimatedNumberList { unSVGAnimatedNumberList :: JSVal } instance PToJSVal SVGAnimatedNumberList where pToJSVal = unSVGAnimatedNumberList {-# INLINE pToJSVal #-} instance PFromJSVal SVGAnimatedNumberList where pFromJSVal = SVGAnimatedNumberList {-# INLINE pFromJSVal #-} instance ToJSVal SVGAnimatedNumberList where toJSVal = return . unSVGAnimatedNumberList {-# INLINE toJSVal #-} instance FromJSVal SVGAnimatedNumberList where fromJSVal v = fmap SVGAnimatedNumberList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGAnimatedNumberList where makeObject = makeObject . unSVGAnimatedNumberList instance IsGObject SVGAnimatedNumberList where toGObject = GObject . unSVGAnimatedNumberList {-# INLINE toGObject #-} unsafeCastGObject = SVGAnimatedNumberList . unGObject {-# INLINE unsafeCastGObject #-} castToSVGAnimatedNumberList :: IsGObject obj => obj -> JSM SVGAnimatedNumberList castToSVGAnimatedNumberList = castTo gTypeSVGAnimatedNumberList "SVGAnimatedNumberList" gTypeSVGAnimatedNumberList :: JSM GType gTypeSVGAnimatedNumberList = GType . Object <$> jsg "SVGAnimatedNumberList" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimatedPreserveAspectRatio". -- -- newtype SVGAnimatedPreserveAspectRatio = SVGAnimatedPreserveAspectRatio { unSVGAnimatedPreserveAspectRatio :: JSVal } instance PToJSVal SVGAnimatedPreserveAspectRatio where pToJSVal = unSVGAnimatedPreserveAspectRatio {-# INLINE pToJSVal #-} instance PFromJSVal SVGAnimatedPreserveAspectRatio where pFromJSVal = SVGAnimatedPreserveAspectRatio {-# INLINE pFromJSVal #-} instance ToJSVal SVGAnimatedPreserveAspectRatio where toJSVal = return . unSVGAnimatedPreserveAspectRatio {-# INLINE toJSVal #-} instance FromJSVal SVGAnimatedPreserveAspectRatio where fromJSVal v = fmap SVGAnimatedPreserveAspectRatio <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGAnimatedPreserveAspectRatio where makeObject = makeObject . unSVGAnimatedPreserveAspectRatio instance IsGObject SVGAnimatedPreserveAspectRatio where toGObject = GObject . unSVGAnimatedPreserveAspectRatio {-# INLINE toGObject #-} unsafeCastGObject = SVGAnimatedPreserveAspectRatio . unGObject {-# INLINE unsafeCastGObject #-} castToSVGAnimatedPreserveAspectRatio :: IsGObject obj => obj -> JSM SVGAnimatedPreserveAspectRatio castToSVGAnimatedPreserveAspectRatio = castTo gTypeSVGAnimatedPreserveAspectRatio "SVGAnimatedPreserveAspectRatio" gTypeSVGAnimatedPreserveAspectRatio :: JSM GType gTypeSVGAnimatedPreserveAspectRatio = GType . Object <$> jsg "SVGAnimatedPreserveAspectRatio" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimatedRect". -- -- newtype SVGAnimatedRect = SVGAnimatedRect { unSVGAnimatedRect :: JSVal } instance PToJSVal SVGAnimatedRect where pToJSVal = unSVGAnimatedRect {-# INLINE pToJSVal #-} instance PFromJSVal SVGAnimatedRect where pFromJSVal = SVGAnimatedRect {-# INLINE pFromJSVal #-} instance ToJSVal SVGAnimatedRect where toJSVal = return . unSVGAnimatedRect {-# INLINE toJSVal #-} instance FromJSVal SVGAnimatedRect where fromJSVal v = fmap SVGAnimatedRect <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGAnimatedRect where makeObject = makeObject . unSVGAnimatedRect instance IsGObject SVGAnimatedRect where toGObject = GObject . unSVGAnimatedRect {-# INLINE toGObject #-} unsafeCastGObject = SVGAnimatedRect . unGObject {-# INLINE unsafeCastGObject #-} castToSVGAnimatedRect :: IsGObject obj => obj -> JSM SVGAnimatedRect castToSVGAnimatedRect = castTo gTypeSVGAnimatedRect "SVGAnimatedRect" gTypeSVGAnimatedRect :: JSM GType gTypeSVGAnimatedRect = GType . Object <$> jsg "SVGAnimatedRect" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimatedString". -- -- newtype SVGAnimatedString = SVGAnimatedString { unSVGAnimatedString :: JSVal } instance PToJSVal SVGAnimatedString where pToJSVal = unSVGAnimatedString {-# INLINE pToJSVal #-} instance PFromJSVal SVGAnimatedString where pFromJSVal = SVGAnimatedString {-# INLINE pFromJSVal #-} instance ToJSVal SVGAnimatedString where toJSVal = return . unSVGAnimatedString {-# INLINE toJSVal #-} instance FromJSVal SVGAnimatedString where fromJSVal v = fmap SVGAnimatedString <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGAnimatedString where makeObject = makeObject . unSVGAnimatedString instance IsGObject SVGAnimatedString where toGObject = GObject . unSVGAnimatedString {-# INLINE toGObject #-} unsafeCastGObject = SVGAnimatedString . unGObject {-# INLINE unsafeCastGObject #-} castToSVGAnimatedString :: IsGObject obj => obj -> JSM SVGAnimatedString castToSVGAnimatedString = castTo gTypeSVGAnimatedString "SVGAnimatedString" gTypeSVGAnimatedString :: JSM GType gTypeSVGAnimatedString = GType . Object <$> jsg "SVGAnimatedString" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimatedTransformList". -- -- newtype SVGAnimatedTransformList = SVGAnimatedTransformList { unSVGAnimatedTransformList :: JSVal } instance PToJSVal SVGAnimatedTransformList where pToJSVal = unSVGAnimatedTransformList {-# INLINE pToJSVal #-} instance PFromJSVal SVGAnimatedTransformList where pFromJSVal = SVGAnimatedTransformList {-# INLINE pFromJSVal #-} instance ToJSVal SVGAnimatedTransformList where toJSVal = return . unSVGAnimatedTransformList {-# INLINE toJSVal #-} instance FromJSVal SVGAnimatedTransformList where fromJSVal v = fmap SVGAnimatedTransformList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGAnimatedTransformList where makeObject = makeObject . unSVGAnimatedTransformList instance IsGObject SVGAnimatedTransformList where toGObject = GObject . unSVGAnimatedTransformList {-# INLINE toGObject #-} unsafeCastGObject = SVGAnimatedTransformList . unGObject {-# INLINE unsafeCastGObject #-} castToSVGAnimatedTransformList :: IsGObject obj => obj -> JSM SVGAnimatedTransformList castToSVGAnimatedTransformList = castTo gTypeSVGAnimatedTransformList "SVGAnimatedTransformList" gTypeSVGAnimatedTransformList :: JSM GType gTypeSVGAnimatedTransformList = GType . Object <$> jsg "SVGAnimatedTransformList" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimationElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGAnimationElement = SVGAnimationElement { unSVGAnimationElement :: JSVal } instance PToJSVal SVGAnimationElement where pToJSVal = unSVGAnimationElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGAnimationElement where pFromJSVal = SVGAnimationElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGAnimationElement where toJSVal = return . unSVGAnimationElement {-# INLINE toJSVal #-} instance FromJSVal SVGAnimationElement where fromJSVal v = fmap SVGAnimationElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGAnimationElement where makeObject = makeObject . unSVGAnimationElement class IsSVGElement o => IsSVGAnimationElement o toSVGAnimationElement :: IsSVGAnimationElement o => o -> SVGAnimationElement toSVGAnimationElement = unsafeCastGObject . toGObject instance IsSVGAnimationElement SVGAnimationElement instance IsSVGElement SVGAnimationElement instance IsElement SVGAnimationElement instance IsNode SVGAnimationElement instance IsEventTarget SVGAnimationElement instance IsGObject SVGAnimationElement where toGObject = GObject . unSVGAnimationElement {-# INLINE toGObject #-} unsafeCastGObject = SVGAnimationElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGAnimationElement :: IsGObject obj => obj -> JSM SVGAnimationElement castToSVGAnimationElement = castTo gTypeSVGAnimationElement "SVGAnimationElement" gTypeSVGAnimationElement :: JSM GType gTypeSVGAnimationElement = GType . Object <$> jsg "SVGAnimationElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGCircleElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGCircleElement = SVGCircleElement { unSVGCircleElement :: JSVal } instance PToJSVal SVGCircleElement where pToJSVal = unSVGCircleElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGCircleElement where pFromJSVal = SVGCircleElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGCircleElement where toJSVal = return . unSVGCircleElement {-# INLINE toJSVal #-} instance FromJSVal SVGCircleElement where fromJSVal v = fmap SVGCircleElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGCircleElement where makeObject = makeObject . unSVGCircleElement instance IsSVGGraphicsElement SVGCircleElement instance IsSVGElement SVGCircleElement instance IsElement SVGCircleElement instance IsNode SVGCircleElement instance IsEventTarget SVGCircleElement instance IsGObject SVGCircleElement where toGObject = GObject . unSVGCircleElement {-# INLINE toGObject #-} unsafeCastGObject = SVGCircleElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGCircleElement :: IsGObject obj => obj -> JSM SVGCircleElement castToSVGCircleElement = castTo gTypeSVGCircleElement "SVGCircleElement" gTypeSVGCircleElement :: JSM GType gTypeSVGCircleElement = GType . Object <$> jsg "SVGCircleElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGClipPathElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGClipPathElement = SVGClipPathElement { unSVGClipPathElement :: JSVal } instance PToJSVal SVGClipPathElement where pToJSVal = unSVGClipPathElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGClipPathElement where pFromJSVal = SVGClipPathElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGClipPathElement where toJSVal = return . unSVGClipPathElement {-# INLINE toJSVal #-} instance FromJSVal SVGClipPathElement where fromJSVal v = fmap SVGClipPathElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGClipPathElement where makeObject = makeObject . unSVGClipPathElement instance IsSVGGraphicsElement SVGClipPathElement instance IsSVGElement SVGClipPathElement instance IsElement SVGClipPathElement instance IsNode SVGClipPathElement instance IsEventTarget SVGClipPathElement instance IsGObject SVGClipPathElement where toGObject = GObject . unSVGClipPathElement {-# INLINE toGObject #-} unsafeCastGObject = SVGClipPathElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGClipPathElement :: IsGObject obj => obj -> JSM SVGClipPathElement castToSVGClipPathElement = castTo gTypeSVGClipPathElement "SVGClipPathElement" gTypeSVGClipPathElement :: JSM GType gTypeSVGClipPathElement = GType . Object <$> jsg "SVGClipPathElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGColor". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.CSSValue" -- -- newtype SVGColor = SVGColor { unSVGColor :: JSVal } instance PToJSVal SVGColor where pToJSVal = unSVGColor {-# INLINE pToJSVal #-} instance PFromJSVal SVGColor where pFromJSVal = SVGColor {-# INLINE pFromJSVal #-} instance ToJSVal SVGColor where toJSVal = return . unSVGColor {-# INLINE toJSVal #-} instance FromJSVal SVGColor where fromJSVal v = fmap SVGColor <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGColor where makeObject = makeObject . unSVGColor class IsCSSValue o => IsSVGColor o toSVGColor :: IsSVGColor o => o -> SVGColor toSVGColor = unsafeCastGObject . toGObject instance IsSVGColor SVGColor instance IsCSSValue SVGColor instance IsGObject SVGColor where toGObject = GObject . unSVGColor {-# INLINE toGObject #-} unsafeCastGObject = SVGColor . unGObject {-# INLINE unsafeCastGObject #-} castToSVGColor :: IsGObject obj => obj -> JSM SVGColor castToSVGColor = castTo gTypeSVGColor "SVGColor" gTypeSVGColor :: JSM GType gTypeSVGColor = GType . Object <$> jsg "SVGColor" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGComponentTransferFunctionElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGComponentTransferFunctionElement = SVGComponentTransferFunctionElement { unSVGComponentTransferFunctionElement :: JSVal } instance PToJSVal SVGComponentTransferFunctionElement where pToJSVal = unSVGComponentTransferFunctionElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGComponentTransferFunctionElement where pFromJSVal = SVGComponentTransferFunctionElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGComponentTransferFunctionElement where toJSVal = return . unSVGComponentTransferFunctionElement {-# INLINE toJSVal #-} instance FromJSVal SVGComponentTransferFunctionElement where fromJSVal v = fmap SVGComponentTransferFunctionElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGComponentTransferFunctionElement where makeObject = makeObject . unSVGComponentTransferFunctionElement class IsSVGElement o => IsSVGComponentTransferFunctionElement o toSVGComponentTransferFunctionElement :: IsSVGComponentTransferFunctionElement o => o -> SVGComponentTransferFunctionElement toSVGComponentTransferFunctionElement = unsafeCastGObject . toGObject instance IsSVGComponentTransferFunctionElement SVGComponentTransferFunctionElement instance IsSVGElement SVGComponentTransferFunctionElement instance IsElement SVGComponentTransferFunctionElement instance IsNode SVGComponentTransferFunctionElement instance IsEventTarget SVGComponentTransferFunctionElement instance IsGObject SVGComponentTransferFunctionElement where toGObject = GObject . unSVGComponentTransferFunctionElement {-# INLINE toGObject #-} unsafeCastGObject = SVGComponentTransferFunctionElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGComponentTransferFunctionElement :: IsGObject obj => obj -> JSM SVGComponentTransferFunctionElement castToSVGComponentTransferFunctionElement = castTo gTypeSVGComponentTransferFunctionElement "SVGComponentTransferFunctionElement" gTypeSVGComponentTransferFunctionElement :: JSM GType gTypeSVGComponentTransferFunctionElement = GType . Object <$> jsg "SVGComponentTransferFunctionElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGCursorElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGCursorElement = SVGCursorElement { unSVGCursorElement :: JSVal } instance PToJSVal SVGCursorElement where pToJSVal = unSVGCursorElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGCursorElement where pFromJSVal = SVGCursorElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGCursorElement where toJSVal = return . unSVGCursorElement {-# INLINE toJSVal #-} instance FromJSVal SVGCursorElement where fromJSVal v = fmap SVGCursorElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGCursorElement where makeObject = makeObject . unSVGCursorElement instance IsSVGElement SVGCursorElement instance IsElement SVGCursorElement instance IsNode SVGCursorElement instance IsEventTarget SVGCursorElement instance IsGObject SVGCursorElement where toGObject = GObject . unSVGCursorElement {-# INLINE toGObject #-} unsafeCastGObject = SVGCursorElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGCursorElement :: IsGObject obj => obj -> JSM SVGCursorElement castToSVGCursorElement = castTo gTypeSVGCursorElement "SVGCursorElement" gTypeSVGCursorElement :: JSM GType gTypeSVGCursorElement = GType . Object <$> jsg "SVGCursorElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGDefsElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGDefsElement = SVGDefsElement { unSVGDefsElement :: JSVal } instance PToJSVal SVGDefsElement where pToJSVal = unSVGDefsElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGDefsElement where pFromJSVal = SVGDefsElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGDefsElement where toJSVal = return . unSVGDefsElement {-# INLINE toJSVal #-} instance FromJSVal SVGDefsElement where fromJSVal v = fmap SVGDefsElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGDefsElement where makeObject = makeObject . unSVGDefsElement instance IsSVGGraphicsElement SVGDefsElement instance IsSVGElement SVGDefsElement instance IsElement SVGDefsElement instance IsNode SVGDefsElement instance IsEventTarget SVGDefsElement instance IsGObject SVGDefsElement where toGObject = GObject . unSVGDefsElement {-# INLINE toGObject #-} unsafeCastGObject = SVGDefsElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGDefsElement :: IsGObject obj => obj -> JSM SVGDefsElement castToSVGDefsElement = castTo gTypeSVGDefsElement "SVGDefsElement" gTypeSVGDefsElement :: JSM GType gTypeSVGDefsElement = GType . Object <$> jsg "SVGDefsElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGDescElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGDescElement = SVGDescElement { unSVGDescElement :: JSVal } instance PToJSVal SVGDescElement where pToJSVal = unSVGDescElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGDescElement where pFromJSVal = SVGDescElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGDescElement where toJSVal = return . unSVGDescElement {-# INLINE toJSVal #-} instance FromJSVal SVGDescElement where fromJSVal v = fmap SVGDescElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGDescElement where makeObject = makeObject . unSVGDescElement instance IsSVGElement SVGDescElement instance IsElement SVGDescElement instance IsNode SVGDescElement instance IsEventTarget SVGDescElement instance IsGObject SVGDescElement where toGObject = GObject . unSVGDescElement {-# INLINE toGObject #-} unsafeCastGObject = SVGDescElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGDescElement :: IsGObject obj => obj -> JSM SVGDescElement castToSVGDescElement = castTo gTypeSVGDescElement "SVGDescElement" gTypeSVGDescElement :: JSM GType gTypeSVGDescElement = GType . Object <$> jsg "SVGDescElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGDocument". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Document" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGDocument = SVGDocument { unSVGDocument :: JSVal } instance PToJSVal SVGDocument where pToJSVal = unSVGDocument {-# INLINE pToJSVal #-} instance PFromJSVal SVGDocument where pFromJSVal = SVGDocument {-# INLINE pFromJSVal #-} instance ToJSVal SVGDocument where toJSVal = return . unSVGDocument {-# INLINE toJSVal #-} instance FromJSVal SVGDocument where fromJSVal v = fmap SVGDocument <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGDocument where makeObject = makeObject . unSVGDocument instance IsDocument SVGDocument instance IsNode SVGDocument instance IsEventTarget SVGDocument instance IsGObject SVGDocument where toGObject = GObject . unSVGDocument {-# INLINE toGObject #-} unsafeCastGObject = SVGDocument . unGObject {-# INLINE unsafeCastGObject #-} castToSVGDocument :: IsGObject obj => obj -> JSM SVGDocument castToSVGDocument = castTo gTypeSVGDocument "SVGDocument" gTypeSVGDocument :: JSM GType gTypeSVGDocument = GType . Object <$> jsg "SVGDocument" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGElement = SVGElement { unSVGElement :: JSVal } instance PToJSVal SVGElement where pToJSVal = unSVGElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGElement where pFromJSVal = SVGElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGElement where toJSVal = return . unSVGElement {-# INLINE toJSVal #-} instance FromJSVal SVGElement where fromJSVal v = fmap SVGElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGElement where makeObject = makeObject . unSVGElement class IsElement o => IsSVGElement o toSVGElement :: IsSVGElement o => o -> SVGElement toSVGElement = unsafeCastGObject . toGObject instance IsSVGElement SVGElement instance IsElement SVGElement instance IsNode SVGElement instance IsEventTarget SVGElement instance IsGObject SVGElement where toGObject = GObject . unSVGElement {-# INLINE toGObject #-} unsafeCastGObject = SVGElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGElement :: IsGObject obj => obj -> JSM SVGElement castToSVGElement = castTo gTypeSVGElement "SVGElement" gTypeSVGElement :: JSM GType gTypeSVGElement = GType . Object <$> jsg "SVGElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGEllipseElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGEllipseElement = SVGEllipseElement { unSVGEllipseElement :: JSVal } instance PToJSVal SVGEllipseElement where pToJSVal = unSVGEllipseElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGEllipseElement where pFromJSVal = SVGEllipseElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGEllipseElement where toJSVal = return . unSVGEllipseElement {-# INLINE toJSVal #-} instance FromJSVal SVGEllipseElement where fromJSVal v = fmap SVGEllipseElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGEllipseElement where makeObject = makeObject . unSVGEllipseElement instance IsSVGGraphicsElement SVGEllipseElement instance IsSVGElement SVGEllipseElement instance IsElement SVGEllipseElement instance IsNode SVGEllipseElement instance IsEventTarget SVGEllipseElement instance IsGObject SVGEllipseElement where toGObject = GObject . unSVGEllipseElement {-# INLINE toGObject #-} unsafeCastGObject = SVGEllipseElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGEllipseElement :: IsGObject obj => obj -> JSM SVGEllipseElement castToSVGEllipseElement = castTo gTypeSVGEllipseElement "SVGEllipseElement" gTypeSVGEllipseElement :: JSM GType gTypeSVGEllipseElement = GType . Object <$> jsg "SVGEllipseElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGExternalResourcesRequired". -- -- newtype SVGExternalResourcesRequired = SVGExternalResourcesRequired { unSVGExternalResourcesRequired :: JSVal } instance PToJSVal SVGExternalResourcesRequired where pToJSVal = unSVGExternalResourcesRequired {-# INLINE pToJSVal #-} instance PFromJSVal SVGExternalResourcesRequired where pFromJSVal = SVGExternalResourcesRequired {-# INLINE pFromJSVal #-} instance ToJSVal SVGExternalResourcesRequired where toJSVal = return . unSVGExternalResourcesRequired {-# INLINE toJSVal #-} instance FromJSVal SVGExternalResourcesRequired where fromJSVal v = fmap SVGExternalResourcesRequired <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGExternalResourcesRequired where makeObject = makeObject . unSVGExternalResourcesRequired instance IsGObject SVGExternalResourcesRequired where toGObject = GObject . unSVGExternalResourcesRequired {-# INLINE toGObject #-} unsafeCastGObject = SVGExternalResourcesRequired . unGObject {-# INLINE unsafeCastGObject #-} castToSVGExternalResourcesRequired :: IsGObject obj => obj -> JSM SVGExternalResourcesRequired castToSVGExternalResourcesRequired = castTo gTypeSVGExternalResourcesRequired "SVGExternalResourcesRequired" gTypeSVGExternalResourcesRequired :: JSM GType gTypeSVGExternalResourcesRequired = GType . Object <$> jsg "SVGExternalResourcesRequired" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEBlendElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFEBlendElement = SVGFEBlendElement { unSVGFEBlendElement :: JSVal } instance PToJSVal SVGFEBlendElement where pToJSVal = unSVGFEBlendElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFEBlendElement where pFromJSVal = SVGFEBlendElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFEBlendElement where toJSVal = return . unSVGFEBlendElement {-# INLINE toJSVal #-} instance FromJSVal SVGFEBlendElement where fromJSVal v = fmap SVGFEBlendElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFEBlendElement where makeObject = makeObject . unSVGFEBlendElement instance IsSVGElement SVGFEBlendElement instance IsElement SVGFEBlendElement instance IsNode SVGFEBlendElement instance IsEventTarget SVGFEBlendElement instance IsGObject SVGFEBlendElement where toGObject = GObject . unSVGFEBlendElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFEBlendElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFEBlendElement :: IsGObject obj => obj -> JSM SVGFEBlendElement castToSVGFEBlendElement = castTo gTypeSVGFEBlendElement "SVGFEBlendElement" gTypeSVGFEBlendElement :: JSM GType gTypeSVGFEBlendElement = GType . Object <$> jsg "SVGFEBlendElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEColorMatrixElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFEColorMatrixElement = SVGFEColorMatrixElement { unSVGFEColorMatrixElement :: JSVal } instance PToJSVal SVGFEColorMatrixElement where pToJSVal = unSVGFEColorMatrixElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFEColorMatrixElement where pFromJSVal = SVGFEColorMatrixElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFEColorMatrixElement where toJSVal = return . unSVGFEColorMatrixElement {-# INLINE toJSVal #-} instance FromJSVal SVGFEColorMatrixElement where fromJSVal v = fmap SVGFEColorMatrixElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFEColorMatrixElement where makeObject = makeObject . unSVGFEColorMatrixElement instance IsSVGElement SVGFEColorMatrixElement instance IsElement SVGFEColorMatrixElement instance IsNode SVGFEColorMatrixElement instance IsEventTarget SVGFEColorMatrixElement instance IsGObject SVGFEColorMatrixElement where toGObject = GObject . unSVGFEColorMatrixElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFEColorMatrixElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFEColorMatrixElement :: IsGObject obj => obj -> JSM SVGFEColorMatrixElement castToSVGFEColorMatrixElement = castTo gTypeSVGFEColorMatrixElement "SVGFEColorMatrixElement" gTypeSVGFEColorMatrixElement :: JSM GType gTypeSVGFEColorMatrixElement = GType . Object <$> jsg "SVGFEColorMatrixElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEComponentTransferElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFEComponentTransferElement = SVGFEComponentTransferElement { unSVGFEComponentTransferElement :: JSVal } instance PToJSVal SVGFEComponentTransferElement where pToJSVal = unSVGFEComponentTransferElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFEComponentTransferElement where pFromJSVal = SVGFEComponentTransferElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFEComponentTransferElement where toJSVal = return . unSVGFEComponentTransferElement {-# INLINE toJSVal #-} instance FromJSVal SVGFEComponentTransferElement where fromJSVal v = fmap SVGFEComponentTransferElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFEComponentTransferElement where makeObject = makeObject . unSVGFEComponentTransferElement instance IsSVGElement SVGFEComponentTransferElement instance IsElement SVGFEComponentTransferElement instance IsNode SVGFEComponentTransferElement instance IsEventTarget SVGFEComponentTransferElement instance IsGObject SVGFEComponentTransferElement where toGObject = GObject . unSVGFEComponentTransferElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFEComponentTransferElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFEComponentTransferElement :: IsGObject obj => obj -> JSM SVGFEComponentTransferElement castToSVGFEComponentTransferElement = castTo gTypeSVGFEComponentTransferElement "SVGFEComponentTransferElement" gTypeSVGFEComponentTransferElement :: JSM GType gTypeSVGFEComponentTransferElement = GType . Object <$> jsg "SVGFEComponentTransferElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFECompositeElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFECompositeElement = SVGFECompositeElement { unSVGFECompositeElement :: JSVal } instance PToJSVal SVGFECompositeElement where pToJSVal = unSVGFECompositeElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFECompositeElement where pFromJSVal = SVGFECompositeElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFECompositeElement where toJSVal = return . unSVGFECompositeElement {-# INLINE toJSVal #-} instance FromJSVal SVGFECompositeElement where fromJSVal v = fmap SVGFECompositeElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFECompositeElement where makeObject = makeObject . unSVGFECompositeElement instance IsSVGElement SVGFECompositeElement instance IsElement SVGFECompositeElement instance IsNode SVGFECompositeElement instance IsEventTarget SVGFECompositeElement instance IsGObject SVGFECompositeElement where toGObject = GObject . unSVGFECompositeElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFECompositeElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFECompositeElement :: IsGObject obj => obj -> JSM SVGFECompositeElement castToSVGFECompositeElement = castTo gTypeSVGFECompositeElement "SVGFECompositeElement" gTypeSVGFECompositeElement :: JSM GType gTypeSVGFECompositeElement = GType . Object <$> jsg "SVGFECompositeElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEConvolveMatrixElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFEConvolveMatrixElement = SVGFEConvolveMatrixElement { unSVGFEConvolveMatrixElement :: JSVal } instance PToJSVal SVGFEConvolveMatrixElement where pToJSVal = unSVGFEConvolveMatrixElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFEConvolveMatrixElement where pFromJSVal = SVGFEConvolveMatrixElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFEConvolveMatrixElement where toJSVal = return . unSVGFEConvolveMatrixElement {-# INLINE toJSVal #-} instance FromJSVal SVGFEConvolveMatrixElement where fromJSVal v = fmap SVGFEConvolveMatrixElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFEConvolveMatrixElement where makeObject = makeObject . unSVGFEConvolveMatrixElement instance IsSVGElement SVGFEConvolveMatrixElement instance IsElement SVGFEConvolveMatrixElement instance IsNode SVGFEConvolveMatrixElement instance IsEventTarget SVGFEConvolveMatrixElement instance IsGObject SVGFEConvolveMatrixElement where toGObject = GObject . unSVGFEConvolveMatrixElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFEConvolveMatrixElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFEConvolveMatrixElement :: IsGObject obj => obj -> JSM SVGFEConvolveMatrixElement castToSVGFEConvolveMatrixElement = castTo gTypeSVGFEConvolveMatrixElement "SVGFEConvolveMatrixElement" gTypeSVGFEConvolveMatrixElement :: JSM GType gTypeSVGFEConvolveMatrixElement = GType . Object <$> jsg "SVGFEConvolveMatrixElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEDiffuseLightingElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFEDiffuseLightingElement = SVGFEDiffuseLightingElement { unSVGFEDiffuseLightingElement :: JSVal } instance PToJSVal SVGFEDiffuseLightingElement where pToJSVal = unSVGFEDiffuseLightingElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFEDiffuseLightingElement where pFromJSVal = SVGFEDiffuseLightingElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFEDiffuseLightingElement where toJSVal = return . unSVGFEDiffuseLightingElement {-# INLINE toJSVal #-} instance FromJSVal SVGFEDiffuseLightingElement where fromJSVal v = fmap SVGFEDiffuseLightingElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFEDiffuseLightingElement where makeObject = makeObject . unSVGFEDiffuseLightingElement instance IsSVGElement SVGFEDiffuseLightingElement instance IsElement SVGFEDiffuseLightingElement instance IsNode SVGFEDiffuseLightingElement instance IsEventTarget SVGFEDiffuseLightingElement instance IsGObject SVGFEDiffuseLightingElement where toGObject = GObject . unSVGFEDiffuseLightingElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFEDiffuseLightingElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFEDiffuseLightingElement :: IsGObject obj => obj -> JSM SVGFEDiffuseLightingElement castToSVGFEDiffuseLightingElement = castTo gTypeSVGFEDiffuseLightingElement "SVGFEDiffuseLightingElement" gTypeSVGFEDiffuseLightingElement :: JSM GType gTypeSVGFEDiffuseLightingElement = GType . Object <$> jsg "SVGFEDiffuseLightingElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEDisplacementMapElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFEDisplacementMapElement = SVGFEDisplacementMapElement { unSVGFEDisplacementMapElement :: JSVal } instance PToJSVal SVGFEDisplacementMapElement where pToJSVal = unSVGFEDisplacementMapElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFEDisplacementMapElement where pFromJSVal = SVGFEDisplacementMapElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFEDisplacementMapElement where toJSVal = return . unSVGFEDisplacementMapElement {-# INLINE toJSVal #-} instance FromJSVal SVGFEDisplacementMapElement where fromJSVal v = fmap SVGFEDisplacementMapElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFEDisplacementMapElement where makeObject = makeObject . unSVGFEDisplacementMapElement instance IsSVGElement SVGFEDisplacementMapElement instance IsElement SVGFEDisplacementMapElement instance IsNode SVGFEDisplacementMapElement instance IsEventTarget SVGFEDisplacementMapElement instance IsGObject SVGFEDisplacementMapElement where toGObject = GObject . unSVGFEDisplacementMapElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFEDisplacementMapElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFEDisplacementMapElement :: IsGObject obj => obj -> JSM SVGFEDisplacementMapElement castToSVGFEDisplacementMapElement = castTo gTypeSVGFEDisplacementMapElement "SVGFEDisplacementMapElement" gTypeSVGFEDisplacementMapElement :: JSM GType gTypeSVGFEDisplacementMapElement = GType . Object <$> jsg "SVGFEDisplacementMapElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEDistantLightElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFEDistantLightElement = SVGFEDistantLightElement { unSVGFEDistantLightElement :: JSVal } instance PToJSVal SVGFEDistantLightElement where pToJSVal = unSVGFEDistantLightElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFEDistantLightElement where pFromJSVal = SVGFEDistantLightElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFEDistantLightElement where toJSVal = return . unSVGFEDistantLightElement {-# INLINE toJSVal #-} instance FromJSVal SVGFEDistantLightElement where fromJSVal v = fmap SVGFEDistantLightElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFEDistantLightElement where makeObject = makeObject . unSVGFEDistantLightElement instance IsSVGElement SVGFEDistantLightElement instance IsElement SVGFEDistantLightElement instance IsNode SVGFEDistantLightElement instance IsEventTarget SVGFEDistantLightElement instance IsGObject SVGFEDistantLightElement where toGObject = GObject . unSVGFEDistantLightElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFEDistantLightElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFEDistantLightElement :: IsGObject obj => obj -> JSM SVGFEDistantLightElement castToSVGFEDistantLightElement = castTo gTypeSVGFEDistantLightElement "SVGFEDistantLightElement" gTypeSVGFEDistantLightElement :: JSM GType gTypeSVGFEDistantLightElement = GType . Object <$> jsg "SVGFEDistantLightElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEDropShadowElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFEDropShadowElement = SVGFEDropShadowElement { unSVGFEDropShadowElement :: JSVal } instance PToJSVal SVGFEDropShadowElement where pToJSVal = unSVGFEDropShadowElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFEDropShadowElement where pFromJSVal = SVGFEDropShadowElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFEDropShadowElement where toJSVal = return . unSVGFEDropShadowElement {-# INLINE toJSVal #-} instance FromJSVal SVGFEDropShadowElement where fromJSVal v = fmap SVGFEDropShadowElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFEDropShadowElement where makeObject = makeObject . unSVGFEDropShadowElement instance IsSVGElement SVGFEDropShadowElement instance IsElement SVGFEDropShadowElement instance IsNode SVGFEDropShadowElement instance IsEventTarget SVGFEDropShadowElement instance IsGObject SVGFEDropShadowElement where toGObject = GObject . unSVGFEDropShadowElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFEDropShadowElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFEDropShadowElement :: IsGObject obj => obj -> JSM SVGFEDropShadowElement castToSVGFEDropShadowElement = castTo gTypeSVGFEDropShadowElement "SVGFEDropShadowElement" gTypeSVGFEDropShadowElement :: JSM GType gTypeSVGFEDropShadowElement = GType . Object <$> jsg "SVGFEDropShadowElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEFloodElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFEFloodElement = SVGFEFloodElement { unSVGFEFloodElement :: JSVal } instance PToJSVal SVGFEFloodElement where pToJSVal = unSVGFEFloodElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFEFloodElement where pFromJSVal = SVGFEFloodElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFEFloodElement where toJSVal = return . unSVGFEFloodElement {-# INLINE toJSVal #-} instance FromJSVal SVGFEFloodElement where fromJSVal v = fmap SVGFEFloodElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFEFloodElement where makeObject = makeObject . unSVGFEFloodElement instance IsSVGElement SVGFEFloodElement instance IsElement SVGFEFloodElement instance IsNode SVGFEFloodElement instance IsEventTarget SVGFEFloodElement instance IsGObject SVGFEFloodElement where toGObject = GObject . unSVGFEFloodElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFEFloodElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFEFloodElement :: IsGObject obj => obj -> JSM SVGFEFloodElement castToSVGFEFloodElement = castTo gTypeSVGFEFloodElement "SVGFEFloodElement" gTypeSVGFEFloodElement :: JSM GType gTypeSVGFEFloodElement = GType . Object <$> jsg "SVGFEFloodElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEFuncAElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGComponentTransferFunctionElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFEFuncAElement = SVGFEFuncAElement { unSVGFEFuncAElement :: JSVal } instance PToJSVal SVGFEFuncAElement where pToJSVal = unSVGFEFuncAElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFEFuncAElement where pFromJSVal = SVGFEFuncAElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFEFuncAElement where toJSVal = return . unSVGFEFuncAElement {-# INLINE toJSVal #-} instance FromJSVal SVGFEFuncAElement where fromJSVal v = fmap SVGFEFuncAElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFEFuncAElement where makeObject = makeObject . unSVGFEFuncAElement instance IsSVGComponentTransferFunctionElement SVGFEFuncAElement instance IsSVGElement SVGFEFuncAElement instance IsElement SVGFEFuncAElement instance IsNode SVGFEFuncAElement instance IsEventTarget SVGFEFuncAElement instance IsGObject SVGFEFuncAElement where toGObject = GObject . unSVGFEFuncAElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFEFuncAElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFEFuncAElement :: IsGObject obj => obj -> JSM SVGFEFuncAElement castToSVGFEFuncAElement = castTo gTypeSVGFEFuncAElement "SVGFEFuncAElement" gTypeSVGFEFuncAElement :: JSM GType gTypeSVGFEFuncAElement = GType . Object <$> jsg "SVGFEFuncAElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEFuncBElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGComponentTransferFunctionElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFEFuncBElement = SVGFEFuncBElement { unSVGFEFuncBElement :: JSVal } instance PToJSVal SVGFEFuncBElement where pToJSVal = unSVGFEFuncBElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFEFuncBElement where pFromJSVal = SVGFEFuncBElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFEFuncBElement where toJSVal = return . unSVGFEFuncBElement {-# INLINE toJSVal #-} instance FromJSVal SVGFEFuncBElement where fromJSVal v = fmap SVGFEFuncBElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFEFuncBElement where makeObject = makeObject . unSVGFEFuncBElement instance IsSVGComponentTransferFunctionElement SVGFEFuncBElement instance IsSVGElement SVGFEFuncBElement instance IsElement SVGFEFuncBElement instance IsNode SVGFEFuncBElement instance IsEventTarget SVGFEFuncBElement instance IsGObject SVGFEFuncBElement where toGObject = GObject . unSVGFEFuncBElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFEFuncBElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFEFuncBElement :: IsGObject obj => obj -> JSM SVGFEFuncBElement castToSVGFEFuncBElement = castTo gTypeSVGFEFuncBElement "SVGFEFuncBElement" gTypeSVGFEFuncBElement :: JSM GType gTypeSVGFEFuncBElement = GType . Object <$> jsg "SVGFEFuncBElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEFuncGElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGComponentTransferFunctionElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFEFuncGElement = SVGFEFuncGElement { unSVGFEFuncGElement :: JSVal } instance PToJSVal SVGFEFuncGElement where pToJSVal = unSVGFEFuncGElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFEFuncGElement where pFromJSVal = SVGFEFuncGElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFEFuncGElement where toJSVal = return . unSVGFEFuncGElement {-# INLINE toJSVal #-} instance FromJSVal SVGFEFuncGElement where fromJSVal v = fmap SVGFEFuncGElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFEFuncGElement where makeObject = makeObject . unSVGFEFuncGElement instance IsSVGComponentTransferFunctionElement SVGFEFuncGElement instance IsSVGElement SVGFEFuncGElement instance IsElement SVGFEFuncGElement instance IsNode SVGFEFuncGElement instance IsEventTarget SVGFEFuncGElement instance IsGObject SVGFEFuncGElement where toGObject = GObject . unSVGFEFuncGElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFEFuncGElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFEFuncGElement :: IsGObject obj => obj -> JSM SVGFEFuncGElement castToSVGFEFuncGElement = castTo gTypeSVGFEFuncGElement "SVGFEFuncGElement" gTypeSVGFEFuncGElement :: JSM GType gTypeSVGFEFuncGElement = GType . Object <$> jsg "SVGFEFuncGElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEFuncRElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGComponentTransferFunctionElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFEFuncRElement = SVGFEFuncRElement { unSVGFEFuncRElement :: JSVal } instance PToJSVal SVGFEFuncRElement where pToJSVal = unSVGFEFuncRElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFEFuncRElement where pFromJSVal = SVGFEFuncRElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFEFuncRElement where toJSVal = return . unSVGFEFuncRElement {-# INLINE toJSVal #-} instance FromJSVal SVGFEFuncRElement where fromJSVal v = fmap SVGFEFuncRElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFEFuncRElement where makeObject = makeObject . unSVGFEFuncRElement instance IsSVGComponentTransferFunctionElement SVGFEFuncRElement instance IsSVGElement SVGFEFuncRElement instance IsElement SVGFEFuncRElement instance IsNode SVGFEFuncRElement instance IsEventTarget SVGFEFuncRElement instance IsGObject SVGFEFuncRElement where toGObject = GObject . unSVGFEFuncRElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFEFuncRElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFEFuncRElement :: IsGObject obj => obj -> JSM SVGFEFuncRElement castToSVGFEFuncRElement = castTo gTypeSVGFEFuncRElement "SVGFEFuncRElement" gTypeSVGFEFuncRElement :: JSM GType gTypeSVGFEFuncRElement = GType . Object <$> jsg "SVGFEFuncRElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEGaussianBlurElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFEGaussianBlurElement = SVGFEGaussianBlurElement { unSVGFEGaussianBlurElement :: JSVal } instance PToJSVal SVGFEGaussianBlurElement where pToJSVal = unSVGFEGaussianBlurElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFEGaussianBlurElement where pFromJSVal = SVGFEGaussianBlurElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFEGaussianBlurElement where toJSVal = return . unSVGFEGaussianBlurElement {-# INLINE toJSVal #-} instance FromJSVal SVGFEGaussianBlurElement where fromJSVal v = fmap SVGFEGaussianBlurElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFEGaussianBlurElement where makeObject = makeObject . unSVGFEGaussianBlurElement instance IsSVGElement SVGFEGaussianBlurElement instance IsElement SVGFEGaussianBlurElement instance IsNode SVGFEGaussianBlurElement instance IsEventTarget SVGFEGaussianBlurElement instance IsGObject SVGFEGaussianBlurElement where toGObject = GObject . unSVGFEGaussianBlurElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFEGaussianBlurElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFEGaussianBlurElement :: IsGObject obj => obj -> JSM SVGFEGaussianBlurElement castToSVGFEGaussianBlurElement = castTo gTypeSVGFEGaussianBlurElement "SVGFEGaussianBlurElement" gTypeSVGFEGaussianBlurElement :: JSM GType gTypeSVGFEGaussianBlurElement = GType . Object <$> jsg "SVGFEGaussianBlurElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEImageElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFEImageElement = SVGFEImageElement { unSVGFEImageElement :: JSVal } instance PToJSVal SVGFEImageElement where pToJSVal = unSVGFEImageElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFEImageElement where pFromJSVal = SVGFEImageElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFEImageElement where toJSVal = return . unSVGFEImageElement {-# INLINE toJSVal #-} instance FromJSVal SVGFEImageElement where fromJSVal v = fmap SVGFEImageElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFEImageElement where makeObject = makeObject . unSVGFEImageElement instance IsSVGElement SVGFEImageElement instance IsElement SVGFEImageElement instance IsNode SVGFEImageElement instance IsEventTarget SVGFEImageElement instance IsGObject SVGFEImageElement where toGObject = GObject . unSVGFEImageElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFEImageElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFEImageElement :: IsGObject obj => obj -> JSM SVGFEImageElement castToSVGFEImageElement = castTo gTypeSVGFEImageElement "SVGFEImageElement" gTypeSVGFEImageElement :: JSM GType gTypeSVGFEImageElement = GType . Object <$> jsg "SVGFEImageElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEMergeElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFEMergeElement = SVGFEMergeElement { unSVGFEMergeElement :: JSVal } instance PToJSVal SVGFEMergeElement where pToJSVal = unSVGFEMergeElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFEMergeElement where pFromJSVal = SVGFEMergeElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFEMergeElement where toJSVal = return . unSVGFEMergeElement {-# INLINE toJSVal #-} instance FromJSVal SVGFEMergeElement where fromJSVal v = fmap SVGFEMergeElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFEMergeElement where makeObject = makeObject . unSVGFEMergeElement instance IsSVGElement SVGFEMergeElement instance IsElement SVGFEMergeElement instance IsNode SVGFEMergeElement instance IsEventTarget SVGFEMergeElement instance IsGObject SVGFEMergeElement where toGObject = GObject . unSVGFEMergeElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFEMergeElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFEMergeElement :: IsGObject obj => obj -> JSM SVGFEMergeElement castToSVGFEMergeElement = castTo gTypeSVGFEMergeElement "SVGFEMergeElement" gTypeSVGFEMergeElement :: JSM GType gTypeSVGFEMergeElement = GType . Object <$> jsg "SVGFEMergeElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEMergeNodeElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFEMergeNodeElement = SVGFEMergeNodeElement { unSVGFEMergeNodeElement :: JSVal } instance PToJSVal SVGFEMergeNodeElement where pToJSVal = unSVGFEMergeNodeElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFEMergeNodeElement where pFromJSVal = SVGFEMergeNodeElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFEMergeNodeElement where toJSVal = return . unSVGFEMergeNodeElement {-# INLINE toJSVal #-} instance FromJSVal SVGFEMergeNodeElement where fromJSVal v = fmap SVGFEMergeNodeElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFEMergeNodeElement where makeObject = makeObject . unSVGFEMergeNodeElement instance IsSVGElement SVGFEMergeNodeElement instance IsElement SVGFEMergeNodeElement instance IsNode SVGFEMergeNodeElement instance IsEventTarget SVGFEMergeNodeElement instance IsGObject SVGFEMergeNodeElement where toGObject = GObject . unSVGFEMergeNodeElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFEMergeNodeElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFEMergeNodeElement :: IsGObject obj => obj -> JSM SVGFEMergeNodeElement castToSVGFEMergeNodeElement = castTo gTypeSVGFEMergeNodeElement "SVGFEMergeNodeElement" gTypeSVGFEMergeNodeElement :: JSM GType gTypeSVGFEMergeNodeElement = GType . Object <$> jsg "SVGFEMergeNodeElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEMorphologyElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFEMorphologyElement = SVGFEMorphologyElement { unSVGFEMorphologyElement :: JSVal } instance PToJSVal SVGFEMorphologyElement where pToJSVal = unSVGFEMorphologyElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFEMorphologyElement where pFromJSVal = SVGFEMorphologyElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFEMorphologyElement where toJSVal = return . unSVGFEMorphologyElement {-# INLINE toJSVal #-} instance FromJSVal SVGFEMorphologyElement where fromJSVal v = fmap SVGFEMorphologyElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFEMorphologyElement where makeObject = makeObject . unSVGFEMorphologyElement instance IsSVGElement SVGFEMorphologyElement instance IsElement SVGFEMorphologyElement instance IsNode SVGFEMorphologyElement instance IsEventTarget SVGFEMorphologyElement instance IsGObject SVGFEMorphologyElement where toGObject = GObject . unSVGFEMorphologyElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFEMorphologyElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFEMorphologyElement :: IsGObject obj => obj -> JSM SVGFEMorphologyElement castToSVGFEMorphologyElement = castTo gTypeSVGFEMorphologyElement "SVGFEMorphologyElement" gTypeSVGFEMorphologyElement :: JSM GType gTypeSVGFEMorphologyElement = GType . Object <$> jsg "SVGFEMorphologyElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEOffsetElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFEOffsetElement = SVGFEOffsetElement { unSVGFEOffsetElement :: JSVal } instance PToJSVal SVGFEOffsetElement where pToJSVal = unSVGFEOffsetElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFEOffsetElement where pFromJSVal = SVGFEOffsetElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFEOffsetElement where toJSVal = return . unSVGFEOffsetElement {-# INLINE toJSVal #-} instance FromJSVal SVGFEOffsetElement where fromJSVal v = fmap SVGFEOffsetElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFEOffsetElement where makeObject = makeObject . unSVGFEOffsetElement instance IsSVGElement SVGFEOffsetElement instance IsElement SVGFEOffsetElement instance IsNode SVGFEOffsetElement instance IsEventTarget SVGFEOffsetElement instance IsGObject SVGFEOffsetElement where toGObject = GObject . unSVGFEOffsetElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFEOffsetElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFEOffsetElement :: IsGObject obj => obj -> JSM SVGFEOffsetElement castToSVGFEOffsetElement = castTo gTypeSVGFEOffsetElement "SVGFEOffsetElement" gTypeSVGFEOffsetElement :: JSM GType gTypeSVGFEOffsetElement = GType . Object <$> jsg "SVGFEOffsetElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEPointLightElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFEPointLightElement = SVGFEPointLightElement { unSVGFEPointLightElement :: JSVal } instance PToJSVal SVGFEPointLightElement where pToJSVal = unSVGFEPointLightElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFEPointLightElement where pFromJSVal = SVGFEPointLightElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFEPointLightElement where toJSVal = return . unSVGFEPointLightElement {-# INLINE toJSVal #-} instance FromJSVal SVGFEPointLightElement where fromJSVal v = fmap SVGFEPointLightElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFEPointLightElement where makeObject = makeObject . unSVGFEPointLightElement instance IsSVGElement SVGFEPointLightElement instance IsElement SVGFEPointLightElement instance IsNode SVGFEPointLightElement instance IsEventTarget SVGFEPointLightElement instance IsGObject SVGFEPointLightElement where toGObject = GObject . unSVGFEPointLightElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFEPointLightElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFEPointLightElement :: IsGObject obj => obj -> JSM SVGFEPointLightElement castToSVGFEPointLightElement = castTo gTypeSVGFEPointLightElement "SVGFEPointLightElement" gTypeSVGFEPointLightElement :: JSM GType gTypeSVGFEPointLightElement = GType . Object <$> jsg "SVGFEPointLightElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFESpecularLightingElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFESpecularLightingElement = SVGFESpecularLightingElement { unSVGFESpecularLightingElement :: JSVal } instance PToJSVal SVGFESpecularLightingElement where pToJSVal = unSVGFESpecularLightingElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFESpecularLightingElement where pFromJSVal = SVGFESpecularLightingElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFESpecularLightingElement where toJSVal = return . unSVGFESpecularLightingElement {-# INLINE toJSVal #-} instance FromJSVal SVGFESpecularLightingElement where fromJSVal v = fmap SVGFESpecularLightingElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFESpecularLightingElement where makeObject = makeObject . unSVGFESpecularLightingElement instance IsSVGElement SVGFESpecularLightingElement instance IsElement SVGFESpecularLightingElement instance IsNode SVGFESpecularLightingElement instance IsEventTarget SVGFESpecularLightingElement instance IsGObject SVGFESpecularLightingElement where toGObject = GObject . unSVGFESpecularLightingElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFESpecularLightingElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFESpecularLightingElement :: IsGObject obj => obj -> JSM SVGFESpecularLightingElement castToSVGFESpecularLightingElement = castTo gTypeSVGFESpecularLightingElement "SVGFESpecularLightingElement" gTypeSVGFESpecularLightingElement :: JSM GType gTypeSVGFESpecularLightingElement = GType . Object <$> jsg "SVGFESpecularLightingElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFESpotLightElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFESpotLightElement = SVGFESpotLightElement { unSVGFESpotLightElement :: JSVal } instance PToJSVal SVGFESpotLightElement where pToJSVal = unSVGFESpotLightElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFESpotLightElement where pFromJSVal = SVGFESpotLightElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFESpotLightElement where toJSVal = return . unSVGFESpotLightElement {-# INLINE toJSVal #-} instance FromJSVal SVGFESpotLightElement where fromJSVal v = fmap SVGFESpotLightElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFESpotLightElement where makeObject = makeObject . unSVGFESpotLightElement instance IsSVGElement SVGFESpotLightElement instance IsElement SVGFESpotLightElement instance IsNode SVGFESpotLightElement instance IsEventTarget SVGFESpotLightElement instance IsGObject SVGFESpotLightElement where toGObject = GObject . unSVGFESpotLightElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFESpotLightElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFESpotLightElement :: IsGObject obj => obj -> JSM SVGFESpotLightElement castToSVGFESpotLightElement = castTo gTypeSVGFESpotLightElement "SVGFESpotLightElement" gTypeSVGFESpotLightElement :: JSM GType gTypeSVGFESpotLightElement = GType . Object <$> jsg "SVGFESpotLightElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFETileElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFETileElement = SVGFETileElement { unSVGFETileElement :: JSVal } instance PToJSVal SVGFETileElement where pToJSVal = unSVGFETileElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFETileElement where pFromJSVal = SVGFETileElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFETileElement where toJSVal = return . unSVGFETileElement {-# INLINE toJSVal #-} instance FromJSVal SVGFETileElement where fromJSVal v = fmap SVGFETileElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFETileElement where makeObject = makeObject . unSVGFETileElement instance IsSVGElement SVGFETileElement instance IsElement SVGFETileElement instance IsNode SVGFETileElement instance IsEventTarget SVGFETileElement instance IsGObject SVGFETileElement where toGObject = GObject . unSVGFETileElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFETileElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFETileElement :: IsGObject obj => obj -> JSM SVGFETileElement castToSVGFETileElement = castTo gTypeSVGFETileElement "SVGFETileElement" gTypeSVGFETileElement :: JSM GType gTypeSVGFETileElement = GType . Object <$> jsg "SVGFETileElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFETurbulenceElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFETurbulenceElement = SVGFETurbulenceElement { unSVGFETurbulenceElement :: JSVal } instance PToJSVal SVGFETurbulenceElement where pToJSVal = unSVGFETurbulenceElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFETurbulenceElement where pFromJSVal = SVGFETurbulenceElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFETurbulenceElement where toJSVal = return . unSVGFETurbulenceElement {-# INLINE toJSVal #-} instance FromJSVal SVGFETurbulenceElement where fromJSVal v = fmap SVGFETurbulenceElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFETurbulenceElement where makeObject = makeObject . unSVGFETurbulenceElement instance IsSVGElement SVGFETurbulenceElement instance IsElement SVGFETurbulenceElement instance IsNode SVGFETurbulenceElement instance IsEventTarget SVGFETurbulenceElement instance IsGObject SVGFETurbulenceElement where toGObject = GObject . unSVGFETurbulenceElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFETurbulenceElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFETurbulenceElement :: IsGObject obj => obj -> JSM SVGFETurbulenceElement castToSVGFETurbulenceElement = castTo gTypeSVGFETurbulenceElement "SVGFETurbulenceElement" gTypeSVGFETurbulenceElement :: JSM GType gTypeSVGFETurbulenceElement = GType . Object <$> jsg "SVGFETurbulenceElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFilterElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFilterElement = SVGFilterElement { unSVGFilterElement :: JSVal } instance PToJSVal SVGFilterElement where pToJSVal = unSVGFilterElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFilterElement where pFromJSVal = SVGFilterElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFilterElement where toJSVal = return . unSVGFilterElement {-# INLINE toJSVal #-} instance FromJSVal SVGFilterElement where fromJSVal v = fmap SVGFilterElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFilterElement where makeObject = makeObject . unSVGFilterElement instance IsSVGElement SVGFilterElement instance IsElement SVGFilterElement instance IsNode SVGFilterElement instance IsEventTarget SVGFilterElement instance IsGObject SVGFilterElement where toGObject = GObject . unSVGFilterElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFilterElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFilterElement :: IsGObject obj => obj -> JSM SVGFilterElement castToSVGFilterElement = castTo gTypeSVGFilterElement "SVGFilterElement" gTypeSVGFilterElement :: JSM GType gTypeSVGFilterElement = GType . Object <$> jsg "SVGFilterElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFilterPrimitiveStandardAttributes". -- -- newtype SVGFilterPrimitiveStandardAttributes = SVGFilterPrimitiveStandardAttributes { unSVGFilterPrimitiveStandardAttributes :: JSVal } instance PToJSVal SVGFilterPrimitiveStandardAttributes where pToJSVal = unSVGFilterPrimitiveStandardAttributes {-# INLINE pToJSVal #-} instance PFromJSVal SVGFilterPrimitiveStandardAttributes where pFromJSVal = SVGFilterPrimitiveStandardAttributes {-# INLINE pFromJSVal #-} instance ToJSVal SVGFilterPrimitiveStandardAttributes where toJSVal = return . unSVGFilterPrimitiveStandardAttributes {-# INLINE toJSVal #-} instance FromJSVal SVGFilterPrimitiveStandardAttributes where fromJSVal v = fmap SVGFilterPrimitiveStandardAttributes <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFilterPrimitiveStandardAttributes where makeObject = makeObject . unSVGFilterPrimitiveStandardAttributes instance IsGObject SVGFilterPrimitiveStandardAttributes where toGObject = GObject . unSVGFilterPrimitiveStandardAttributes {-# INLINE toGObject #-} unsafeCastGObject = SVGFilterPrimitiveStandardAttributes . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFilterPrimitiveStandardAttributes :: IsGObject obj => obj -> JSM SVGFilterPrimitiveStandardAttributes castToSVGFilterPrimitiveStandardAttributes = castTo gTypeSVGFilterPrimitiveStandardAttributes "SVGFilterPrimitiveStandardAttributes" gTypeSVGFilterPrimitiveStandardAttributes :: JSM GType gTypeSVGFilterPrimitiveStandardAttributes = GType . Object <$> jsg "SVGFilterPrimitiveStandardAttributes" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFitToViewBox". -- -- newtype SVGFitToViewBox = SVGFitToViewBox { unSVGFitToViewBox :: JSVal } instance PToJSVal SVGFitToViewBox where pToJSVal = unSVGFitToViewBox {-# INLINE pToJSVal #-} instance PFromJSVal SVGFitToViewBox where pFromJSVal = SVGFitToViewBox {-# INLINE pFromJSVal #-} instance ToJSVal SVGFitToViewBox where toJSVal = return . unSVGFitToViewBox {-# INLINE toJSVal #-} instance FromJSVal SVGFitToViewBox where fromJSVal v = fmap SVGFitToViewBox <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFitToViewBox where makeObject = makeObject . unSVGFitToViewBox instance IsGObject SVGFitToViewBox where toGObject = GObject . unSVGFitToViewBox {-# INLINE toGObject #-} unsafeCastGObject = SVGFitToViewBox . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFitToViewBox :: IsGObject obj => obj -> JSM SVGFitToViewBox castToSVGFitToViewBox = castTo gTypeSVGFitToViewBox "SVGFitToViewBox" gTypeSVGFitToViewBox :: JSM GType gTypeSVGFitToViewBox = GType . Object <$> jsg "SVGFitToViewBox" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFontElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFontElement = SVGFontElement { unSVGFontElement :: JSVal } instance PToJSVal SVGFontElement where pToJSVal = unSVGFontElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFontElement where pFromJSVal = SVGFontElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFontElement where toJSVal = return . unSVGFontElement {-# INLINE toJSVal #-} instance FromJSVal SVGFontElement where fromJSVal v = fmap SVGFontElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFontElement where makeObject = makeObject . unSVGFontElement instance IsSVGElement SVGFontElement instance IsElement SVGFontElement instance IsNode SVGFontElement instance IsEventTarget SVGFontElement instance IsGObject SVGFontElement where toGObject = GObject . unSVGFontElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFontElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFontElement :: IsGObject obj => obj -> JSM SVGFontElement castToSVGFontElement = castTo gTypeSVGFontElement "SVGFontElement" gTypeSVGFontElement :: JSM GType gTypeSVGFontElement = GType . Object <$> jsg "SVGFontElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFontFaceElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFontFaceElement = SVGFontFaceElement { unSVGFontFaceElement :: JSVal } instance PToJSVal SVGFontFaceElement where pToJSVal = unSVGFontFaceElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFontFaceElement where pFromJSVal = SVGFontFaceElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFontFaceElement where toJSVal = return . unSVGFontFaceElement {-# INLINE toJSVal #-} instance FromJSVal SVGFontFaceElement where fromJSVal v = fmap SVGFontFaceElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFontFaceElement where makeObject = makeObject . unSVGFontFaceElement instance IsSVGElement SVGFontFaceElement instance IsElement SVGFontFaceElement instance IsNode SVGFontFaceElement instance IsEventTarget SVGFontFaceElement instance IsGObject SVGFontFaceElement where toGObject = GObject . unSVGFontFaceElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFontFaceElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFontFaceElement :: IsGObject obj => obj -> JSM SVGFontFaceElement castToSVGFontFaceElement = castTo gTypeSVGFontFaceElement "SVGFontFaceElement" gTypeSVGFontFaceElement :: JSM GType gTypeSVGFontFaceElement = GType . Object <$> jsg "SVGFontFaceElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFontFaceFormatElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFontFaceFormatElement = SVGFontFaceFormatElement { unSVGFontFaceFormatElement :: JSVal } instance PToJSVal SVGFontFaceFormatElement where pToJSVal = unSVGFontFaceFormatElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFontFaceFormatElement where pFromJSVal = SVGFontFaceFormatElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFontFaceFormatElement where toJSVal = return . unSVGFontFaceFormatElement {-# INLINE toJSVal #-} instance FromJSVal SVGFontFaceFormatElement where fromJSVal v = fmap SVGFontFaceFormatElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFontFaceFormatElement where makeObject = makeObject . unSVGFontFaceFormatElement instance IsSVGElement SVGFontFaceFormatElement instance IsElement SVGFontFaceFormatElement instance IsNode SVGFontFaceFormatElement instance IsEventTarget SVGFontFaceFormatElement instance IsGObject SVGFontFaceFormatElement where toGObject = GObject . unSVGFontFaceFormatElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFontFaceFormatElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFontFaceFormatElement :: IsGObject obj => obj -> JSM SVGFontFaceFormatElement castToSVGFontFaceFormatElement = castTo gTypeSVGFontFaceFormatElement "SVGFontFaceFormatElement" gTypeSVGFontFaceFormatElement :: JSM GType gTypeSVGFontFaceFormatElement = GType . Object <$> jsg "SVGFontFaceFormatElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFontFaceNameElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFontFaceNameElement = SVGFontFaceNameElement { unSVGFontFaceNameElement :: JSVal } instance PToJSVal SVGFontFaceNameElement where pToJSVal = unSVGFontFaceNameElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFontFaceNameElement where pFromJSVal = SVGFontFaceNameElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFontFaceNameElement where toJSVal = return . unSVGFontFaceNameElement {-# INLINE toJSVal #-} instance FromJSVal SVGFontFaceNameElement where fromJSVal v = fmap SVGFontFaceNameElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFontFaceNameElement where makeObject = makeObject . unSVGFontFaceNameElement instance IsSVGElement SVGFontFaceNameElement instance IsElement SVGFontFaceNameElement instance IsNode SVGFontFaceNameElement instance IsEventTarget SVGFontFaceNameElement instance IsGObject SVGFontFaceNameElement where toGObject = GObject . unSVGFontFaceNameElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFontFaceNameElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFontFaceNameElement :: IsGObject obj => obj -> JSM SVGFontFaceNameElement castToSVGFontFaceNameElement = castTo gTypeSVGFontFaceNameElement "SVGFontFaceNameElement" gTypeSVGFontFaceNameElement :: JSM GType gTypeSVGFontFaceNameElement = GType . Object <$> jsg "SVGFontFaceNameElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFontFaceSrcElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFontFaceSrcElement = SVGFontFaceSrcElement { unSVGFontFaceSrcElement :: JSVal } instance PToJSVal SVGFontFaceSrcElement where pToJSVal = unSVGFontFaceSrcElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFontFaceSrcElement where pFromJSVal = SVGFontFaceSrcElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFontFaceSrcElement where toJSVal = return . unSVGFontFaceSrcElement {-# INLINE toJSVal #-} instance FromJSVal SVGFontFaceSrcElement where fromJSVal v = fmap SVGFontFaceSrcElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFontFaceSrcElement where makeObject = makeObject . unSVGFontFaceSrcElement instance IsSVGElement SVGFontFaceSrcElement instance IsElement SVGFontFaceSrcElement instance IsNode SVGFontFaceSrcElement instance IsEventTarget SVGFontFaceSrcElement instance IsGObject SVGFontFaceSrcElement where toGObject = GObject . unSVGFontFaceSrcElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFontFaceSrcElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFontFaceSrcElement :: IsGObject obj => obj -> JSM SVGFontFaceSrcElement castToSVGFontFaceSrcElement = castTo gTypeSVGFontFaceSrcElement "SVGFontFaceSrcElement" gTypeSVGFontFaceSrcElement :: JSM GType gTypeSVGFontFaceSrcElement = GType . Object <$> jsg "SVGFontFaceSrcElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFontFaceUriElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGFontFaceUriElement = SVGFontFaceUriElement { unSVGFontFaceUriElement :: JSVal } instance PToJSVal SVGFontFaceUriElement where pToJSVal = unSVGFontFaceUriElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGFontFaceUriElement where pFromJSVal = SVGFontFaceUriElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGFontFaceUriElement where toJSVal = return . unSVGFontFaceUriElement {-# INLINE toJSVal #-} instance FromJSVal SVGFontFaceUriElement where fromJSVal v = fmap SVGFontFaceUriElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGFontFaceUriElement where makeObject = makeObject . unSVGFontFaceUriElement instance IsSVGElement SVGFontFaceUriElement instance IsElement SVGFontFaceUriElement instance IsNode SVGFontFaceUriElement instance IsEventTarget SVGFontFaceUriElement instance IsGObject SVGFontFaceUriElement where toGObject = GObject . unSVGFontFaceUriElement {-# INLINE toGObject #-} unsafeCastGObject = SVGFontFaceUriElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGFontFaceUriElement :: IsGObject obj => obj -> JSM SVGFontFaceUriElement castToSVGFontFaceUriElement = castTo gTypeSVGFontFaceUriElement "SVGFontFaceUriElement" gTypeSVGFontFaceUriElement :: JSM GType gTypeSVGFontFaceUriElement = GType . Object <$> jsg "SVGFontFaceUriElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGForeignObjectElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGForeignObjectElement = SVGForeignObjectElement { unSVGForeignObjectElement :: JSVal } instance PToJSVal SVGForeignObjectElement where pToJSVal = unSVGForeignObjectElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGForeignObjectElement where pFromJSVal = SVGForeignObjectElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGForeignObjectElement where toJSVal = return . unSVGForeignObjectElement {-# INLINE toJSVal #-} instance FromJSVal SVGForeignObjectElement where fromJSVal v = fmap SVGForeignObjectElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGForeignObjectElement where makeObject = makeObject . unSVGForeignObjectElement instance IsSVGGraphicsElement SVGForeignObjectElement instance IsSVGElement SVGForeignObjectElement instance IsElement SVGForeignObjectElement instance IsNode SVGForeignObjectElement instance IsEventTarget SVGForeignObjectElement instance IsGObject SVGForeignObjectElement where toGObject = GObject . unSVGForeignObjectElement {-# INLINE toGObject #-} unsafeCastGObject = SVGForeignObjectElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGForeignObjectElement :: IsGObject obj => obj -> JSM SVGForeignObjectElement castToSVGForeignObjectElement = castTo gTypeSVGForeignObjectElement "SVGForeignObjectElement" gTypeSVGForeignObjectElement :: JSM GType gTypeSVGForeignObjectElement = GType . Object <$> jsg "SVGForeignObjectElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGGElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGGElement = SVGGElement { unSVGGElement :: JSVal } instance PToJSVal SVGGElement where pToJSVal = unSVGGElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGGElement where pFromJSVal = SVGGElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGGElement where toJSVal = return . unSVGGElement {-# INLINE toJSVal #-} instance FromJSVal SVGGElement where fromJSVal v = fmap SVGGElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGGElement where makeObject = makeObject . unSVGGElement instance IsSVGGraphicsElement SVGGElement instance IsSVGElement SVGGElement instance IsElement SVGGElement instance IsNode SVGGElement instance IsEventTarget SVGGElement instance IsGObject SVGGElement where toGObject = GObject . unSVGGElement {-# INLINE toGObject #-} unsafeCastGObject = SVGGElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGGElement :: IsGObject obj => obj -> JSM SVGGElement castToSVGGElement = castTo gTypeSVGGElement "SVGGElement" gTypeSVGGElement :: JSM GType gTypeSVGGElement = GType . Object <$> jsg "SVGGElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGGlyphElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGGlyphElement = SVGGlyphElement { unSVGGlyphElement :: JSVal } instance PToJSVal SVGGlyphElement where pToJSVal = unSVGGlyphElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGGlyphElement where pFromJSVal = SVGGlyphElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGGlyphElement where toJSVal = return . unSVGGlyphElement {-# INLINE toJSVal #-} instance FromJSVal SVGGlyphElement where fromJSVal v = fmap SVGGlyphElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGGlyphElement where makeObject = makeObject . unSVGGlyphElement instance IsSVGElement SVGGlyphElement instance IsElement SVGGlyphElement instance IsNode SVGGlyphElement instance IsEventTarget SVGGlyphElement instance IsGObject SVGGlyphElement where toGObject = GObject . unSVGGlyphElement {-# INLINE toGObject #-} unsafeCastGObject = SVGGlyphElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGGlyphElement :: IsGObject obj => obj -> JSM SVGGlyphElement castToSVGGlyphElement = castTo gTypeSVGGlyphElement "SVGGlyphElement" gTypeSVGGlyphElement :: JSM GType gTypeSVGGlyphElement = GType . Object <$> jsg "SVGGlyphElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGGlyphRefElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGGlyphRefElement = SVGGlyphRefElement { unSVGGlyphRefElement :: JSVal } instance PToJSVal SVGGlyphRefElement where pToJSVal = unSVGGlyphRefElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGGlyphRefElement where pFromJSVal = SVGGlyphRefElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGGlyphRefElement where toJSVal = return . unSVGGlyphRefElement {-# INLINE toJSVal #-} instance FromJSVal SVGGlyphRefElement where fromJSVal v = fmap SVGGlyphRefElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGGlyphRefElement where makeObject = makeObject . unSVGGlyphRefElement instance IsSVGElement SVGGlyphRefElement instance IsElement SVGGlyphRefElement instance IsNode SVGGlyphRefElement instance IsEventTarget SVGGlyphRefElement instance IsGObject SVGGlyphRefElement where toGObject = GObject . unSVGGlyphRefElement {-# INLINE toGObject #-} unsafeCastGObject = SVGGlyphRefElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGGlyphRefElement :: IsGObject obj => obj -> JSM SVGGlyphRefElement castToSVGGlyphRefElement = castTo gTypeSVGGlyphRefElement "SVGGlyphRefElement" gTypeSVGGlyphRefElement :: JSM GType gTypeSVGGlyphRefElement = GType . Object <$> jsg "SVGGlyphRefElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGGradientElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGGradientElement = SVGGradientElement { unSVGGradientElement :: JSVal } instance PToJSVal SVGGradientElement where pToJSVal = unSVGGradientElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGGradientElement where pFromJSVal = SVGGradientElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGGradientElement where toJSVal = return . unSVGGradientElement {-# INLINE toJSVal #-} instance FromJSVal SVGGradientElement where fromJSVal v = fmap SVGGradientElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGGradientElement where makeObject = makeObject . unSVGGradientElement class IsSVGElement o => IsSVGGradientElement o toSVGGradientElement :: IsSVGGradientElement o => o -> SVGGradientElement toSVGGradientElement = unsafeCastGObject . toGObject instance IsSVGGradientElement SVGGradientElement instance IsSVGElement SVGGradientElement instance IsElement SVGGradientElement instance IsNode SVGGradientElement instance IsEventTarget SVGGradientElement instance IsGObject SVGGradientElement where toGObject = GObject . unSVGGradientElement {-# INLINE toGObject #-} unsafeCastGObject = SVGGradientElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGGradientElement :: IsGObject obj => obj -> JSM SVGGradientElement castToSVGGradientElement = castTo gTypeSVGGradientElement "SVGGradientElement" gTypeSVGGradientElement :: JSM GType gTypeSVGGradientElement = GType . Object <$> jsg "SVGGradientElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGGraphicsElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGGraphicsElement = SVGGraphicsElement { unSVGGraphicsElement :: JSVal } instance PToJSVal SVGGraphicsElement where pToJSVal = unSVGGraphicsElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGGraphicsElement where pFromJSVal = SVGGraphicsElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGGraphicsElement where toJSVal = return . unSVGGraphicsElement {-# INLINE toJSVal #-} instance FromJSVal SVGGraphicsElement where fromJSVal v = fmap SVGGraphicsElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGGraphicsElement where makeObject = makeObject . unSVGGraphicsElement class IsSVGElement o => IsSVGGraphicsElement o toSVGGraphicsElement :: IsSVGGraphicsElement o => o -> SVGGraphicsElement toSVGGraphicsElement = unsafeCastGObject . toGObject instance IsSVGGraphicsElement SVGGraphicsElement instance IsSVGElement SVGGraphicsElement instance IsElement SVGGraphicsElement instance IsNode SVGGraphicsElement instance IsEventTarget SVGGraphicsElement instance IsGObject SVGGraphicsElement where toGObject = GObject . unSVGGraphicsElement {-# INLINE toGObject #-} unsafeCastGObject = SVGGraphicsElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGGraphicsElement :: IsGObject obj => obj -> JSM SVGGraphicsElement castToSVGGraphicsElement = castTo gTypeSVGGraphicsElement "SVGGraphicsElement" gTypeSVGGraphicsElement :: JSM GType gTypeSVGGraphicsElement = GType . Object <$> jsg "SVGGraphicsElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGHKernElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGHKernElement = SVGHKernElement { unSVGHKernElement :: JSVal } instance PToJSVal SVGHKernElement where pToJSVal = unSVGHKernElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGHKernElement where pFromJSVal = SVGHKernElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGHKernElement where toJSVal = return . unSVGHKernElement {-# INLINE toJSVal #-} instance FromJSVal SVGHKernElement where fromJSVal v = fmap SVGHKernElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGHKernElement where makeObject = makeObject . unSVGHKernElement instance IsSVGElement SVGHKernElement instance IsElement SVGHKernElement instance IsNode SVGHKernElement instance IsEventTarget SVGHKernElement instance IsGObject SVGHKernElement where toGObject = GObject . unSVGHKernElement {-# INLINE toGObject #-} unsafeCastGObject = SVGHKernElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGHKernElement :: IsGObject obj => obj -> JSM SVGHKernElement castToSVGHKernElement = castTo gTypeSVGHKernElement "SVGHKernElement" gTypeSVGHKernElement :: JSM GType gTypeSVGHKernElement = GType . Object <$> jsg "SVGHKernElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGImageElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGImageElement = SVGImageElement { unSVGImageElement :: JSVal } instance PToJSVal SVGImageElement where pToJSVal = unSVGImageElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGImageElement where pFromJSVal = SVGImageElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGImageElement where toJSVal = return . unSVGImageElement {-# INLINE toJSVal #-} instance FromJSVal SVGImageElement where fromJSVal v = fmap SVGImageElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGImageElement where makeObject = makeObject . unSVGImageElement instance IsSVGGraphicsElement SVGImageElement instance IsSVGElement SVGImageElement instance IsElement SVGImageElement instance IsNode SVGImageElement instance IsEventTarget SVGImageElement instance IsGObject SVGImageElement where toGObject = GObject . unSVGImageElement {-# INLINE toGObject #-} unsafeCastGObject = SVGImageElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGImageElement :: IsGObject obj => obj -> JSM SVGImageElement castToSVGImageElement = castTo gTypeSVGImageElement "SVGImageElement" gTypeSVGImageElement :: JSM GType gTypeSVGImageElement = GType . Object <$> jsg "SVGImageElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGLength". -- -- newtype SVGLength = SVGLength { unSVGLength :: JSVal } instance PToJSVal SVGLength where pToJSVal = unSVGLength {-# INLINE pToJSVal #-} instance PFromJSVal SVGLength where pFromJSVal = SVGLength {-# INLINE pFromJSVal #-} instance ToJSVal SVGLength where toJSVal = return . unSVGLength {-# INLINE toJSVal #-} instance FromJSVal SVGLength where fromJSVal v = fmap SVGLength <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGLength where makeObject = makeObject . unSVGLength instance IsGObject SVGLength where toGObject = GObject . unSVGLength {-# INLINE toGObject #-} unsafeCastGObject = SVGLength . unGObject {-# INLINE unsafeCastGObject #-} castToSVGLength :: IsGObject obj => obj -> JSM SVGLength castToSVGLength = castTo gTypeSVGLength "SVGLength" gTypeSVGLength :: JSM GType gTypeSVGLength = GType . Object <$> jsg "SVGLength" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGLengthList". -- -- newtype SVGLengthList = SVGLengthList { unSVGLengthList :: JSVal } instance PToJSVal SVGLengthList where pToJSVal = unSVGLengthList {-# INLINE pToJSVal #-} instance PFromJSVal SVGLengthList where pFromJSVal = SVGLengthList {-# INLINE pFromJSVal #-} instance ToJSVal SVGLengthList where toJSVal = return . unSVGLengthList {-# INLINE toJSVal #-} instance FromJSVal SVGLengthList where fromJSVal v = fmap SVGLengthList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGLengthList where makeObject = makeObject . unSVGLengthList instance IsGObject SVGLengthList where toGObject = GObject . unSVGLengthList {-# INLINE toGObject #-} unsafeCastGObject = SVGLengthList . unGObject {-# INLINE unsafeCastGObject #-} castToSVGLengthList :: IsGObject obj => obj -> JSM SVGLengthList castToSVGLengthList = castTo gTypeSVGLengthList "SVGLengthList" gTypeSVGLengthList :: JSM GType gTypeSVGLengthList = GType . Object <$> jsg "SVGLengthList" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGLineElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGLineElement = SVGLineElement { unSVGLineElement :: JSVal } instance PToJSVal SVGLineElement where pToJSVal = unSVGLineElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGLineElement where pFromJSVal = SVGLineElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGLineElement where toJSVal = return . unSVGLineElement {-# INLINE toJSVal #-} instance FromJSVal SVGLineElement where fromJSVal v = fmap SVGLineElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGLineElement where makeObject = makeObject . unSVGLineElement instance IsSVGGraphicsElement SVGLineElement instance IsSVGElement SVGLineElement instance IsElement SVGLineElement instance IsNode SVGLineElement instance IsEventTarget SVGLineElement instance IsGObject SVGLineElement where toGObject = GObject . unSVGLineElement {-# INLINE toGObject #-} unsafeCastGObject = SVGLineElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGLineElement :: IsGObject obj => obj -> JSM SVGLineElement castToSVGLineElement = castTo gTypeSVGLineElement "SVGLineElement" gTypeSVGLineElement :: JSM GType gTypeSVGLineElement = GType . Object <$> jsg "SVGLineElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGLinearGradientElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGGradientElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGLinearGradientElement = SVGLinearGradientElement { unSVGLinearGradientElement :: JSVal } instance PToJSVal SVGLinearGradientElement where pToJSVal = unSVGLinearGradientElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGLinearGradientElement where pFromJSVal = SVGLinearGradientElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGLinearGradientElement where toJSVal = return . unSVGLinearGradientElement {-# INLINE toJSVal #-} instance FromJSVal SVGLinearGradientElement where fromJSVal v = fmap SVGLinearGradientElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGLinearGradientElement where makeObject = makeObject . unSVGLinearGradientElement instance IsSVGGradientElement SVGLinearGradientElement instance IsSVGElement SVGLinearGradientElement instance IsElement SVGLinearGradientElement instance IsNode SVGLinearGradientElement instance IsEventTarget SVGLinearGradientElement instance IsGObject SVGLinearGradientElement where toGObject = GObject . unSVGLinearGradientElement {-# INLINE toGObject #-} unsafeCastGObject = SVGLinearGradientElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGLinearGradientElement :: IsGObject obj => obj -> JSM SVGLinearGradientElement castToSVGLinearGradientElement = castTo gTypeSVGLinearGradientElement "SVGLinearGradientElement" gTypeSVGLinearGradientElement :: JSM GType gTypeSVGLinearGradientElement = GType . Object <$> jsg "SVGLinearGradientElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGMPathElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGMPathElement = SVGMPathElement { unSVGMPathElement :: JSVal } instance PToJSVal SVGMPathElement where pToJSVal = unSVGMPathElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGMPathElement where pFromJSVal = SVGMPathElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGMPathElement where toJSVal = return . unSVGMPathElement {-# INLINE toJSVal #-} instance FromJSVal SVGMPathElement where fromJSVal v = fmap SVGMPathElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGMPathElement where makeObject = makeObject . unSVGMPathElement instance IsSVGElement SVGMPathElement instance IsElement SVGMPathElement instance IsNode SVGMPathElement instance IsEventTarget SVGMPathElement instance IsGObject SVGMPathElement where toGObject = GObject . unSVGMPathElement {-# INLINE toGObject #-} unsafeCastGObject = SVGMPathElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGMPathElement :: IsGObject obj => obj -> JSM SVGMPathElement castToSVGMPathElement = castTo gTypeSVGMPathElement "SVGMPathElement" gTypeSVGMPathElement :: JSM GType gTypeSVGMPathElement = GType . Object <$> jsg "SVGMPathElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGMarkerElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGMarkerElement = SVGMarkerElement { unSVGMarkerElement :: JSVal } instance PToJSVal SVGMarkerElement where pToJSVal = unSVGMarkerElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGMarkerElement where pFromJSVal = SVGMarkerElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGMarkerElement where toJSVal = return . unSVGMarkerElement {-# INLINE toJSVal #-} instance FromJSVal SVGMarkerElement where fromJSVal v = fmap SVGMarkerElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGMarkerElement where makeObject = makeObject . unSVGMarkerElement instance IsSVGElement SVGMarkerElement instance IsElement SVGMarkerElement instance IsNode SVGMarkerElement instance IsEventTarget SVGMarkerElement instance IsGObject SVGMarkerElement where toGObject = GObject . unSVGMarkerElement {-# INLINE toGObject #-} unsafeCastGObject = SVGMarkerElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGMarkerElement :: IsGObject obj => obj -> JSM SVGMarkerElement castToSVGMarkerElement = castTo gTypeSVGMarkerElement "SVGMarkerElement" gTypeSVGMarkerElement :: JSM GType gTypeSVGMarkerElement = GType . Object <$> jsg "SVGMarkerElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGMaskElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGMaskElement = SVGMaskElement { unSVGMaskElement :: JSVal } instance PToJSVal SVGMaskElement where pToJSVal = unSVGMaskElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGMaskElement where pFromJSVal = SVGMaskElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGMaskElement where toJSVal = return . unSVGMaskElement {-# INLINE toJSVal #-} instance FromJSVal SVGMaskElement where fromJSVal v = fmap SVGMaskElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGMaskElement where makeObject = makeObject . unSVGMaskElement instance IsSVGElement SVGMaskElement instance IsElement SVGMaskElement instance IsNode SVGMaskElement instance IsEventTarget SVGMaskElement instance IsGObject SVGMaskElement where toGObject = GObject . unSVGMaskElement {-# INLINE toGObject #-} unsafeCastGObject = SVGMaskElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGMaskElement :: IsGObject obj => obj -> JSM SVGMaskElement castToSVGMaskElement = castTo gTypeSVGMaskElement "SVGMaskElement" gTypeSVGMaskElement :: JSM GType gTypeSVGMaskElement = GType . Object <$> jsg "SVGMaskElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGMatrix". -- -- newtype SVGMatrix = SVGMatrix { unSVGMatrix :: JSVal } instance PToJSVal SVGMatrix where pToJSVal = unSVGMatrix {-# INLINE pToJSVal #-} instance PFromJSVal SVGMatrix where pFromJSVal = SVGMatrix {-# INLINE pFromJSVal #-} instance ToJSVal SVGMatrix where toJSVal = return . unSVGMatrix {-# INLINE toJSVal #-} instance FromJSVal SVGMatrix where fromJSVal v = fmap SVGMatrix <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGMatrix where makeObject = makeObject . unSVGMatrix instance IsGObject SVGMatrix where toGObject = GObject . unSVGMatrix {-# INLINE toGObject #-} unsafeCastGObject = SVGMatrix . unGObject {-# INLINE unsafeCastGObject #-} castToSVGMatrix :: IsGObject obj => obj -> JSM SVGMatrix castToSVGMatrix = castTo gTypeSVGMatrix "SVGMatrix" gTypeSVGMatrix :: JSM GType gTypeSVGMatrix = GType . Object <$> jsg "SVGMatrix" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGMetadataElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGMetadataElement = SVGMetadataElement { unSVGMetadataElement :: JSVal } instance PToJSVal SVGMetadataElement where pToJSVal = unSVGMetadataElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGMetadataElement where pFromJSVal = SVGMetadataElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGMetadataElement where toJSVal = return . unSVGMetadataElement {-# INLINE toJSVal #-} instance FromJSVal SVGMetadataElement where fromJSVal v = fmap SVGMetadataElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGMetadataElement where makeObject = makeObject . unSVGMetadataElement instance IsSVGElement SVGMetadataElement instance IsElement SVGMetadataElement instance IsNode SVGMetadataElement instance IsEventTarget SVGMetadataElement instance IsGObject SVGMetadataElement where toGObject = GObject . unSVGMetadataElement {-# INLINE toGObject #-} unsafeCastGObject = SVGMetadataElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGMetadataElement :: IsGObject obj => obj -> JSM SVGMetadataElement castToSVGMetadataElement = castTo gTypeSVGMetadataElement "SVGMetadataElement" gTypeSVGMetadataElement :: JSM GType gTypeSVGMetadataElement = GType . Object <$> jsg "SVGMetadataElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGMissingGlyphElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGMissingGlyphElement = SVGMissingGlyphElement { unSVGMissingGlyphElement :: JSVal } instance PToJSVal SVGMissingGlyphElement where pToJSVal = unSVGMissingGlyphElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGMissingGlyphElement where pFromJSVal = SVGMissingGlyphElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGMissingGlyphElement where toJSVal = return . unSVGMissingGlyphElement {-# INLINE toJSVal #-} instance FromJSVal SVGMissingGlyphElement where fromJSVal v = fmap SVGMissingGlyphElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGMissingGlyphElement where makeObject = makeObject . unSVGMissingGlyphElement instance IsSVGElement SVGMissingGlyphElement instance IsElement SVGMissingGlyphElement instance IsNode SVGMissingGlyphElement instance IsEventTarget SVGMissingGlyphElement instance IsGObject SVGMissingGlyphElement where toGObject = GObject . unSVGMissingGlyphElement {-# INLINE toGObject #-} unsafeCastGObject = SVGMissingGlyphElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGMissingGlyphElement :: IsGObject obj => obj -> JSM SVGMissingGlyphElement castToSVGMissingGlyphElement = castTo gTypeSVGMissingGlyphElement "SVGMissingGlyphElement" gTypeSVGMissingGlyphElement :: JSM GType gTypeSVGMissingGlyphElement = GType . Object <$> jsg "SVGMissingGlyphElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGNumber". -- -- newtype SVGNumber = SVGNumber { unSVGNumber :: JSVal } instance PToJSVal SVGNumber where pToJSVal = unSVGNumber {-# INLINE pToJSVal #-} instance PFromJSVal SVGNumber where pFromJSVal = SVGNumber {-# INLINE pFromJSVal #-} instance ToJSVal SVGNumber where toJSVal = return . unSVGNumber {-# INLINE toJSVal #-} instance FromJSVal SVGNumber where fromJSVal v = fmap SVGNumber <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGNumber where makeObject = makeObject . unSVGNumber instance IsGObject SVGNumber where toGObject = GObject . unSVGNumber {-# INLINE toGObject #-} unsafeCastGObject = SVGNumber . unGObject {-# INLINE unsafeCastGObject #-} castToSVGNumber :: IsGObject obj => obj -> JSM SVGNumber castToSVGNumber = castTo gTypeSVGNumber "SVGNumber" gTypeSVGNumber :: JSM GType gTypeSVGNumber = GType . Object <$> jsg "SVGNumber" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGNumberList". -- -- newtype SVGNumberList = SVGNumberList { unSVGNumberList :: JSVal } instance PToJSVal SVGNumberList where pToJSVal = unSVGNumberList {-# INLINE pToJSVal #-} instance PFromJSVal SVGNumberList where pFromJSVal = SVGNumberList {-# INLINE pFromJSVal #-} instance ToJSVal SVGNumberList where toJSVal = return . unSVGNumberList {-# INLINE toJSVal #-} instance FromJSVal SVGNumberList where fromJSVal v = fmap SVGNumberList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGNumberList where makeObject = makeObject . unSVGNumberList instance IsGObject SVGNumberList where toGObject = GObject . unSVGNumberList {-# INLINE toGObject #-} unsafeCastGObject = SVGNumberList . unGObject {-# INLINE unsafeCastGObject #-} castToSVGNumberList :: IsGObject obj => obj -> JSM SVGNumberList castToSVGNumberList = castTo gTypeSVGNumberList "SVGNumberList" gTypeSVGNumberList :: JSM GType gTypeSVGNumberList = GType . Object <$> jsg "SVGNumberList" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPaint". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGColor" -- * "Language.Javascript.JSaddle.DOM.CSSValue" -- -- newtype SVGPaint = SVGPaint { unSVGPaint :: JSVal } instance PToJSVal SVGPaint where pToJSVal = unSVGPaint {-# INLINE pToJSVal #-} instance PFromJSVal SVGPaint where pFromJSVal = SVGPaint {-# INLINE pFromJSVal #-} instance ToJSVal SVGPaint where toJSVal = return . unSVGPaint {-# INLINE toJSVal #-} instance FromJSVal SVGPaint where fromJSVal v = fmap SVGPaint <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPaint where makeObject = makeObject . unSVGPaint instance IsSVGColor SVGPaint instance IsCSSValue SVGPaint instance IsGObject SVGPaint where toGObject = GObject . unSVGPaint {-# INLINE toGObject #-} unsafeCastGObject = SVGPaint . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPaint :: IsGObject obj => obj -> JSM SVGPaint castToSVGPaint = castTo gTypeSVGPaint "SVGPaint" gTypeSVGPaint :: JSM GType gTypeSVGPaint = GType . Object <$> jsg "SVGPaint" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGPathElement = SVGPathElement { unSVGPathElement :: JSVal } instance PToJSVal SVGPathElement where pToJSVal = unSVGPathElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGPathElement where pFromJSVal = SVGPathElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGPathElement where toJSVal = return . unSVGPathElement {-# INLINE toJSVal #-} instance FromJSVal SVGPathElement where fromJSVal v = fmap SVGPathElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPathElement where makeObject = makeObject . unSVGPathElement instance IsSVGGraphicsElement SVGPathElement instance IsSVGElement SVGPathElement instance IsElement SVGPathElement instance IsNode SVGPathElement instance IsEventTarget SVGPathElement instance IsGObject SVGPathElement where toGObject = GObject . unSVGPathElement {-# INLINE toGObject #-} unsafeCastGObject = SVGPathElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPathElement :: IsGObject obj => obj -> JSM SVGPathElement castToSVGPathElement = castTo gTypeSVGPathElement "SVGPathElement" gTypeSVGPathElement :: JSM GType gTypeSVGPathElement = GType . Object <$> jsg "SVGPathElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSeg". -- -- newtype SVGPathSeg = SVGPathSeg { unSVGPathSeg :: JSVal } instance PToJSVal SVGPathSeg where pToJSVal = unSVGPathSeg {-# INLINE pToJSVal #-} instance PFromJSVal SVGPathSeg where pFromJSVal = SVGPathSeg {-# INLINE pFromJSVal #-} instance ToJSVal SVGPathSeg where toJSVal = return . unSVGPathSeg {-# INLINE toJSVal #-} instance FromJSVal SVGPathSeg where fromJSVal v = fmap SVGPathSeg <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPathSeg where makeObject = makeObject . unSVGPathSeg class IsGObject o => IsSVGPathSeg o toSVGPathSeg :: IsSVGPathSeg o => o -> SVGPathSeg toSVGPathSeg = unsafeCastGObject . toGObject instance IsSVGPathSeg SVGPathSeg instance IsGObject SVGPathSeg where toGObject = GObject . unSVGPathSeg {-# INLINE toGObject #-} unsafeCastGObject = SVGPathSeg . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPathSeg :: IsGObject obj => obj -> JSM SVGPathSeg castToSVGPathSeg = castTo gTypeSVGPathSeg "SVGPathSeg" gTypeSVGPathSeg :: JSM GType gTypeSVGPathSeg = GType . Object <$> jsg "SVGPathSeg" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegArcAbs". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGPathSeg" -- -- newtype SVGPathSegArcAbs = SVGPathSegArcAbs { unSVGPathSegArcAbs :: JSVal } instance PToJSVal SVGPathSegArcAbs where pToJSVal = unSVGPathSegArcAbs {-# INLINE pToJSVal #-} instance PFromJSVal SVGPathSegArcAbs where pFromJSVal = SVGPathSegArcAbs {-# INLINE pFromJSVal #-} instance ToJSVal SVGPathSegArcAbs where toJSVal = return . unSVGPathSegArcAbs {-# INLINE toJSVal #-} instance FromJSVal SVGPathSegArcAbs where fromJSVal v = fmap SVGPathSegArcAbs <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPathSegArcAbs where makeObject = makeObject . unSVGPathSegArcAbs instance IsSVGPathSeg SVGPathSegArcAbs instance IsGObject SVGPathSegArcAbs where toGObject = GObject . unSVGPathSegArcAbs {-# INLINE toGObject #-} unsafeCastGObject = SVGPathSegArcAbs . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPathSegArcAbs :: IsGObject obj => obj -> JSM SVGPathSegArcAbs castToSVGPathSegArcAbs = castTo gTypeSVGPathSegArcAbs "SVGPathSegArcAbs" gTypeSVGPathSegArcAbs :: JSM GType gTypeSVGPathSegArcAbs = GType . Object <$> jsg "SVGPathSegArcAbs" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegArcRel". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGPathSeg" -- -- newtype SVGPathSegArcRel = SVGPathSegArcRel { unSVGPathSegArcRel :: JSVal } instance PToJSVal SVGPathSegArcRel where pToJSVal = unSVGPathSegArcRel {-# INLINE pToJSVal #-} instance PFromJSVal SVGPathSegArcRel where pFromJSVal = SVGPathSegArcRel {-# INLINE pFromJSVal #-} instance ToJSVal SVGPathSegArcRel where toJSVal = return . unSVGPathSegArcRel {-# INLINE toJSVal #-} instance FromJSVal SVGPathSegArcRel where fromJSVal v = fmap SVGPathSegArcRel <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPathSegArcRel where makeObject = makeObject . unSVGPathSegArcRel instance IsSVGPathSeg SVGPathSegArcRel instance IsGObject SVGPathSegArcRel where toGObject = GObject . unSVGPathSegArcRel {-# INLINE toGObject #-} unsafeCastGObject = SVGPathSegArcRel . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPathSegArcRel :: IsGObject obj => obj -> JSM SVGPathSegArcRel castToSVGPathSegArcRel = castTo gTypeSVGPathSegArcRel "SVGPathSegArcRel" gTypeSVGPathSegArcRel :: JSM GType gTypeSVGPathSegArcRel = GType . Object <$> jsg "SVGPathSegArcRel" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegClosePath". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGPathSeg" -- -- newtype SVGPathSegClosePath = SVGPathSegClosePath { unSVGPathSegClosePath :: JSVal } instance PToJSVal SVGPathSegClosePath where pToJSVal = unSVGPathSegClosePath {-# INLINE pToJSVal #-} instance PFromJSVal SVGPathSegClosePath where pFromJSVal = SVGPathSegClosePath {-# INLINE pFromJSVal #-} instance ToJSVal SVGPathSegClosePath where toJSVal = return . unSVGPathSegClosePath {-# INLINE toJSVal #-} instance FromJSVal SVGPathSegClosePath where fromJSVal v = fmap SVGPathSegClosePath <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPathSegClosePath where makeObject = makeObject . unSVGPathSegClosePath instance IsSVGPathSeg SVGPathSegClosePath instance IsGObject SVGPathSegClosePath where toGObject = GObject . unSVGPathSegClosePath {-# INLINE toGObject #-} unsafeCastGObject = SVGPathSegClosePath . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPathSegClosePath :: IsGObject obj => obj -> JSM SVGPathSegClosePath castToSVGPathSegClosePath = castTo gTypeSVGPathSegClosePath "SVGPathSegClosePath" gTypeSVGPathSegClosePath :: JSM GType gTypeSVGPathSegClosePath = GType . Object <$> jsg "SVGPathSegClosePath" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoCubicAbs". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGPathSeg" -- -- newtype SVGPathSegCurvetoCubicAbs = SVGPathSegCurvetoCubicAbs { unSVGPathSegCurvetoCubicAbs :: JSVal } instance PToJSVal SVGPathSegCurvetoCubicAbs where pToJSVal = unSVGPathSegCurvetoCubicAbs {-# INLINE pToJSVal #-} instance PFromJSVal SVGPathSegCurvetoCubicAbs where pFromJSVal = SVGPathSegCurvetoCubicAbs {-# INLINE pFromJSVal #-} instance ToJSVal SVGPathSegCurvetoCubicAbs where toJSVal = return . unSVGPathSegCurvetoCubicAbs {-# INLINE toJSVal #-} instance FromJSVal SVGPathSegCurvetoCubicAbs where fromJSVal v = fmap SVGPathSegCurvetoCubicAbs <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPathSegCurvetoCubicAbs where makeObject = makeObject . unSVGPathSegCurvetoCubicAbs instance IsSVGPathSeg SVGPathSegCurvetoCubicAbs instance IsGObject SVGPathSegCurvetoCubicAbs where toGObject = GObject . unSVGPathSegCurvetoCubicAbs {-# INLINE toGObject #-} unsafeCastGObject = SVGPathSegCurvetoCubicAbs . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPathSegCurvetoCubicAbs :: IsGObject obj => obj -> JSM SVGPathSegCurvetoCubicAbs castToSVGPathSegCurvetoCubicAbs = castTo gTypeSVGPathSegCurvetoCubicAbs "SVGPathSegCurvetoCubicAbs" gTypeSVGPathSegCurvetoCubicAbs :: JSM GType gTypeSVGPathSegCurvetoCubicAbs = GType . Object <$> jsg "SVGPathSegCurvetoCubicAbs" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoCubicRel". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGPathSeg" -- -- newtype SVGPathSegCurvetoCubicRel = SVGPathSegCurvetoCubicRel { unSVGPathSegCurvetoCubicRel :: JSVal } instance PToJSVal SVGPathSegCurvetoCubicRel where pToJSVal = unSVGPathSegCurvetoCubicRel {-# INLINE pToJSVal #-} instance PFromJSVal SVGPathSegCurvetoCubicRel where pFromJSVal = SVGPathSegCurvetoCubicRel {-# INLINE pFromJSVal #-} instance ToJSVal SVGPathSegCurvetoCubicRel where toJSVal = return . unSVGPathSegCurvetoCubicRel {-# INLINE toJSVal #-} instance FromJSVal SVGPathSegCurvetoCubicRel where fromJSVal v = fmap SVGPathSegCurvetoCubicRel <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPathSegCurvetoCubicRel where makeObject = makeObject . unSVGPathSegCurvetoCubicRel instance IsSVGPathSeg SVGPathSegCurvetoCubicRel instance IsGObject SVGPathSegCurvetoCubicRel where toGObject = GObject . unSVGPathSegCurvetoCubicRel {-# INLINE toGObject #-} unsafeCastGObject = SVGPathSegCurvetoCubicRel . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPathSegCurvetoCubicRel :: IsGObject obj => obj -> JSM SVGPathSegCurvetoCubicRel castToSVGPathSegCurvetoCubicRel = castTo gTypeSVGPathSegCurvetoCubicRel "SVGPathSegCurvetoCubicRel" gTypeSVGPathSegCurvetoCubicRel :: JSM GType gTypeSVGPathSegCurvetoCubicRel = GType . Object <$> jsg "SVGPathSegCurvetoCubicRel" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoCubicSmoothAbs". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGPathSeg" -- -- newtype SVGPathSegCurvetoCubicSmoothAbs = SVGPathSegCurvetoCubicSmoothAbs { unSVGPathSegCurvetoCubicSmoothAbs :: JSVal } instance PToJSVal SVGPathSegCurvetoCubicSmoothAbs where pToJSVal = unSVGPathSegCurvetoCubicSmoothAbs {-# INLINE pToJSVal #-} instance PFromJSVal SVGPathSegCurvetoCubicSmoothAbs where pFromJSVal = SVGPathSegCurvetoCubicSmoothAbs {-# INLINE pFromJSVal #-} instance ToJSVal SVGPathSegCurvetoCubicSmoothAbs where toJSVal = return . unSVGPathSegCurvetoCubicSmoothAbs {-# INLINE toJSVal #-} instance FromJSVal SVGPathSegCurvetoCubicSmoothAbs where fromJSVal v = fmap SVGPathSegCurvetoCubicSmoothAbs <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPathSegCurvetoCubicSmoothAbs where makeObject = makeObject . unSVGPathSegCurvetoCubicSmoothAbs instance IsSVGPathSeg SVGPathSegCurvetoCubicSmoothAbs instance IsGObject SVGPathSegCurvetoCubicSmoothAbs where toGObject = GObject . unSVGPathSegCurvetoCubicSmoothAbs {-# INLINE toGObject #-} unsafeCastGObject = SVGPathSegCurvetoCubicSmoothAbs . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPathSegCurvetoCubicSmoothAbs :: IsGObject obj => obj -> JSM SVGPathSegCurvetoCubicSmoothAbs castToSVGPathSegCurvetoCubicSmoothAbs = castTo gTypeSVGPathSegCurvetoCubicSmoothAbs "SVGPathSegCurvetoCubicSmoothAbs" gTypeSVGPathSegCurvetoCubicSmoothAbs :: JSM GType gTypeSVGPathSegCurvetoCubicSmoothAbs = GType . Object <$> jsg "SVGPathSegCurvetoCubicSmoothAbs" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoCubicSmoothRel". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGPathSeg" -- -- newtype SVGPathSegCurvetoCubicSmoothRel = SVGPathSegCurvetoCubicSmoothRel { unSVGPathSegCurvetoCubicSmoothRel :: JSVal } instance PToJSVal SVGPathSegCurvetoCubicSmoothRel where pToJSVal = unSVGPathSegCurvetoCubicSmoothRel {-# INLINE pToJSVal #-} instance PFromJSVal SVGPathSegCurvetoCubicSmoothRel where pFromJSVal = SVGPathSegCurvetoCubicSmoothRel {-# INLINE pFromJSVal #-} instance ToJSVal SVGPathSegCurvetoCubicSmoothRel where toJSVal = return . unSVGPathSegCurvetoCubicSmoothRel {-# INLINE toJSVal #-} instance FromJSVal SVGPathSegCurvetoCubicSmoothRel where fromJSVal v = fmap SVGPathSegCurvetoCubicSmoothRel <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPathSegCurvetoCubicSmoothRel where makeObject = makeObject . unSVGPathSegCurvetoCubicSmoothRel instance IsSVGPathSeg SVGPathSegCurvetoCubicSmoothRel instance IsGObject SVGPathSegCurvetoCubicSmoothRel where toGObject = GObject . unSVGPathSegCurvetoCubicSmoothRel {-# INLINE toGObject #-} unsafeCastGObject = SVGPathSegCurvetoCubicSmoothRel . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPathSegCurvetoCubicSmoothRel :: IsGObject obj => obj -> JSM SVGPathSegCurvetoCubicSmoothRel castToSVGPathSegCurvetoCubicSmoothRel = castTo gTypeSVGPathSegCurvetoCubicSmoothRel "SVGPathSegCurvetoCubicSmoothRel" gTypeSVGPathSegCurvetoCubicSmoothRel :: JSM GType gTypeSVGPathSegCurvetoCubicSmoothRel = GType . Object <$> jsg "SVGPathSegCurvetoCubicSmoothRel" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoQuadraticAbs". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGPathSeg" -- -- newtype SVGPathSegCurvetoQuadraticAbs = SVGPathSegCurvetoQuadraticAbs { unSVGPathSegCurvetoQuadraticAbs :: JSVal } instance PToJSVal SVGPathSegCurvetoQuadraticAbs where pToJSVal = unSVGPathSegCurvetoQuadraticAbs {-# INLINE pToJSVal #-} instance PFromJSVal SVGPathSegCurvetoQuadraticAbs where pFromJSVal = SVGPathSegCurvetoQuadraticAbs {-# INLINE pFromJSVal #-} instance ToJSVal SVGPathSegCurvetoQuadraticAbs where toJSVal = return . unSVGPathSegCurvetoQuadraticAbs {-# INLINE toJSVal #-} instance FromJSVal SVGPathSegCurvetoQuadraticAbs where fromJSVal v = fmap SVGPathSegCurvetoQuadraticAbs <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPathSegCurvetoQuadraticAbs where makeObject = makeObject . unSVGPathSegCurvetoQuadraticAbs instance IsSVGPathSeg SVGPathSegCurvetoQuadraticAbs instance IsGObject SVGPathSegCurvetoQuadraticAbs where toGObject = GObject . unSVGPathSegCurvetoQuadraticAbs {-# INLINE toGObject #-} unsafeCastGObject = SVGPathSegCurvetoQuadraticAbs . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPathSegCurvetoQuadraticAbs :: IsGObject obj => obj -> JSM SVGPathSegCurvetoQuadraticAbs castToSVGPathSegCurvetoQuadraticAbs = castTo gTypeSVGPathSegCurvetoQuadraticAbs "SVGPathSegCurvetoQuadraticAbs" gTypeSVGPathSegCurvetoQuadraticAbs :: JSM GType gTypeSVGPathSegCurvetoQuadraticAbs = GType . Object <$> jsg "SVGPathSegCurvetoQuadraticAbs" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoQuadraticRel". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGPathSeg" -- -- newtype SVGPathSegCurvetoQuadraticRel = SVGPathSegCurvetoQuadraticRel { unSVGPathSegCurvetoQuadraticRel :: JSVal } instance PToJSVal SVGPathSegCurvetoQuadraticRel where pToJSVal = unSVGPathSegCurvetoQuadraticRel {-# INLINE pToJSVal #-} instance PFromJSVal SVGPathSegCurvetoQuadraticRel where pFromJSVal = SVGPathSegCurvetoQuadraticRel {-# INLINE pFromJSVal #-} instance ToJSVal SVGPathSegCurvetoQuadraticRel where toJSVal = return . unSVGPathSegCurvetoQuadraticRel {-# INLINE toJSVal #-} instance FromJSVal SVGPathSegCurvetoQuadraticRel where fromJSVal v = fmap SVGPathSegCurvetoQuadraticRel <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPathSegCurvetoQuadraticRel where makeObject = makeObject . unSVGPathSegCurvetoQuadraticRel instance IsSVGPathSeg SVGPathSegCurvetoQuadraticRel instance IsGObject SVGPathSegCurvetoQuadraticRel where toGObject = GObject . unSVGPathSegCurvetoQuadraticRel {-# INLINE toGObject #-} unsafeCastGObject = SVGPathSegCurvetoQuadraticRel . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPathSegCurvetoQuadraticRel :: IsGObject obj => obj -> JSM SVGPathSegCurvetoQuadraticRel castToSVGPathSegCurvetoQuadraticRel = castTo gTypeSVGPathSegCurvetoQuadraticRel "SVGPathSegCurvetoQuadraticRel" gTypeSVGPathSegCurvetoQuadraticRel :: JSM GType gTypeSVGPathSegCurvetoQuadraticRel = GType . Object <$> jsg "SVGPathSegCurvetoQuadraticRel" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoQuadraticSmoothAbs". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGPathSeg" -- -- newtype SVGPathSegCurvetoQuadraticSmoothAbs = SVGPathSegCurvetoQuadraticSmoothAbs { unSVGPathSegCurvetoQuadraticSmoothAbs :: JSVal } instance PToJSVal SVGPathSegCurvetoQuadraticSmoothAbs where pToJSVal = unSVGPathSegCurvetoQuadraticSmoothAbs {-# INLINE pToJSVal #-} instance PFromJSVal SVGPathSegCurvetoQuadraticSmoothAbs where pFromJSVal = SVGPathSegCurvetoQuadraticSmoothAbs {-# INLINE pFromJSVal #-} instance ToJSVal SVGPathSegCurvetoQuadraticSmoothAbs where toJSVal = return . unSVGPathSegCurvetoQuadraticSmoothAbs {-# INLINE toJSVal #-} instance FromJSVal SVGPathSegCurvetoQuadraticSmoothAbs where fromJSVal v = fmap SVGPathSegCurvetoQuadraticSmoothAbs <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPathSegCurvetoQuadraticSmoothAbs where makeObject = makeObject . unSVGPathSegCurvetoQuadraticSmoothAbs instance IsSVGPathSeg SVGPathSegCurvetoQuadraticSmoothAbs instance IsGObject SVGPathSegCurvetoQuadraticSmoothAbs where toGObject = GObject . unSVGPathSegCurvetoQuadraticSmoothAbs {-# INLINE toGObject #-} unsafeCastGObject = SVGPathSegCurvetoQuadraticSmoothAbs . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPathSegCurvetoQuadraticSmoothAbs :: IsGObject obj => obj -> JSM SVGPathSegCurvetoQuadraticSmoothAbs castToSVGPathSegCurvetoQuadraticSmoothAbs = castTo gTypeSVGPathSegCurvetoQuadraticSmoothAbs "SVGPathSegCurvetoQuadraticSmoothAbs" gTypeSVGPathSegCurvetoQuadraticSmoothAbs :: JSM GType gTypeSVGPathSegCurvetoQuadraticSmoothAbs = GType . Object <$> jsg "SVGPathSegCurvetoQuadraticSmoothAbs" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoQuadraticSmoothRel". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGPathSeg" -- -- newtype SVGPathSegCurvetoQuadraticSmoothRel = SVGPathSegCurvetoQuadraticSmoothRel { unSVGPathSegCurvetoQuadraticSmoothRel :: JSVal } instance PToJSVal SVGPathSegCurvetoQuadraticSmoothRel where pToJSVal = unSVGPathSegCurvetoQuadraticSmoothRel {-# INLINE pToJSVal #-} instance PFromJSVal SVGPathSegCurvetoQuadraticSmoothRel where pFromJSVal = SVGPathSegCurvetoQuadraticSmoothRel {-# INLINE pFromJSVal #-} instance ToJSVal SVGPathSegCurvetoQuadraticSmoothRel where toJSVal = return . unSVGPathSegCurvetoQuadraticSmoothRel {-# INLINE toJSVal #-} instance FromJSVal SVGPathSegCurvetoQuadraticSmoothRel where fromJSVal v = fmap SVGPathSegCurvetoQuadraticSmoothRel <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPathSegCurvetoQuadraticSmoothRel where makeObject = makeObject . unSVGPathSegCurvetoQuadraticSmoothRel instance IsSVGPathSeg SVGPathSegCurvetoQuadraticSmoothRel instance IsGObject SVGPathSegCurvetoQuadraticSmoothRel where toGObject = GObject . unSVGPathSegCurvetoQuadraticSmoothRel {-# INLINE toGObject #-} unsafeCastGObject = SVGPathSegCurvetoQuadraticSmoothRel . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPathSegCurvetoQuadraticSmoothRel :: IsGObject obj => obj -> JSM SVGPathSegCurvetoQuadraticSmoothRel castToSVGPathSegCurvetoQuadraticSmoothRel = castTo gTypeSVGPathSegCurvetoQuadraticSmoothRel "SVGPathSegCurvetoQuadraticSmoothRel" gTypeSVGPathSegCurvetoQuadraticSmoothRel :: JSM GType gTypeSVGPathSegCurvetoQuadraticSmoothRel = GType . Object <$> jsg "SVGPathSegCurvetoQuadraticSmoothRel" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegLinetoAbs". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGPathSeg" -- -- newtype SVGPathSegLinetoAbs = SVGPathSegLinetoAbs { unSVGPathSegLinetoAbs :: JSVal } instance PToJSVal SVGPathSegLinetoAbs where pToJSVal = unSVGPathSegLinetoAbs {-# INLINE pToJSVal #-} instance PFromJSVal SVGPathSegLinetoAbs where pFromJSVal = SVGPathSegLinetoAbs {-# INLINE pFromJSVal #-} instance ToJSVal SVGPathSegLinetoAbs where toJSVal = return . unSVGPathSegLinetoAbs {-# INLINE toJSVal #-} instance FromJSVal SVGPathSegLinetoAbs where fromJSVal v = fmap SVGPathSegLinetoAbs <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPathSegLinetoAbs where makeObject = makeObject . unSVGPathSegLinetoAbs instance IsSVGPathSeg SVGPathSegLinetoAbs instance IsGObject SVGPathSegLinetoAbs where toGObject = GObject . unSVGPathSegLinetoAbs {-# INLINE toGObject #-} unsafeCastGObject = SVGPathSegLinetoAbs . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPathSegLinetoAbs :: IsGObject obj => obj -> JSM SVGPathSegLinetoAbs castToSVGPathSegLinetoAbs = castTo gTypeSVGPathSegLinetoAbs "SVGPathSegLinetoAbs" gTypeSVGPathSegLinetoAbs :: JSM GType gTypeSVGPathSegLinetoAbs = GType . Object <$> jsg "SVGPathSegLinetoAbs" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegLinetoHorizontalAbs". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGPathSeg" -- -- newtype SVGPathSegLinetoHorizontalAbs = SVGPathSegLinetoHorizontalAbs { unSVGPathSegLinetoHorizontalAbs :: JSVal } instance PToJSVal SVGPathSegLinetoHorizontalAbs where pToJSVal = unSVGPathSegLinetoHorizontalAbs {-# INLINE pToJSVal #-} instance PFromJSVal SVGPathSegLinetoHorizontalAbs where pFromJSVal = SVGPathSegLinetoHorizontalAbs {-# INLINE pFromJSVal #-} instance ToJSVal SVGPathSegLinetoHorizontalAbs where toJSVal = return . unSVGPathSegLinetoHorizontalAbs {-# INLINE toJSVal #-} instance FromJSVal SVGPathSegLinetoHorizontalAbs where fromJSVal v = fmap SVGPathSegLinetoHorizontalAbs <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPathSegLinetoHorizontalAbs where makeObject = makeObject . unSVGPathSegLinetoHorizontalAbs instance IsSVGPathSeg SVGPathSegLinetoHorizontalAbs instance IsGObject SVGPathSegLinetoHorizontalAbs where toGObject = GObject . unSVGPathSegLinetoHorizontalAbs {-# INLINE toGObject #-} unsafeCastGObject = SVGPathSegLinetoHorizontalAbs . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPathSegLinetoHorizontalAbs :: IsGObject obj => obj -> JSM SVGPathSegLinetoHorizontalAbs castToSVGPathSegLinetoHorizontalAbs = castTo gTypeSVGPathSegLinetoHorizontalAbs "SVGPathSegLinetoHorizontalAbs" gTypeSVGPathSegLinetoHorizontalAbs :: JSM GType gTypeSVGPathSegLinetoHorizontalAbs = GType . Object <$> jsg "SVGPathSegLinetoHorizontalAbs" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegLinetoHorizontalRel". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGPathSeg" -- -- newtype SVGPathSegLinetoHorizontalRel = SVGPathSegLinetoHorizontalRel { unSVGPathSegLinetoHorizontalRel :: JSVal } instance PToJSVal SVGPathSegLinetoHorizontalRel where pToJSVal = unSVGPathSegLinetoHorizontalRel {-# INLINE pToJSVal #-} instance PFromJSVal SVGPathSegLinetoHorizontalRel where pFromJSVal = SVGPathSegLinetoHorizontalRel {-# INLINE pFromJSVal #-} instance ToJSVal SVGPathSegLinetoHorizontalRel where toJSVal = return . unSVGPathSegLinetoHorizontalRel {-# INLINE toJSVal #-} instance FromJSVal SVGPathSegLinetoHorizontalRel where fromJSVal v = fmap SVGPathSegLinetoHorizontalRel <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPathSegLinetoHorizontalRel where makeObject = makeObject . unSVGPathSegLinetoHorizontalRel instance IsSVGPathSeg SVGPathSegLinetoHorizontalRel instance IsGObject SVGPathSegLinetoHorizontalRel where toGObject = GObject . unSVGPathSegLinetoHorizontalRel {-# INLINE toGObject #-} unsafeCastGObject = SVGPathSegLinetoHorizontalRel . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPathSegLinetoHorizontalRel :: IsGObject obj => obj -> JSM SVGPathSegLinetoHorizontalRel castToSVGPathSegLinetoHorizontalRel = castTo gTypeSVGPathSegLinetoHorizontalRel "SVGPathSegLinetoHorizontalRel" gTypeSVGPathSegLinetoHorizontalRel :: JSM GType gTypeSVGPathSegLinetoHorizontalRel = GType . Object <$> jsg "SVGPathSegLinetoHorizontalRel" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegLinetoRel". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGPathSeg" -- -- newtype SVGPathSegLinetoRel = SVGPathSegLinetoRel { unSVGPathSegLinetoRel :: JSVal } instance PToJSVal SVGPathSegLinetoRel where pToJSVal = unSVGPathSegLinetoRel {-# INLINE pToJSVal #-} instance PFromJSVal SVGPathSegLinetoRel where pFromJSVal = SVGPathSegLinetoRel {-# INLINE pFromJSVal #-} instance ToJSVal SVGPathSegLinetoRel where toJSVal = return . unSVGPathSegLinetoRel {-# INLINE toJSVal #-} instance FromJSVal SVGPathSegLinetoRel where fromJSVal v = fmap SVGPathSegLinetoRel <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPathSegLinetoRel where makeObject = makeObject . unSVGPathSegLinetoRel instance IsSVGPathSeg SVGPathSegLinetoRel instance IsGObject SVGPathSegLinetoRel where toGObject = GObject . unSVGPathSegLinetoRel {-# INLINE toGObject #-} unsafeCastGObject = SVGPathSegLinetoRel . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPathSegLinetoRel :: IsGObject obj => obj -> JSM SVGPathSegLinetoRel castToSVGPathSegLinetoRel = castTo gTypeSVGPathSegLinetoRel "SVGPathSegLinetoRel" gTypeSVGPathSegLinetoRel :: JSM GType gTypeSVGPathSegLinetoRel = GType . Object <$> jsg "SVGPathSegLinetoRel" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegLinetoVerticalAbs". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGPathSeg" -- -- newtype SVGPathSegLinetoVerticalAbs = SVGPathSegLinetoVerticalAbs { unSVGPathSegLinetoVerticalAbs :: JSVal } instance PToJSVal SVGPathSegLinetoVerticalAbs where pToJSVal = unSVGPathSegLinetoVerticalAbs {-# INLINE pToJSVal #-} instance PFromJSVal SVGPathSegLinetoVerticalAbs where pFromJSVal = SVGPathSegLinetoVerticalAbs {-# INLINE pFromJSVal #-} instance ToJSVal SVGPathSegLinetoVerticalAbs where toJSVal = return . unSVGPathSegLinetoVerticalAbs {-# INLINE toJSVal #-} instance FromJSVal SVGPathSegLinetoVerticalAbs where fromJSVal v = fmap SVGPathSegLinetoVerticalAbs <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPathSegLinetoVerticalAbs where makeObject = makeObject . unSVGPathSegLinetoVerticalAbs instance IsSVGPathSeg SVGPathSegLinetoVerticalAbs instance IsGObject SVGPathSegLinetoVerticalAbs where toGObject = GObject . unSVGPathSegLinetoVerticalAbs {-# INLINE toGObject #-} unsafeCastGObject = SVGPathSegLinetoVerticalAbs . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPathSegLinetoVerticalAbs :: IsGObject obj => obj -> JSM SVGPathSegLinetoVerticalAbs castToSVGPathSegLinetoVerticalAbs = castTo gTypeSVGPathSegLinetoVerticalAbs "SVGPathSegLinetoVerticalAbs" gTypeSVGPathSegLinetoVerticalAbs :: JSM GType gTypeSVGPathSegLinetoVerticalAbs = GType . Object <$> jsg "SVGPathSegLinetoVerticalAbs" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegLinetoVerticalRel". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGPathSeg" -- -- newtype SVGPathSegLinetoVerticalRel = SVGPathSegLinetoVerticalRel { unSVGPathSegLinetoVerticalRel :: JSVal } instance PToJSVal SVGPathSegLinetoVerticalRel where pToJSVal = unSVGPathSegLinetoVerticalRel {-# INLINE pToJSVal #-} instance PFromJSVal SVGPathSegLinetoVerticalRel where pFromJSVal = SVGPathSegLinetoVerticalRel {-# INLINE pFromJSVal #-} instance ToJSVal SVGPathSegLinetoVerticalRel where toJSVal = return . unSVGPathSegLinetoVerticalRel {-# INLINE toJSVal #-} instance FromJSVal SVGPathSegLinetoVerticalRel where fromJSVal v = fmap SVGPathSegLinetoVerticalRel <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPathSegLinetoVerticalRel where makeObject = makeObject . unSVGPathSegLinetoVerticalRel instance IsSVGPathSeg SVGPathSegLinetoVerticalRel instance IsGObject SVGPathSegLinetoVerticalRel where toGObject = GObject . unSVGPathSegLinetoVerticalRel {-# INLINE toGObject #-} unsafeCastGObject = SVGPathSegLinetoVerticalRel . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPathSegLinetoVerticalRel :: IsGObject obj => obj -> JSM SVGPathSegLinetoVerticalRel castToSVGPathSegLinetoVerticalRel = castTo gTypeSVGPathSegLinetoVerticalRel "SVGPathSegLinetoVerticalRel" gTypeSVGPathSegLinetoVerticalRel :: JSM GType gTypeSVGPathSegLinetoVerticalRel = GType . Object <$> jsg "SVGPathSegLinetoVerticalRel" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegList". -- -- newtype SVGPathSegList = SVGPathSegList { unSVGPathSegList :: JSVal } instance PToJSVal SVGPathSegList where pToJSVal = unSVGPathSegList {-# INLINE pToJSVal #-} instance PFromJSVal SVGPathSegList where pFromJSVal = SVGPathSegList {-# INLINE pFromJSVal #-} instance ToJSVal SVGPathSegList where toJSVal = return . unSVGPathSegList {-# INLINE toJSVal #-} instance FromJSVal SVGPathSegList where fromJSVal v = fmap SVGPathSegList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPathSegList where makeObject = makeObject . unSVGPathSegList instance IsGObject SVGPathSegList where toGObject = GObject . unSVGPathSegList {-# INLINE toGObject #-} unsafeCastGObject = SVGPathSegList . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPathSegList :: IsGObject obj => obj -> JSM SVGPathSegList castToSVGPathSegList = castTo gTypeSVGPathSegList "SVGPathSegList" gTypeSVGPathSegList :: JSM GType gTypeSVGPathSegList = GType . Object <$> jsg "SVGPathSegList" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegMovetoAbs". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGPathSeg" -- -- newtype SVGPathSegMovetoAbs = SVGPathSegMovetoAbs { unSVGPathSegMovetoAbs :: JSVal } instance PToJSVal SVGPathSegMovetoAbs where pToJSVal = unSVGPathSegMovetoAbs {-# INLINE pToJSVal #-} instance PFromJSVal SVGPathSegMovetoAbs where pFromJSVal = SVGPathSegMovetoAbs {-# INLINE pFromJSVal #-} instance ToJSVal SVGPathSegMovetoAbs where toJSVal = return . unSVGPathSegMovetoAbs {-# INLINE toJSVal #-} instance FromJSVal SVGPathSegMovetoAbs where fromJSVal v = fmap SVGPathSegMovetoAbs <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPathSegMovetoAbs where makeObject = makeObject . unSVGPathSegMovetoAbs instance IsSVGPathSeg SVGPathSegMovetoAbs instance IsGObject SVGPathSegMovetoAbs where toGObject = GObject . unSVGPathSegMovetoAbs {-# INLINE toGObject #-} unsafeCastGObject = SVGPathSegMovetoAbs . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPathSegMovetoAbs :: IsGObject obj => obj -> JSM SVGPathSegMovetoAbs castToSVGPathSegMovetoAbs = castTo gTypeSVGPathSegMovetoAbs "SVGPathSegMovetoAbs" gTypeSVGPathSegMovetoAbs :: JSM GType gTypeSVGPathSegMovetoAbs = GType . Object <$> jsg "SVGPathSegMovetoAbs" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegMovetoRel". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGPathSeg" -- -- newtype SVGPathSegMovetoRel = SVGPathSegMovetoRel { unSVGPathSegMovetoRel :: JSVal } instance PToJSVal SVGPathSegMovetoRel where pToJSVal = unSVGPathSegMovetoRel {-# INLINE pToJSVal #-} instance PFromJSVal SVGPathSegMovetoRel where pFromJSVal = SVGPathSegMovetoRel {-# INLINE pFromJSVal #-} instance ToJSVal SVGPathSegMovetoRel where toJSVal = return . unSVGPathSegMovetoRel {-# INLINE toJSVal #-} instance FromJSVal SVGPathSegMovetoRel where fromJSVal v = fmap SVGPathSegMovetoRel <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPathSegMovetoRel where makeObject = makeObject . unSVGPathSegMovetoRel instance IsSVGPathSeg SVGPathSegMovetoRel instance IsGObject SVGPathSegMovetoRel where toGObject = GObject . unSVGPathSegMovetoRel {-# INLINE toGObject #-} unsafeCastGObject = SVGPathSegMovetoRel . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPathSegMovetoRel :: IsGObject obj => obj -> JSM SVGPathSegMovetoRel castToSVGPathSegMovetoRel = castTo gTypeSVGPathSegMovetoRel "SVGPathSegMovetoRel" gTypeSVGPathSegMovetoRel :: JSM GType gTypeSVGPathSegMovetoRel = GType . Object <$> jsg "SVGPathSegMovetoRel" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPatternElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGPatternElement = SVGPatternElement { unSVGPatternElement :: JSVal } instance PToJSVal SVGPatternElement where pToJSVal = unSVGPatternElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGPatternElement where pFromJSVal = SVGPatternElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGPatternElement where toJSVal = return . unSVGPatternElement {-# INLINE toJSVal #-} instance FromJSVal SVGPatternElement where fromJSVal v = fmap SVGPatternElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPatternElement where makeObject = makeObject . unSVGPatternElement instance IsSVGElement SVGPatternElement instance IsElement SVGPatternElement instance IsNode SVGPatternElement instance IsEventTarget SVGPatternElement instance IsGObject SVGPatternElement where toGObject = GObject . unSVGPatternElement {-# INLINE toGObject #-} unsafeCastGObject = SVGPatternElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPatternElement :: IsGObject obj => obj -> JSM SVGPatternElement castToSVGPatternElement = castTo gTypeSVGPatternElement "SVGPatternElement" gTypeSVGPatternElement :: JSM GType gTypeSVGPatternElement = GType . Object <$> jsg "SVGPatternElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPoint". -- -- newtype SVGPoint = SVGPoint { unSVGPoint :: JSVal } instance PToJSVal SVGPoint where pToJSVal = unSVGPoint {-# INLINE pToJSVal #-} instance PFromJSVal SVGPoint where pFromJSVal = SVGPoint {-# INLINE pFromJSVal #-} instance ToJSVal SVGPoint where toJSVal = return . unSVGPoint {-# INLINE toJSVal #-} instance FromJSVal SVGPoint where fromJSVal v = fmap SVGPoint <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPoint where makeObject = makeObject . unSVGPoint instance IsGObject SVGPoint where toGObject = GObject . unSVGPoint {-# INLINE toGObject #-} unsafeCastGObject = SVGPoint . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPoint :: IsGObject obj => obj -> JSM SVGPoint castToSVGPoint = castTo gTypeSVGPoint "SVGPoint" gTypeSVGPoint :: JSM GType gTypeSVGPoint = GType . Object <$> jsg "SVGPoint" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPointList". -- -- newtype SVGPointList = SVGPointList { unSVGPointList :: JSVal } instance PToJSVal SVGPointList where pToJSVal = unSVGPointList {-# INLINE pToJSVal #-} instance PFromJSVal SVGPointList where pFromJSVal = SVGPointList {-# INLINE pFromJSVal #-} instance ToJSVal SVGPointList where toJSVal = return . unSVGPointList {-# INLINE toJSVal #-} instance FromJSVal SVGPointList where fromJSVal v = fmap SVGPointList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPointList where makeObject = makeObject . unSVGPointList instance IsGObject SVGPointList where toGObject = GObject . unSVGPointList {-# INLINE toGObject #-} unsafeCastGObject = SVGPointList . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPointList :: IsGObject obj => obj -> JSM SVGPointList castToSVGPointList = castTo gTypeSVGPointList "SVGPointList" gTypeSVGPointList :: JSM GType gTypeSVGPointList = GType . Object <$> jsg "SVGPointList" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPolygonElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGPolygonElement = SVGPolygonElement { unSVGPolygonElement :: JSVal } instance PToJSVal SVGPolygonElement where pToJSVal = unSVGPolygonElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGPolygonElement where pFromJSVal = SVGPolygonElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGPolygonElement where toJSVal = return . unSVGPolygonElement {-# INLINE toJSVal #-} instance FromJSVal SVGPolygonElement where fromJSVal v = fmap SVGPolygonElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPolygonElement where makeObject = makeObject . unSVGPolygonElement instance IsSVGGraphicsElement SVGPolygonElement instance IsSVGElement SVGPolygonElement instance IsElement SVGPolygonElement instance IsNode SVGPolygonElement instance IsEventTarget SVGPolygonElement instance IsGObject SVGPolygonElement where toGObject = GObject . unSVGPolygonElement {-# INLINE toGObject #-} unsafeCastGObject = SVGPolygonElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPolygonElement :: IsGObject obj => obj -> JSM SVGPolygonElement castToSVGPolygonElement = castTo gTypeSVGPolygonElement "SVGPolygonElement" gTypeSVGPolygonElement :: JSM GType gTypeSVGPolygonElement = GType . Object <$> jsg "SVGPolygonElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPolylineElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGPolylineElement = SVGPolylineElement { unSVGPolylineElement :: JSVal } instance PToJSVal SVGPolylineElement where pToJSVal = unSVGPolylineElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGPolylineElement where pFromJSVal = SVGPolylineElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGPolylineElement where toJSVal = return . unSVGPolylineElement {-# INLINE toJSVal #-} instance FromJSVal SVGPolylineElement where fromJSVal v = fmap SVGPolylineElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPolylineElement where makeObject = makeObject . unSVGPolylineElement instance IsSVGGraphicsElement SVGPolylineElement instance IsSVGElement SVGPolylineElement instance IsElement SVGPolylineElement instance IsNode SVGPolylineElement instance IsEventTarget SVGPolylineElement instance IsGObject SVGPolylineElement where toGObject = GObject . unSVGPolylineElement {-# INLINE toGObject #-} unsafeCastGObject = SVGPolylineElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPolylineElement :: IsGObject obj => obj -> JSM SVGPolylineElement castToSVGPolylineElement = castTo gTypeSVGPolylineElement "SVGPolylineElement" gTypeSVGPolylineElement :: JSM GType gTypeSVGPolylineElement = GType . Object <$> jsg "SVGPolylineElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPreserveAspectRatio". -- -- newtype SVGPreserveAspectRatio = SVGPreserveAspectRatio { unSVGPreserveAspectRatio :: JSVal } instance PToJSVal SVGPreserveAspectRatio where pToJSVal = unSVGPreserveAspectRatio {-# INLINE pToJSVal #-} instance PFromJSVal SVGPreserveAspectRatio where pFromJSVal = SVGPreserveAspectRatio {-# INLINE pFromJSVal #-} instance ToJSVal SVGPreserveAspectRatio where toJSVal = return . unSVGPreserveAspectRatio {-# INLINE toJSVal #-} instance FromJSVal SVGPreserveAspectRatio where fromJSVal v = fmap SVGPreserveAspectRatio <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGPreserveAspectRatio where makeObject = makeObject . unSVGPreserveAspectRatio instance IsGObject SVGPreserveAspectRatio where toGObject = GObject . unSVGPreserveAspectRatio {-# INLINE toGObject #-} unsafeCastGObject = SVGPreserveAspectRatio . unGObject {-# INLINE unsafeCastGObject #-} castToSVGPreserveAspectRatio :: IsGObject obj => obj -> JSM SVGPreserveAspectRatio castToSVGPreserveAspectRatio = castTo gTypeSVGPreserveAspectRatio "SVGPreserveAspectRatio" gTypeSVGPreserveAspectRatio :: JSM GType gTypeSVGPreserveAspectRatio = GType . Object <$> jsg "SVGPreserveAspectRatio" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGRadialGradientElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGGradientElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGRadialGradientElement = SVGRadialGradientElement { unSVGRadialGradientElement :: JSVal } instance PToJSVal SVGRadialGradientElement where pToJSVal = unSVGRadialGradientElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGRadialGradientElement where pFromJSVal = SVGRadialGradientElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGRadialGradientElement where toJSVal = return . unSVGRadialGradientElement {-# INLINE toJSVal #-} instance FromJSVal SVGRadialGradientElement where fromJSVal v = fmap SVGRadialGradientElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGRadialGradientElement where makeObject = makeObject . unSVGRadialGradientElement instance IsSVGGradientElement SVGRadialGradientElement instance IsSVGElement SVGRadialGradientElement instance IsElement SVGRadialGradientElement instance IsNode SVGRadialGradientElement instance IsEventTarget SVGRadialGradientElement instance IsGObject SVGRadialGradientElement where toGObject = GObject . unSVGRadialGradientElement {-# INLINE toGObject #-} unsafeCastGObject = SVGRadialGradientElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGRadialGradientElement :: IsGObject obj => obj -> JSM SVGRadialGradientElement castToSVGRadialGradientElement = castTo gTypeSVGRadialGradientElement "SVGRadialGradientElement" gTypeSVGRadialGradientElement :: JSM GType gTypeSVGRadialGradientElement = GType . Object <$> jsg "SVGRadialGradientElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGRect". -- -- newtype SVGRect = SVGRect { unSVGRect :: JSVal } instance PToJSVal SVGRect where pToJSVal = unSVGRect {-# INLINE pToJSVal #-} instance PFromJSVal SVGRect where pFromJSVal = SVGRect {-# INLINE pFromJSVal #-} instance ToJSVal SVGRect where toJSVal = return . unSVGRect {-# INLINE toJSVal #-} instance FromJSVal SVGRect where fromJSVal v = fmap SVGRect <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGRect where makeObject = makeObject . unSVGRect instance IsGObject SVGRect where toGObject = GObject . unSVGRect {-# INLINE toGObject #-} unsafeCastGObject = SVGRect . unGObject {-# INLINE unsafeCastGObject #-} castToSVGRect :: IsGObject obj => obj -> JSM SVGRect castToSVGRect = castTo gTypeSVGRect "SVGRect" gTypeSVGRect :: JSM GType gTypeSVGRect = GType . Object <$> jsg "SVGRect" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGRectElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGRectElement = SVGRectElement { unSVGRectElement :: JSVal } instance PToJSVal SVGRectElement where pToJSVal = unSVGRectElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGRectElement where pFromJSVal = SVGRectElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGRectElement where toJSVal = return . unSVGRectElement {-# INLINE toJSVal #-} instance FromJSVal SVGRectElement where fromJSVal v = fmap SVGRectElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGRectElement where makeObject = makeObject . unSVGRectElement instance IsSVGGraphicsElement SVGRectElement instance IsSVGElement SVGRectElement instance IsElement SVGRectElement instance IsNode SVGRectElement instance IsEventTarget SVGRectElement instance IsGObject SVGRectElement where toGObject = GObject . unSVGRectElement {-# INLINE toGObject #-} unsafeCastGObject = SVGRectElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGRectElement :: IsGObject obj => obj -> JSM SVGRectElement castToSVGRectElement = castTo gTypeSVGRectElement "SVGRectElement" gTypeSVGRectElement :: JSM GType gTypeSVGRectElement = GType . Object <$> jsg "SVGRectElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGRenderingIntent". -- -- newtype SVGRenderingIntent = SVGRenderingIntent { unSVGRenderingIntent :: JSVal } instance PToJSVal SVGRenderingIntent where pToJSVal = unSVGRenderingIntent {-# INLINE pToJSVal #-} instance PFromJSVal SVGRenderingIntent where pFromJSVal = SVGRenderingIntent {-# INLINE pFromJSVal #-} instance ToJSVal SVGRenderingIntent where toJSVal = return . unSVGRenderingIntent {-# INLINE toJSVal #-} instance FromJSVal SVGRenderingIntent where fromJSVal v = fmap SVGRenderingIntent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGRenderingIntent where makeObject = makeObject . unSVGRenderingIntent instance IsGObject SVGRenderingIntent where toGObject = GObject . unSVGRenderingIntent {-# INLINE toGObject #-} unsafeCastGObject = SVGRenderingIntent . unGObject {-# INLINE unsafeCastGObject #-} castToSVGRenderingIntent :: IsGObject obj => obj -> JSM SVGRenderingIntent castToSVGRenderingIntent = castTo gTypeSVGRenderingIntent "SVGRenderingIntent" gTypeSVGRenderingIntent :: JSM GType gTypeSVGRenderingIntent = GType . Object <$> jsg "SVGRenderingIntent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGSVGElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGSVGElement = SVGSVGElement { unSVGSVGElement :: JSVal } instance PToJSVal SVGSVGElement where pToJSVal = unSVGSVGElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGSVGElement where pFromJSVal = SVGSVGElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGSVGElement where toJSVal = return . unSVGSVGElement {-# INLINE toJSVal #-} instance FromJSVal SVGSVGElement where fromJSVal v = fmap SVGSVGElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGSVGElement where makeObject = makeObject . unSVGSVGElement instance IsSVGGraphicsElement SVGSVGElement instance IsSVGElement SVGSVGElement instance IsElement SVGSVGElement instance IsNode SVGSVGElement instance IsEventTarget SVGSVGElement instance IsGObject SVGSVGElement where toGObject = GObject . unSVGSVGElement {-# INLINE toGObject #-} unsafeCastGObject = SVGSVGElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGSVGElement :: IsGObject obj => obj -> JSM SVGSVGElement castToSVGSVGElement = castTo gTypeSVGSVGElement "SVGSVGElement" gTypeSVGSVGElement :: JSM GType gTypeSVGSVGElement = GType . Object <$> jsg "SVGSVGElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGScriptElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGScriptElement = SVGScriptElement { unSVGScriptElement :: JSVal } instance PToJSVal SVGScriptElement where pToJSVal = unSVGScriptElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGScriptElement where pFromJSVal = SVGScriptElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGScriptElement where toJSVal = return . unSVGScriptElement {-# INLINE toJSVal #-} instance FromJSVal SVGScriptElement where fromJSVal v = fmap SVGScriptElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGScriptElement where makeObject = makeObject . unSVGScriptElement instance IsSVGElement SVGScriptElement instance IsElement SVGScriptElement instance IsNode SVGScriptElement instance IsEventTarget SVGScriptElement instance IsGObject SVGScriptElement where toGObject = GObject . unSVGScriptElement {-# INLINE toGObject #-} unsafeCastGObject = SVGScriptElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGScriptElement :: IsGObject obj => obj -> JSM SVGScriptElement castToSVGScriptElement = castTo gTypeSVGScriptElement "SVGScriptElement" gTypeSVGScriptElement :: JSM GType gTypeSVGScriptElement = GType . Object <$> jsg "SVGScriptElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGSetElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGAnimationElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGSetElement = SVGSetElement { unSVGSetElement :: JSVal } instance PToJSVal SVGSetElement where pToJSVal = unSVGSetElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGSetElement where pFromJSVal = SVGSetElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGSetElement where toJSVal = return . unSVGSetElement {-# INLINE toJSVal #-} instance FromJSVal SVGSetElement where fromJSVal v = fmap SVGSetElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGSetElement where makeObject = makeObject . unSVGSetElement instance IsSVGAnimationElement SVGSetElement instance IsSVGElement SVGSetElement instance IsElement SVGSetElement instance IsNode SVGSetElement instance IsEventTarget SVGSetElement instance IsGObject SVGSetElement where toGObject = GObject . unSVGSetElement {-# INLINE toGObject #-} unsafeCastGObject = SVGSetElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGSetElement :: IsGObject obj => obj -> JSM SVGSetElement castToSVGSetElement = castTo gTypeSVGSetElement "SVGSetElement" gTypeSVGSetElement :: JSM GType gTypeSVGSetElement = GType . Object <$> jsg "SVGSetElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGStopElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGStopElement = SVGStopElement { unSVGStopElement :: JSVal } instance PToJSVal SVGStopElement where pToJSVal = unSVGStopElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGStopElement where pFromJSVal = SVGStopElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGStopElement where toJSVal = return . unSVGStopElement {-# INLINE toJSVal #-} instance FromJSVal SVGStopElement where fromJSVal v = fmap SVGStopElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGStopElement where makeObject = makeObject . unSVGStopElement instance IsSVGElement SVGStopElement instance IsElement SVGStopElement instance IsNode SVGStopElement instance IsEventTarget SVGStopElement instance IsGObject SVGStopElement where toGObject = GObject . unSVGStopElement {-# INLINE toGObject #-} unsafeCastGObject = SVGStopElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGStopElement :: IsGObject obj => obj -> JSM SVGStopElement castToSVGStopElement = castTo gTypeSVGStopElement "SVGStopElement" gTypeSVGStopElement :: JSM GType gTypeSVGStopElement = GType . Object <$> jsg "SVGStopElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGStringList". -- -- newtype SVGStringList = SVGStringList { unSVGStringList :: JSVal } instance PToJSVal SVGStringList where pToJSVal = unSVGStringList {-# INLINE pToJSVal #-} instance PFromJSVal SVGStringList where pFromJSVal = SVGStringList {-# INLINE pFromJSVal #-} instance ToJSVal SVGStringList where toJSVal = return . unSVGStringList {-# INLINE toJSVal #-} instance FromJSVal SVGStringList where fromJSVal v = fmap SVGStringList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGStringList where makeObject = makeObject . unSVGStringList instance IsGObject SVGStringList where toGObject = GObject . unSVGStringList {-# INLINE toGObject #-} unsafeCastGObject = SVGStringList . unGObject {-# INLINE unsafeCastGObject #-} castToSVGStringList :: IsGObject obj => obj -> JSM SVGStringList castToSVGStringList = castTo gTypeSVGStringList "SVGStringList" gTypeSVGStringList :: JSM GType gTypeSVGStringList = GType . Object <$> jsg "SVGStringList" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGStyleElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGStyleElement = SVGStyleElement { unSVGStyleElement :: JSVal } instance PToJSVal SVGStyleElement where pToJSVal = unSVGStyleElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGStyleElement where pFromJSVal = SVGStyleElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGStyleElement where toJSVal = return . unSVGStyleElement {-# INLINE toJSVal #-} instance FromJSVal SVGStyleElement where fromJSVal v = fmap SVGStyleElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGStyleElement where makeObject = makeObject . unSVGStyleElement instance IsSVGElement SVGStyleElement instance IsElement SVGStyleElement instance IsNode SVGStyleElement instance IsEventTarget SVGStyleElement instance IsGObject SVGStyleElement where toGObject = GObject . unSVGStyleElement {-# INLINE toGObject #-} unsafeCastGObject = SVGStyleElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGStyleElement :: IsGObject obj => obj -> JSM SVGStyleElement castToSVGStyleElement = castTo gTypeSVGStyleElement "SVGStyleElement" gTypeSVGStyleElement :: JSM GType gTypeSVGStyleElement = GType . Object <$> jsg "SVGStyleElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGSwitchElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGSwitchElement = SVGSwitchElement { unSVGSwitchElement :: JSVal } instance PToJSVal SVGSwitchElement where pToJSVal = unSVGSwitchElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGSwitchElement where pFromJSVal = SVGSwitchElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGSwitchElement where toJSVal = return . unSVGSwitchElement {-# INLINE toJSVal #-} instance FromJSVal SVGSwitchElement where fromJSVal v = fmap SVGSwitchElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGSwitchElement where makeObject = makeObject . unSVGSwitchElement instance IsSVGGraphicsElement SVGSwitchElement instance IsSVGElement SVGSwitchElement instance IsElement SVGSwitchElement instance IsNode SVGSwitchElement instance IsEventTarget SVGSwitchElement instance IsGObject SVGSwitchElement where toGObject = GObject . unSVGSwitchElement {-# INLINE toGObject #-} unsafeCastGObject = SVGSwitchElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGSwitchElement :: IsGObject obj => obj -> JSM SVGSwitchElement castToSVGSwitchElement = castTo gTypeSVGSwitchElement "SVGSwitchElement" gTypeSVGSwitchElement :: JSM GType gTypeSVGSwitchElement = GType . Object <$> jsg "SVGSwitchElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGSymbolElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGSymbolElement = SVGSymbolElement { unSVGSymbolElement :: JSVal } instance PToJSVal SVGSymbolElement where pToJSVal = unSVGSymbolElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGSymbolElement where pFromJSVal = SVGSymbolElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGSymbolElement where toJSVal = return . unSVGSymbolElement {-# INLINE toJSVal #-} instance FromJSVal SVGSymbolElement where fromJSVal v = fmap SVGSymbolElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGSymbolElement where makeObject = makeObject . unSVGSymbolElement instance IsSVGElement SVGSymbolElement instance IsElement SVGSymbolElement instance IsNode SVGSymbolElement instance IsEventTarget SVGSymbolElement instance IsGObject SVGSymbolElement where toGObject = GObject . unSVGSymbolElement {-# INLINE toGObject #-} unsafeCastGObject = SVGSymbolElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGSymbolElement :: IsGObject obj => obj -> JSM SVGSymbolElement castToSVGSymbolElement = castTo gTypeSVGSymbolElement "SVGSymbolElement" gTypeSVGSymbolElement :: JSM GType gTypeSVGSymbolElement = GType . Object <$> jsg "SVGSymbolElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGTRefElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGTextPositioningElement" -- * "Language.Javascript.JSaddle.DOM.SVGTextContentElement" -- * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGTRefElement = SVGTRefElement { unSVGTRefElement :: JSVal } instance PToJSVal SVGTRefElement where pToJSVal = unSVGTRefElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGTRefElement where pFromJSVal = SVGTRefElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGTRefElement where toJSVal = return . unSVGTRefElement {-# INLINE toJSVal #-} instance FromJSVal SVGTRefElement where fromJSVal v = fmap SVGTRefElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGTRefElement where makeObject = makeObject . unSVGTRefElement instance IsSVGTextPositioningElement SVGTRefElement instance IsSVGTextContentElement SVGTRefElement instance IsSVGGraphicsElement SVGTRefElement instance IsSVGElement SVGTRefElement instance IsElement SVGTRefElement instance IsNode SVGTRefElement instance IsEventTarget SVGTRefElement instance IsGObject SVGTRefElement where toGObject = GObject . unSVGTRefElement {-# INLINE toGObject #-} unsafeCastGObject = SVGTRefElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGTRefElement :: IsGObject obj => obj -> JSM SVGTRefElement castToSVGTRefElement = castTo gTypeSVGTRefElement "SVGTRefElement" gTypeSVGTRefElement :: JSM GType gTypeSVGTRefElement = GType . Object <$> jsg "SVGTRefElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGTSpanElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGTextPositioningElement" -- * "Language.Javascript.JSaddle.DOM.SVGTextContentElement" -- * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGTSpanElement = SVGTSpanElement { unSVGTSpanElement :: JSVal } instance PToJSVal SVGTSpanElement where pToJSVal = unSVGTSpanElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGTSpanElement where pFromJSVal = SVGTSpanElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGTSpanElement where toJSVal = return . unSVGTSpanElement {-# INLINE toJSVal #-} instance FromJSVal SVGTSpanElement where fromJSVal v = fmap SVGTSpanElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGTSpanElement where makeObject = makeObject . unSVGTSpanElement instance IsSVGTextPositioningElement SVGTSpanElement instance IsSVGTextContentElement SVGTSpanElement instance IsSVGGraphicsElement SVGTSpanElement instance IsSVGElement SVGTSpanElement instance IsElement SVGTSpanElement instance IsNode SVGTSpanElement instance IsEventTarget SVGTSpanElement instance IsGObject SVGTSpanElement where toGObject = GObject . unSVGTSpanElement {-# INLINE toGObject #-} unsafeCastGObject = SVGTSpanElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGTSpanElement :: IsGObject obj => obj -> JSM SVGTSpanElement castToSVGTSpanElement = castTo gTypeSVGTSpanElement "SVGTSpanElement" gTypeSVGTSpanElement :: JSM GType gTypeSVGTSpanElement = GType . Object <$> jsg "SVGTSpanElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGTests". -- -- newtype SVGTests = SVGTests { unSVGTests :: JSVal } instance PToJSVal SVGTests where pToJSVal = unSVGTests {-# INLINE pToJSVal #-} instance PFromJSVal SVGTests where pFromJSVal = SVGTests {-# INLINE pFromJSVal #-} instance ToJSVal SVGTests where toJSVal = return . unSVGTests {-# INLINE toJSVal #-} instance FromJSVal SVGTests where fromJSVal v = fmap SVGTests <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGTests where makeObject = makeObject . unSVGTests instance IsGObject SVGTests where toGObject = GObject . unSVGTests {-# INLINE toGObject #-} unsafeCastGObject = SVGTests . unGObject {-# INLINE unsafeCastGObject #-} castToSVGTests :: IsGObject obj => obj -> JSM SVGTests castToSVGTests = castTo gTypeSVGTests "SVGTests" gTypeSVGTests :: JSM GType gTypeSVGTests = GType . Object <$> jsg "SVGTests" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGTextContentElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGTextContentElement = SVGTextContentElement { unSVGTextContentElement :: JSVal } instance PToJSVal SVGTextContentElement where pToJSVal = unSVGTextContentElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGTextContentElement where pFromJSVal = SVGTextContentElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGTextContentElement where toJSVal = return . unSVGTextContentElement {-# INLINE toJSVal #-} instance FromJSVal SVGTextContentElement where fromJSVal v = fmap SVGTextContentElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGTextContentElement where makeObject = makeObject . unSVGTextContentElement class IsSVGGraphicsElement o => IsSVGTextContentElement o toSVGTextContentElement :: IsSVGTextContentElement o => o -> SVGTextContentElement toSVGTextContentElement = unsafeCastGObject . toGObject instance IsSVGTextContentElement SVGTextContentElement instance IsSVGGraphicsElement SVGTextContentElement instance IsSVGElement SVGTextContentElement instance IsElement SVGTextContentElement instance IsNode SVGTextContentElement instance IsEventTarget SVGTextContentElement instance IsGObject SVGTextContentElement where toGObject = GObject . unSVGTextContentElement {-# INLINE toGObject #-} unsafeCastGObject = SVGTextContentElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGTextContentElement :: IsGObject obj => obj -> JSM SVGTextContentElement castToSVGTextContentElement = castTo gTypeSVGTextContentElement "SVGTextContentElement" gTypeSVGTextContentElement :: JSM GType gTypeSVGTextContentElement = GType . Object <$> jsg "SVGTextContentElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGTextElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGTextPositioningElement" -- * "Language.Javascript.JSaddle.DOM.SVGTextContentElement" -- * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGTextElement = SVGTextElement { unSVGTextElement :: JSVal } instance PToJSVal SVGTextElement where pToJSVal = unSVGTextElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGTextElement where pFromJSVal = SVGTextElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGTextElement where toJSVal = return . unSVGTextElement {-# INLINE toJSVal #-} instance FromJSVal SVGTextElement where fromJSVal v = fmap SVGTextElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGTextElement where makeObject = makeObject . unSVGTextElement instance IsSVGTextPositioningElement SVGTextElement instance IsSVGTextContentElement SVGTextElement instance IsSVGGraphicsElement SVGTextElement instance IsSVGElement SVGTextElement instance IsElement SVGTextElement instance IsNode SVGTextElement instance IsEventTarget SVGTextElement instance IsGObject SVGTextElement where toGObject = GObject . unSVGTextElement {-# INLINE toGObject #-} unsafeCastGObject = SVGTextElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGTextElement :: IsGObject obj => obj -> JSM SVGTextElement castToSVGTextElement = castTo gTypeSVGTextElement "SVGTextElement" gTypeSVGTextElement :: JSM GType gTypeSVGTextElement = GType . Object <$> jsg "SVGTextElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGTextPathElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGTextContentElement" -- * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGTextPathElement = SVGTextPathElement { unSVGTextPathElement :: JSVal } instance PToJSVal SVGTextPathElement where pToJSVal = unSVGTextPathElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGTextPathElement where pFromJSVal = SVGTextPathElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGTextPathElement where toJSVal = return . unSVGTextPathElement {-# INLINE toJSVal #-} instance FromJSVal SVGTextPathElement where fromJSVal v = fmap SVGTextPathElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGTextPathElement where makeObject = makeObject . unSVGTextPathElement instance IsSVGTextContentElement SVGTextPathElement instance IsSVGGraphicsElement SVGTextPathElement instance IsSVGElement SVGTextPathElement instance IsElement SVGTextPathElement instance IsNode SVGTextPathElement instance IsEventTarget SVGTextPathElement instance IsGObject SVGTextPathElement where toGObject = GObject . unSVGTextPathElement {-# INLINE toGObject #-} unsafeCastGObject = SVGTextPathElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGTextPathElement :: IsGObject obj => obj -> JSM SVGTextPathElement castToSVGTextPathElement = castTo gTypeSVGTextPathElement "SVGTextPathElement" gTypeSVGTextPathElement :: JSM GType gTypeSVGTextPathElement = GType . Object <$> jsg "SVGTextPathElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGTextPositioningElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGTextContentElement" -- * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGTextPositioningElement = SVGTextPositioningElement { unSVGTextPositioningElement :: JSVal } instance PToJSVal SVGTextPositioningElement where pToJSVal = unSVGTextPositioningElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGTextPositioningElement where pFromJSVal = SVGTextPositioningElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGTextPositioningElement where toJSVal = return . unSVGTextPositioningElement {-# INLINE toJSVal #-} instance FromJSVal SVGTextPositioningElement where fromJSVal v = fmap SVGTextPositioningElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGTextPositioningElement where makeObject = makeObject . unSVGTextPositioningElement class IsSVGTextContentElement o => IsSVGTextPositioningElement o toSVGTextPositioningElement :: IsSVGTextPositioningElement o => o -> SVGTextPositioningElement toSVGTextPositioningElement = unsafeCastGObject . toGObject instance IsSVGTextPositioningElement SVGTextPositioningElement instance IsSVGTextContentElement SVGTextPositioningElement instance IsSVGGraphicsElement SVGTextPositioningElement instance IsSVGElement SVGTextPositioningElement instance IsElement SVGTextPositioningElement instance IsNode SVGTextPositioningElement instance IsEventTarget SVGTextPositioningElement instance IsGObject SVGTextPositioningElement where toGObject = GObject . unSVGTextPositioningElement {-# INLINE toGObject #-} unsafeCastGObject = SVGTextPositioningElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGTextPositioningElement :: IsGObject obj => obj -> JSM SVGTextPositioningElement castToSVGTextPositioningElement = castTo gTypeSVGTextPositioningElement "SVGTextPositioningElement" gTypeSVGTextPositioningElement :: JSM GType gTypeSVGTextPositioningElement = GType . Object <$> jsg "SVGTextPositioningElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGTitleElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGTitleElement = SVGTitleElement { unSVGTitleElement :: JSVal } instance PToJSVal SVGTitleElement where pToJSVal = unSVGTitleElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGTitleElement where pFromJSVal = SVGTitleElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGTitleElement where toJSVal = return . unSVGTitleElement {-# INLINE toJSVal #-} instance FromJSVal SVGTitleElement where fromJSVal v = fmap SVGTitleElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGTitleElement where makeObject = makeObject . unSVGTitleElement instance IsSVGElement SVGTitleElement instance IsElement SVGTitleElement instance IsNode SVGTitleElement instance IsEventTarget SVGTitleElement instance IsGObject SVGTitleElement where toGObject = GObject . unSVGTitleElement {-# INLINE toGObject #-} unsafeCastGObject = SVGTitleElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGTitleElement :: IsGObject obj => obj -> JSM SVGTitleElement castToSVGTitleElement = castTo gTypeSVGTitleElement "SVGTitleElement" gTypeSVGTitleElement :: JSM GType gTypeSVGTitleElement = GType . Object <$> jsg "SVGTitleElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGTransform". -- -- newtype SVGTransform = SVGTransform { unSVGTransform :: JSVal } instance PToJSVal SVGTransform where pToJSVal = unSVGTransform {-# INLINE pToJSVal #-} instance PFromJSVal SVGTransform where pFromJSVal = SVGTransform {-# INLINE pFromJSVal #-} instance ToJSVal SVGTransform where toJSVal = return . unSVGTransform {-# INLINE toJSVal #-} instance FromJSVal SVGTransform where fromJSVal v = fmap SVGTransform <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGTransform where makeObject = makeObject . unSVGTransform instance IsGObject SVGTransform where toGObject = GObject . unSVGTransform {-# INLINE toGObject #-} unsafeCastGObject = SVGTransform . unGObject {-# INLINE unsafeCastGObject #-} castToSVGTransform :: IsGObject obj => obj -> JSM SVGTransform castToSVGTransform = castTo gTypeSVGTransform "SVGTransform" gTypeSVGTransform :: JSM GType gTypeSVGTransform = GType . Object <$> jsg "SVGTransform" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGTransformList". -- -- newtype SVGTransformList = SVGTransformList { unSVGTransformList :: JSVal } instance PToJSVal SVGTransformList where pToJSVal = unSVGTransformList {-# INLINE pToJSVal #-} instance PFromJSVal SVGTransformList where pFromJSVal = SVGTransformList {-# INLINE pFromJSVal #-} instance ToJSVal SVGTransformList where toJSVal = return . unSVGTransformList {-# INLINE toJSVal #-} instance FromJSVal SVGTransformList where fromJSVal v = fmap SVGTransformList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGTransformList where makeObject = makeObject . unSVGTransformList instance IsGObject SVGTransformList where toGObject = GObject . unSVGTransformList {-# INLINE toGObject #-} unsafeCastGObject = SVGTransformList . unGObject {-# INLINE unsafeCastGObject #-} castToSVGTransformList :: IsGObject obj => obj -> JSM SVGTransformList castToSVGTransformList = castTo gTypeSVGTransformList "SVGTransformList" gTypeSVGTransformList :: JSM GType gTypeSVGTransformList = GType . Object <$> jsg "SVGTransformList" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGURIReference". -- -- newtype SVGURIReference = SVGURIReference { unSVGURIReference :: JSVal } instance PToJSVal SVGURIReference where pToJSVal = unSVGURIReference {-# INLINE pToJSVal #-} instance PFromJSVal SVGURIReference where pFromJSVal = SVGURIReference {-# INLINE pFromJSVal #-} instance ToJSVal SVGURIReference where toJSVal = return . unSVGURIReference {-# INLINE toJSVal #-} instance FromJSVal SVGURIReference where fromJSVal v = fmap SVGURIReference <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGURIReference where makeObject = makeObject . unSVGURIReference instance IsGObject SVGURIReference where toGObject = GObject . unSVGURIReference {-# INLINE toGObject #-} unsafeCastGObject = SVGURIReference . unGObject {-# INLINE unsafeCastGObject #-} castToSVGURIReference :: IsGObject obj => obj -> JSM SVGURIReference castToSVGURIReference = castTo gTypeSVGURIReference "SVGURIReference" gTypeSVGURIReference :: JSM GType gTypeSVGURIReference = GType . Object <$> jsg "SVGURIReference" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGUnitTypes". -- -- newtype SVGUnitTypes = SVGUnitTypes { unSVGUnitTypes :: JSVal } instance PToJSVal SVGUnitTypes where pToJSVal = unSVGUnitTypes {-# INLINE pToJSVal #-} instance PFromJSVal SVGUnitTypes where pFromJSVal = SVGUnitTypes {-# INLINE pFromJSVal #-} instance ToJSVal SVGUnitTypes where toJSVal = return . unSVGUnitTypes {-# INLINE toJSVal #-} instance FromJSVal SVGUnitTypes where fromJSVal v = fmap SVGUnitTypes <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGUnitTypes where makeObject = makeObject . unSVGUnitTypes instance IsGObject SVGUnitTypes where toGObject = GObject . unSVGUnitTypes {-# INLINE toGObject #-} unsafeCastGObject = SVGUnitTypes . unGObject {-# INLINE unsafeCastGObject #-} castToSVGUnitTypes :: IsGObject obj => obj -> JSM SVGUnitTypes castToSVGUnitTypes = castTo gTypeSVGUnitTypes "SVGUnitTypes" gTypeSVGUnitTypes :: JSM GType gTypeSVGUnitTypes = GType . Object <$> jsg "SVGUnitTypes" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGUseElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement" -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGUseElement = SVGUseElement { unSVGUseElement :: JSVal } instance PToJSVal SVGUseElement where pToJSVal = unSVGUseElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGUseElement where pFromJSVal = SVGUseElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGUseElement where toJSVal = return . unSVGUseElement {-# INLINE toJSVal #-} instance FromJSVal SVGUseElement where fromJSVal v = fmap SVGUseElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGUseElement where makeObject = makeObject . unSVGUseElement instance IsSVGGraphicsElement SVGUseElement instance IsSVGElement SVGUseElement instance IsElement SVGUseElement instance IsNode SVGUseElement instance IsEventTarget SVGUseElement instance IsGObject SVGUseElement where toGObject = GObject . unSVGUseElement {-# INLINE toGObject #-} unsafeCastGObject = SVGUseElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGUseElement :: IsGObject obj => obj -> JSM SVGUseElement castToSVGUseElement = castTo gTypeSVGUseElement "SVGUseElement" gTypeSVGUseElement :: JSM GType gTypeSVGUseElement = GType . Object <$> jsg "SVGUseElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGVKernElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGVKernElement = SVGVKernElement { unSVGVKernElement :: JSVal } instance PToJSVal SVGVKernElement where pToJSVal = unSVGVKernElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGVKernElement where pFromJSVal = SVGVKernElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGVKernElement where toJSVal = return . unSVGVKernElement {-# INLINE toJSVal #-} instance FromJSVal SVGVKernElement where fromJSVal v = fmap SVGVKernElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGVKernElement where makeObject = makeObject . unSVGVKernElement instance IsSVGElement SVGVKernElement instance IsElement SVGVKernElement instance IsNode SVGVKernElement instance IsEventTarget SVGVKernElement instance IsGObject SVGVKernElement where toGObject = GObject . unSVGVKernElement {-# INLINE toGObject #-} unsafeCastGObject = SVGVKernElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGVKernElement :: IsGObject obj => obj -> JSM SVGVKernElement castToSVGVKernElement = castTo gTypeSVGVKernElement "SVGVKernElement" gTypeSVGVKernElement :: JSM GType gTypeSVGVKernElement = GType . Object <$> jsg "SVGVKernElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGViewElement". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.SVGElement" -- * "Language.Javascript.JSaddle.DOM.Element" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SVGViewElement = SVGViewElement { unSVGViewElement :: JSVal } instance PToJSVal SVGViewElement where pToJSVal = unSVGViewElement {-# INLINE pToJSVal #-} instance PFromJSVal SVGViewElement where pFromJSVal = SVGViewElement {-# INLINE pFromJSVal #-} instance ToJSVal SVGViewElement where toJSVal = return . unSVGViewElement {-# INLINE toJSVal #-} instance FromJSVal SVGViewElement where fromJSVal v = fmap SVGViewElement <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGViewElement where makeObject = makeObject . unSVGViewElement instance IsSVGElement SVGViewElement instance IsElement SVGViewElement instance IsNode SVGViewElement instance IsEventTarget SVGViewElement instance IsGObject SVGViewElement where toGObject = GObject . unSVGViewElement {-# INLINE toGObject #-} unsafeCastGObject = SVGViewElement . unGObject {-# INLINE unsafeCastGObject #-} castToSVGViewElement :: IsGObject obj => obj -> JSM SVGViewElement castToSVGViewElement = castTo gTypeSVGViewElement "SVGViewElement" gTypeSVGViewElement :: JSM GType gTypeSVGViewElement = GType . Object <$> jsg "SVGViewElement" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGViewSpec". -- -- newtype SVGViewSpec = SVGViewSpec { unSVGViewSpec :: JSVal } instance PToJSVal SVGViewSpec where pToJSVal = unSVGViewSpec {-# INLINE pToJSVal #-} instance PFromJSVal SVGViewSpec where pFromJSVal = SVGViewSpec {-# INLINE pFromJSVal #-} instance ToJSVal SVGViewSpec where toJSVal = return . unSVGViewSpec {-# INLINE toJSVal #-} instance FromJSVal SVGViewSpec where fromJSVal v = fmap SVGViewSpec <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGViewSpec where makeObject = makeObject . unSVGViewSpec instance IsGObject SVGViewSpec where toGObject = GObject . unSVGViewSpec {-# INLINE toGObject #-} unsafeCastGObject = SVGViewSpec . unGObject {-# INLINE unsafeCastGObject #-} castToSVGViewSpec :: IsGObject obj => obj -> JSM SVGViewSpec castToSVGViewSpec = castTo gTypeSVGViewSpec "SVGViewSpec" gTypeSVGViewSpec :: JSM GType gTypeSVGViewSpec = GType . Object <$> jsg "SVGViewSpec" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGZoomAndPan". -- -- newtype SVGZoomAndPan = SVGZoomAndPan { unSVGZoomAndPan :: JSVal } instance PToJSVal SVGZoomAndPan where pToJSVal = unSVGZoomAndPan {-# INLINE pToJSVal #-} instance PFromJSVal SVGZoomAndPan where pFromJSVal = SVGZoomAndPan {-# INLINE pFromJSVal #-} instance ToJSVal SVGZoomAndPan where toJSVal = return . unSVGZoomAndPan {-# INLINE toJSVal #-} instance FromJSVal SVGZoomAndPan where fromJSVal v = fmap SVGZoomAndPan <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGZoomAndPan where makeObject = makeObject . unSVGZoomAndPan instance IsGObject SVGZoomAndPan where toGObject = GObject . unSVGZoomAndPan {-# INLINE toGObject #-} unsafeCastGObject = SVGZoomAndPan . unGObject {-# INLINE unsafeCastGObject #-} castToSVGZoomAndPan :: IsGObject obj => obj -> JSM SVGZoomAndPan castToSVGZoomAndPan = castTo gTypeSVGZoomAndPan "SVGZoomAndPan" gTypeSVGZoomAndPan :: JSM GType gTypeSVGZoomAndPan = GType . Object <$> jsg "SVGZoomAndPan" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGZoomEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.UIEvent" -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype SVGZoomEvent = SVGZoomEvent { unSVGZoomEvent :: JSVal } instance PToJSVal SVGZoomEvent where pToJSVal = unSVGZoomEvent {-# INLINE pToJSVal #-} instance PFromJSVal SVGZoomEvent where pFromJSVal = SVGZoomEvent {-# INLINE pFromJSVal #-} instance ToJSVal SVGZoomEvent where toJSVal = return . unSVGZoomEvent {-# INLINE toJSVal #-} instance FromJSVal SVGZoomEvent where fromJSVal v = fmap SVGZoomEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SVGZoomEvent where makeObject = makeObject . unSVGZoomEvent instance IsUIEvent SVGZoomEvent instance IsEvent SVGZoomEvent instance IsGObject SVGZoomEvent where toGObject = GObject . unSVGZoomEvent {-# INLINE toGObject #-} unsafeCastGObject = SVGZoomEvent . unGObject {-# INLINE unsafeCastGObject #-} castToSVGZoomEvent :: IsGObject obj => obj -> JSM SVGZoomEvent castToSVGZoomEvent = castTo gTypeSVGZoomEvent "SVGZoomEvent" gTypeSVGZoomEvent :: JSM GType gTypeSVGZoomEvent = GType . Object <$> jsg "SVGZoomEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Screen". -- -- newtype Screen = Screen { unScreen :: JSVal } instance PToJSVal Screen where pToJSVal = unScreen {-# INLINE pToJSVal #-} instance PFromJSVal Screen where pFromJSVal = Screen {-# INLINE pFromJSVal #-} instance ToJSVal Screen where toJSVal = return . unScreen {-# INLINE toJSVal #-} instance FromJSVal Screen where fromJSVal v = fmap Screen <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Screen where makeObject = makeObject . unScreen instance IsGObject Screen where toGObject = GObject . unScreen {-# INLINE toGObject #-} unsafeCastGObject = Screen . unGObject {-# INLINE unsafeCastGObject #-} castToScreen :: IsGObject obj => obj -> JSM Screen castToScreen = castTo gTypeScreen "Screen" gTypeScreen :: JSM GType gTypeScreen = GType . Object <$> jsg "Screen" #else type IsScreen o = ScreenClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ScriptProcessorNode". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.AudioNode" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype ScriptProcessorNode = ScriptProcessorNode { unScriptProcessorNode :: JSVal } instance PToJSVal ScriptProcessorNode where pToJSVal = unScriptProcessorNode {-# INLINE pToJSVal #-} instance PFromJSVal ScriptProcessorNode where pFromJSVal = ScriptProcessorNode {-# INLINE pFromJSVal #-} instance ToJSVal ScriptProcessorNode where toJSVal = return . unScriptProcessorNode {-# INLINE toJSVal #-} instance FromJSVal ScriptProcessorNode where fromJSVal v = fmap ScriptProcessorNode <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject ScriptProcessorNode where makeObject = makeObject . unScriptProcessorNode instance IsAudioNode ScriptProcessorNode instance IsEventTarget ScriptProcessorNode instance IsGObject ScriptProcessorNode where toGObject = GObject . unScriptProcessorNode {-# INLINE toGObject #-} unsafeCastGObject = ScriptProcessorNode . unGObject {-# INLINE unsafeCastGObject #-} castToScriptProcessorNode :: IsGObject obj => obj -> JSM ScriptProcessorNode castToScriptProcessorNode = castTo gTypeScriptProcessorNode "ScriptProcessorNode" gTypeScriptProcessorNode :: JSM GType gTypeScriptProcessorNode = GType . Object <$> jsg "ScriptProcessorNode" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ScriptProfile". -- -- newtype ScriptProfile = ScriptProfile { unScriptProfile :: JSVal } instance PToJSVal ScriptProfile where pToJSVal = unScriptProfile {-# INLINE pToJSVal #-} instance PFromJSVal ScriptProfile where pFromJSVal = ScriptProfile {-# INLINE pFromJSVal #-} instance ToJSVal ScriptProfile where toJSVal = return . unScriptProfile {-# INLINE toJSVal #-} instance FromJSVal ScriptProfile where fromJSVal v = fmap ScriptProfile <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject ScriptProfile where makeObject = makeObject . unScriptProfile instance IsGObject ScriptProfile where toGObject = GObject . unScriptProfile {-# INLINE toGObject #-} unsafeCastGObject = ScriptProfile . unGObject {-# INLINE unsafeCastGObject #-} castToScriptProfile :: IsGObject obj => obj -> JSM ScriptProfile castToScriptProfile = castTo gTypeScriptProfile "ScriptProfile" gTypeScriptProfile :: JSM GType gTypeScriptProfile = GType . Object <$> jsg "ScriptProfile" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ScriptProfileNode". -- -- newtype ScriptProfileNode = ScriptProfileNode { unScriptProfileNode :: JSVal } instance PToJSVal ScriptProfileNode where pToJSVal = unScriptProfileNode {-# INLINE pToJSVal #-} instance PFromJSVal ScriptProfileNode where pFromJSVal = ScriptProfileNode {-# INLINE pFromJSVal #-} instance ToJSVal ScriptProfileNode where toJSVal = return . unScriptProfileNode {-# INLINE toJSVal #-} instance FromJSVal ScriptProfileNode where fromJSVal v = fmap ScriptProfileNode <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject ScriptProfileNode where makeObject = makeObject . unScriptProfileNode instance IsGObject ScriptProfileNode where toGObject = GObject . unScriptProfileNode {-# INLINE toGObject #-} unsafeCastGObject = ScriptProfileNode . unGObject {-# INLINE unsafeCastGObject #-} castToScriptProfileNode :: IsGObject obj => obj -> JSM ScriptProfileNode castToScriptProfileNode = castTo gTypeScriptProfileNode "ScriptProfileNode" gTypeScriptProfileNode :: JSM GType gTypeScriptProfileNode = GType . Object <$> jsg "ScriptProfileNode" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SecurityPolicy". -- -- newtype SecurityPolicy = SecurityPolicy { unSecurityPolicy :: JSVal } instance PToJSVal SecurityPolicy where pToJSVal = unSecurityPolicy {-# INLINE pToJSVal #-} instance PFromJSVal SecurityPolicy where pFromJSVal = SecurityPolicy {-# INLINE pFromJSVal #-} instance ToJSVal SecurityPolicy where toJSVal = return . unSecurityPolicy {-# INLINE toJSVal #-} instance FromJSVal SecurityPolicy where fromJSVal v = fmap SecurityPolicy <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SecurityPolicy where makeObject = makeObject . unSecurityPolicy instance IsGObject SecurityPolicy where toGObject = GObject . unSecurityPolicy {-# INLINE toGObject #-} unsafeCastGObject = SecurityPolicy . unGObject {-# INLINE unsafeCastGObject #-} castToSecurityPolicy :: IsGObject obj => obj -> JSM SecurityPolicy castToSecurityPolicy = castTo gTypeSecurityPolicy "SecurityPolicy" gTypeSecurityPolicy :: JSM GType gTypeSecurityPolicy = GType . Object <$> jsg "SecurityPolicy" #else #ifndef USE_OLD_WEBKIT type IsSecurityPolicy o = SecurityPolicyClass o #endif #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SecurityPolicyViolationEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype SecurityPolicyViolationEvent = SecurityPolicyViolationEvent { unSecurityPolicyViolationEvent :: JSVal } instance PToJSVal SecurityPolicyViolationEvent where pToJSVal = unSecurityPolicyViolationEvent {-# INLINE pToJSVal #-} instance PFromJSVal SecurityPolicyViolationEvent where pFromJSVal = SecurityPolicyViolationEvent {-# INLINE pFromJSVal #-} instance ToJSVal SecurityPolicyViolationEvent where toJSVal = return . unSecurityPolicyViolationEvent {-# INLINE toJSVal #-} instance FromJSVal SecurityPolicyViolationEvent where fromJSVal v = fmap SecurityPolicyViolationEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SecurityPolicyViolationEvent where makeObject = makeObject . unSecurityPolicyViolationEvent instance IsEvent SecurityPolicyViolationEvent instance IsGObject SecurityPolicyViolationEvent where toGObject = GObject . unSecurityPolicyViolationEvent {-# INLINE toGObject #-} unsafeCastGObject = SecurityPolicyViolationEvent . unGObject {-# INLINE unsafeCastGObject #-} castToSecurityPolicyViolationEvent :: IsGObject obj => obj -> JSM SecurityPolicyViolationEvent castToSecurityPolicyViolationEvent = castTo gTypeSecurityPolicyViolationEvent "SecurityPolicyViolationEvent" gTypeSecurityPolicyViolationEvent :: JSM GType gTypeSecurityPolicyViolationEvent = GType . Object <$> jsg "SecurityPolicyViolationEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Selection". -- -- newtype Selection = Selection { unSelection :: JSVal } instance PToJSVal Selection where pToJSVal = unSelection {-# INLINE pToJSVal #-} instance PFromJSVal Selection where pFromJSVal = Selection {-# INLINE pFromJSVal #-} instance ToJSVal Selection where toJSVal = return . unSelection {-# INLINE toJSVal #-} instance FromJSVal Selection where fromJSVal v = fmap Selection <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Selection where makeObject = makeObject . unSelection instance IsGObject Selection where toGObject = GObject . unSelection {-# INLINE toGObject #-} unsafeCastGObject = Selection . unGObject {-# INLINE unsafeCastGObject #-} castToSelection :: IsGObject obj => obj -> JSM Selection castToSelection = castTo gTypeSelection "Selection" gTypeSelection :: JSM GType gTypeSelection = GType . Object <$> jsg "Selection" #else type IsSelection o = SelectionClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SourceBuffer". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SourceBuffer = SourceBuffer { unSourceBuffer :: JSVal } instance PToJSVal SourceBuffer where pToJSVal = unSourceBuffer {-# INLINE pToJSVal #-} instance PFromJSVal SourceBuffer where pFromJSVal = SourceBuffer {-# INLINE pFromJSVal #-} instance ToJSVal SourceBuffer where toJSVal = return . unSourceBuffer {-# INLINE toJSVal #-} instance FromJSVal SourceBuffer where fromJSVal v = fmap SourceBuffer <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SourceBuffer where makeObject = makeObject . unSourceBuffer instance IsEventTarget SourceBuffer instance IsGObject SourceBuffer where toGObject = GObject . unSourceBuffer {-# INLINE toGObject #-} unsafeCastGObject = SourceBuffer . unGObject {-# INLINE unsafeCastGObject #-} castToSourceBuffer :: IsGObject obj => obj -> JSM SourceBuffer castToSourceBuffer = castTo gTypeSourceBuffer "SourceBuffer" gTypeSourceBuffer :: JSM GType gTypeSourceBuffer = GType . Object <$> jsg "SourceBuffer" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SourceBufferList". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SourceBufferList = SourceBufferList { unSourceBufferList :: JSVal } instance PToJSVal SourceBufferList where pToJSVal = unSourceBufferList {-# INLINE pToJSVal #-} instance PFromJSVal SourceBufferList where pFromJSVal = SourceBufferList {-# INLINE pFromJSVal #-} instance ToJSVal SourceBufferList where toJSVal = return . unSourceBufferList {-# INLINE toJSVal #-} instance FromJSVal SourceBufferList where fromJSVal v = fmap SourceBufferList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SourceBufferList where makeObject = makeObject . unSourceBufferList instance IsEventTarget SourceBufferList instance IsGObject SourceBufferList where toGObject = GObject . unSourceBufferList {-# INLINE toGObject #-} unsafeCastGObject = SourceBufferList . unGObject {-# INLINE unsafeCastGObject #-} castToSourceBufferList :: IsGObject obj => obj -> JSM SourceBufferList castToSourceBufferList = castTo gTypeSourceBufferList "SourceBufferList" gTypeSourceBufferList :: JSM GType gTypeSourceBufferList = GType . Object <$> jsg "SourceBufferList" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SourceInfo". -- -- newtype SourceInfo = SourceInfo { unSourceInfo :: JSVal } instance PToJSVal SourceInfo where pToJSVal = unSourceInfo {-# INLINE pToJSVal #-} instance PFromJSVal SourceInfo where pFromJSVal = SourceInfo {-# INLINE pFromJSVal #-} instance ToJSVal SourceInfo where toJSVal = return . unSourceInfo {-# INLINE toJSVal #-} instance FromJSVal SourceInfo where fromJSVal v = fmap SourceInfo <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SourceInfo where makeObject = makeObject . unSourceInfo instance IsGObject SourceInfo where toGObject = GObject . unSourceInfo {-# INLINE toGObject #-} unsafeCastGObject = SourceInfo . unGObject {-# INLINE unsafeCastGObject #-} castToSourceInfo :: IsGObject obj => obj -> JSM SourceInfo castToSourceInfo = castTo gTypeSourceInfo "SourceInfo" gTypeSourceInfo :: JSM GType gTypeSourceInfo = GType . Object <$> jsg "SourceInfo" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SpeechSynthesis". -- -- newtype SpeechSynthesis = SpeechSynthesis { unSpeechSynthesis :: JSVal } instance PToJSVal SpeechSynthesis where pToJSVal = unSpeechSynthesis {-# INLINE pToJSVal #-} instance PFromJSVal SpeechSynthesis where pFromJSVal = SpeechSynthesis {-# INLINE pFromJSVal #-} instance ToJSVal SpeechSynthesis where toJSVal = return . unSpeechSynthesis {-# INLINE toJSVal #-} instance FromJSVal SpeechSynthesis where fromJSVal v = fmap SpeechSynthesis <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SpeechSynthesis where makeObject = makeObject . unSpeechSynthesis instance IsGObject SpeechSynthesis where toGObject = GObject . unSpeechSynthesis {-# INLINE toGObject #-} unsafeCastGObject = SpeechSynthesis . unGObject {-# INLINE unsafeCastGObject #-} castToSpeechSynthesis :: IsGObject obj => obj -> JSM SpeechSynthesis castToSpeechSynthesis = castTo gTypeSpeechSynthesis "SpeechSynthesis" gTypeSpeechSynthesis :: JSM GType gTypeSpeechSynthesis = GType . Object <$> jsg "SpeechSynthesis" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SpeechSynthesisEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype SpeechSynthesisEvent = SpeechSynthesisEvent { unSpeechSynthesisEvent :: JSVal } instance PToJSVal SpeechSynthesisEvent where pToJSVal = unSpeechSynthesisEvent {-# INLINE pToJSVal #-} instance PFromJSVal SpeechSynthesisEvent where pFromJSVal = SpeechSynthesisEvent {-# INLINE pFromJSVal #-} instance ToJSVal SpeechSynthesisEvent where toJSVal = return . unSpeechSynthesisEvent {-# INLINE toJSVal #-} instance FromJSVal SpeechSynthesisEvent where fromJSVal v = fmap SpeechSynthesisEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SpeechSynthesisEvent where makeObject = makeObject . unSpeechSynthesisEvent instance IsEvent SpeechSynthesisEvent instance IsGObject SpeechSynthesisEvent where toGObject = GObject . unSpeechSynthesisEvent {-# INLINE toGObject #-} unsafeCastGObject = SpeechSynthesisEvent . unGObject {-# INLINE unsafeCastGObject #-} castToSpeechSynthesisEvent :: IsGObject obj => obj -> JSM SpeechSynthesisEvent castToSpeechSynthesisEvent = castTo gTypeSpeechSynthesisEvent "SpeechSynthesisEvent" gTypeSpeechSynthesisEvent :: JSM GType gTypeSpeechSynthesisEvent = GType . Object <$> jsg "SpeechSynthesisEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SpeechSynthesisUtterance". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype SpeechSynthesisUtterance = SpeechSynthesisUtterance { unSpeechSynthesisUtterance :: JSVal } instance PToJSVal SpeechSynthesisUtterance where pToJSVal = unSpeechSynthesisUtterance {-# INLINE pToJSVal #-} instance PFromJSVal SpeechSynthesisUtterance where pFromJSVal = SpeechSynthesisUtterance {-# INLINE pFromJSVal #-} instance ToJSVal SpeechSynthesisUtterance where toJSVal = return . unSpeechSynthesisUtterance {-# INLINE toJSVal #-} instance FromJSVal SpeechSynthesisUtterance where fromJSVal v = fmap SpeechSynthesisUtterance <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SpeechSynthesisUtterance where makeObject = makeObject . unSpeechSynthesisUtterance instance IsEventTarget SpeechSynthesisUtterance instance IsGObject SpeechSynthesisUtterance where toGObject = GObject . unSpeechSynthesisUtterance {-# INLINE toGObject #-} unsafeCastGObject = SpeechSynthesisUtterance . unGObject {-# INLINE unsafeCastGObject #-} castToSpeechSynthesisUtterance :: IsGObject obj => obj -> JSM SpeechSynthesisUtterance castToSpeechSynthesisUtterance = castTo gTypeSpeechSynthesisUtterance "SpeechSynthesisUtterance" gTypeSpeechSynthesisUtterance :: JSM GType gTypeSpeechSynthesisUtterance = GType . Object <$> jsg "SpeechSynthesisUtterance" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SpeechSynthesisVoice". -- -- newtype SpeechSynthesisVoice = SpeechSynthesisVoice { unSpeechSynthesisVoice :: JSVal } instance PToJSVal SpeechSynthesisVoice where pToJSVal = unSpeechSynthesisVoice {-# INLINE pToJSVal #-} instance PFromJSVal SpeechSynthesisVoice where pFromJSVal = SpeechSynthesisVoice {-# INLINE pFromJSVal #-} instance ToJSVal SpeechSynthesisVoice where toJSVal = return . unSpeechSynthesisVoice {-# INLINE toJSVal #-} instance FromJSVal SpeechSynthesisVoice where fromJSVal v = fmap SpeechSynthesisVoice <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SpeechSynthesisVoice where makeObject = makeObject . unSpeechSynthesisVoice instance IsGObject SpeechSynthesisVoice where toGObject = GObject . unSpeechSynthesisVoice {-# INLINE toGObject #-} unsafeCastGObject = SpeechSynthesisVoice . unGObject {-# INLINE unsafeCastGObject #-} castToSpeechSynthesisVoice :: IsGObject obj => obj -> JSM SpeechSynthesisVoice castToSpeechSynthesisVoice = castTo gTypeSpeechSynthesisVoice "SpeechSynthesisVoice" gTypeSpeechSynthesisVoice :: JSM GType gTypeSpeechSynthesisVoice = GType . Object <$> jsg "SpeechSynthesisVoice" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Storage". -- -- newtype Storage = Storage { unStorage :: JSVal } instance PToJSVal Storage where pToJSVal = unStorage {-# INLINE pToJSVal #-} instance PFromJSVal Storage where pFromJSVal = Storage {-# INLINE pFromJSVal #-} instance ToJSVal Storage where toJSVal = return . unStorage {-# INLINE toJSVal #-} instance FromJSVal Storage where fromJSVal v = fmap Storage <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Storage where makeObject = makeObject . unStorage instance IsGObject Storage where toGObject = GObject . unStorage {-# INLINE toGObject #-} unsafeCastGObject = Storage . unGObject {-# INLINE unsafeCastGObject #-} castToStorage :: IsGObject obj => obj -> JSM Storage castToStorage = castTo gTypeStorage "Storage" gTypeStorage :: JSM GType gTypeStorage = GType . Object <$> jsg "Storage" #else type IsStorage o = StorageClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.StorageEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype StorageEvent = StorageEvent { unStorageEvent :: JSVal } instance PToJSVal StorageEvent where pToJSVal = unStorageEvent {-# INLINE pToJSVal #-} instance PFromJSVal StorageEvent where pFromJSVal = StorageEvent {-# INLINE pFromJSVal #-} instance ToJSVal StorageEvent where toJSVal = return . unStorageEvent {-# INLINE toJSVal #-} instance FromJSVal StorageEvent where fromJSVal v = fmap StorageEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject StorageEvent where makeObject = makeObject . unStorageEvent instance IsEvent StorageEvent instance IsGObject StorageEvent where toGObject = GObject . unStorageEvent {-# INLINE toGObject #-} unsafeCastGObject = StorageEvent . unGObject {-# INLINE unsafeCastGObject #-} castToStorageEvent :: IsGObject obj => obj -> JSM StorageEvent castToStorageEvent = castTo gTypeStorageEvent "StorageEvent" gTypeStorageEvent :: JSM GType gTypeStorageEvent = GType . Object <$> jsg "StorageEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.StorageInfo". -- -- newtype StorageInfo = StorageInfo { unStorageInfo :: JSVal } instance PToJSVal StorageInfo where pToJSVal = unStorageInfo {-# INLINE pToJSVal #-} instance PFromJSVal StorageInfo where pFromJSVal = StorageInfo {-# INLINE pFromJSVal #-} instance ToJSVal StorageInfo where toJSVal = return . unStorageInfo {-# INLINE toJSVal #-} instance FromJSVal StorageInfo where fromJSVal v = fmap StorageInfo <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject StorageInfo where makeObject = makeObject . unStorageInfo instance IsGObject StorageInfo where toGObject = GObject . unStorageInfo {-# INLINE toGObject #-} unsafeCastGObject = StorageInfo . unGObject {-# INLINE unsafeCastGObject #-} castToStorageInfo :: IsGObject obj => obj -> JSM StorageInfo castToStorageInfo = castTo gTypeStorageInfo "StorageInfo" gTypeStorageInfo :: JSM GType gTypeStorageInfo = GType . Object <$> jsg "StorageInfo" #else #ifndef USE_OLD_WEBKIT type IsStorageInfo o = StorageInfoClass o #endif #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.StorageQuota". -- -- newtype StorageQuota = StorageQuota { unStorageQuota :: JSVal } instance PToJSVal StorageQuota where pToJSVal = unStorageQuota {-# INLINE pToJSVal #-} instance PFromJSVal StorageQuota where pFromJSVal = StorageQuota {-# INLINE pFromJSVal #-} instance ToJSVal StorageQuota where toJSVal = return . unStorageQuota {-# INLINE toJSVal #-} instance FromJSVal StorageQuota where fromJSVal v = fmap StorageQuota <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject StorageQuota where makeObject = makeObject . unStorageQuota instance IsGObject StorageQuota where toGObject = GObject . unStorageQuota {-# INLINE toGObject #-} unsafeCastGObject = StorageQuota . unGObject {-# INLINE unsafeCastGObject #-} castToStorageQuota :: IsGObject obj => obj -> JSM StorageQuota castToStorageQuota = castTo gTypeStorageQuota "StorageQuota" gTypeStorageQuota :: JSM GType gTypeStorageQuota = GType . Object <$> jsg "StorageQuota" #else #ifndef USE_OLD_WEBKIT type IsStorageQuota o = StorageQuotaClass o #endif #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.StyleMedia". -- -- newtype StyleMedia = StyleMedia { unStyleMedia :: JSVal } instance PToJSVal StyleMedia where pToJSVal = unStyleMedia {-# INLINE pToJSVal #-} instance PFromJSVal StyleMedia where pFromJSVal = StyleMedia {-# INLINE pFromJSVal #-} instance ToJSVal StyleMedia where toJSVal = return . unStyleMedia {-# INLINE toJSVal #-} instance FromJSVal StyleMedia where fromJSVal v = fmap StyleMedia <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject StyleMedia where makeObject = makeObject . unStyleMedia instance IsGObject StyleMedia where toGObject = GObject . unStyleMedia {-# INLINE toGObject #-} unsafeCastGObject = StyleMedia . unGObject {-# INLINE unsafeCastGObject #-} castToStyleMedia :: IsGObject obj => obj -> JSM StyleMedia castToStyleMedia = castTo gTypeStyleMedia "StyleMedia" gTypeStyleMedia :: JSM GType gTypeStyleMedia = GType . Object <$> jsg "StyleMedia" #else type IsStyleMedia o = StyleMediaClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.StyleSheet". -- -- newtype StyleSheet = StyleSheet { unStyleSheet :: JSVal } instance PToJSVal StyleSheet where pToJSVal = unStyleSheet {-# INLINE pToJSVal #-} instance PFromJSVal StyleSheet where pFromJSVal = StyleSheet {-# INLINE pFromJSVal #-} instance ToJSVal StyleSheet where toJSVal = return . unStyleSheet {-# INLINE toJSVal #-} instance FromJSVal StyleSheet where fromJSVal v = fmap StyleSheet <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject StyleSheet where makeObject = makeObject . unStyleSheet class IsGObject o => IsStyleSheet o toStyleSheet :: IsStyleSheet o => o -> StyleSheet toStyleSheet = unsafeCastGObject . toGObject instance IsStyleSheet StyleSheet instance IsGObject StyleSheet where toGObject = GObject . unStyleSheet {-# INLINE toGObject #-} unsafeCastGObject = StyleSheet . unGObject {-# INLINE unsafeCastGObject #-} castToStyleSheet :: IsGObject obj => obj -> JSM StyleSheet castToStyleSheet = castTo gTypeStyleSheet "StyleSheet" gTypeStyleSheet :: JSM GType gTypeStyleSheet = GType . Object <$> jsg "StyleSheet" #else type IsStyleSheet o = StyleSheetClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.StyleSheetList". -- -- newtype StyleSheetList = StyleSheetList { unStyleSheetList :: JSVal } instance PToJSVal StyleSheetList where pToJSVal = unStyleSheetList {-# INLINE pToJSVal #-} instance PFromJSVal StyleSheetList where pFromJSVal = StyleSheetList {-# INLINE pFromJSVal #-} instance ToJSVal StyleSheetList where toJSVal = return . unStyleSheetList {-# INLINE toJSVal #-} instance FromJSVal StyleSheetList where fromJSVal v = fmap StyleSheetList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject StyleSheetList where makeObject = makeObject . unStyleSheetList instance IsGObject StyleSheetList where toGObject = GObject . unStyleSheetList {-# INLINE toGObject #-} unsafeCastGObject = StyleSheetList . unGObject {-# INLINE unsafeCastGObject #-} castToStyleSheetList :: IsGObject obj => obj -> JSM StyleSheetList castToStyleSheetList = castTo gTypeStyleSheetList "StyleSheetList" gTypeStyleSheetList :: JSM GType gTypeStyleSheetList = GType . Object <$> jsg "StyleSheetList" #else type IsStyleSheetList o = StyleSheetListClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SubtleCrypto". -- -- newtype SubtleCrypto = SubtleCrypto { unSubtleCrypto :: JSVal } instance PToJSVal SubtleCrypto where pToJSVal = unSubtleCrypto {-# INLINE pToJSVal #-} instance PFromJSVal SubtleCrypto where pFromJSVal = SubtleCrypto {-# INLINE pFromJSVal #-} instance ToJSVal SubtleCrypto where toJSVal = return . unSubtleCrypto {-# INLINE toJSVal #-} instance FromJSVal SubtleCrypto where fromJSVal v = fmap SubtleCrypto <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject SubtleCrypto where makeObject = makeObject . unSubtleCrypto instance IsGObject SubtleCrypto where toGObject = GObject . unSubtleCrypto {-# INLINE toGObject #-} unsafeCastGObject = SubtleCrypto . unGObject {-# INLINE unsafeCastGObject #-} castToSubtleCrypto :: IsGObject obj => obj -> JSM SubtleCrypto castToSubtleCrypto = castTo gTypeSubtleCrypto "SubtleCrypto" gTypeSubtleCrypto :: JSM GType gTypeSubtleCrypto = GType . Object <$> jsg "WebKitSubtleCrypto" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Text". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.CharacterData" -- * "Language.Javascript.JSaddle.DOM.Node" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype Text = Text { unText :: JSVal } instance PToJSVal Text where pToJSVal = unText {-# INLINE pToJSVal #-} instance PFromJSVal Text where pFromJSVal = Text {-# INLINE pFromJSVal #-} instance ToJSVal Text where toJSVal = return . unText {-# INLINE toJSVal #-} instance FromJSVal Text where fromJSVal v = fmap Text <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Text where makeObject = makeObject . unText class IsCharacterData o => IsText o toText :: IsText o => o -> Text toText = unsafeCastGObject . toGObject instance IsText Text instance IsCharacterData Text instance IsNode Text instance IsEventTarget Text instance IsGObject Text where toGObject = GObject . unText {-# INLINE toGObject #-} unsafeCastGObject = Text . unGObject {-# INLINE unsafeCastGObject #-} castToText :: IsGObject obj => obj -> JSM Text castToText = castTo gTypeText "Text" gTypeText :: JSM GType gTypeText = GType . Object <$> jsg "Text" #else type IsText o = TextClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TextEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.UIEvent" -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype TextEvent = TextEvent { unTextEvent :: JSVal } instance PToJSVal TextEvent where pToJSVal = unTextEvent {-# INLINE pToJSVal #-} instance PFromJSVal TextEvent where pFromJSVal = TextEvent {-# INLINE pFromJSVal #-} instance ToJSVal TextEvent where toJSVal = return . unTextEvent {-# INLINE toJSVal #-} instance FromJSVal TextEvent where fromJSVal v = fmap TextEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject TextEvent where makeObject = makeObject . unTextEvent instance IsUIEvent TextEvent instance IsEvent TextEvent instance IsGObject TextEvent where toGObject = GObject . unTextEvent {-# INLINE toGObject #-} unsafeCastGObject = TextEvent . unGObject {-# INLINE unsafeCastGObject #-} castToTextEvent :: IsGObject obj => obj -> JSM TextEvent castToTextEvent = castTo gTypeTextEvent "TextEvent" gTypeTextEvent :: JSM GType gTypeTextEvent = GType . Object <$> jsg "TextEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TextMetrics". -- -- newtype TextMetrics = TextMetrics { unTextMetrics :: JSVal } instance PToJSVal TextMetrics where pToJSVal = unTextMetrics {-# INLINE pToJSVal #-} instance PFromJSVal TextMetrics where pFromJSVal = TextMetrics {-# INLINE pFromJSVal #-} instance ToJSVal TextMetrics where toJSVal = return . unTextMetrics {-# INLINE toJSVal #-} instance FromJSVal TextMetrics where fromJSVal v = fmap TextMetrics <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject TextMetrics where makeObject = makeObject . unTextMetrics instance IsGObject TextMetrics where toGObject = GObject . unTextMetrics {-# INLINE toGObject #-} unsafeCastGObject = TextMetrics . unGObject {-# INLINE unsafeCastGObject #-} castToTextMetrics :: IsGObject obj => obj -> JSM TextMetrics castToTextMetrics = castTo gTypeTextMetrics "TextMetrics" gTypeTextMetrics :: JSM GType gTypeTextMetrics = GType . Object <$> jsg "TextMetrics" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TextTrack". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype TextTrack = TextTrack { unTextTrack :: JSVal } instance PToJSVal TextTrack where pToJSVal = unTextTrack {-# INLINE pToJSVal #-} instance PFromJSVal TextTrack where pFromJSVal = TextTrack {-# INLINE pFromJSVal #-} instance ToJSVal TextTrack where toJSVal = return . unTextTrack {-# INLINE toJSVal #-} instance FromJSVal TextTrack where fromJSVal v = fmap TextTrack <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject TextTrack where makeObject = makeObject . unTextTrack instance IsEventTarget TextTrack instance IsGObject TextTrack where toGObject = GObject . unTextTrack {-# INLINE toGObject #-} unsafeCastGObject = TextTrack . unGObject {-# INLINE unsafeCastGObject #-} castToTextTrack :: IsGObject obj => obj -> JSM TextTrack castToTextTrack = castTo gTypeTextTrack "TextTrack" gTypeTextTrack :: JSM GType gTypeTextTrack = GType . Object <$> jsg "TextTrack" #else #ifndef USE_OLD_WEBKIT type IsTextTrack o = TextTrackClass o #endif #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TextTrackCue". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype TextTrackCue = TextTrackCue { unTextTrackCue :: JSVal } instance PToJSVal TextTrackCue where pToJSVal = unTextTrackCue {-# INLINE pToJSVal #-} instance PFromJSVal TextTrackCue where pFromJSVal = TextTrackCue {-# INLINE pFromJSVal #-} instance ToJSVal TextTrackCue where toJSVal = return . unTextTrackCue {-# INLINE toJSVal #-} instance FromJSVal TextTrackCue where fromJSVal v = fmap TextTrackCue <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject TextTrackCue where makeObject = makeObject . unTextTrackCue class IsEventTarget o => IsTextTrackCue o toTextTrackCue :: IsTextTrackCue o => o -> TextTrackCue toTextTrackCue = unsafeCastGObject . toGObject instance IsTextTrackCue TextTrackCue instance IsEventTarget TextTrackCue instance IsGObject TextTrackCue where toGObject = GObject . unTextTrackCue {-# INLINE toGObject #-} unsafeCastGObject = TextTrackCue . unGObject {-# INLINE unsafeCastGObject #-} castToTextTrackCue :: IsGObject obj => obj -> JSM TextTrackCue castToTextTrackCue = castTo gTypeTextTrackCue "TextTrackCue" gTypeTextTrackCue :: JSM GType gTypeTextTrackCue = GType . Object <$> jsg "TextTrackCue" #else #ifndef USE_OLD_WEBKIT type IsTextTrackCue o = TextTrackCueClass o #endif #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TextTrackCueList". -- -- newtype TextTrackCueList = TextTrackCueList { unTextTrackCueList :: JSVal } instance PToJSVal TextTrackCueList where pToJSVal = unTextTrackCueList {-# INLINE pToJSVal #-} instance PFromJSVal TextTrackCueList where pFromJSVal = TextTrackCueList {-# INLINE pFromJSVal #-} instance ToJSVal TextTrackCueList where toJSVal = return . unTextTrackCueList {-# INLINE toJSVal #-} instance FromJSVal TextTrackCueList where fromJSVal v = fmap TextTrackCueList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject TextTrackCueList where makeObject = makeObject . unTextTrackCueList instance IsGObject TextTrackCueList where toGObject = GObject . unTextTrackCueList {-# INLINE toGObject #-} unsafeCastGObject = TextTrackCueList . unGObject {-# INLINE unsafeCastGObject #-} castToTextTrackCueList :: IsGObject obj => obj -> JSM TextTrackCueList castToTextTrackCueList = castTo gTypeTextTrackCueList "TextTrackCueList" gTypeTextTrackCueList :: JSM GType gTypeTextTrackCueList = GType . Object <$> jsg "TextTrackCueList" #else #ifndef USE_OLD_WEBKIT type IsTextTrackCueList o = TextTrackCueListClass o #endif #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TextTrackList". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype TextTrackList = TextTrackList { unTextTrackList :: JSVal } instance PToJSVal TextTrackList where pToJSVal = unTextTrackList {-# INLINE pToJSVal #-} instance PFromJSVal TextTrackList where pFromJSVal = TextTrackList {-# INLINE pFromJSVal #-} instance ToJSVal TextTrackList where toJSVal = return . unTextTrackList {-# INLINE toJSVal #-} instance FromJSVal TextTrackList where fromJSVal v = fmap TextTrackList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject TextTrackList where makeObject = makeObject . unTextTrackList instance IsEventTarget TextTrackList instance IsGObject TextTrackList where toGObject = GObject . unTextTrackList {-# INLINE toGObject #-} unsafeCastGObject = TextTrackList . unGObject {-# INLINE unsafeCastGObject #-} castToTextTrackList :: IsGObject obj => obj -> JSM TextTrackList castToTextTrackList = castTo gTypeTextTrackList "TextTrackList" gTypeTextTrackList :: JSM GType gTypeTextTrackList = GType . Object <$> jsg "TextTrackList" #else #ifndef USE_OLD_WEBKIT type IsTextTrackList o = TextTrackListClass o #endif #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TimeRanges". -- -- newtype TimeRanges = TimeRanges { unTimeRanges :: JSVal } instance PToJSVal TimeRanges where pToJSVal = unTimeRanges {-# INLINE pToJSVal #-} instance PFromJSVal TimeRanges where pFromJSVal = TimeRanges {-# INLINE pFromJSVal #-} instance ToJSVal TimeRanges where toJSVal = return . unTimeRanges {-# INLINE toJSVal #-} instance FromJSVal TimeRanges where fromJSVal v = fmap TimeRanges <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject TimeRanges where makeObject = makeObject . unTimeRanges instance IsGObject TimeRanges where toGObject = GObject . unTimeRanges {-# INLINE toGObject #-} unsafeCastGObject = TimeRanges . unGObject {-# INLINE unsafeCastGObject #-} castToTimeRanges :: IsGObject obj => obj -> JSM TimeRanges castToTimeRanges = castTo gTypeTimeRanges "TimeRanges" gTypeTimeRanges :: JSM GType gTypeTimeRanges = GType . Object <$> jsg "TimeRanges" #else type IsTimeRanges o = TimeRangesClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Touch". -- -- newtype Touch = Touch { unTouch :: JSVal } instance PToJSVal Touch where pToJSVal = unTouch {-# INLINE pToJSVal #-} instance PFromJSVal Touch where pFromJSVal = Touch {-# INLINE pFromJSVal #-} instance ToJSVal Touch where toJSVal = return . unTouch {-# INLINE toJSVal #-} instance FromJSVal Touch where fromJSVal v = fmap Touch <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Touch where makeObject = makeObject . unTouch instance IsGObject Touch where toGObject = GObject . unTouch {-# INLINE toGObject #-} unsafeCastGObject = Touch . unGObject {-# INLINE unsafeCastGObject #-} castToTouch :: IsGObject obj => obj -> JSM Touch castToTouch = castTo gTypeTouch "Touch" gTypeTouch :: JSM GType gTypeTouch = GType . Object <$> jsg "Touch" #else #ifndef USE_OLD_WEBKIT type IsTouch o = TouchClass o #endif #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TouchEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.UIEvent" -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype TouchEvent = TouchEvent { unTouchEvent :: JSVal } instance PToJSVal TouchEvent where pToJSVal = unTouchEvent {-# INLINE pToJSVal #-} instance PFromJSVal TouchEvent where pFromJSVal = TouchEvent {-# INLINE pFromJSVal #-} instance ToJSVal TouchEvent where toJSVal = return . unTouchEvent {-# INLINE toJSVal #-} instance FromJSVal TouchEvent where fromJSVal v = fmap TouchEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject TouchEvent where makeObject = makeObject . unTouchEvent instance IsUIEvent TouchEvent instance IsEvent TouchEvent instance IsGObject TouchEvent where toGObject = GObject . unTouchEvent {-# INLINE toGObject #-} unsafeCastGObject = TouchEvent . unGObject {-# INLINE unsafeCastGObject #-} castToTouchEvent :: IsGObject obj => obj -> JSM TouchEvent castToTouchEvent = castTo gTypeTouchEvent "TouchEvent" gTypeTouchEvent :: JSM GType gTypeTouchEvent = GType . Object <$> jsg "TouchEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TouchList". -- -- newtype TouchList = TouchList { unTouchList :: JSVal } instance PToJSVal TouchList where pToJSVal = unTouchList {-# INLINE pToJSVal #-} instance PFromJSVal TouchList where pFromJSVal = TouchList {-# INLINE pFromJSVal #-} instance ToJSVal TouchList where toJSVal = return . unTouchList {-# INLINE toJSVal #-} instance FromJSVal TouchList where fromJSVal v = fmap TouchList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject TouchList where makeObject = makeObject . unTouchList instance IsGObject TouchList where toGObject = GObject . unTouchList {-# INLINE toGObject #-} unsafeCastGObject = TouchList . unGObject {-# INLINE unsafeCastGObject #-} castToTouchList :: IsGObject obj => obj -> JSM TouchList castToTouchList = castTo gTypeTouchList "TouchList" gTypeTouchList :: JSM GType gTypeTouchList = GType . Object <$> jsg "TouchList" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TrackEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype TrackEvent = TrackEvent { unTrackEvent :: JSVal } instance PToJSVal TrackEvent where pToJSVal = unTrackEvent {-# INLINE pToJSVal #-} instance PFromJSVal TrackEvent where pFromJSVal = TrackEvent {-# INLINE pFromJSVal #-} instance ToJSVal TrackEvent where toJSVal = return . unTrackEvent {-# INLINE toJSVal #-} instance FromJSVal TrackEvent where fromJSVal v = fmap TrackEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject TrackEvent where makeObject = makeObject . unTrackEvent instance IsEvent TrackEvent instance IsGObject TrackEvent where toGObject = GObject . unTrackEvent {-# INLINE toGObject #-} unsafeCastGObject = TrackEvent . unGObject {-# INLINE unsafeCastGObject #-} castToTrackEvent :: IsGObject obj => obj -> JSM TrackEvent castToTrackEvent = castTo gTypeTrackEvent "TrackEvent" gTypeTrackEvent :: JSM GType gTypeTrackEvent = GType . Object <$> jsg "TrackEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TransitionEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype TransitionEvent = TransitionEvent { unTransitionEvent :: JSVal } instance PToJSVal TransitionEvent where pToJSVal = unTransitionEvent {-# INLINE pToJSVal #-} instance PFromJSVal TransitionEvent where pFromJSVal = TransitionEvent {-# INLINE pFromJSVal #-} instance ToJSVal TransitionEvent where toJSVal = return . unTransitionEvent {-# INLINE toJSVal #-} instance FromJSVal TransitionEvent where fromJSVal v = fmap TransitionEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject TransitionEvent where makeObject = makeObject . unTransitionEvent instance IsEvent TransitionEvent instance IsGObject TransitionEvent where toGObject = GObject . unTransitionEvent {-# INLINE toGObject #-} unsafeCastGObject = TransitionEvent . unGObject {-# INLINE unsafeCastGObject #-} castToTransitionEvent :: IsGObject obj => obj -> JSM TransitionEvent castToTransitionEvent = castTo gTypeTransitionEvent "TransitionEvent" gTypeTransitionEvent :: JSM GType gTypeTransitionEvent = GType . Object <$> jsg "TransitionEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TreeWalker". -- -- newtype TreeWalker = TreeWalker { unTreeWalker :: JSVal } instance PToJSVal TreeWalker where pToJSVal = unTreeWalker {-# INLINE pToJSVal #-} instance PFromJSVal TreeWalker where pFromJSVal = TreeWalker {-# INLINE pFromJSVal #-} instance ToJSVal TreeWalker where toJSVal = return . unTreeWalker {-# INLINE toJSVal #-} instance FromJSVal TreeWalker where fromJSVal v = fmap TreeWalker <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject TreeWalker where makeObject = makeObject . unTreeWalker instance IsGObject TreeWalker where toGObject = GObject . unTreeWalker {-# INLINE toGObject #-} unsafeCastGObject = TreeWalker . unGObject {-# INLINE unsafeCastGObject #-} castToTreeWalker :: IsGObject obj => obj -> JSM TreeWalker castToTreeWalker = castTo gTypeTreeWalker "TreeWalker" gTypeTreeWalker :: JSM GType gTypeTreeWalker = GType . Object <$> jsg "TreeWalker" #else type IsTreeWalker o = TreeWalkerClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TypeConversions". -- -- newtype TypeConversions = TypeConversions { unTypeConversions :: JSVal } instance PToJSVal TypeConversions where pToJSVal = unTypeConversions {-# INLINE pToJSVal #-} instance PFromJSVal TypeConversions where pFromJSVal = TypeConversions {-# INLINE pFromJSVal #-} instance ToJSVal TypeConversions where toJSVal = return . unTypeConversions {-# INLINE toJSVal #-} instance FromJSVal TypeConversions where fromJSVal v = fmap TypeConversions <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject TypeConversions where makeObject = makeObject . unTypeConversions instance IsGObject TypeConversions where toGObject = GObject . unTypeConversions {-# INLINE toGObject #-} unsafeCastGObject = TypeConversions . unGObject {-# INLINE unsafeCastGObject #-} castToTypeConversions :: IsGObject obj => obj -> JSM TypeConversions castToTypeConversions = castTo gTypeTypeConversions "TypeConversions" gTypeTypeConversions :: JSM GType gTypeTypeConversions = GType . Object <$> jsg "TypeConversions" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.UIEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype UIEvent = UIEvent { unUIEvent :: JSVal } instance PToJSVal UIEvent where pToJSVal = unUIEvent {-# INLINE pToJSVal #-} instance PFromJSVal UIEvent where pFromJSVal = UIEvent {-# INLINE pFromJSVal #-} instance ToJSVal UIEvent where toJSVal = return . unUIEvent {-# INLINE toJSVal #-} instance FromJSVal UIEvent where fromJSVal v = fmap UIEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject UIEvent where makeObject = makeObject . unUIEvent class IsEvent o => IsUIEvent o toUIEvent :: IsUIEvent o => o -> UIEvent toUIEvent = unsafeCastGObject . toGObject instance IsUIEvent UIEvent instance IsEvent UIEvent instance IsGObject UIEvent where toGObject = GObject . unUIEvent {-# INLINE toGObject #-} unsafeCastGObject = UIEvent . unGObject {-# INLINE unsafeCastGObject #-} castToUIEvent :: IsGObject obj => obj -> JSM UIEvent castToUIEvent = castTo gTypeUIEvent "UIEvent" gTypeUIEvent :: JSM GType gTypeUIEvent = GType . Object <$> jsg "UIEvent" #else type IsUIEvent o = UIEventClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.UIRequestEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.UIEvent" -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype UIRequestEvent = UIRequestEvent { unUIRequestEvent :: JSVal } instance PToJSVal UIRequestEvent where pToJSVal = unUIRequestEvent {-# INLINE pToJSVal #-} instance PFromJSVal UIRequestEvent where pFromJSVal = UIRequestEvent {-# INLINE pFromJSVal #-} instance ToJSVal UIRequestEvent where toJSVal = return . unUIRequestEvent {-# INLINE toJSVal #-} instance FromJSVal UIRequestEvent where fromJSVal v = fmap UIRequestEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject UIRequestEvent where makeObject = makeObject . unUIRequestEvent instance IsUIEvent UIRequestEvent instance IsEvent UIRequestEvent instance IsGObject UIRequestEvent where toGObject = GObject . unUIRequestEvent {-# INLINE toGObject #-} unsafeCastGObject = UIRequestEvent . unGObject {-# INLINE unsafeCastGObject #-} castToUIRequestEvent :: IsGObject obj => obj -> JSM UIRequestEvent castToUIRequestEvent = castTo gTypeUIRequestEvent "UIRequestEvent" gTypeUIRequestEvent :: JSM GType gTypeUIRequestEvent = GType . Object <$> jsg "UIRequestEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.URL". -- -- newtype URL = URL { unURL :: JSVal } instance PToJSVal URL where pToJSVal = unURL {-# INLINE pToJSVal #-} instance PFromJSVal URL where pFromJSVal = URL {-# INLINE pFromJSVal #-} instance ToJSVal URL where toJSVal = return . unURL {-# INLINE toJSVal #-} instance FromJSVal URL where fromJSVal v = fmap URL <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject URL where makeObject = makeObject . unURL instance IsGObject URL where toGObject = GObject . unURL {-# INLINE toGObject #-} unsafeCastGObject = URL . unGObject {-# INLINE unsafeCastGObject #-} castToURL :: IsGObject obj => obj -> JSM URL castToURL = castTo gTypeURL "URL" gTypeURL :: JSM GType gTypeURL = GType . Object <$> jsg "URL" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.URLUtils". -- -- newtype URLUtils = URLUtils { unURLUtils :: JSVal } instance PToJSVal URLUtils where pToJSVal = unURLUtils {-# INLINE pToJSVal #-} instance PFromJSVal URLUtils where pFromJSVal = URLUtils {-# INLINE pFromJSVal #-} instance ToJSVal URLUtils where toJSVal = return . unURLUtils {-# INLINE toJSVal #-} instance FromJSVal URLUtils where fromJSVal v = fmap URLUtils <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject URLUtils where makeObject = makeObject . unURLUtils instance IsGObject URLUtils where toGObject = GObject . unURLUtils {-# INLINE toGObject #-} unsafeCastGObject = URLUtils . unGObject {-# INLINE unsafeCastGObject #-} castToURLUtils :: IsGObject obj => obj -> JSM URLUtils castToURLUtils = castTo gTypeURLUtils "URLUtils" gTypeURLUtils :: JSM GType gTypeURLUtils = GType . Object <$> jsg "URLUtils" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.UserMessageHandler". -- -- newtype UserMessageHandler = UserMessageHandler { unUserMessageHandler :: JSVal } instance PToJSVal UserMessageHandler where pToJSVal = unUserMessageHandler {-# INLINE pToJSVal #-} instance PFromJSVal UserMessageHandler where pFromJSVal = UserMessageHandler {-# INLINE pFromJSVal #-} instance ToJSVal UserMessageHandler where toJSVal = return . unUserMessageHandler {-# INLINE toJSVal #-} instance FromJSVal UserMessageHandler where fromJSVal v = fmap UserMessageHandler <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject UserMessageHandler where makeObject = makeObject . unUserMessageHandler instance IsGObject UserMessageHandler where toGObject = GObject . unUserMessageHandler {-# INLINE toGObject #-} unsafeCastGObject = UserMessageHandler . unGObject {-# INLINE unsafeCastGObject #-} castToUserMessageHandler :: IsGObject obj => obj -> JSM UserMessageHandler castToUserMessageHandler = castTo gTypeUserMessageHandler "UserMessageHandler" gTypeUserMessageHandler :: JSM GType gTypeUserMessageHandler = GType . Object <$> jsg "UserMessageHandler" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.UserMessageHandlersNamespace". -- -- newtype UserMessageHandlersNamespace = UserMessageHandlersNamespace { unUserMessageHandlersNamespace :: JSVal } instance PToJSVal UserMessageHandlersNamespace where pToJSVal = unUserMessageHandlersNamespace {-# INLINE pToJSVal #-} instance PFromJSVal UserMessageHandlersNamespace where pFromJSVal = UserMessageHandlersNamespace {-# INLINE pFromJSVal #-} instance ToJSVal UserMessageHandlersNamespace where toJSVal = return . unUserMessageHandlersNamespace {-# INLINE toJSVal #-} instance FromJSVal UserMessageHandlersNamespace where fromJSVal v = fmap UserMessageHandlersNamespace <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject UserMessageHandlersNamespace where makeObject = makeObject . unUserMessageHandlersNamespace instance IsGObject UserMessageHandlersNamespace where toGObject = GObject . unUserMessageHandlersNamespace {-# INLINE toGObject #-} unsafeCastGObject = UserMessageHandlersNamespace . unGObject {-# INLINE unsafeCastGObject #-} castToUserMessageHandlersNamespace :: IsGObject obj => obj -> JSM UserMessageHandlersNamespace castToUserMessageHandlersNamespace = castTo gTypeUserMessageHandlersNamespace "UserMessageHandlersNamespace" gTypeUserMessageHandlersNamespace :: JSM GType gTypeUserMessageHandlersNamespace = GType . Object <$> jsg "UserMessageHandlersNamespace" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.VTTCue". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.TextTrackCue" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype VTTCue = VTTCue { unVTTCue :: JSVal } instance PToJSVal VTTCue where pToJSVal = unVTTCue {-# INLINE pToJSVal #-} instance PFromJSVal VTTCue where pFromJSVal = VTTCue {-# INLINE pFromJSVal #-} instance ToJSVal VTTCue where toJSVal = return . unVTTCue {-# INLINE toJSVal #-} instance FromJSVal VTTCue where fromJSVal v = fmap VTTCue <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject VTTCue where makeObject = makeObject . unVTTCue instance IsTextTrackCue VTTCue instance IsEventTarget VTTCue instance IsGObject VTTCue where toGObject = GObject . unVTTCue {-# INLINE toGObject #-} unsafeCastGObject = VTTCue . unGObject {-# INLINE unsafeCastGObject #-} castToVTTCue :: IsGObject obj => obj -> JSM VTTCue castToVTTCue = castTo gTypeVTTCue "VTTCue" gTypeVTTCue :: JSM GType gTypeVTTCue = GType . Object <$> jsg "VTTCue" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.VTTRegion". -- -- newtype VTTRegion = VTTRegion { unVTTRegion :: JSVal } instance PToJSVal VTTRegion where pToJSVal = unVTTRegion {-# INLINE pToJSVal #-} instance PFromJSVal VTTRegion where pFromJSVal = VTTRegion {-# INLINE pFromJSVal #-} instance ToJSVal VTTRegion where toJSVal = return . unVTTRegion {-# INLINE toJSVal #-} instance FromJSVal VTTRegion where fromJSVal v = fmap VTTRegion <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject VTTRegion where makeObject = makeObject . unVTTRegion instance IsGObject VTTRegion where toGObject = GObject . unVTTRegion {-# INLINE toGObject #-} unsafeCastGObject = VTTRegion . unGObject {-# INLINE unsafeCastGObject #-} castToVTTRegion :: IsGObject obj => obj -> JSM VTTRegion castToVTTRegion = castTo gTypeVTTRegion "VTTRegion" gTypeVTTRegion :: JSM GType gTypeVTTRegion = GType . Object <$> jsg "VTTRegion" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.VTTRegionList". -- -- newtype VTTRegionList = VTTRegionList { unVTTRegionList :: JSVal } instance PToJSVal VTTRegionList where pToJSVal = unVTTRegionList {-# INLINE pToJSVal #-} instance PFromJSVal VTTRegionList where pFromJSVal = VTTRegionList {-# INLINE pFromJSVal #-} instance ToJSVal VTTRegionList where toJSVal = return . unVTTRegionList {-# INLINE toJSVal #-} instance FromJSVal VTTRegionList where fromJSVal v = fmap VTTRegionList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject VTTRegionList where makeObject = makeObject . unVTTRegionList instance IsGObject VTTRegionList where toGObject = GObject . unVTTRegionList {-# INLINE toGObject #-} unsafeCastGObject = VTTRegionList . unGObject {-# INLINE unsafeCastGObject #-} castToVTTRegionList :: IsGObject obj => obj -> JSM VTTRegionList castToVTTRegionList = castTo gTypeVTTRegionList "VTTRegionList" gTypeVTTRegionList :: JSM GType gTypeVTTRegionList = GType . Object <$> jsg "VTTRegionList" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ValidityState". -- -- newtype ValidityState = ValidityState { unValidityState :: JSVal } instance PToJSVal ValidityState where pToJSVal = unValidityState {-# INLINE pToJSVal #-} instance PFromJSVal ValidityState where pFromJSVal = ValidityState {-# INLINE pFromJSVal #-} instance ToJSVal ValidityState where toJSVal = return . unValidityState {-# INLINE toJSVal #-} instance FromJSVal ValidityState where fromJSVal v = fmap ValidityState <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject ValidityState where makeObject = makeObject . unValidityState instance IsGObject ValidityState where toGObject = GObject . unValidityState {-# INLINE toGObject #-} unsafeCastGObject = ValidityState . unGObject {-# INLINE unsafeCastGObject #-} castToValidityState :: IsGObject obj => obj -> JSM ValidityState castToValidityState = castTo gTypeValidityState "ValidityState" gTypeValidityState :: JSM GType gTypeValidityState = GType . Object <$> jsg "ValidityState" #else type IsValidityState o = ValidityStateClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.VideoPlaybackQuality". -- -- newtype VideoPlaybackQuality = VideoPlaybackQuality { unVideoPlaybackQuality :: JSVal } instance PToJSVal VideoPlaybackQuality where pToJSVal = unVideoPlaybackQuality {-# INLINE pToJSVal #-} instance PFromJSVal VideoPlaybackQuality where pFromJSVal = VideoPlaybackQuality {-# INLINE pFromJSVal #-} instance ToJSVal VideoPlaybackQuality where toJSVal = return . unVideoPlaybackQuality {-# INLINE toJSVal #-} instance FromJSVal VideoPlaybackQuality where fromJSVal v = fmap VideoPlaybackQuality <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject VideoPlaybackQuality where makeObject = makeObject . unVideoPlaybackQuality instance IsGObject VideoPlaybackQuality where toGObject = GObject . unVideoPlaybackQuality {-# INLINE toGObject #-} unsafeCastGObject = VideoPlaybackQuality . unGObject {-# INLINE unsafeCastGObject #-} castToVideoPlaybackQuality :: IsGObject obj => obj -> JSM VideoPlaybackQuality castToVideoPlaybackQuality = castTo gTypeVideoPlaybackQuality "VideoPlaybackQuality" gTypeVideoPlaybackQuality :: JSM GType gTypeVideoPlaybackQuality = GType . Object <$> jsg "VideoPlaybackQuality" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.VideoStreamTrack". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.MediaStreamTrack" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype VideoStreamTrack = VideoStreamTrack { unVideoStreamTrack :: JSVal } instance PToJSVal VideoStreamTrack where pToJSVal = unVideoStreamTrack {-# INLINE pToJSVal #-} instance PFromJSVal VideoStreamTrack where pFromJSVal = VideoStreamTrack {-# INLINE pFromJSVal #-} instance ToJSVal VideoStreamTrack where toJSVal = return . unVideoStreamTrack {-# INLINE toJSVal #-} instance FromJSVal VideoStreamTrack where fromJSVal v = fmap VideoStreamTrack <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject VideoStreamTrack where makeObject = makeObject . unVideoStreamTrack instance IsMediaStreamTrack VideoStreamTrack instance IsEventTarget VideoStreamTrack instance IsGObject VideoStreamTrack where toGObject = GObject . unVideoStreamTrack {-# INLINE toGObject #-} unsafeCastGObject = VideoStreamTrack . unGObject {-# INLINE unsafeCastGObject #-} castToVideoStreamTrack :: IsGObject obj => obj -> JSM VideoStreamTrack castToVideoStreamTrack = castTo gTypeVideoStreamTrack "VideoStreamTrack" gTypeVideoStreamTrack :: JSM GType gTypeVideoStreamTrack = GType . Object <$> jsg "VideoStreamTrack" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.VideoTrack". -- -- newtype VideoTrack = VideoTrack { unVideoTrack :: JSVal } instance PToJSVal VideoTrack where pToJSVal = unVideoTrack {-# INLINE pToJSVal #-} instance PFromJSVal VideoTrack where pFromJSVal = VideoTrack {-# INLINE pFromJSVal #-} instance ToJSVal VideoTrack where toJSVal = return . unVideoTrack {-# INLINE toJSVal #-} instance FromJSVal VideoTrack where fromJSVal v = fmap VideoTrack <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject VideoTrack where makeObject = makeObject . unVideoTrack instance IsGObject VideoTrack where toGObject = GObject . unVideoTrack {-# INLINE toGObject #-} unsafeCastGObject = VideoTrack . unGObject {-# INLINE unsafeCastGObject #-} castToVideoTrack :: IsGObject obj => obj -> JSM VideoTrack castToVideoTrack = castTo gTypeVideoTrack "VideoTrack" gTypeVideoTrack :: JSM GType gTypeVideoTrack = GType . Object <$> jsg "VideoTrack" #else #ifndef USE_OLD_WEBKIT type IsVideoTrack o = VideoTrackClass o #endif #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.VideoTrackList". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype VideoTrackList = VideoTrackList { unVideoTrackList :: JSVal } instance PToJSVal VideoTrackList where pToJSVal = unVideoTrackList {-# INLINE pToJSVal #-} instance PFromJSVal VideoTrackList where pFromJSVal = VideoTrackList {-# INLINE pFromJSVal #-} instance ToJSVal VideoTrackList where toJSVal = return . unVideoTrackList {-# INLINE toJSVal #-} instance FromJSVal VideoTrackList where fromJSVal v = fmap VideoTrackList <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject VideoTrackList where makeObject = makeObject . unVideoTrackList instance IsEventTarget VideoTrackList instance IsGObject VideoTrackList where toGObject = GObject . unVideoTrackList {-# INLINE toGObject #-} unsafeCastGObject = VideoTrackList . unGObject {-# INLINE unsafeCastGObject #-} castToVideoTrackList :: IsGObject obj => obj -> JSM VideoTrackList castToVideoTrackList = castTo gTypeVideoTrackList "VideoTrackList" gTypeVideoTrackList :: JSM GType gTypeVideoTrackList = GType . Object <$> jsg "VideoTrackList" #else #ifndef USE_OLD_WEBKIT type IsVideoTrackList o = VideoTrackListClass o #endif #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WaveShaperNode". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.AudioNode" -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype WaveShaperNode = WaveShaperNode { unWaveShaperNode :: JSVal } instance PToJSVal WaveShaperNode where pToJSVal = unWaveShaperNode {-# INLINE pToJSVal #-} instance PFromJSVal WaveShaperNode where pFromJSVal = WaveShaperNode {-# INLINE pFromJSVal #-} instance ToJSVal WaveShaperNode where toJSVal = return . unWaveShaperNode {-# INLINE toJSVal #-} instance FromJSVal WaveShaperNode where fromJSVal v = fmap WaveShaperNode <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WaveShaperNode where makeObject = makeObject . unWaveShaperNode instance IsAudioNode WaveShaperNode instance IsEventTarget WaveShaperNode instance IsGObject WaveShaperNode where toGObject = GObject . unWaveShaperNode {-# INLINE toGObject #-} unsafeCastGObject = WaveShaperNode . unGObject {-# INLINE unsafeCastGObject #-} castToWaveShaperNode :: IsGObject obj => obj -> JSM WaveShaperNode castToWaveShaperNode = castTo gTypeWaveShaperNode "WaveShaperNode" gTypeWaveShaperNode :: JSM GType gTypeWaveShaperNode = GType . Object <$> jsg "WaveShaperNode" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGL2RenderingContext". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.WebGLRenderingContextBase" -- * "Language.Javascript.JSaddle.DOM.CanvasRenderingContext" -- -- newtype WebGL2RenderingContext = WebGL2RenderingContext { unWebGL2RenderingContext :: JSVal } instance PToJSVal WebGL2RenderingContext where pToJSVal = unWebGL2RenderingContext {-# INLINE pToJSVal #-} instance PFromJSVal WebGL2RenderingContext where pFromJSVal = WebGL2RenderingContext {-# INLINE pFromJSVal #-} instance ToJSVal WebGL2RenderingContext where toJSVal = return . unWebGL2RenderingContext {-# INLINE toJSVal #-} instance FromJSVal WebGL2RenderingContext where fromJSVal v = fmap WebGL2RenderingContext <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGL2RenderingContext where makeObject = makeObject . unWebGL2RenderingContext instance IsWebGLRenderingContextBase WebGL2RenderingContext instance IsCanvasRenderingContext WebGL2RenderingContext instance IsGObject WebGL2RenderingContext where toGObject = GObject . unWebGL2RenderingContext {-# INLINE toGObject #-} unsafeCastGObject = WebGL2RenderingContext . unGObject {-# INLINE unsafeCastGObject #-} castToWebGL2RenderingContext :: IsGObject obj => obj -> JSM WebGL2RenderingContext castToWebGL2RenderingContext = castTo gTypeWebGL2RenderingContext "WebGL2RenderingContext" gTypeWebGL2RenderingContext :: JSM GType gTypeWebGL2RenderingContext = GType . Object <$> jsg "WebGL2RenderingContext" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLActiveInfo". -- -- newtype WebGLActiveInfo = WebGLActiveInfo { unWebGLActiveInfo :: JSVal } instance PToJSVal WebGLActiveInfo where pToJSVal = unWebGLActiveInfo {-# INLINE pToJSVal #-} instance PFromJSVal WebGLActiveInfo where pFromJSVal = WebGLActiveInfo {-# INLINE pFromJSVal #-} instance ToJSVal WebGLActiveInfo where toJSVal = return . unWebGLActiveInfo {-# INLINE toJSVal #-} instance FromJSVal WebGLActiveInfo where fromJSVal v = fmap WebGLActiveInfo <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLActiveInfo where makeObject = makeObject . unWebGLActiveInfo instance IsGObject WebGLActiveInfo where toGObject = GObject . unWebGLActiveInfo {-# INLINE toGObject #-} unsafeCastGObject = WebGLActiveInfo . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLActiveInfo :: IsGObject obj => obj -> JSM WebGLActiveInfo castToWebGLActiveInfo = castTo gTypeWebGLActiveInfo "WebGLActiveInfo" gTypeWebGLActiveInfo :: JSM GType gTypeWebGLActiveInfo = GType . Object <$> jsg "WebGLActiveInfo" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLBuffer". -- -- newtype WebGLBuffer = WebGLBuffer { unWebGLBuffer :: JSVal } instance PToJSVal WebGLBuffer where pToJSVal = unWebGLBuffer {-# INLINE pToJSVal #-} instance PFromJSVal WebGLBuffer where pFromJSVal = WebGLBuffer {-# INLINE pFromJSVal #-} instance ToJSVal WebGLBuffer where toJSVal = return . unWebGLBuffer {-# INLINE toJSVal #-} instance FromJSVal WebGLBuffer where fromJSVal v = fmap WebGLBuffer <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLBuffer where makeObject = makeObject . unWebGLBuffer instance IsGObject WebGLBuffer where toGObject = GObject . unWebGLBuffer {-# INLINE toGObject #-} unsafeCastGObject = WebGLBuffer . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLBuffer :: IsGObject obj => obj -> JSM WebGLBuffer castToWebGLBuffer = castTo gTypeWebGLBuffer "WebGLBuffer" gTypeWebGLBuffer :: JSM GType gTypeWebGLBuffer = GType . Object <$> jsg "WebGLBuffer" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLCompressedTextureATC". -- -- newtype WebGLCompressedTextureATC = WebGLCompressedTextureATC { unWebGLCompressedTextureATC :: JSVal } instance PToJSVal WebGLCompressedTextureATC where pToJSVal = unWebGLCompressedTextureATC {-# INLINE pToJSVal #-} instance PFromJSVal WebGLCompressedTextureATC where pFromJSVal = WebGLCompressedTextureATC {-# INLINE pFromJSVal #-} instance ToJSVal WebGLCompressedTextureATC where toJSVal = return . unWebGLCompressedTextureATC {-# INLINE toJSVal #-} instance FromJSVal WebGLCompressedTextureATC where fromJSVal v = fmap WebGLCompressedTextureATC <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLCompressedTextureATC where makeObject = makeObject . unWebGLCompressedTextureATC instance IsGObject WebGLCompressedTextureATC where toGObject = GObject . unWebGLCompressedTextureATC {-# INLINE toGObject #-} unsafeCastGObject = WebGLCompressedTextureATC . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLCompressedTextureATC :: IsGObject obj => obj -> JSM WebGLCompressedTextureATC castToWebGLCompressedTextureATC = castTo gTypeWebGLCompressedTextureATC "WebGLCompressedTextureATC" gTypeWebGLCompressedTextureATC :: JSM GType gTypeWebGLCompressedTextureATC = GType . Object <$> jsg "WebGLCompressedTextureATC" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLCompressedTexturePVRTC". -- -- newtype WebGLCompressedTexturePVRTC = WebGLCompressedTexturePVRTC { unWebGLCompressedTexturePVRTC :: JSVal } instance PToJSVal WebGLCompressedTexturePVRTC where pToJSVal = unWebGLCompressedTexturePVRTC {-# INLINE pToJSVal #-} instance PFromJSVal WebGLCompressedTexturePVRTC where pFromJSVal = WebGLCompressedTexturePVRTC {-# INLINE pFromJSVal #-} instance ToJSVal WebGLCompressedTexturePVRTC where toJSVal = return . unWebGLCompressedTexturePVRTC {-# INLINE toJSVal #-} instance FromJSVal WebGLCompressedTexturePVRTC where fromJSVal v = fmap WebGLCompressedTexturePVRTC <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLCompressedTexturePVRTC where makeObject = makeObject . unWebGLCompressedTexturePVRTC instance IsGObject WebGLCompressedTexturePVRTC where toGObject = GObject . unWebGLCompressedTexturePVRTC {-# INLINE toGObject #-} unsafeCastGObject = WebGLCompressedTexturePVRTC . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLCompressedTexturePVRTC :: IsGObject obj => obj -> JSM WebGLCompressedTexturePVRTC castToWebGLCompressedTexturePVRTC = castTo gTypeWebGLCompressedTexturePVRTC "WebGLCompressedTexturePVRTC" gTypeWebGLCompressedTexturePVRTC :: JSM GType gTypeWebGLCompressedTexturePVRTC = GType . Object <$> jsg "WebGLCompressedTexturePVRTC" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLCompressedTextureS3TC". -- -- newtype WebGLCompressedTextureS3TC = WebGLCompressedTextureS3TC { unWebGLCompressedTextureS3TC :: JSVal } instance PToJSVal WebGLCompressedTextureS3TC where pToJSVal = unWebGLCompressedTextureS3TC {-# INLINE pToJSVal #-} instance PFromJSVal WebGLCompressedTextureS3TC where pFromJSVal = WebGLCompressedTextureS3TC {-# INLINE pFromJSVal #-} instance ToJSVal WebGLCompressedTextureS3TC where toJSVal = return . unWebGLCompressedTextureS3TC {-# INLINE toJSVal #-} instance FromJSVal WebGLCompressedTextureS3TC where fromJSVal v = fmap WebGLCompressedTextureS3TC <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLCompressedTextureS3TC where makeObject = makeObject . unWebGLCompressedTextureS3TC instance IsGObject WebGLCompressedTextureS3TC where toGObject = GObject . unWebGLCompressedTextureS3TC {-# INLINE toGObject #-} unsafeCastGObject = WebGLCompressedTextureS3TC . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLCompressedTextureS3TC :: IsGObject obj => obj -> JSM WebGLCompressedTextureS3TC castToWebGLCompressedTextureS3TC = castTo gTypeWebGLCompressedTextureS3TC "WebGLCompressedTextureS3TC" gTypeWebGLCompressedTextureS3TC :: JSM GType gTypeWebGLCompressedTextureS3TC = GType . Object <$> jsg "WebGLCompressedTextureS3TC" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLContextAttributes". -- -- newtype WebGLContextAttributes = WebGLContextAttributes { unWebGLContextAttributes :: JSVal } instance PToJSVal WebGLContextAttributes where pToJSVal = unWebGLContextAttributes {-# INLINE pToJSVal #-} instance PFromJSVal WebGLContextAttributes where pFromJSVal = WebGLContextAttributes {-# INLINE pFromJSVal #-} instance ToJSVal WebGLContextAttributes where toJSVal = return . unWebGLContextAttributes {-# INLINE toJSVal #-} instance FromJSVal WebGLContextAttributes where fromJSVal v = fmap WebGLContextAttributes <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLContextAttributes where makeObject = makeObject . unWebGLContextAttributes instance IsGObject WebGLContextAttributes where toGObject = GObject . unWebGLContextAttributes {-# INLINE toGObject #-} unsafeCastGObject = WebGLContextAttributes . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLContextAttributes :: IsGObject obj => obj -> JSM WebGLContextAttributes castToWebGLContextAttributes = castTo gTypeWebGLContextAttributes "WebGLContextAttributes" gTypeWebGLContextAttributes :: JSM GType gTypeWebGLContextAttributes = GType . Object <$> jsg "WebGLContextAttributes" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLContextEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype WebGLContextEvent = WebGLContextEvent { unWebGLContextEvent :: JSVal } instance PToJSVal WebGLContextEvent where pToJSVal = unWebGLContextEvent {-# INLINE pToJSVal #-} instance PFromJSVal WebGLContextEvent where pFromJSVal = WebGLContextEvent {-# INLINE pFromJSVal #-} instance ToJSVal WebGLContextEvent where toJSVal = return . unWebGLContextEvent {-# INLINE toJSVal #-} instance FromJSVal WebGLContextEvent where fromJSVal v = fmap WebGLContextEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLContextEvent where makeObject = makeObject . unWebGLContextEvent instance IsEvent WebGLContextEvent instance IsGObject WebGLContextEvent where toGObject = GObject . unWebGLContextEvent {-# INLINE toGObject #-} unsafeCastGObject = WebGLContextEvent . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLContextEvent :: IsGObject obj => obj -> JSM WebGLContextEvent castToWebGLContextEvent = castTo gTypeWebGLContextEvent "WebGLContextEvent" gTypeWebGLContextEvent :: JSM GType gTypeWebGLContextEvent = GType . Object <$> jsg "WebGLContextEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLDebugRendererInfo". -- -- newtype WebGLDebugRendererInfo = WebGLDebugRendererInfo { unWebGLDebugRendererInfo :: JSVal } instance PToJSVal WebGLDebugRendererInfo where pToJSVal = unWebGLDebugRendererInfo {-# INLINE pToJSVal #-} instance PFromJSVal WebGLDebugRendererInfo where pFromJSVal = WebGLDebugRendererInfo {-# INLINE pFromJSVal #-} instance ToJSVal WebGLDebugRendererInfo where toJSVal = return . unWebGLDebugRendererInfo {-# INLINE toJSVal #-} instance FromJSVal WebGLDebugRendererInfo where fromJSVal v = fmap WebGLDebugRendererInfo <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLDebugRendererInfo where makeObject = makeObject . unWebGLDebugRendererInfo instance IsGObject WebGLDebugRendererInfo where toGObject = GObject . unWebGLDebugRendererInfo {-# INLINE toGObject #-} unsafeCastGObject = WebGLDebugRendererInfo . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLDebugRendererInfo :: IsGObject obj => obj -> JSM WebGLDebugRendererInfo castToWebGLDebugRendererInfo = castTo gTypeWebGLDebugRendererInfo "WebGLDebugRendererInfo" gTypeWebGLDebugRendererInfo :: JSM GType gTypeWebGLDebugRendererInfo = GType . Object <$> jsg "WebGLDebugRendererInfo" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLDebugShaders". -- -- newtype WebGLDebugShaders = WebGLDebugShaders { unWebGLDebugShaders :: JSVal } instance PToJSVal WebGLDebugShaders where pToJSVal = unWebGLDebugShaders {-# INLINE pToJSVal #-} instance PFromJSVal WebGLDebugShaders where pFromJSVal = WebGLDebugShaders {-# INLINE pFromJSVal #-} instance ToJSVal WebGLDebugShaders where toJSVal = return . unWebGLDebugShaders {-# INLINE toJSVal #-} instance FromJSVal WebGLDebugShaders where fromJSVal v = fmap WebGLDebugShaders <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLDebugShaders where makeObject = makeObject . unWebGLDebugShaders instance IsGObject WebGLDebugShaders where toGObject = GObject . unWebGLDebugShaders {-# INLINE toGObject #-} unsafeCastGObject = WebGLDebugShaders . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLDebugShaders :: IsGObject obj => obj -> JSM WebGLDebugShaders castToWebGLDebugShaders = castTo gTypeWebGLDebugShaders "WebGLDebugShaders" gTypeWebGLDebugShaders :: JSM GType gTypeWebGLDebugShaders = GType . Object <$> jsg "WebGLDebugShaders" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLDepthTexture". -- -- newtype WebGLDepthTexture = WebGLDepthTexture { unWebGLDepthTexture :: JSVal } instance PToJSVal WebGLDepthTexture where pToJSVal = unWebGLDepthTexture {-# INLINE pToJSVal #-} instance PFromJSVal WebGLDepthTexture where pFromJSVal = WebGLDepthTexture {-# INLINE pFromJSVal #-} instance ToJSVal WebGLDepthTexture where toJSVal = return . unWebGLDepthTexture {-# INLINE toJSVal #-} instance FromJSVal WebGLDepthTexture where fromJSVal v = fmap WebGLDepthTexture <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLDepthTexture where makeObject = makeObject . unWebGLDepthTexture instance IsGObject WebGLDepthTexture where toGObject = GObject . unWebGLDepthTexture {-# INLINE toGObject #-} unsafeCastGObject = WebGLDepthTexture . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLDepthTexture :: IsGObject obj => obj -> JSM WebGLDepthTexture castToWebGLDepthTexture = castTo gTypeWebGLDepthTexture "WebGLDepthTexture" gTypeWebGLDepthTexture :: JSM GType gTypeWebGLDepthTexture = GType . Object <$> jsg "WebGLDepthTexture" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLDrawBuffers". -- -- newtype WebGLDrawBuffers = WebGLDrawBuffers { unWebGLDrawBuffers :: JSVal } instance PToJSVal WebGLDrawBuffers where pToJSVal = unWebGLDrawBuffers {-# INLINE pToJSVal #-} instance PFromJSVal WebGLDrawBuffers where pFromJSVal = WebGLDrawBuffers {-# INLINE pFromJSVal #-} instance ToJSVal WebGLDrawBuffers where toJSVal = return . unWebGLDrawBuffers {-# INLINE toJSVal #-} instance FromJSVal WebGLDrawBuffers where fromJSVal v = fmap WebGLDrawBuffers <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLDrawBuffers where makeObject = makeObject . unWebGLDrawBuffers instance IsGObject WebGLDrawBuffers where toGObject = GObject . unWebGLDrawBuffers {-# INLINE toGObject #-} unsafeCastGObject = WebGLDrawBuffers . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLDrawBuffers :: IsGObject obj => obj -> JSM WebGLDrawBuffers castToWebGLDrawBuffers = castTo gTypeWebGLDrawBuffers "WebGLDrawBuffers" gTypeWebGLDrawBuffers :: JSM GType gTypeWebGLDrawBuffers = GType . Object <$> jsg "WebGLDrawBuffers" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLFramebuffer". -- -- newtype WebGLFramebuffer = WebGLFramebuffer { unWebGLFramebuffer :: JSVal } instance PToJSVal WebGLFramebuffer where pToJSVal = unWebGLFramebuffer {-# INLINE pToJSVal #-} instance PFromJSVal WebGLFramebuffer where pFromJSVal = WebGLFramebuffer {-# INLINE pFromJSVal #-} instance ToJSVal WebGLFramebuffer where toJSVal = return . unWebGLFramebuffer {-# INLINE toJSVal #-} instance FromJSVal WebGLFramebuffer where fromJSVal v = fmap WebGLFramebuffer <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLFramebuffer where makeObject = makeObject . unWebGLFramebuffer instance IsGObject WebGLFramebuffer where toGObject = GObject . unWebGLFramebuffer {-# INLINE toGObject #-} unsafeCastGObject = WebGLFramebuffer . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLFramebuffer :: IsGObject obj => obj -> JSM WebGLFramebuffer castToWebGLFramebuffer = castTo gTypeWebGLFramebuffer "WebGLFramebuffer" gTypeWebGLFramebuffer :: JSM GType gTypeWebGLFramebuffer = GType . Object <$> jsg "WebGLFramebuffer" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLLoseContext". -- -- newtype WebGLLoseContext = WebGLLoseContext { unWebGLLoseContext :: JSVal } instance PToJSVal WebGLLoseContext where pToJSVal = unWebGLLoseContext {-# INLINE pToJSVal #-} instance PFromJSVal WebGLLoseContext where pFromJSVal = WebGLLoseContext {-# INLINE pFromJSVal #-} instance ToJSVal WebGLLoseContext where toJSVal = return . unWebGLLoseContext {-# INLINE toJSVal #-} instance FromJSVal WebGLLoseContext where fromJSVal v = fmap WebGLLoseContext <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLLoseContext where makeObject = makeObject . unWebGLLoseContext instance IsGObject WebGLLoseContext where toGObject = GObject . unWebGLLoseContext {-# INLINE toGObject #-} unsafeCastGObject = WebGLLoseContext . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLLoseContext :: IsGObject obj => obj -> JSM WebGLLoseContext castToWebGLLoseContext = castTo gTypeWebGLLoseContext "WebGLLoseContext" gTypeWebGLLoseContext :: JSM GType gTypeWebGLLoseContext = GType . Object <$> jsg "WebGLLoseContext" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLProgram". -- -- newtype WebGLProgram = WebGLProgram { unWebGLProgram :: JSVal } instance PToJSVal WebGLProgram where pToJSVal = unWebGLProgram {-# INLINE pToJSVal #-} instance PFromJSVal WebGLProgram where pFromJSVal = WebGLProgram {-# INLINE pFromJSVal #-} instance ToJSVal WebGLProgram where toJSVal = return . unWebGLProgram {-# INLINE toJSVal #-} instance FromJSVal WebGLProgram where fromJSVal v = fmap WebGLProgram <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLProgram where makeObject = makeObject . unWebGLProgram instance IsGObject WebGLProgram where toGObject = GObject . unWebGLProgram {-# INLINE toGObject #-} unsafeCastGObject = WebGLProgram . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLProgram :: IsGObject obj => obj -> JSM WebGLProgram castToWebGLProgram = castTo gTypeWebGLProgram "WebGLProgram" gTypeWebGLProgram :: JSM GType gTypeWebGLProgram = GType . Object <$> jsg "WebGLProgram" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLQuery". -- -- newtype WebGLQuery = WebGLQuery { unWebGLQuery :: JSVal } instance PToJSVal WebGLQuery where pToJSVal = unWebGLQuery {-# INLINE pToJSVal #-} instance PFromJSVal WebGLQuery where pFromJSVal = WebGLQuery {-# INLINE pFromJSVal #-} instance ToJSVal WebGLQuery where toJSVal = return . unWebGLQuery {-# INLINE toJSVal #-} instance FromJSVal WebGLQuery where fromJSVal v = fmap WebGLQuery <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLQuery where makeObject = makeObject . unWebGLQuery instance IsGObject WebGLQuery where toGObject = GObject . unWebGLQuery {-# INLINE toGObject #-} unsafeCastGObject = WebGLQuery . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLQuery :: IsGObject obj => obj -> JSM WebGLQuery castToWebGLQuery = castTo gTypeWebGLQuery "WebGLQuery" gTypeWebGLQuery :: JSM GType gTypeWebGLQuery = GType . Object <$> jsg "WebGLQuery" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLRenderbuffer". -- -- newtype WebGLRenderbuffer = WebGLRenderbuffer { unWebGLRenderbuffer :: JSVal } instance PToJSVal WebGLRenderbuffer where pToJSVal = unWebGLRenderbuffer {-# INLINE pToJSVal #-} instance PFromJSVal WebGLRenderbuffer where pFromJSVal = WebGLRenderbuffer {-# INLINE pFromJSVal #-} instance ToJSVal WebGLRenderbuffer where toJSVal = return . unWebGLRenderbuffer {-# INLINE toJSVal #-} instance FromJSVal WebGLRenderbuffer where fromJSVal v = fmap WebGLRenderbuffer <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLRenderbuffer where makeObject = makeObject . unWebGLRenderbuffer instance IsGObject WebGLRenderbuffer where toGObject = GObject . unWebGLRenderbuffer {-# INLINE toGObject #-} unsafeCastGObject = WebGLRenderbuffer . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLRenderbuffer :: IsGObject obj => obj -> JSM WebGLRenderbuffer castToWebGLRenderbuffer = castTo gTypeWebGLRenderbuffer "WebGLRenderbuffer" gTypeWebGLRenderbuffer :: JSM GType gTypeWebGLRenderbuffer = GType . Object <$> jsg "WebGLRenderbuffer" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLRenderingContext". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.WebGLRenderingContextBase" -- * "Language.Javascript.JSaddle.DOM.CanvasRenderingContext" -- -- newtype WebGLRenderingContext = WebGLRenderingContext { unWebGLRenderingContext :: JSVal } instance PToJSVal WebGLRenderingContext where pToJSVal = unWebGLRenderingContext {-# INLINE pToJSVal #-} instance PFromJSVal WebGLRenderingContext where pFromJSVal = WebGLRenderingContext {-# INLINE pFromJSVal #-} instance ToJSVal WebGLRenderingContext where toJSVal = return . unWebGLRenderingContext {-# INLINE toJSVal #-} instance FromJSVal WebGLRenderingContext where fromJSVal v = fmap WebGLRenderingContext <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLRenderingContext where makeObject = makeObject . unWebGLRenderingContext instance IsWebGLRenderingContextBase WebGLRenderingContext instance IsCanvasRenderingContext WebGLRenderingContext instance IsGObject WebGLRenderingContext where toGObject = GObject . unWebGLRenderingContext {-# INLINE toGObject #-} unsafeCastGObject = WebGLRenderingContext . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLRenderingContext :: IsGObject obj => obj -> JSM WebGLRenderingContext castToWebGLRenderingContext = castTo gTypeWebGLRenderingContext "WebGLRenderingContext" gTypeWebGLRenderingContext :: JSM GType gTypeWebGLRenderingContext = GType . Object <$> jsg "WebGLRenderingContext" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLRenderingContextBase". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.CanvasRenderingContext" -- -- newtype WebGLRenderingContextBase = WebGLRenderingContextBase { unWebGLRenderingContextBase :: JSVal } instance PToJSVal WebGLRenderingContextBase where pToJSVal = unWebGLRenderingContextBase {-# INLINE pToJSVal #-} instance PFromJSVal WebGLRenderingContextBase where pFromJSVal = WebGLRenderingContextBase {-# INLINE pFromJSVal #-} instance ToJSVal WebGLRenderingContextBase where toJSVal = return . unWebGLRenderingContextBase {-# INLINE toJSVal #-} instance FromJSVal WebGLRenderingContextBase where fromJSVal v = fmap WebGLRenderingContextBase <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLRenderingContextBase where makeObject = makeObject . unWebGLRenderingContextBase class IsCanvasRenderingContext o => IsWebGLRenderingContextBase o toWebGLRenderingContextBase :: IsWebGLRenderingContextBase o => o -> WebGLRenderingContextBase toWebGLRenderingContextBase = unsafeCastGObject . toGObject instance IsWebGLRenderingContextBase WebGLRenderingContextBase instance IsCanvasRenderingContext WebGLRenderingContextBase instance IsGObject WebGLRenderingContextBase where toGObject = GObject . unWebGLRenderingContextBase {-# INLINE toGObject #-} unsafeCastGObject = WebGLRenderingContextBase . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLRenderingContextBase :: IsGObject obj => obj -> JSM WebGLRenderingContextBase castToWebGLRenderingContextBase = castTo gTypeWebGLRenderingContextBase "WebGLRenderingContextBase" gTypeWebGLRenderingContextBase :: JSM GType gTypeWebGLRenderingContextBase = GType . Object <$> jsg "WebGLRenderingContextBase" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLSampler". -- -- newtype WebGLSampler = WebGLSampler { unWebGLSampler :: JSVal } instance PToJSVal WebGLSampler where pToJSVal = unWebGLSampler {-# INLINE pToJSVal #-} instance PFromJSVal WebGLSampler where pFromJSVal = WebGLSampler {-# INLINE pFromJSVal #-} instance ToJSVal WebGLSampler where toJSVal = return . unWebGLSampler {-# INLINE toJSVal #-} instance FromJSVal WebGLSampler where fromJSVal v = fmap WebGLSampler <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLSampler where makeObject = makeObject . unWebGLSampler instance IsGObject WebGLSampler where toGObject = GObject . unWebGLSampler {-# INLINE toGObject #-} unsafeCastGObject = WebGLSampler . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLSampler :: IsGObject obj => obj -> JSM WebGLSampler castToWebGLSampler = castTo gTypeWebGLSampler "WebGLSampler" gTypeWebGLSampler :: JSM GType gTypeWebGLSampler = GType . Object <$> jsg "WebGLSampler" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLShader". -- -- newtype WebGLShader = WebGLShader { unWebGLShader :: JSVal } instance PToJSVal WebGLShader where pToJSVal = unWebGLShader {-# INLINE pToJSVal #-} instance PFromJSVal WebGLShader where pFromJSVal = WebGLShader {-# INLINE pFromJSVal #-} instance ToJSVal WebGLShader where toJSVal = return . unWebGLShader {-# INLINE toJSVal #-} instance FromJSVal WebGLShader where fromJSVal v = fmap WebGLShader <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLShader where makeObject = makeObject . unWebGLShader instance IsGObject WebGLShader where toGObject = GObject . unWebGLShader {-# INLINE toGObject #-} unsafeCastGObject = WebGLShader . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLShader :: IsGObject obj => obj -> JSM WebGLShader castToWebGLShader = castTo gTypeWebGLShader "WebGLShader" gTypeWebGLShader :: JSM GType gTypeWebGLShader = GType . Object <$> jsg "WebGLShader" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLShaderPrecisionFormat". -- -- newtype WebGLShaderPrecisionFormat = WebGLShaderPrecisionFormat { unWebGLShaderPrecisionFormat :: JSVal } instance PToJSVal WebGLShaderPrecisionFormat where pToJSVal = unWebGLShaderPrecisionFormat {-# INLINE pToJSVal #-} instance PFromJSVal WebGLShaderPrecisionFormat where pFromJSVal = WebGLShaderPrecisionFormat {-# INLINE pFromJSVal #-} instance ToJSVal WebGLShaderPrecisionFormat where toJSVal = return . unWebGLShaderPrecisionFormat {-# INLINE toJSVal #-} instance FromJSVal WebGLShaderPrecisionFormat where fromJSVal v = fmap WebGLShaderPrecisionFormat <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLShaderPrecisionFormat where makeObject = makeObject . unWebGLShaderPrecisionFormat instance IsGObject WebGLShaderPrecisionFormat where toGObject = GObject . unWebGLShaderPrecisionFormat {-# INLINE toGObject #-} unsafeCastGObject = WebGLShaderPrecisionFormat . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLShaderPrecisionFormat :: IsGObject obj => obj -> JSM WebGLShaderPrecisionFormat castToWebGLShaderPrecisionFormat = castTo gTypeWebGLShaderPrecisionFormat "WebGLShaderPrecisionFormat" gTypeWebGLShaderPrecisionFormat :: JSM GType gTypeWebGLShaderPrecisionFormat = GType . Object <$> jsg "WebGLShaderPrecisionFormat" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLSync". -- -- newtype WebGLSync = WebGLSync { unWebGLSync :: JSVal } instance PToJSVal WebGLSync where pToJSVal = unWebGLSync {-# INLINE pToJSVal #-} instance PFromJSVal WebGLSync where pFromJSVal = WebGLSync {-# INLINE pFromJSVal #-} instance ToJSVal WebGLSync where toJSVal = return . unWebGLSync {-# INLINE toJSVal #-} instance FromJSVal WebGLSync where fromJSVal v = fmap WebGLSync <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLSync where makeObject = makeObject . unWebGLSync instance IsGObject WebGLSync where toGObject = GObject . unWebGLSync {-# INLINE toGObject #-} unsafeCastGObject = WebGLSync . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLSync :: IsGObject obj => obj -> JSM WebGLSync castToWebGLSync = castTo gTypeWebGLSync "WebGLSync" gTypeWebGLSync :: JSM GType gTypeWebGLSync = GType . Object <$> jsg "WebGLSync" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLTexture". -- -- newtype WebGLTexture = WebGLTexture { unWebGLTexture :: JSVal } instance PToJSVal WebGLTexture where pToJSVal = unWebGLTexture {-# INLINE pToJSVal #-} instance PFromJSVal WebGLTexture where pFromJSVal = WebGLTexture {-# INLINE pFromJSVal #-} instance ToJSVal WebGLTexture where toJSVal = return . unWebGLTexture {-# INLINE toJSVal #-} instance FromJSVal WebGLTexture where fromJSVal v = fmap WebGLTexture <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLTexture where makeObject = makeObject . unWebGLTexture instance IsGObject WebGLTexture where toGObject = GObject . unWebGLTexture {-# INLINE toGObject #-} unsafeCastGObject = WebGLTexture . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLTexture :: IsGObject obj => obj -> JSM WebGLTexture castToWebGLTexture = castTo gTypeWebGLTexture "WebGLTexture" gTypeWebGLTexture :: JSM GType gTypeWebGLTexture = GType . Object <$> jsg "WebGLTexture" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLTransformFeedback". -- -- newtype WebGLTransformFeedback = WebGLTransformFeedback { unWebGLTransformFeedback :: JSVal } instance PToJSVal WebGLTransformFeedback where pToJSVal = unWebGLTransformFeedback {-# INLINE pToJSVal #-} instance PFromJSVal WebGLTransformFeedback where pFromJSVal = WebGLTransformFeedback {-# INLINE pFromJSVal #-} instance ToJSVal WebGLTransformFeedback where toJSVal = return . unWebGLTransformFeedback {-# INLINE toJSVal #-} instance FromJSVal WebGLTransformFeedback where fromJSVal v = fmap WebGLTransformFeedback <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLTransformFeedback where makeObject = makeObject . unWebGLTransformFeedback instance IsGObject WebGLTransformFeedback where toGObject = GObject . unWebGLTransformFeedback {-# INLINE toGObject #-} unsafeCastGObject = WebGLTransformFeedback . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLTransformFeedback :: IsGObject obj => obj -> JSM WebGLTransformFeedback castToWebGLTransformFeedback = castTo gTypeWebGLTransformFeedback "WebGLTransformFeedback" gTypeWebGLTransformFeedback :: JSM GType gTypeWebGLTransformFeedback = GType . Object <$> jsg "WebGLTransformFeedback" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLUniformLocation". -- -- newtype WebGLUniformLocation = WebGLUniformLocation { unWebGLUniformLocation :: JSVal } instance PToJSVal WebGLUniformLocation where pToJSVal = unWebGLUniformLocation {-# INLINE pToJSVal #-} instance PFromJSVal WebGLUniformLocation where pFromJSVal = WebGLUniformLocation {-# INLINE pFromJSVal #-} instance ToJSVal WebGLUniformLocation where toJSVal = return . unWebGLUniformLocation {-# INLINE toJSVal #-} instance FromJSVal WebGLUniformLocation where fromJSVal v = fmap WebGLUniformLocation <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLUniformLocation where makeObject = makeObject . unWebGLUniformLocation instance IsGObject WebGLUniformLocation where toGObject = GObject . unWebGLUniformLocation {-# INLINE toGObject #-} unsafeCastGObject = WebGLUniformLocation . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLUniformLocation :: IsGObject obj => obj -> JSM WebGLUniformLocation castToWebGLUniformLocation = castTo gTypeWebGLUniformLocation "WebGLUniformLocation" gTypeWebGLUniformLocation :: JSM GType gTypeWebGLUniformLocation = GType . Object <$> jsg "WebGLUniformLocation" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLVertexArrayObject". -- -- newtype WebGLVertexArrayObject = WebGLVertexArrayObject { unWebGLVertexArrayObject :: JSVal } instance PToJSVal WebGLVertexArrayObject where pToJSVal = unWebGLVertexArrayObject {-# INLINE pToJSVal #-} instance PFromJSVal WebGLVertexArrayObject where pFromJSVal = WebGLVertexArrayObject {-# INLINE pFromJSVal #-} instance ToJSVal WebGLVertexArrayObject where toJSVal = return . unWebGLVertexArrayObject {-# INLINE toJSVal #-} instance FromJSVal WebGLVertexArrayObject where fromJSVal v = fmap WebGLVertexArrayObject <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLVertexArrayObject where makeObject = makeObject . unWebGLVertexArrayObject instance IsGObject WebGLVertexArrayObject where toGObject = GObject . unWebGLVertexArrayObject {-# INLINE toGObject #-} unsafeCastGObject = WebGLVertexArrayObject . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLVertexArrayObject :: IsGObject obj => obj -> JSM WebGLVertexArrayObject castToWebGLVertexArrayObject = castTo gTypeWebGLVertexArrayObject "WebGLVertexArrayObject" gTypeWebGLVertexArrayObject :: JSM GType gTypeWebGLVertexArrayObject = GType . Object <$> jsg "WebGLVertexArrayObject" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLVertexArrayObjectOES". -- -- newtype WebGLVertexArrayObjectOES = WebGLVertexArrayObjectOES { unWebGLVertexArrayObjectOES :: JSVal } instance PToJSVal WebGLVertexArrayObjectOES where pToJSVal = unWebGLVertexArrayObjectOES {-# INLINE pToJSVal #-} instance PFromJSVal WebGLVertexArrayObjectOES where pFromJSVal = WebGLVertexArrayObjectOES {-# INLINE pFromJSVal #-} instance ToJSVal WebGLVertexArrayObjectOES where toJSVal = return . unWebGLVertexArrayObjectOES {-# INLINE toJSVal #-} instance FromJSVal WebGLVertexArrayObjectOES where fromJSVal v = fmap WebGLVertexArrayObjectOES <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebGLVertexArrayObjectOES where makeObject = makeObject . unWebGLVertexArrayObjectOES instance IsGObject WebGLVertexArrayObjectOES where toGObject = GObject . unWebGLVertexArrayObjectOES {-# INLINE toGObject #-} unsafeCastGObject = WebGLVertexArrayObjectOES . unGObject {-# INLINE unsafeCastGObject #-} castToWebGLVertexArrayObjectOES :: IsGObject obj => obj -> JSM WebGLVertexArrayObjectOES castToWebGLVertexArrayObjectOES = castTo gTypeWebGLVertexArrayObjectOES "WebGLVertexArrayObjectOES" gTypeWebGLVertexArrayObjectOES :: JSM GType gTypeWebGLVertexArrayObjectOES = GType . Object <$> jsg "WebGLVertexArrayObjectOES" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebKitAnimationEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype WebKitAnimationEvent = WebKitAnimationEvent { unWebKitAnimationEvent :: JSVal } instance PToJSVal WebKitAnimationEvent where pToJSVal = unWebKitAnimationEvent {-# INLINE pToJSVal #-} instance PFromJSVal WebKitAnimationEvent where pFromJSVal = WebKitAnimationEvent {-# INLINE pFromJSVal #-} instance ToJSVal WebKitAnimationEvent where toJSVal = return . unWebKitAnimationEvent {-# INLINE toJSVal #-} instance FromJSVal WebKitAnimationEvent where fromJSVal v = fmap WebKitAnimationEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebKitAnimationEvent where makeObject = makeObject . unWebKitAnimationEvent instance IsEvent WebKitAnimationEvent instance IsGObject WebKitAnimationEvent where toGObject = GObject . unWebKitAnimationEvent {-# INLINE toGObject #-} unsafeCastGObject = WebKitAnimationEvent . unGObject {-# INLINE unsafeCastGObject #-} castToWebKitAnimationEvent :: IsGObject obj => obj -> JSM WebKitAnimationEvent castToWebKitAnimationEvent = castTo gTypeWebKitAnimationEvent "WebKitAnimationEvent" gTypeWebKitAnimationEvent :: JSM GType gTypeWebKitAnimationEvent = GType . Object <$> jsg "WebKitAnimationEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebKitCSSFilterValue". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.CSSValueList" -- * "Language.Javascript.JSaddle.DOM.CSSValue" -- -- newtype WebKitCSSFilterValue = WebKitCSSFilterValue { unWebKitCSSFilterValue :: JSVal } instance PToJSVal WebKitCSSFilterValue where pToJSVal = unWebKitCSSFilterValue {-# INLINE pToJSVal #-} instance PFromJSVal WebKitCSSFilterValue where pFromJSVal = WebKitCSSFilterValue {-# INLINE pFromJSVal #-} instance ToJSVal WebKitCSSFilterValue where toJSVal = return . unWebKitCSSFilterValue {-# INLINE toJSVal #-} instance FromJSVal WebKitCSSFilterValue where fromJSVal v = fmap WebKitCSSFilterValue <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebKitCSSFilterValue where makeObject = makeObject . unWebKitCSSFilterValue instance IsCSSValueList WebKitCSSFilterValue instance IsCSSValue WebKitCSSFilterValue instance IsGObject WebKitCSSFilterValue where toGObject = GObject . unWebKitCSSFilterValue {-# INLINE toGObject #-} unsafeCastGObject = WebKitCSSFilterValue . unGObject {-# INLINE unsafeCastGObject #-} castToWebKitCSSFilterValue :: IsGObject obj => obj -> JSM WebKitCSSFilterValue castToWebKitCSSFilterValue = castTo gTypeWebKitCSSFilterValue "WebKitCSSFilterValue" gTypeWebKitCSSFilterValue :: JSM GType gTypeWebKitCSSFilterValue = GType . Object <$> jsg "WebKitCSSFilterValue" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebKitCSSMatrix". -- -- newtype WebKitCSSMatrix = WebKitCSSMatrix { unWebKitCSSMatrix :: JSVal } instance PToJSVal WebKitCSSMatrix where pToJSVal = unWebKitCSSMatrix {-# INLINE pToJSVal #-} instance PFromJSVal WebKitCSSMatrix where pFromJSVal = WebKitCSSMatrix {-# INLINE pFromJSVal #-} instance ToJSVal WebKitCSSMatrix where toJSVal = return . unWebKitCSSMatrix {-# INLINE toJSVal #-} instance FromJSVal WebKitCSSMatrix where fromJSVal v = fmap WebKitCSSMatrix <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebKitCSSMatrix where makeObject = makeObject . unWebKitCSSMatrix instance IsGObject WebKitCSSMatrix where toGObject = GObject . unWebKitCSSMatrix {-# INLINE toGObject #-} unsafeCastGObject = WebKitCSSMatrix . unGObject {-# INLINE unsafeCastGObject #-} castToWebKitCSSMatrix :: IsGObject obj => obj -> JSM WebKitCSSMatrix castToWebKitCSSMatrix = castTo gTypeWebKitCSSMatrix "WebKitCSSMatrix" gTypeWebKitCSSMatrix :: JSM GType gTypeWebKitCSSMatrix = GType . Object <$> jsg "WebKitCSSMatrix" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebKitCSSRegionRule". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.CSSRule" -- -- newtype WebKitCSSRegionRule = WebKitCSSRegionRule { unWebKitCSSRegionRule :: JSVal } instance PToJSVal WebKitCSSRegionRule where pToJSVal = unWebKitCSSRegionRule {-# INLINE pToJSVal #-} instance PFromJSVal WebKitCSSRegionRule where pFromJSVal = WebKitCSSRegionRule {-# INLINE pFromJSVal #-} instance ToJSVal WebKitCSSRegionRule where toJSVal = return . unWebKitCSSRegionRule {-# INLINE toJSVal #-} instance FromJSVal WebKitCSSRegionRule where fromJSVal v = fmap WebKitCSSRegionRule <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebKitCSSRegionRule where makeObject = makeObject . unWebKitCSSRegionRule instance IsCSSRule WebKitCSSRegionRule instance IsGObject WebKitCSSRegionRule where toGObject = GObject . unWebKitCSSRegionRule {-# INLINE toGObject #-} unsafeCastGObject = WebKitCSSRegionRule . unGObject {-# INLINE unsafeCastGObject #-} castToWebKitCSSRegionRule :: IsGObject obj => obj -> JSM WebKitCSSRegionRule castToWebKitCSSRegionRule = castTo gTypeWebKitCSSRegionRule "WebKitCSSRegionRule" gTypeWebKitCSSRegionRule :: JSM GType gTypeWebKitCSSRegionRule = GType . Object <$> jsg "WebKitCSSRegionRule" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebKitCSSTransformValue". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.CSSValueList" -- * "Language.Javascript.JSaddle.DOM.CSSValue" -- -- newtype WebKitCSSTransformValue = WebKitCSSTransformValue { unWebKitCSSTransformValue :: JSVal } instance PToJSVal WebKitCSSTransformValue where pToJSVal = unWebKitCSSTransformValue {-# INLINE pToJSVal #-} instance PFromJSVal WebKitCSSTransformValue where pFromJSVal = WebKitCSSTransformValue {-# INLINE pFromJSVal #-} instance ToJSVal WebKitCSSTransformValue where toJSVal = return . unWebKitCSSTransformValue {-# INLINE toJSVal #-} instance FromJSVal WebKitCSSTransformValue where fromJSVal v = fmap WebKitCSSTransformValue <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebKitCSSTransformValue where makeObject = makeObject . unWebKitCSSTransformValue instance IsCSSValueList WebKitCSSTransformValue instance IsCSSValue WebKitCSSTransformValue instance IsGObject WebKitCSSTransformValue where toGObject = GObject . unWebKitCSSTransformValue {-# INLINE toGObject #-} unsafeCastGObject = WebKitCSSTransformValue . unGObject {-# INLINE unsafeCastGObject #-} castToWebKitCSSTransformValue :: IsGObject obj => obj -> JSM WebKitCSSTransformValue castToWebKitCSSTransformValue = castTo gTypeWebKitCSSTransformValue "WebKitCSSTransformValue" gTypeWebKitCSSTransformValue :: JSM GType gTypeWebKitCSSTransformValue = GType . Object <$> jsg "WebKitCSSTransformValue" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebKitCSSViewportRule". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.CSSRule" -- -- newtype WebKitCSSViewportRule = WebKitCSSViewportRule { unWebKitCSSViewportRule :: JSVal } instance PToJSVal WebKitCSSViewportRule where pToJSVal = unWebKitCSSViewportRule {-# INLINE pToJSVal #-} instance PFromJSVal WebKitCSSViewportRule where pFromJSVal = WebKitCSSViewportRule {-# INLINE pFromJSVal #-} instance ToJSVal WebKitCSSViewportRule where toJSVal = return . unWebKitCSSViewportRule {-# INLINE toJSVal #-} instance FromJSVal WebKitCSSViewportRule where fromJSVal v = fmap WebKitCSSViewportRule <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebKitCSSViewportRule where makeObject = makeObject . unWebKitCSSViewportRule instance IsCSSRule WebKitCSSViewportRule instance IsGObject WebKitCSSViewportRule where toGObject = GObject . unWebKitCSSViewportRule {-# INLINE toGObject #-} unsafeCastGObject = WebKitCSSViewportRule . unGObject {-# INLINE unsafeCastGObject #-} castToWebKitCSSViewportRule :: IsGObject obj => obj -> JSM WebKitCSSViewportRule castToWebKitCSSViewportRule = castTo gTypeWebKitCSSViewportRule "WebKitCSSViewportRule" gTypeWebKitCSSViewportRule :: JSM GType gTypeWebKitCSSViewportRule = GType . Object <$> jsg "WebKitCSSViewportRule" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebKitNamedFlow". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype WebKitNamedFlow = WebKitNamedFlow { unWebKitNamedFlow :: JSVal } instance PToJSVal WebKitNamedFlow where pToJSVal = unWebKitNamedFlow {-# INLINE pToJSVal #-} instance PFromJSVal WebKitNamedFlow where pFromJSVal = WebKitNamedFlow {-# INLINE pFromJSVal #-} instance ToJSVal WebKitNamedFlow where toJSVal = return . unWebKitNamedFlow {-# INLINE toJSVal #-} instance FromJSVal WebKitNamedFlow where fromJSVal v = fmap WebKitNamedFlow <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebKitNamedFlow where makeObject = makeObject . unWebKitNamedFlow instance IsEventTarget WebKitNamedFlow instance IsGObject WebKitNamedFlow where toGObject = GObject . unWebKitNamedFlow {-# INLINE toGObject #-} unsafeCastGObject = WebKitNamedFlow . unGObject {-# INLINE unsafeCastGObject #-} castToWebKitNamedFlow :: IsGObject obj => obj -> JSM WebKitNamedFlow castToWebKitNamedFlow = castTo gTypeWebKitNamedFlow "WebKitNamedFlow" gTypeWebKitNamedFlow :: JSM GType gTypeWebKitNamedFlow = GType . Object <$> jsg "WebKitNamedFlow" #else type IsWebKitNamedFlow o = WebKitNamedFlowClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebKitNamespace". -- -- newtype WebKitNamespace = WebKitNamespace { unWebKitNamespace :: JSVal } instance PToJSVal WebKitNamespace where pToJSVal = unWebKitNamespace {-# INLINE pToJSVal #-} instance PFromJSVal WebKitNamespace where pFromJSVal = WebKitNamespace {-# INLINE pFromJSVal #-} instance ToJSVal WebKitNamespace where toJSVal = return . unWebKitNamespace {-# INLINE toJSVal #-} instance FromJSVal WebKitNamespace where fromJSVal v = fmap WebKitNamespace <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebKitNamespace where makeObject = makeObject . unWebKitNamespace instance IsGObject WebKitNamespace where toGObject = GObject . unWebKitNamespace {-# INLINE toGObject #-} unsafeCastGObject = WebKitNamespace . unGObject {-# INLINE unsafeCastGObject #-} castToWebKitNamespace :: IsGObject obj => obj -> JSM WebKitNamespace castToWebKitNamespace = castTo gTypeWebKitNamespace "WebKitNamespace" gTypeWebKitNamespace :: JSM GType gTypeWebKitNamespace = GType . Object <$> jsg "WebKitNamespace" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebKitPlaybackTargetAvailabilityEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype WebKitPlaybackTargetAvailabilityEvent = WebKitPlaybackTargetAvailabilityEvent { unWebKitPlaybackTargetAvailabilityEvent :: JSVal } instance PToJSVal WebKitPlaybackTargetAvailabilityEvent where pToJSVal = unWebKitPlaybackTargetAvailabilityEvent {-# INLINE pToJSVal #-} instance PFromJSVal WebKitPlaybackTargetAvailabilityEvent where pFromJSVal = WebKitPlaybackTargetAvailabilityEvent {-# INLINE pFromJSVal #-} instance ToJSVal WebKitPlaybackTargetAvailabilityEvent where toJSVal = return . unWebKitPlaybackTargetAvailabilityEvent {-# INLINE toJSVal #-} instance FromJSVal WebKitPlaybackTargetAvailabilityEvent where fromJSVal v = fmap WebKitPlaybackTargetAvailabilityEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebKitPlaybackTargetAvailabilityEvent where makeObject = makeObject . unWebKitPlaybackTargetAvailabilityEvent instance IsEvent WebKitPlaybackTargetAvailabilityEvent instance IsGObject WebKitPlaybackTargetAvailabilityEvent where toGObject = GObject . unWebKitPlaybackTargetAvailabilityEvent {-# INLINE toGObject #-} unsafeCastGObject = WebKitPlaybackTargetAvailabilityEvent . unGObject {-# INLINE unsafeCastGObject #-} castToWebKitPlaybackTargetAvailabilityEvent :: IsGObject obj => obj -> JSM WebKitPlaybackTargetAvailabilityEvent castToWebKitPlaybackTargetAvailabilityEvent = castTo gTypeWebKitPlaybackTargetAvailabilityEvent "WebKitPlaybackTargetAvailabilityEvent" gTypeWebKitPlaybackTargetAvailabilityEvent :: JSM GType gTypeWebKitPlaybackTargetAvailabilityEvent = GType . Object <$> jsg "WebKitPlaybackTargetAvailabilityEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebKitPoint". -- -- newtype WebKitPoint = WebKitPoint { unWebKitPoint :: JSVal } instance PToJSVal WebKitPoint where pToJSVal = unWebKitPoint {-# INLINE pToJSVal #-} instance PFromJSVal WebKitPoint where pFromJSVal = WebKitPoint {-# INLINE pFromJSVal #-} instance ToJSVal WebKitPoint where toJSVal = return . unWebKitPoint {-# INLINE toJSVal #-} instance FromJSVal WebKitPoint where fromJSVal v = fmap WebKitPoint <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebKitPoint where makeObject = makeObject . unWebKitPoint instance IsGObject WebKitPoint where toGObject = GObject . unWebKitPoint {-# INLINE toGObject #-} unsafeCastGObject = WebKitPoint . unGObject {-# INLINE unsafeCastGObject #-} castToWebKitPoint :: IsGObject obj => obj -> JSM WebKitPoint castToWebKitPoint = castTo gTypeWebKitPoint "WebKitPoint" gTypeWebKitPoint :: JSM GType gTypeWebKitPoint = GType . Object <$> jsg "WebKitPoint" #else type IsWebKitPoint o = WebKitPointClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebKitTransitionEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype WebKitTransitionEvent = WebKitTransitionEvent { unWebKitTransitionEvent :: JSVal } instance PToJSVal WebKitTransitionEvent where pToJSVal = unWebKitTransitionEvent {-# INLINE pToJSVal #-} instance PFromJSVal WebKitTransitionEvent where pFromJSVal = WebKitTransitionEvent {-# INLINE pFromJSVal #-} instance ToJSVal WebKitTransitionEvent where toJSVal = return . unWebKitTransitionEvent {-# INLINE toJSVal #-} instance FromJSVal WebKitTransitionEvent where fromJSVal v = fmap WebKitTransitionEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebKitTransitionEvent where makeObject = makeObject . unWebKitTransitionEvent instance IsEvent WebKitTransitionEvent instance IsGObject WebKitTransitionEvent where toGObject = GObject . unWebKitTransitionEvent {-# INLINE toGObject #-} unsafeCastGObject = WebKitTransitionEvent . unGObject {-# INLINE unsafeCastGObject #-} castToWebKitTransitionEvent :: IsGObject obj => obj -> JSM WebKitTransitionEvent castToWebKitTransitionEvent = castTo gTypeWebKitTransitionEvent "WebKitTransitionEvent" gTypeWebKitTransitionEvent :: JSM GType gTypeWebKitTransitionEvent = GType . Object <$> jsg "WebKitTransitionEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebSocket". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype WebSocket = WebSocket { unWebSocket :: JSVal } instance PToJSVal WebSocket where pToJSVal = unWebSocket {-# INLINE pToJSVal #-} instance PFromJSVal WebSocket where pFromJSVal = WebSocket {-# INLINE pFromJSVal #-} instance ToJSVal WebSocket where toJSVal = return . unWebSocket {-# INLINE toJSVal #-} instance FromJSVal WebSocket where fromJSVal v = fmap WebSocket <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WebSocket where makeObject = makeObject . unWebSocket instance IsEventTarget WebSocket instance IsGObject WebSocket where toGObject = GObject . unWebSocket {-# INLINE toGObject #-} unsafeCastGObject = WebSocket . unGObject {-# INLINE unsafeCastGObject #-} castToWebSocket :: IsGObject obj => obj -> JSM WebSocket castToWebSocket = castTo gTypeWebSocket "WebSocket" gTypeWebSocket :: JSM GType gTypeWebSocket = GType . Object <$> jsg "WebSocket" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WheelEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.MouseEvent" -- * "Language.Javascript.JSaddle.DOM.UIEvent" -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype WheelEvent = WheelEvent { unWheelEvent :: JSVal } instance PToJSVal WheelEvent where pToJSVal = unWheelEvent {-# INLINE pToJSVal #-} instance PFromJSVal WheelEvent where pFromJSVal = WheelEvent {-# INLINE pFromJSVal #-} instance ToJSVal WheelEvent where toJSVal = return . unWheelEvent {-# INLINE toJSVal #-} instance FromJSVal WheelEvent where fromJSVal v = fmap WheelEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WheelEvent where makeObject = makeObject . unWheelEvent instance IsMouseEvent WheelEvent instance IsUIEvent WheelEvent instance IsEvent WheelEvent instance IsGObject WheelEvent where toGObject = GObject . unWheelEvent {-# INLINE toGObject #-} unsafeCastGObject = WheelEvent . unGObject {-# INLINE unsafeCastGObject #-} castToWheelEvent :: IsGObject obj => obj -> JSM WheelEvent castToWheelEvent = castTo gTypeWheelEvent "WheelEvent" gTypeWheelEvent :: JSM GType gTypeWheelEvent = GType . Object <$> jsg "WheelEvent" #else #ifndef USE_OLD_WEBKIT type IsWheelEvent o = WheelEventClass o #endif #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Window". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype Window = Window { unWindow :: JSVal } instance PToJSVal Window where pToJSVal = unWindow {-# INLINE pToJSVal #-} instance PFromJSVal Window where pFromJSVal = Window {-# INLINE pFromJSVal #-} instance ToJSVal Window where toJSVal = return . unWindow {-# INLINE toJSVal #-} instance FromJSVal Window where fromJSVal v = fmap Window <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Window where makeObject = makeObject . unWindow instance IsEventTarget Window instance IsGObject Window where toGObject = GObject . unWindow {-# INLINE toGObject #-} unsafeCastGObject = Window . unGObject {-# INLINE unsafeCastGObject #-} castToWindow :: IsGObject obj => obj -> JSM Window castToWindow = castTo gTypeWindow "Window" gTypeWindow :: JSM GType gTypeWindow = GType . Object <$> jsg "Window" #else type IsWindow o = WindowClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WindowBase64". -- -- newtype WindowBase64 = WindowBase64 { unWindowBase64 :: JSVal } instance PToJSVal WindowBase64 where pToJSVal = unWindowBase64 {-# INLINE pToJSVal #-} instance PFromJSVal WindowBase64 where pFromJSVal = WindowBase64 {-# INLINE pFromJSVal #-} instance ToJSVal WindowBase64 where toJSVal = return . unWindowBase64 {-# INLINE toJSVal #-} instance FromJSVal WindowBase64 where fromJSVal v = fmap WindowBase64 <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WindowBase64 where makeObject = makeObject . unWindowBase64 instance IsGObject WindowBase64 where toGObject = GObject . unWindowBase64 {-# INLINE toGObject #-} unsafeCastGObject = WindowBase64 . unGObject {-# INLINE unsafeCastGObject #-} castToWindowBase64 :: IsGObject obj => obj -> JSM WindowBase64 castToWindowBase64 = castTo gTypeWindowBase64 "WindowBase64" gTypeWindowBase64 :: JSM GType gTypeWindowBase64 = GType . Object <$> jsg "WindowBase64" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WindowTimers". -- -- newtype WindowTimers = WindowTimers { unWindowTimers :: JSVal } instance PToJSVal WindowTimers where pToJSVal = unWindowTimers {-# INLINE pToJSVal #-} instance PFromJSVal WindowTimers where pFromJSVal = WindowTimers {-# INLINE pFromJSVal #-} instance ToJSVal WindowTimers where toJSVal = return . unWindowTimers {-# INLINE toJSVal #-} instance FromJSVal WindowTimers where fromJSVal v = fmap WindowTimers <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WindowTimers where makeObject = makeObject . unWindowTimers instance IsGObject WindowTimers where toGObject = GObject . unWindowTimers {-# INLINE toGObject #-} unsafeCastGObject = WindowTimers . unGObject {-# INLINE unsafeCastGObject #-} castToWindowTimers :: IsGObject obj => obj -> JSM WindowTimers castToWindowTimers = castTo gTypeWindowTimers "WindowTimers" gTypeWindowTimers :: JSM GType gTypeWindowTimers = GType . Object <$> jsg "WindowTimers" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Worker". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype Worker = Worker { unWorker :: JSVal } instance PToJSVal Worker where pToJSVal = unWorker {-# INLINE pToJSVal #-} instance PFromJSVal Worker where pFromJSVal = Worker {-# INLINE pFromJSVal #-} instance ToJSVal Worker where toJSVal = return . unWorker {-# INLINE toJSVal #-} instance FromJSVal Worker where fromJSVal v = fmap Worker <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject Worker where makeObject = makeObject . unWorker instance IsEventTarget Worker instance IsGObject Worker where toGObject = GObject . unWorker {-# INLINE toGObject #-} unsafeCastGObject = Worker . unGObject {-# INLINE unsafeCastGObject #-} castToWorker :: IsGObject obj => obj -> JSM Worker castToWorker = castTo gTypeWorker "Worker" gTypeWorker :: JSM GType gTypeWorker = GType . Object <$> jsg "Worker" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WorkerGlobalScope". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype WorkerGlobalScope = WorkerGlobalScope { unWorkerGlobalScope :: JSVal } instance PToJSVal WorkerGlobalScope where pToJSVal = unWorkerGlobalScope {-# INLINE pToJSVal #-} instance PFromJSVal WorkerGlobalScope where pFromJSVal = WorkerGlobalScope {-# INLINE pFromJSVal #-} instance ToJSVal WorkerGlobalScope where toJSVal = return . unWorkerGlobalScope {-# INLINE toJSVal #-} instance FromJSVal WorkerGlobalScope where fromJSVal v = fmap WorkerGlobalScope <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WorkerGlobalScope where makeObject = makeObject . unWorkerGlobalScope class IsEventTarget o => IsWorkerGlobalScope o toWorkerGlobalScope :: IsWorkerGlobalScope o => o -> WorkerGlobalScope toWorkerGlobalScope = unsafeCastGObject . toGObject instance IsWorkerGlobalScope WorkerGlobalScope instance IsEventTarget WorkerGlobalScope instance IsGObject WorkerGlobalScope where toGObject = GObject . unWorkerGlobalScope {-# INLINE toGObject #-} unsafeCastGObject = WorkerGlobalScope . unGObject {-# INLINE unsafeCastGObject #-} castToWorkerGlobalScope :: IsGObject obj => obj -> JSM WorkerGlobalScope castToWorkerGlobalScope = castTo gTypeWorkerGlobalScope "WorkerGlobalScope" gTypeWorkerGlobalScope :: JSM GType gTypeWorkerGlobalScope = GType . Object <$> jsg "WorkerGlobalScope" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WorkerLocation". -- -- newtype WorkerLocation = WorkerLocation { unWorkerLocation :: JSVal } instance PToJSVal WorkerLocation where pToJSVal = unWorkerLocation {-# INLINE pToJSVal #-} instance PFromJSVal WorkerLocation where pFromJSVal = WorkerLocation {-# INLINE pFromJSVal #-} instance ToJSVal WorkerLocation where toJSVal = return . unWorkerLocation {-# INLINE toJSVal #-} instance FromJSVal WorkerLocation where fromJSVal v = fmap WorkerLocation <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WorkerLocation where makeObject = makeObject . unWorkerLocation instance IsGObject WorkerLocation where toGObject = GObject . unWorkerLocation {-# INLINE toGObject #-} unsafeCastGObject = WorkerLocation . unGObject {-# INLINE unsafeCastGObject #-} castToWorkerLocation :: IsGObject obj => obj -> JSM WorkerLocation castToWorkerLocation = castTo gTypeWorkerLocation "WorkerLocation" gTypeWorkerLocation :: JSM GType gTypeWorkerLocation = GType . Object <$> jsg "WorkerLocation" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WorkerNavigator". -- -- newtype WorkerNavigator = WorkerNavigator { unWorkerNavigator :: JSVal } instance PToJSVal WorkerNavigator where pToJSVal = unWorkerNavigator {-# INLINE pToJSVal #-} instance PFromJSVal WorkerNavigator where pFromJSVal = WorkerNavigator {-# INLINE pFromJSVal #-} instance ToJSVal WorkerNavigator where toJSVal = return . unWorkerNavigator {-# INLINE toJSVal #-} instance FromJSVal WorkerNavigator where fromJSVal v = fmap WorkerNavigator <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject WorkerNavigator where makeObject = makeObject . unWorkerNavigator instance IsGObject WorkerNavigator where toGObject = GObject . unWorkerNavigator {-# INLINE toGObject #-} unsafeCastGObject = WorkerNavigator . unGObject {-# INLINE unsafeCastGObject #-} castToWorkerNavigator :: IsGObject obj => obj -> JSM WorkerNavigator castToWorkerNavigator = castTo gTypeWorkerNavigator "WorkerNavigator" gTypeWorkerNavigator :: JSM GType gTypeWorkerNavigator = GType . Object <$> jsg "WorkerNavigator" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.XMLHttpRequest". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype XMLHttpRequest = XMLHttpRequest { unXMLHttpRequest :: JSVal } instance PToJSVal XMLHttpRequest where pToJSVal = unXMLHttpRequest {-# INLINE pToJSVal #-} instance PFromJSVal XMLHttpRequest where pFromJSVal = XMLHttpRequest {-# INLINE pFromJSVal #-} instance ToJSVal XMLHttpRequest where toJSVal = return . unXMLHttpRequest {-# INLINE toJSVal #-} instance FromJSVal XMLHttpRequest where fromJSVal v = fmap XMLHttpRequest <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject XMLHttpRequest where makeObject = makeObject . unXMLHttpRequest instance IsEventTarget XMLHttpRequest instance IsGObject XMLHttpRequest where toGObject = GObject . unXMLHttpRequest {-# INLINE toGObject #-} unsafeCastGObject = XMLHttpRequest . unGObject {-# INLINE unsafeCastGObject #-} castToXMLHttpRequest :: IsGObject obj => obj -> JSM XMLHttpRequest castToXMLHttpRequest = castTo gTypeXMLHttpRequest "XMLHttpRequest" gTypeXMLHttpRequest :: JSM GType gTypeXMLHttpRequest = GType . Object <$> jsg "XMLHttpRequest" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.XMLHttpRequestProgressEvent". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.ProgressEvent" -- * "Language.Javascript.JSaddle.DOM.Event" -- -- newtype XMLHttpRequestProgressEvent = XMLHttpRequestProgressEvent { unXMLHttpRequestProgressEvent :: JSVal } instance PToJSVal XMLHttpRequestProgressEvent where pToJSVal = unXMLHttpRequestProgressEvent {-# INLINE pToJSVal #-} instance PFromJSVal XMLHttpRequestProgressEvent where pFromJSVal = XMLHttpRequestProgressEvent {-# INLINE pFromJSVal #-} instance ToJSVal XMLHttpRequestProgressEvent where toJSVal = return . unXMLHttpRequestProgressEvent {-# INLINE toJSVal #-} instance FromJSVal XMLHttpRequestProgressEvent where fromJSVal v = fmap XMLHttpRequestProgressEvent <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject XMLHttpRequestProgressEvent where makeObject = makeObject . unXMLHttpRequestProgressEvent instance IsProgressEvent XMLHttpRequestProgressEvent instance IsEvent XMLHttpRequestProgressEvent instance IsGObject XMLHttpRequestProgressEvent where toGObject = GObject . unXMLHttpRequestProgressEvent {-# INLINE toGObject #-} unsafeCastGObject = XMLHttpRequestProgressEvent . unGObject {-# INLINE unsafeCastGObject #-} castToXMLHttpRequestProgressEvent :: IsGObject obj => obj -> JSM XMLHttpRequestProgressEvent castToXMLHttpRequestProgressEvent = castTo gTypeXMLHttpRequestProgressEvent "XMLHttpRequestProgressEvent" gTypeXMLHttpRequestProgressEvent :: JSM GType gTypeXMLHttpRequestProgressEvent = GType . Object <$> jsg "XMLHttpRequestProgressEvent" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.XMLHttpRequestUpload". -- Base interface functions are in: -- -- * "Language.Javascript.JSaddle.DOM.EventTarget" -- -- newtype XMLHttpRequestUpload = XMLHttpRequestUpload { unXMLHttpRequestUpload :: JSVal } instance PToJSVal XMLHttpRequestUpload where pToJSVal = unXMLHttpRequestUpload {-# INLINE pToJSVal #-} instance PFromJSVal XMLHttpRequestUpload where pFromJSVal = XMLHttpRequestUpload {-# INLINE pFromJSVal #-} instance ToJSVal XMLHttpRequestUpload where toJSVal = return . unXMLHttpRequestUpload {-# INLINE toJSVal #-} instance FromJSVal XMLHttpRequestUpload where fromJSVal v = fmap XMLHttpRequestUpload <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject XMLHttpRequestUpload where makeObject = makeObject . unXMLHttpRequestUpload instance IsEventTarget XMLHttpRequestUpload instance IsGObject XMLHttpRequestUpload where toGObject = GObject . unXMLHttpRequestUpload {-# INLINE toGObject #-} unsafeCastGObject = XMLHttpRequestUpload . unGObject {-# INLINE unsafeCastGObject #-} castToXMLHttpRequestUpload :: IsGObject obj => obj -> JSM XMLHttpRequestUpload castToXMLHttpRequestUpload = castTo gTypeXMLHttpRequestUpload "XMLHttpRequestUpload" gTypeXMLHttpRequestUpload :: JSM GType gTypeXMLHttpRequestUpload = GType . Object <$> jsg "XMLHttpRequestUpload" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.XMLSerializer". -- -- newtype XMLSerializer = XMLSerializer { unXMLSerializer :: JSVal } instance PToJSVal XMLSerializer where pToJSVal = unXMLSerializer {-# INLINE pToJSVal #-} instance PFromJSVal XMLSerializer where pFromJSVal = XMLSerializer {-# INLINE pFromJSVal #-} instance ToJSVal XMLSerializer where toJSVal = return . unXMLSerializer {-# INLINE toJSVal #-} instance FromJSVal XMLSerializer where fromJSVal v = fmap XMLSerializer <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject XMLSerializer where makeObject = makeObject . unXMLSerializer instance IsGObject XMLSerializer where toGObject = GObject . unXMLSerializer {-# INLINE toGObject #-} unsafeCastGObject = XMLSerializer . unGObject {-# INLINE unsafeCastGObject #-} castToXMLSerializer :: IsGObject obj => obj -> JSM XMLSerializer castToXMLSerializer = castTo gTypeXMLSerializer "XMLSerializer" gTypeXMLSerializer :: JSM GType gTypeXMLSerializer = GType . Object <$> jsg "XMLSerializer" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.XPathEvaluator". -- -- newtype XPathEvaluator = XPathEvaluator { unXPathEvaluator :: JSVal } instance PToJSVal XPathEvaluator where pToJSVal = unXPathEvaluator {-# INLINE pToJSVal #-} instance PFromJSVal XPathEvaluator where pFromJSVal = XPathEvaluator {-# INLINE pFromJSVal #-} instance ToJSVal XPathEvaluator where toJSVal = return . unXPathEvaluator {-# INLINE toJSVal #-} instance FromJSVal XPathEvaluator where fromJSVal v = fmap XPathEvaluator <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject XPathEvaluator where makeObject = makeObject . unXPathEvaluator instance IsGObject XPathEvaluator where toGObject = GObject . unXPathEvaluator {-# INLINE toGObject #-} unsafeCastGObject = XPathEvaluator . unGObject {-# INLINE unsafeCastGObject #-} castToXPathEvaluator :: IsGObject obj => obj -> JSM XPathEvaluator castToXPathEvaluator = castTo gTypeXPathEvaluator "XPathEvaluator" gTypeXPathEvaluator :: JSM GType gTypeXPathEvaluator = GType . Object <$> jsg "XPathEvaluator" #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.XPathExpression". -- -- newtype XPathExpression = XPathExpression { unXPathExpression :: JSVal } instance PToJSVal XPathExpression where pToJSVal = unXPathExpression {-# INLINE pToJSVal #-} instance PFromJSVal XPathExpression where pFromJSVal = XPathExpression {-# INLINE pFromJSVal #-} instance ToJSVal XPathExpression where toJSVal = return . unXPathExpression {-# INLINE toJSVal #-} instance FromJSVal XPathExpression where fromJSVal v = fmap XPathExpression <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject XPathExpression where makeObject = makeObject . unXPathExpression instance IsGObject XPathExpression where toGObject = GObject . unXPathExpression {-# INLINE toGObject #-} unsafeCastGObject = XPathExpression . unGObject {-# INLINE unsafeCastGObject #-} castToXPathExpression :: IsGObject obj => obj -> JSM XPathExpression castToXPathExpression = castTo gTypeXPathExpression "XPathExpression" gTypeXPathExpression :: JSM GType gTypeXPathExpression = GType . Object <$> jsg "XPathExpression" #else type IsXPathExpression o = XPathExpressionClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.XPathNSResolver". -- -- newtype XPathNSResolver = XPathNSResolver { unXPathNSResolver :: JSVal } instance PToJSVal XPathNSResolver where pToJSVal = unXPathNSResolver {-# INLINE pToJSVal #-} instance PFromJSVal XPathNSResolver where pFromJSVal = XPathNSResolver {-# INLINE pFromJSVal #-} instance ToJSVal XPathNSResolver where toJSVal = return . unXPathNSResolver {-# INLINE toJSVal #-} instance FromJSVal XPathNSResolver where fromJSVal v = fmap XPathNSResolver <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject XPathNSResolver where makeObject = makeObject . unXPathNSResolver instance IsGObject XPathNSResolver where toGObject = GObject . unXPathNSResolver {-# INLINE toGObject #-} unsafeCastGObject = XPathNSResolver . unGObject {-# INLINE unsafeCastGObject #-} castToXPathNSResolver :: IsGObject obj => obj -> JSM XPathNSResolver castToXPathNSResolver = castTo gTypeXPathNSResolver "XPathNSResolver" gTypeXPathNSResolver :: JSM GType gTypeXPathNSResolver = GType . Object <$> jsg "XPathNSResolver" #else type IsXPathNSResolver o = XPathNSResolverClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.XPathResult". -- -- newtype XPathResult = XPathResult { unXPathResult :: JSVal } instance PToJSVal XPathResult where pToJSVal = unXPathResult {-# INLINE pToJSVal #-} instance PFromJSVal XPathResult where pFromJSVal = XPathResult {-# INLINE pFromJSVal #-} instance ToJSVal XPathResult where toJSVal = return . unXPathResult {-# INLINE toJSVal #-} instance FromJSVal XPathResult where fromJSVal v = fmap XPathResult <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject XPathResult where makeObject = makeObject . unXPathResult instance IsGObject XPathResult where toGObject = GObject . unXPathResult {-# INLINE toGObject #-} unsafeCastGObject = XPathResult . unGObject {-# INLINE unsafeCastGObject #-} castToXPathResult :: IsGObject obj => obj -> JSM XPathResult castToXPathResult = castTo gTypeXPathResult "XPathResult" gTypeXPathResult :: JSM GType gTypeXPathResult = GType . Object <$> jsg "XPathResult" #else type IsXPathResult o = XPathResultClass o #endif #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.XSLTProcessor". -- -- newtype XSLTProcessor = XSLTProcessor { unXSLTProcessor :: JSVal } instance PToJSVal XSLTProcessor where pToJSVal = unXSLTProcessor {-# INLINE pToJSVal #-} instance PFromJSVal XSLTProcessor where pFromJSVal = XSLTProcessor {-# INLINE pFromJSVal #-} instance ToJSVal XSLTProcessor where toJSVal = return . unXSLTProcessor {-# INLINE toJSVal #-} instance FromJSVal XSLTProcessor where fromJSVal v = fmap XSLTProcessor <$> maybeNullOrUndefined v {-# INLINE fromJSVal #-} instance MakeObject XSLTProcessor where makeObject = makeObject . unXSLTProcessor instance IsGObject XSLTProcessor where toGObject = GObject . unXSLTProcessor {-# INLINE toGObject #-} unsafeCastGObject = XSLTProcessor . unGObject {-# INLINE unsafeCastGObject #-} castToXSLTProcessor :: IsGObject obj => obj -> JSM XSLTProcessor castToXSLTProcessor = castTo gTypeXSLTProcessor "XSLTProcessor" gTypeXSLTProcessor :: JSM GType gTypeXSLTProcessor = GType . Object <$> jsg "XSLTProcessor" #endif