module JSDOM.Types (
JSContextRef(..), JSM, askJSM, runJSM, MonadJSM(..), liftJSM
, DOMContext(..), DOM, askDOM, runDOM, MonadDOM(..), liftDOM
, JSVal(..), ToJSVal(..), FromJSVal(..)
, JSString(..), ToJSString(..), FromJSString(..)
, toMaybeJSString, fromMaybeJSString
, fromJSArray, fromJSArrayUnchecked
, Object(..)
, Nullable(..), nullableToMaybe, maybeToNullable
, DOMString(..), ToDOMString(..), FromDOMString(..), IsDOMString
, maybeNullOrUndefined, maybeNullOrUndefined', GType(..)
, GObject(..), IsGObject, toGObject, castToGObject, gTypeGObject, unsafeCastGObject, isA, objectToString
, Callback(..)
, withCallback
, AudioBufferCallback(..)
, DatabaseCallback(..)
, MediaQueryListListener(..)
, MediaStreamTrackSourcesCallback(..)
, NavigatorUserMediaErrorCallback(..)
, NavigatorUserMediaSuccessCallback(..)
, NotificationPermissionCallback(..)
, PositionCallback(..)
, PositionErrorCallback(..)
, RequestAnimationFrameCallback(..)
, RTCPeerConnectionErrorCallback(..)
, RTCSessionDescriptionCallback(..)
, RTCStatsCallback(..)
, SQLStatementCallback(..)
, SQLStatementErrorCallback(..)
, SQLTransactionCallback(..)
, SQLTransactionErrorCallback(..)
, StorageErrorCallback(..)
, StorageQuotaCallback(..)
, StorageUsageCallback(..)
, StringCallback(..)
, VoidCallback(..)
, Dictionary(Dictionary), unDictionary, IsDictionary, toDictionary
, BlobPropertyBag(BlobPropertyBag), unBlobPropertyBag, IsBlobPropertyBag, toBlobPropertyBag
, MutationCallback(MutationCallback), unMutationCallback, IsMutationCallback, toMutationCallback
, Promise(Promise), unPromise, IsPromise, toPromise, castToPromise, gTypePromise
, Date(Date), unDate, IsDate, toDate, castToDate, gTypeDate
, 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
, SerializedScriptValue(SerializedScriptValue), unSerializedScriptValue, IsSerializedScriptValue, toSerializedScriptValue
, PositionOptions(PositionOptions), unPositionOptions, IsPositionOptions, toPositionOptions
, Acceleration(Acceleration), unAcceleration, IsAcceleration, toAcceleration
, RotationRate(RotationRate), unRotationRate, IsRotationRate, toRotationRate
, Algorithm(Algorithm), unAlgorithm, IsAlgorithm, toAlgorithm
, CryptoOperationData(CryptoOperationData), unCryptoOperationData, IsCryptoOperationData, toCryptoOperationData
, CanvasStyle(CanvasStyle), unCanvasStyle, IsCanvasStyle, toCanvasStyle
, DOMException(DOMException), unDOMException, IsDOMException, toDOMException
, GLenum(..), GLboolean(..), GLbitfield(..), GLbyte(..), GLshort(..), GLint(..), GLsizei(..)
, GLintptr(..), GLsizeiptr(..), GLubyte(..), GLushort(..), GLuint(..), GLfloat(..), GLclampf(..)
, GLint64, GLuint64
, 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
) 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, valNull, valToNumber, (!!), js,
JSVal, JSString, JSM, maybeNullOrUndefined, maybeNullOrUndefined',
valToStr, jsg, ToJSString(..), strToText, MakeObject(..),
Nullable(..), Function(..), freeFunction, instanceOf, JSContextRef,
askJSM, runJSM, MonadJSM(..), liftJSM)
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
type MonadDOM = MonadJSM
liftDOM :: MonadDOM m => DOM a -> m a
liftDOM = liftJSM
askDOM :: MonadDOM m => m DOMContext
askDOM = askJSM
runDOM :: MonadIO m => DOM a -> DOMContext -> m a
runDOM = runJSM
newtype GType = GType Object
typeInstanceIsA :: ToJSVal value => value -> GType -> JSM Bool
typeInstanceIsA o (GType t) = o `instanceOf` t
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
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
toGObject :: o -> GObject
unsafeCastGObject :: GObject -> o
class PToJSVal o where
pToJSVal :: o -> JSVal
class PFromJSVal o where
pFromJSVal :: JSVal -> o
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]
nullableToMaybe :: FromJSVal a => JSVal -> JSM (Maybe a)
nullableToMaybe = fromJSVal
maybeToNullable :: ToJSVal a => Maybe a -> JSM JSVal
maybeToNullable Nothing = return valNull
maybeToNullable (Just a) = toJSVal a
instance PToJSVal GObject where
pToJSVal = unGObject
instance PFromJSVal GObject where
pFromJSVal = GObject
instance ToJSVal GObject where
toJSVal = return . unGObject
instance FromJSVal GObject where
fromJSVal val = fmap GObject <$> maybeNullOrUndefined val
instance IsGObject GObject where
toGObject = id
unsafeCastGObject = id
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)
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]
toMaybeJSString :: ToJSString a => Maybe a -> JSM JSVal
toMaybeJSString Nothing = return valNull
toMaybeJSString (Just a) = toJSVal (toJSString a)
fromMaybeJSString :: FromJSString a => JSVal -> JSM (Maybe a)
fromMaybeJSString = maybeNullOrUndefined' (valToStr >=> fromJSString)
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 = strToText <$> valToStr v
instance FromJSString T.Text where
fromJSString = return . strToText
instance FromJSVal String where
fromJSValUnchecked v = T.unpack . strToText <$> valToStr v
instance FromJSString String where
fromJSString v = return . 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)
newtype Callback a = Callback Function
withCallback :: (MonadDOM m, Coercible c Function)
=> JSM c -> (c -> JSM a) -> m a
withCallback aquire f = do
jsCtx <- askJSM
liftIO $ bracket
(runJSM aquire jsCtx)
((`runJSM` jsCtx) . freeFunction . coerce)
(\t -> runJSM (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
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype SerializedScriptValue = SerializedScriptValue { unSerializedScriptValue :: JSVal }
instance PToJSVal SerializedScriptValue where
pToJSVal = unSerializedScriptValue
instance PFromJSVal SerializedScriptValue where
pFromJSVal = SerializedScriptValue
instance ToJSVal SerializedScriptValue where
toJSVal = return . unSerializedScriptValue
instance FromJSVal SerializedScriptValue where
fromJSVal v = fmap SerializedScriptValue <$> maybeNullOrUndefined v
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
#else
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype PositionOptions = PositionOptions { unPositionOptions :: JSVal }
instance PToJSVal PositionOptions where
pToJSVal = unPositionOptions
instance PFromJSVal PositionOptions where
pFromJSVal = PositionOptions
instance ToJSVal PositionOptions where
toJSVal = return . unPositionOptions
instance FromJSVal PositionOptions where
fromJSVal v = fmap PositionOptions <$> maybeNullOrUndefined v
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
#else
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype Dictionary = Dictionary { unDictionary :: JSVal }
instance PToJSVal Dictionary where
pToJSVal = unDictionary
instance PFromJSVal Dictionary where
pFromJSVal = Dictionary
instance ToJSVal Dictionary where
toJSVal = return . unDictionary
instance FromJSVal Dictionary where
fromJSVal v = fmap Dictionary <$> maybeNullOrUndefined v
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
#else
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype BlobPropertyBag = BlobPropertyBag { unBlobPropertyBag :: JSVal }
instance PToJSVal BlobPropertyBag where
pToJSVal = unBlobPropertyBag
instance PFromJSVal BlobPropertyBag where
pFromJSVal = BlobPropertyBag
instance ToJSVal BlobPropertyBag where
toJSVal = return . unBlobPropertyBag
instance FromJSVal BlobPropertyBag where
fromJSVal v = fmap BlobPropertyBag <$> maybeNullOrUndefined v
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
#else
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype MutationCallback = MutationCallback { unMutationCallback :: JSVal }
instance PToJSVal MutationCallback where
pToJSVal = unMutationCallback
instance PFromJSVal MutationCallback where
pFromJSVal = MutationCallback
instance ToJSVal MutationCallback where
toJSVal = return . unMutationCallback
instance FromJSVal MutationCallback where
fromJSVal v = fmap MutationCallback <$> maybeNullOrUndefined v
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
#else
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype Promise = Promise { unPromise :: JSVal }
instance PToJSVal Promise where
pToJSVal = unPromise
instance PFromJSVal Promise where
pFromJSVal = Promise
instance ToJSVal Promise where
toJSVal = return . unPromise
instance FromJSVal Promise where
fromJSVal v = fmap Promise <$> maybeNullOrUndefined v
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
castToPromise :: IsGObject obj => obj -> JSM Promise
castToPromise = castTo gTypePromise "Promise"
gTypePromise :: JSM GType
gTypePromise = GType . Object <$> jsg "Promise"
#else
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype ArrayBuffer = ArrayBuffer { unArrayBuffer :: JSVal }
instance PToJSVal ArrayBuffer where
pToJSVal = unArrayBuffer
instance PFromJSVal ArrayBuffer where
pFromJSVal = ArrayBuffer
instance ToJSVal ArrayBuffer where
toJSVal = return . unArrayBuffer
instance FromJSVal ArrayBuffer where
fromJSVal v = fmap ArrayBuffer <$> maybeNullOrUndefined v
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
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype Float32Array = Float32Array { unFloat32Array :: JSVal }
instance PToJSVal Float32Array where
pToJSVal = unFloat32Array
instance PFromJSVal Float32Array where
pFromJSVal = Float32Array
instance ToJSVal Float32Array where
toJSVal = return . unFloat32Array
instance FromJSVal Float32Array where
fromJSVal v = fmap Float32Array <$> maybeNullOrUndefined v
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
castToFloat32Array :: IsGObject obj => obj -> JSM Float32Array
castToFloat32Array = castTo gTypeFloat32Array "Float32Array"
gTypeFloat32Array :: JSM GType
gTypeFloat32Array = GType . Object <$> jsg "Float32Array"
#else
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype Float64Array = Float64Array { unFloat64Array :: JSVal }
instance PToJSVal Float64Array where
pToJSVal = unFloat64Array
instance PFromJSVal Float64Array where
pFromJSVal = Float64Array
instance ToJSVal Float64Array where
toJSVal = return . unFloat64Array
instance FromJSVal Float64Array where
fromJSVal v = fmap Float64Array <$> maybeNullOrUndefined v
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
castToFloat64Array :: IsGObject obj => obj -> JSM Float64Array
castToFloat64Array = castTo gTypeFloat64Array "Float64Array"
gTypeFloat64Array :: JSM GType
gTypeFloat64Array = GType . Object <$> jsg "Float64Array"
#else
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype Uint8Array = Uint8Array { unUint8Array :: JSVal }
instance PToJSVal Uint8Array where
pToJSVal = unUint8Array
instance PFromJSVal Uint8Array where
pFromJSVal = Uint8Array
instance ToJSVal Uint8Array where
toJSVal = return . unUint8Array
instance FromJSVal Uint8Array where
fromJSVal v = fmap Uint8Array <$> maybeNullOrUndefined v
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
castToUint8Array :: IsGObject obj => obj -> JSM Uint8Array
castToUint8Array = castTo gTypeUint8Array "Uint8Array"
gTypeUint8Array :: JSM GType
gTypeUint8Array = GType . Object <$> jsg "Uint8Array"
#else
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype Uint8ClampedArray = Uint8ClampedArray { unUint8ClampedArray :: JSVal }
instance PToJSVal Uint8ClampedArray where
pToJSVal = unUint8ClampedArray
instance PFromJSVal Uint8ClampedArray where
pFromJSVal = Uint8ClampedArray
instance ToJSVal Uint8ClampedArray where
toJSVal = return . unUint8ClampedArray
instance FromJSVal Uint8ClampedArray where
fromJSVal v = fmap Uint8ClampedArray <$> maybeNullOrUndefined v
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
castToUint8ClampedArray :: IsGObject obj => obj -> JSM Uint8ClampedArray
castToUint8ClampedArray = castTo gTypeUint8ClampedArray "Uint8ClampedArray"
gTypeUint8ClampedArray :: JSM GType
gTypeUint8ClampedArray = GType . Object <$> jsg "Uint8ClampedArray"
#else
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype Uint16Array = Uint16Array { unUint16Array :: JSVal }
instance PToJSVal Uint16Array where
pToJSVal = unUint16Array
instance PFromJSVal Uint16Array where
pFromJSVal = Uint16Array
instance ToJSVal Uint16Array where
toJSVal = return . unUint16Array
instance FromJSVal Uint16Array where
fromJSVal v = fmap Uint16Array <$> maybeNullOrUndefined v
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
castToUint16Array :: IsGObject obj => obj -> JSM Uint16Array
castToUint16Array = castTo gTypeUint16Array "Uint16Array"
gTypeUint16Array :: JSM GType
gTypeUint16Array = GType . Object <$> jsg "Uint16Array"
#else
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype Uint32Array = Uint32Array { unUint32Array :: JSVal }
instance PToJSVal Uint32Array where
pToJSVal = unUint32Array
instance PFromJSVal Uint32Array where
pFromJSVal = Uint32Array
instance ToJSVal Uint32Array where
toJSVal = return . unUint32Array
instance FromJSVal Uint32Array where
fromJSVal v = fmap Uint32Array <$> maybeNullOrUndefined v
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
castToUint32Array :: IsGObject obj => obj -> JSM Uint32Array
castToUint32Array = castTo gTypeUint32Array "Uint32Array"
gTypeUint32Array :: JSM GType
gTypeUint32Array = GType . Object <$> jsg "Uint32Array"
#else
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype Int8Array = Int8Array { unInt8Array :: JSVal }
instance PToJSVal Int8Array where
pToJSVal = unInt8Array
instance PFromJSVal Int8Array where
pFromJSVal = Int8Array
instance ToJSVal Int8Array where
toJSVal = return . unInt8Array
instance FromJSVal Int8Array where
fromJSVal v = fmap Int8Array <$> maybeNullOrUndefined v
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
castToInt8Array :: IsGObject obj => obj -> JSM Int8Array
castToInt8Array = castTo gTypeInt8Array "Int8Array"
gTypeInt8Array :: JSM GType
gTypeInt8Array = GType . Object <$> jsg "Int8Array"
#else
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype Int16Array = Int16Array { unInt16Array :: JSVal }
instance PToJSVal Int16Array where
pToJSVal = unInt16Array
instance PFromJSVal Int16Array where
pFromJSVal = Int16Array
instance ToJSVal Int16Array where
toJSVal = return . unInt16Array
instance FromJSVal Int16Array where
fromJSVal v = fmap Int16Array <$> maybeNullOrUndefined v
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
castToInt16Array :: IsGObject obj => obj -> JSM Int16Array
castToInt16Array = castTo gTypeInt16Array "Int16Array"
gTypeInt16Array :: JSM GType
gTypeInt16Array = GType . Object <$> jsg "Int16Array"
#else
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype Int32Array = Int32Array { unInt32Array :: JSVal }
instance PToJSVal Int32Array where
pToJSVal = unInt32Array
instance PFromJSVal Int32Array where
pFromJSVal = Int32Array
instance ToJSVal Int32Array where
toJSVal = return . unInt32Array
instance FromJSVal Int32Array where
fromJSVal v = fmap Int32Array <$> maybeNullOrUndefined v
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
castToInt32Array :: IsGObject obj => obj -> JSM Int32Array
castToInt32Array = castTo gTypeInt32Array "Int32Array"
gTypeInt32Array :: JSM GType
gTypeInt32Array = GType . Object <$> jsg "Int32Array"
#else
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype ObjectArray = ObjectArray { unObjectArray :: JSVal }
instance PToJSVal ObjectArray where
pToJSVal = unObjectArray
instance PFromJSVal ObjectArray where
pFromJSVal = ObjectArray
instance ToJSVal ObjectArray where
toJSVal = return . unObjectArray
instance FromJSVal ObjectArray where
fromJSVal v = fmap ObjectArray <$> maybeNullOrUndefined v
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
#else
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype ArrayBufferView = ArrayBufferView { unArrayBufferView :: JSVal }
instance PToJSVal ArrayBufferView where
pToJSVal = unArrayBufferView
instance PFromJSVal ArrayBufferView where
pFromJSVal = ArrayBufferView
instance ToJSVal ArrayBufferView where
toJSVal = return . unArrayBufferView
instance FromJSVal ArrayBufferView where
fromJSVal v = fmap ArrayBufferView <$> maybeNullOrUndefined v
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
#else
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype Array = Array { unArray :: JSVal }
instance PToJSVal Array where
pToJSVal = unArray
instance PFromJSVal Array where
pFromJSVal = Array
instance ToJSVal Array where
toJSVal = return . unArray
instance FromJSVal Array where
fromJSVal v = fmap Array <$> maybeNullOrUndefined v
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
castToArray :: IsGObject obj => obj -> JSM Array
castToArray = castTo gTypeArray "Array"
gTypeArray :: JSM GType
gTypeArray = GType . Object <$> jsg "Array"
#else
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype Date = Date { unDate :: JSVal }
instance PToJSVal Date where
pToJSVal = unDate
instance PFromJSVal Date where
pFromJSVal = Date
instance ToJSVal Date where
toJSVal = return . unDate
instance FromJSVal Date where
fromJSVal v = fmap Date <$> maybeNullOrUndefined v
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
castToDate :: IsGObject obj => obj -> JSM Date
castToDate = castTo gTypeDate "Date"
gTypeDate :: JSM GType
gTypeDate = GType . Object <$> jsg "Date"
#else
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype Acceleration = Acceleration { unAcceleration :: JSVal }
instance PToJSVal Acceleration where
pToJSVal = unAcceleration
instance PFromJSVal Acceleration where
pFromJSVal = Acceleration
instance ToJSVal Acceleration where
toJSVal = return . unAcceleration
instance FromJSVal Acceleration where
fromJSVal v = fmap Acceleration <$> maybeNullOrUndefined v
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
#else
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype RotationRate = RotationRate { unRotationRate :: JSVal }
instance PToJSVal RotationRate where
pToJSVal = unRotationRate
instance PFromJSVal RotationRate where
pFromJSVal = RotationRate
instance ToJSVal RotationRate where
toJSVal = return . unRotationRate
instance FromJSVal RotationRate where
fromJSVal v = fmap RotationRate <$> maybeNullOrUndefined v
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
#else
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype Algorithm = Algorithm { unAlgorithm :: JSVal }
instance PToJSVal Algorithm where
pToJSVal = unAlgorithm
instance PFromJSVal Algorithm where
pFromJSVal = Algorithm
instance ToJSVal Algorithm where
toJSVal = return . unAlgorithm
instance FromJSVal Algorithm where
fromJSVal v = fmap Algorithm <$> maybeNullOrUndefined v
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
#else
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype CryptoOperationData = CryptoOperationData { unCryptoOperationData :: JSVal }
instance PToJSVal CryptoOperationData where
pToJSVal = unCryptoOperationData
instance PFromJSVal CryptoOperationData where
pFromJSVal = CryptoOperationData
instance ToJSVal CryptoOperationData where
toJSVal = return . unCryptoOperationData
instance FromJSVal CryptoOperationData where
fromJSVal v = fmap CryptoOperationData <$> maybeNullOrUndefined v
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
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype CanvasStyle = CanvasStyle { unCanvasStyle :: JSVal }
instance PToJSVal CanvasStyle where
pToJSVal = unCanvasStyle
instance PFromJSVal CanvasStyle where
pFromJSVal = CanvasStyle
instance ToJSVal CanvasStyle where
toJSVal = return . unCanvasStyle
instance FromJSVal CanvasStyle where
fromJSVal v = fmap CanvasStyle <$> maybeNullOrUndefined v
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
#endif
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype DOMException = DOMException { unDOMException :: JSVal }
instance PToJSVal DOMException where
pToJSVal = unDOMException
instance PFromJSVal DOMException where
pFromJSVal = DOMException
instance ToJSVal DOMException where
toJSVal = return . unDOMException
instance FromJSVal DOMException where
fromJSVal v = fmap DOMException <$> maybeNullOrUndefined v
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
#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
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
newtype ANGLEInstancedArrays = ANGLEInstancedArrays { unANGLEInstancedArrays :: JSVal }
instance PToJSVal ANGLEInstancedArrays where
pToJSVal = unANGLEInstancedArrays
instance PFromJSVal ANGLEInstancedArrays where
pFromJSVal = ANGLEInstancedArrays
instance ToJSVal ANGLEInstancedArrays where
toJSVal = return . unANGLEInstancedArrays
instance FromJSVal ANGLEInstancedArrays where
fromJSVal v = fmap ANGLEInstancedArrays <$> maybeNullOrUndefined v
instance MakeObject ANGLEInstancedArrays where
makeObject = makeObject . unANGLEInstancedArrays
instance IsGObject ANGLEInstancedArrays where
toGObject = GObject . unANGLEInstancedArrays
unsafeCastGObject = ANGLEInstancedArrays . unGObject
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)
newtype AbstractView = AbstractView { unAbstractView :: JSVal }
instance PToJSVal AbstractView where
pToJSVal = unAbstractView
instance PFromJSVal AbstractView where
pFromJSVal = AbstractView
instance ToJSVal AbstractView where
toJSVal = return . unAbstractView
instance FromJSVal AbstractView where
fromJSVal v = fmap AbstractView <$> maybeNullOrUndefined v
instance MakeObject AbstractView where
makeObject = makeObject . unAbstractView
instance IsGObject AbstractView where
toGObject = GObject . unAbstractView
unsafeCastGObject = AbstractView . unGObject
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)
newtype AbstractWorker = AbstractWorker { unAbstractWorker :: JSVal }
instance PToJSVal AbstractWorker where
pToJSVal = unAbstractWorker
instance PFromJSVal AbstractWorker where
pFromJSVal = AbstractWorker
instance ToJSVal AbstractWorker where
toJSVal = return . unAbstractWorker
instance FromJSVal AbstractWorker where
fromJSVal v = fmap AbstractWorker <$> maybeNullOrUndefined v
instance MakeObject AbstractWorker where
makeObject = makeObject . unAbstractWorker
instance IsGObject AbstractWorker where
toGObject = GObject . unAbstractWorker
unsafeCastGObject = AbstractWorker . unGObject
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)
newtype AllAudioCapabilities = AllAudioCapabilities { unAllAudioCapabilities :: JSVal }
instance PToJSVal AllAudioCapabilities where
pToJSVal = unAllAudioCapabilities
instance PFromJSVal AllAudioCapabilities where
pFromJSVal = AllAudioCapabilities
instance ToJSVal AllAudioCapabilities where
toJSVal = return . unAllAudioCapabilities
instance FromJSVal AllAudioCapabilities where
fromJSVal v = fmap AllAudioCapabilities <$> maybeNullOrUndefined v
instance MakeObject AllAudioCapabilities where
makeObject = makeObject . unAllAudioCapabilities
instance IsMediaStreamCapabilities AllAudioCapabilities
instance IsGObject AllAudioCapabilities where
toGObject = GObject . unAllAudioCapabilities
unsafeCastGObject = AllAudioCapabilities . unGObject
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)
newtype AllVideoCapabilities = AllVideoCapabilities { unAllVideoCapabilities :: JSVal }
instance PToJSVal AllVideoCapabilities where
pToJSVal = unAllVideoCapabilities
instance PFromJSVal AllVideoCapabilities where
pFromJSVal = AllVideoCapabilities
instance ToJSVal AllVideoCapabilities where
toJSVal = return . unAllVideoCapabilities
instance FromJSVal AllVideoCapabilities where
fromJSVal v = fmap AllVideoCapabilities <$> maybeNullOrUndefined v
instance MakeObject AllVideoCapabilities where
makeObject = makeObject . unAllVideoCapabilities
instance IsMediaStreamCapabilities AllVideoCapabilities
instance IsGObject AllVideoCapabilities where
toGObject = GObject . unAllVideoCapabilities
unsafeCastGObject = AllVideoCapabilities . unGObject
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)
newtype AnalyserNode = AnalyserNode { unAnalyserNode :: JSVal }
instance PToJSVal AnalyserNode where
pToJSVal = unAnalyserNode
instance PFromJSVal AnalyserNode where
pFromJSVal = AnalyserNode
instance ToJSVal AnalyserNode where
toJSVal = return . unAnalyserNode
instance FromJSVal AnalyserNode where
fromJSVal v = fmap AnalyserNode <$> maybeNullOrUndefined v
instance MakeObject AnalyserNode where
makeObject = makeObject . unAnalyserNode
instance IsAudioNode AnalyserNode
instance IsEventTarget AnalyserNode
instance IsGObject AnalyserNode where
toGObject = GObject . unAnalyserNode
unsafeCastGObject = AnalyserNode . unGObject
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)
newtype AnimationEvent = AnimationEvent { unAnimationEvent :: JSVal }
instance PToJSVal AnimationEvent where
pToJSVal = unAnimationEvent
instance PFromJSVal AnimationEvent where
pFromJSVal = AnimationEvent
instance ToJSVal AnimationEvent where
toJSVal = return . unAnimationEvent
instance FromJSVal AnimationEvent where
fromJSVal v = fmap AnimationEvent <$> maybeNullOrUndefined v
instance MakeObject AnimationEvent where
makeObject = makeObject . unAnimationEvent
instance IsEvent AnimationEvent
instance IsGObject AnimationEvent where
toGObject = GObject . unAnimationEvent
unsafeCastGObject = AnimationEvent . unGObject
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)
newtype ApplicationCache = ApplicationCache { unApplicationCache :: JSVal }
instance PToJSVal ApplicationCache where
pToJSVal = unApplicationCache
instance PFromJSVal ApplicationCache where
pFromJSVal = ApplicationCache
instance ToJSVal ApplicationCache where
toJSVal = return . unApplicationCache
instance FromJSVal ApplicationCache where
fromJSVal v = fmap ApplicationCache <$> maybeNullOrUndefined v
instance MakeObject ApplicationCache where
makeObject = makeObject . unApplicationCache
instance IsEventTarget ApplicationCache
instance IsGObject ApplicationCache where
toGObject = GObject . unApplicationCache
unsafeCastGObject = ApplicationCache . unGObject
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)
newtype Attr = Attr { unAttr :: JSVal }
instance PToJSVal Attr where
pToJSVal = unAttr
instance PFromJSVal Attr where
pFromJSVal = Attr
instance ToJSVal Attr where
toJSVal = return . unAttr
instance FromJSVal Attr where
fromJSVal v = fmap Attr <$> maybeNullOrUndefined v
instance MakeObject Attr where
makeObject = makeObject . unAttr
instance IsNode Attr
instance IsEventTarget Attr
instance IsGObject Attr where
toGObject = GObject . unAttr
unsafeCastGObject = Attr . unGObject
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)
newtype AudioBuffer = AudioBuffer { unAudioBuffer :: JSVal }
instance PToJSVal AudioBuffer where
pToJSVal = unAudioBuffer
instance PFromJSVal AudioBuffer where
pFromJSVal = AudioBuffer
instance ToJSVal AudioBuffer where
toJSVal = return . unAudioBuffer
instance FromJSVal AudioBuffer where
fromJSVal v = fmap AudioBuffer <$> maybeNullOrUndefined v
instance MakeObject AudioBuffer where
makeObject = makeObject . unAudioBuffer
instance IsGObject AudioBuffer where
toGObject = GObject . unAudioBuffer
unsafeCastGObject = AudioBuffer . unGObject
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)
newtype AudioBufferSourceNode = AudioBufferSourceNode { unAudioBufferSourceNode :: JSVal }
instance PToJSVal AudioBufferSourceNode where
pToJSVal = unAudioBufferSourceNode
instance PFromJSVal AudioBufferSourceNode where
pFromJSVal = AudioBufferSourceNode
instance ToJSVal AudioBufferSourceNode where
toJSVal = return . unAudioBufferSourceNode
instance FromJSVal AudioBufferSourceNode where
fromJSVal v = fmap AudioBufferSourceNode <$> maybeNullOrUndefined v
instance MakeObject AudioBufferSourceNode where
makeObject = makeObject . unAudioBufferSourceNode
instance IsAudioNode AudioBufferSourceNode
instance IsEventTarget AudioBufferSourceNode
instance IsGObject AudioBufferSourceNode where
toGObject = GObject . unAudioBufferSourceNode
unsafeCastGObject = AudioBufferSourceNode . unGObject
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)
newtype AudioContext = AudioContext { unAudioContext :: JSVal }
instance PToJSVal AudioContext where
pToJSVal = unAudioContext
instance PFromJSVal AudioContext where
pFromJSVal = AudioContext
instance ToJSVal AudioContext where
toJSVal = return . unAudioContext
instance FromJSVal AudioContext where
fromJSVal v = fmap AudioContext <$> maybeNullOrUndefined v
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
unsafeCastGObject = AudioContext . unGObject
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)
newtype AudioDestinationNode = AudioDestinationNode { unAudioDestinationNode :: JSVal }
instance PToJSVal AudioDestinationNode where
pToJSVal = unAudioDestinationNode
instance PFromJSVal AudioDestinationNode where
pFromJSVal = AudioDestinationNode
instance ToJSVal AudioDestinationNode where
toJSVal = return . unAudioDestinationNode
instance FromJSVal AudioDestinationNode where
fromJSVal v = fmap AudioDestinationNode <$> maybeNullOrUndefined v
instance MakeObject AudioDestinationNode where
makeObject = makeObject . unAudioDestinationNode
instance IsAudioNode AudioDestinationNode
instance IsEventTarget AudioDestinationNode
instance IsGObject AudioDestinationNode where
toGObject = GObject . unAudioDestinationNode
unsafeCastGObject = AudioDestinationNode . unGObject
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)
newtype AudioListener = AudioListener { unAudioListener :: JSVal }
instance PToJSVal AudioListener where
pToJSVal = unAudioListener
instance PFromJSVal AudioListener where
pFromJSVal = AudioListener
instance ToJSVal AudioListener where
toJSVal = return . unAudioListener
instance FromJSVal AudioListener where
fromJSVal v = fmap AudioListener <$> maybeNullOrUndefined v
instance MakeObject AudioListener where
makeObject = makeObject . unAudioListener
instance IsGObject AudioListener where
toGObject = GObject . unAudioListener
unsafeCastGObject = AudioListener . unGObject
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)
newtype AudioNode = AudioNode { unAudioNode :: JSVal }
instance PToJSVal AudioNode where
pToJSVal = unAudioNode
instance PFromJSVal AudioNode where
pFromJSVal = AudioNode
instance ToJSVal AudioNode where
toJSVal = return . unAudioNode
instance FromJSVal AudioNode where
fromJSVal v = fmap AudioNode <$> maybeNullOrUndefined v
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
unsafeCastGObject = AudioNode . unGObject
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)
newtype AudioParam = AudioParam { unAudioParam :: JSVal }
instance PToJSVal AudioParam where
pToJSVal = unAudioParam
instance PFromJSVal AudioParam where
pFromJSVal = AudioParam
instance ToJSVal AudioParam where
toJSVal = return . unAudioParam
instance FromJSVal AudioParam where
fromJSVal v = fmap AudioParam <$> maybeNullOrUndefined v
instance MakeObject AudioParam where
makeObject = makeObject . unAudioParam
instance IsGObject AudioParam where
toGObject = GObject . unAudioParam
unsafeCastGObject = AudioParam . unGObject
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)
newtype AudioProcessingEvent = AudioProcessingEvent { unAudioProcessingEvent :: JSVal }
instance PToJSVal AudioProcessingEvent where
pToJSVal = unAudioProcessingEvent
instance PFromJSVal AudioProcessingEvent where
pFromJSVal = AudioProcessingEvent
instance ToJSVal AudioProcessingEvent where
toJSVal = return . unAudioProcessingEvent
instance FromJSVal AudioProcessingEvent where
fromJSVal v = fmap AudioProcessingEvent <$> maybeNullOrUndefined v
instance MakeObject AudioProcessingEvent where
makeObject = makeObject . unAudioProcessingEvent
instance IsEvent AudioProcessingEvent
instance IsGObject AudioProcessingEvent where
toGObject = GObject . unAudioProcessingEvent
unsafeCastGObject = AudioProcessingEvent . unGObject
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)
newtype AudioStreamTrack = AudioStreamTrack { unAudioStreamTrack :: JSVal }
instance PToJSVal AudioStreamTrack where
pToJSVal = unAudioStreamTrack
instance PFromJSVal AudioStreamTrack where
pFromJSVal = AudioStreamTrack
instance ToJSVal AudioStreamTrack where
toJSVal = return . unAudioStreamTrack
instance FromJSVal AudioStreamTrack where
fromJSVal v = fmap AudioStreamTrack <$> maybeNullOrUndefined v
instance MakeObject AudioStreamTrack where
makeObject = makeObject . unAudioStreamTrack
instance IsMediaStreamTrack AudioStreamTrack
instance IsEventTarget AudioStreamTrack
instance IsGObject AudioStreamTrack where
toGObject = GObject . unAudioStreamTrack
unsafeCastGObject = AudioStreamTrack . unGObject
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)
newtype AudioTrack = AudioTrack { unAudioTrack :: JSVal }
instance PToJSVal AudioTrack where
pToJSVal = unAudioTrack
instance PFromJSVal AudioTrack where
pFromJSVal = AudioTrack
instance ToJSVal AudioTrack where
toJSVal = return . unAudioTrack
instance FromJSVal AudioTrack where
fromJSVal v = fmap AudioTrack <$> maybeNullOrUndefined v
instance MakeObject AudioTrack where
makeObject = makeObject . unAudioTrack
instance IsGObject AudioTrack where
toGObject = GObject . unAudioTrack
unsafeCastGObject = AudioTrack . unGObject
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)
newtype AudioTrackList = AudioTrackList { unAudioTrackList :: JSVal }
instance PToJSVal AudioTrackList where
pToJSVal = unAudioTrackList
instance PFromJSVal AudioTrackList where
pFromJSVal = AudioTrackList
instance ToJSVal AudioTrackList where
toJSVal = return . unAudioTrackList
instance FromJSVal AudioTrackList where
fromJSVal v = fmap AudioTrackList <$> maybeNullOrUndefined v
instance MakeObject AudioTrackList where
makeObject = makeObject . unAudioTrackList
instance IsEventTarget AudioTrackList
instance IsGObject AudioTrackList where
toGObject = GObject . unAudioTrackList
unsafeCastGObject = AudioTrackList . unGObject
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)
newtype AutocompleteErrorEvent = AutocompleteErrorEvent { unAutocompleteErrorEvent :: JSVal }
instance PToJSVal AutocompleteErrorEvent where
pToJSVal = unAutocompleteErrorEvent
instance PFromJSVal AutocompleteErrorEvent where
pFromJSVal = AutocompleteErrorEvent
instance ToJSVal AutocompleteErrorEvent where
toJSVal = return . unAutocompleteErrorEvent
instance FromJSVal AutocompleteErrorEvent where
fromJSVal v = fmap AutocompleteErrorEvent <$> maybeNullOrUndefined v
instance MakeObject AutocompleteErrorEvent where
makeObject = makeObject . unAutocompleteErrorEvent
instance IsEvent AutocompleteErrorEvent
instance IsGObject AutocompleteErrorEvent where
toGObject = GObject . unAutocompleteErrorEvent
unsafeCastGObject = AutocompleteErrorEvent . unGObject
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)
newtype BarProp = BarProp { unBarProp :: JSVal }
instance PToJSVal BarProp where
pToJSVal = unBarProp
instance PFromJSVal BarProp where
pFromJSVal = BarProp
instance ToJSVal BarProp where
toJSVal = return . unBarProp
instance FromJSVal BarProp where
fromJSVal v = fmap BarProp <$> maybeNullOrUndefined v
instance MakeObject BarProp where
makeObject = makeObject . unBarProp
instance IsGObject BarProp where
toGObject = GObject . unBarProp
unsafeCastGObject = BarProp . unGObject
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)
newtype BatteryManager = BatteryManager { unBatteryManager :: JSVal }
instance PToJSVal BatteryManager where
pToJSVal = unBatteryManager
instance PFromJSVal BatteryManager where
pFromJSVal = BatteryManager
instance ToJSVal BatteryManager where
toJSVal = return . unBatteryManager
instance FromJSVal BatteryManager where
fromJSVal v = fmap BatteryManager <$> maybeNullOrUndefined v
instance MakeObject BatteryManager where
makeObject = makeObject . unBatteryManager
instance IsEventTarget BatteryManager
instance IsGObject BatteryManager where
toGObject = GObject . unBatteryManager
unsafeCastGObject = BatteryManager . unGObject
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)
newtype BeforeLoadEvent = BeforeLoadEvent { unBeforeLoadEvent :: JSVal }
instance PToJSVal BeforeLoadEvent where
pToJSVal = unBeforeLoadEvent
instance PFromJSVal BeforeLoadEvent where
pFromJSVal = BeforeLoadEvent
instance ToJSVal BeforeLoadEvent where
toJSVal = return . unBeforeLoadEvent
instance FromJSVal BeforeLoadEvent where
fromJSVal v = fmap BeforeLoadEvent <$> maybeNullOrUndefined v
instance MakeObject BeforeLoadEvent where
makeObject = makeObject . unBeforeLoadEvent
instance IsEvent BeforeLoadEvent
instance IsGObject BeforeLoadEvent where
toGObject = GObject . unBeforeLoadEvent
unsafeCastGObject = BeforeLoadEvent . unGObject
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)
newtype BeforeUnloadEvent = BeforeUnloadEvent { unBeforeUnloadEvent :: JSVal }
instance PToJSVal BeforeUnloadEvent where
pToJSVal = unBeforeUnloadEvent
instance PFromJSVal BeforeUnloadEvent where
pFromJSVal = BeforeUnloadEvent
instance ToJSVal BeforeUnloadEvent where
toJSVal = return . unBeforeUnloadEvent
instance FromJSVal BeforeUnloadEvent where
fromJSVal v = fmap BeforeUnloadEvent <$> maybeNullOrUndefined v
instance MakeObject BeforeUnloadEvent where
makeObject = makeObject . unBeforeUnloadEvent
instance IsEvent BeforeUnloadEvent
instance IsGObject BeforeUnloadEvent where
toGObject = GObject . unBeforeUnloadEvent
unsafeCastGObject = BeforeUnloadEvent . unGObject
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)
newtype BiquadFilterNode = BiquadFilterNode { unBiquadFilterNode :: JSVal }
instance PToJSVal BiquadFilterNode where
pToJSVal = unBiquadFilterNode
instance PFromJSVal BiquadFilterNode where
pFromJSVal = BiquadFilterNode
instance ToJSVal BiquadFilterNode where
toJSVal = return . unBiquadFilterNode
instance FromJSVal BiquadFilterNode where
fromJSVal v = fmap BiquadFilterNode <$> maybeNullOrUndefined v
instance MakeObject BiquadFilterNode where
makeObject = makeObject . unBiquadFilterNode
instance IsAudioNode BiquadFilterNode
instance IsEventTarget BiquadFilterNode
instance IsGObject BiquadFilterNode where
toGObject = GObject . unBiquadFilterNode
unsafeCastGObject = BiquadFilterNode . unGObject
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)
newtype Blob = Blob { unBlob :: JSVal }
instance PToJSVal Blob where
pToJSVal = unBlob
instance PFromJSVal Blob where
pFromJSVal = Blob
instance ToJSVal Blob where
toJSVal = return . unBlob
instance FromJSVal Blob where
fromJSVal v = fmap Blob <$> maybeNullOrUndefined v
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
unsafeCastGObject = Blob . unGObject
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)
newtype CDATASection = CDATASection { unCDATASection :: JSVal }
instance PToJSVal CDATASection where
pToJSVal = unCDATASection
instance PFromJSVal CDATASection where
pFromJSVal = CDATASection
instance ToJSVal CDATASection where
toJSVal = return . unCDATASection
instance FromJSVal CDATASection where
fromJSVal v = fmap CDATASection <$> maybeNullOrUndefined v
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
unsafeCastGObject = CDATASection . unGObject
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)
newtype CSS = CSS { unCSS :: JSVal }
instance PToJSVal CSS where
pToJSVal = unCSS
instance PFromJSVal CSS where
pFromJSVal = CSS
instance ToJSVal CSS where
toJSVal = return . unCSS
instance FromJSVal CSS where
fromJSVal v = fmap CSS <$> maybeNullOrUndefined v
instance MakeObject CSS where
makeObject = makeObject . unCSS
instance IsGObject CSS where
toGObject = GObject . unCSS
unsafeCastGObject = CSS . unGObject
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)
newtype CSSCharsetRule = CSSCharsetRule { unCSSCharsetRule :: JSVal }
instance PToJSVal CSSCharsetRule where
pToJSVal = unCSSCharsetRule
instance PFromJSVal CSSCharsetRule where
pFromJSVal = CSSCharsetRule
instance ToJSVal CSSCharsetRule where
toJSVal = return . unCSSCharsetRule
instance FromJSVal CSSCharsetRule where
fromJSVal v = fmap CSSCharsetRule <$> maybeNullOrUndefined v
instance MakeObject CSSCharsetRule where
makeObject = makeObject . unCSSCharsetRule
instance IsCSSRule CSSCharsetRule
instance IsGObject CSSCharsetRule where
toGObject = GObject . unCSSCharsetRule
unsafeCastGObject = CSSCharsetRule . unGObject
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)
newtype CSSFontFaceLoadEvent = CSSFontFaceLoadEvent { unCSSFontFaceLoadEvent :: JSVal }
instance PToJSVal CSSFontFaceLoadEvent where
pToJSVal = unCSSFontFaceLoadEvent
instance PFromJSVal CSSFontFaceLoadEvent where
pFromJSVal = CSSFontFaceLoadEvent
instance ToJSVal CSSFontFaceLoadEvent where
toJSVal = return . unCSSFontFaceLoadEvent
instance FromJSVal CSSFontFaceLoadEvent where
fromJSVal v = fmap CSSFontFaceLoadEvent <$> maybeNullOrUndefined v
instance MakeObject CSSFontFaceLoadEvent where
makeObject = makeObject . unCSSFontFaceLoadEvent
instance IsEvent CSSFontFaceLoadEvent
instance IsGObject CSSFontFaceLoadEvent where
toGObject = GObject . unCSSFontFaceLoadEvent
unsafeCastGObject = CSSFontFaceLoadEvent . unGObject
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)
newtype CSSFontFaceRule = CSSFontFaceRule { unCSSFontFaceRule :: JSVal }
instance PToJSVal CSSFontFaceRule where
pToJSVal = unCSSFontFaceRule
instance PFromJSVal CSSFontFaceRule where
pFromJSVal = CSSFontFaceRule
instance ToJSVal CSSFontFaceRule where
toJSVal = return . unCSSFontFaceRule
instance FromJSVal CSSFontFaceRule where
fromJSVal v = fmap CSSFontFaceRule <$> maybeNullOrUndefined v
instance MakeObject CSSFontFaceRule where
makeObject = makeObject . unCSSFontFaceRule
instance IsCSSRule CSSFontFaceRule
instance IsGObject CSSFontFaceRule where
toGObject = GObject . unCSSFontFaceRule
unsafeCastGObject = CSSFontFaceRule . unGObject
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)
newtype CSSImportRule = CSSImportRule { unCSSImportRule :: JSVal }
instance PToJSVal CSSImportRule where
pToJSVal = unCSSImportRule
instance PFromJSVal CSSImportRule where
pFromJSVal = CSSImportRule
instance ToJSVal CSSImportRule where
toJSVal = return . unCSSImportRule
instance FromJSVal CSSImportRule where
fromJSVal v = fmap CSSImportRule <$> maybeNullOrUndefined v
instance MakeObject CSSImportRule where
makeObject = makeObject . unCSSImportRule
instance IsCSSRule CSSImportRule
instance IsGObject CSSImportRule where
toGObject = GObject . unCSSImportRule
unsafeCastGObject = CSSImportRule . unGObject
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)
newtype CSSKeyframeRule = CSSKeyframeRule { unCSSKeyframeRule :: JSVal }
instance PToJSVal CSSKeyframeRule where
pToJSVal = unCSSKeyframeRule
instance PFromJSVal CSSKeyframeRule where
pFromJSVal = CSSKeyframeRule
instance ToJSVal CSSKeyframeRule where
toJSVal = return . unCSSKeyframeRule
instance FromJSVal CSSKeyframeRule where
fromJSVal v = fmap CSSKeyframeRule <$> maybeNullOrUndefined v
instance MakeObject CSSKeyframeRule where
makeObject = makeObject . unCSSKeyframeRule
instance IsCSSRule CSSKeyframeRule
instance IsGObject CSSKeyframeRule where
toGObject = GObject . unCSSKeyframeRule
unsafeCastGObject = CSSKeyframeRule . unGObject
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)
newtype CSSKeyframesRule = CSSKeyframesRule { unCSSKeyframesRule :: JSVal }
instance PToJSVal CSSKeyframesRule where
pToJSVal = unCSSKeyframesRule
instance PFromJSVal CSSKeyframesRule where
pFromJSVal = CSSKeyframesRule
instance ToJSVal CSSKeyframesRule where
toJSVal = return . unCSSKeyframesRule
instance FromJSVal CSSKeyframesRule where
fromJSVal v = fmap CSSKeyframesRule <$> maybeNullOrUndefined v
instance MakeObject CSSKeyframesRule where
makeObject = makeObject . unCSSKeyframesRule
instance IsCSSRule CSSKeyframesRule
instance IsGObject CSSKeyframesRule where
toGObject = GObject . unCSSKeyframesRule
unsafeCastGObject = CSSKeyframesRule . unGObject
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)
newtype CSSMediaRule = CSSMediaRule { unCSSMediaRule :: JSVal }
instance PToJSVal CSSMediaRule where
pToJSVal = unCSSMediaRule
instance PFromJSVal CSSMediaRule where
pFromJSVal = CSSMediaRule
instance ToJSVal CSSMediaRule where
toJSVal = return . unCSSMediaRule
instance FromJSVal CSSMediaRule where
fromJSVal v = fmap CSSMediaRule <$> maybeNullOrUndefined v
instance MakeObject CSSMediaRule where
makeObject = makeObject . unCSSMediaRule
instance IsCSSRule CSSMediaRule
instance IsGObject CSSMediaRule where
toGObject = GObject . unCSSMediaRule
unsafeCastGObject = CSSMediaRule . unGObject
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)
newtype CSSPageRule = CSSPageRule { unCSSPageRule :: JSVal }
instance PToJSVal CSSPageRule where
pToJSVal = unCSSPageRule
instance PFromJSVal CSSPageRule where
pFromJSVal = CSSPageRule
instance ToJSVal CSSPageRule where
toJSVal = return . unCSSPageRule
instance FromJSVal CSSPageRule where
fromJSVal v = fmap CSSPageRule <$> maybeNullOrUndefined v
instance MakeObject CSSPageRule where
makeObject = makeObject . unCSSPageRule
instance IsCSSRule CSSPageRule
instance IsGObject CSSPageRule where
toGObject = GObject . unCSSPageRule
unsafeCastGObject = CSSPageRule . unGObject
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)
newtype CSSPrimitiveValue = CSSPrimitiveValue { unCSSPrimitiveValue :: JSVal }
instance PToJSVal CSSPrimitiveValue where
pToJSVal = unCSSPrimitiveValue
instance PFromJSVal CSSPrimitiveValue where
pFromJSVal = CSSPrimitiveValue
instance ToJSVal CSSPrimitiveValue where
toJSVal = return . unCSSPrimitiveValue
instance FromJSVal CSSPrimitiveValue where
fromJSVal v = fmap CSSPrimitiveValue <$> maybeNullOrUndefined v
instance MakeObject CSSPrimitiveValue where
makeObject = makeObject . unCSSPrimitiveValue
instance IsCSSValue CSSPrimitiveValue
instance IsGObject CSSPrimitiveValue where
toGObject = GObject . unCSSPrimitiveValue
unsafeCastGObject = CSSPrimitiveValue . unGObject
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)
newtype CSSRule = CSSRule { unCSSRule :: JSVal }
instance PToJSVal CSSRule where
pToJSVal = unCSSRule
instance PFromJSVal CSSRule where
pFromJSVal = CSSRule
instance ToJSVal CSSRule where
toJSVal = return . unCSSRule
instance FromJSVal CSSRule where
fromJSVal v = fmap CSSRule <$> maybeNullOrUndefined v
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
unsafeCastGObject = CSSRule . unGObject
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)
newtype CSSRuleList = CSSRuleList { unCSSRuleList :: JSVal }
instance PToJSVal CSSRuleList where
pToJSVal = unCSSRuleList
instance PFromJSVal CSSRuleList where
pFromJSVal = CSSRuleList
instance ToJSVal CSSRuleList where
toJSVal = return . unCSSRuleList
instance FromJSVal CSSRuleList where
fromJSVal v = fmap CSSRuleList <$> maybeNullOrUndefined v
instance MakeObject CSSRuleList where
makeObject = makeObject . unCSSRuleList
instance IsGObject CSSRuleList where
toGObject = GObject . unCSSRuleList
unsafeCastGObject = CSSRuleList . unGObject
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)
newtype CSSStyleDeclaration = CSSStyleDeclaration { unCSSStyleDeclaration :: JSVal }
instance PToJSVal CSSStyleDeclaration where
pToJSVal = unCSSStyleDeclaration
instance PFromJSVal CSSStyleDeclaration where
pFromJSVal = CSSStyleDeclaration
instance ToJSVal CSSStyleDeclaration where
toJSVal = return . unCSSStyleDeclaration
instance FromJSVal CSSStyleDeclaration where
fromJSVal v = fmap CSSStyleDeclaration <$> maybeNullOrUndefined v
instance MakeObject CSSStyleDeclaration where
makeObject = makeObject . unCSSStyleDeclaration
instance IsGObject CSSStyleDeclaration where
toGObject = GObject . unCSSStyleDeclaration
unsafeCastGObject = CSSStyleDeclaration . unGObject
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)
newtype CSSStyleRule = CSSStyleRule { unCSSStyleRule :: JSVal }
instance PToJSVal CSSStyleRule where
pToJSVal = unCSSStyleRule
instance PFromJSVal CSSStyleRule where
pFromJSVal = CSSStyleRule
instance ToJSVal CSSStyleRule where
toJSVal = return . unCSSStyleRule
instance FromJSVal CSSStyleRule where
fromJSVal v = fmap CSSStyleRule <$> maybeNullOrUndefined v
instance MakeObject CSSStyleRule where
makeObject = makeObject . unCSSStyleRule
instance IsCSSRule CSSStyleRule
instance IsGObject CSSStyleRule where
toGObject = GObject . unCSSStyleRule
unsafeCastGObject = CSSStyleRule . unGObject
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)
newtype CSSStyleSheet = CSSStyleSheet { unCSSStyleSheet :: JSVal }
instance PToJSVal CSSStyleSheet where
pToJSVal = unCSSStyleSheet
instance PFromJSVal CSSStyleSheet where
pFromJSVal = CSSStyleSheet
instance ToJSVal CSSStyleSheet where
toJSVal = return . unCSSStyleSheet
instance FromJSVal CSSStyleSheet where
fromJSVal v = fmap CSSStyleSheet <$> maybeNullOrUndefined v
instance MakeObject CSSStyleSheet where
makeObject = makeObject . unCSSStyleSheet
instance IsStyleSheet CSSStyleSheet
instance IsGObject CSSStyleSheet where
toGObject = GObject . unCSSStyleSheet
unsafeCastGObject = CSSStyleSheet . unGObject
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)
newtype CSSSupportsRule = CSSSupportsRule { unCSSSupportsRule :: JSVal }
instance PToJSVal CSSSupportsRule where
pToJSVal = unCSSSupportsRule
instance PFromJSVal CSSSupportsRule where
pFromJSVal = CSSSupportsRule
instance ToJSVal CSSSupportsRule where
toJSVal = return . unCSSSupportsRule
instance FromJSVal CSSSupportsRule where
fromJSVal v = fmap CSSSupportsRule <$> maybeNullOrUndefined v
instance MakeObject CSSSupportsRule where
makeObject = makeObject . unCSSSupportsRule
instance IsCSSRule CSSSupportsRule
instance IsGObject CSSSupportsRule where
toGObject = GObject . unCSSSupportsRule
unsafeCastGObject = CSSSupportsRule . unGObject
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)
newtype CSSUnknownRule = CSSUnknownRule { unCSSUnknownRule :: JSVal }
instance PToJSVal CSSUnknownRule where
pToJSVal = unCSSUnknownRule
instance PFromJSVal CSSUnknownRule where
pFromJSVal = CSSUnknownRule
instance ToJSVal CSSUnknownRule where
toJSVal = return . unCSSUnknownRule
instance FromJSVal CSSUnknownRule where
fromJSVal v = fmap CSSUnknownRule <$> maybeNullOrUndefined v
instance MakeObject CSSUnknownRule where
makeObject = makeObject . unCSSUnknownRule
instance IsCSSRule CSSUnknownRule
instance IsGObject CSSUnknownRule where
toGObject = GObject . unCSSUnknownRule
unsafeCastGObject = CSSUnknownRule . unGObject
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)
newtype CSSValue = CSSValue { unCSSValue :: JSVal }
instance PToJSVal CSSValue where
pToJSVal = unCSSValue
instance PFromJSVal CSSValue where
pFromJSVal = CSSValue
instance ToJSVal CSSValue where
toJSVal = return . unCSSValue
instance FromJSVal CSSValue where
fromJSVal v = fmap CSSValue <$> maybeNullOrUndefined v
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
unsafeCastGObject = CSSValue . unGObject
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)
newtype CSSValueList = CSSValueList { unCSSValueList :: JSVal }
instance PToJSVal CSSValueList where
pToJSVal = unCSSValueList
instance PFromJSVal CSSValueList where
pFromJSVal = CSSValueList
instance ToJSVal CSSValueList where
toJSVal = return . unCSSValueList
instance FromJSVal CSSValueList where
fromJSVal v = fmap CSSValueList <$> maybeNullOrUndefined v
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
unsafeCastGObject = CSSValueList . unGObject
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)
newtype CanvasGradient = CanvasGradient { unCanvasGradient :: JSVal }
instance PToJSVal CanvasGradient where
pToJSVal = unCanvasGradient
instance PFromJSVal CanvasGradient where
pFromJSVal = CanvasGradient
instance ToJSVal CanvasGradient where
toJSVal = return . unCanvasGradient
instance FromJSVal CanvasGradient where
fromJSVal v = fmap CanvasGradient <$> maybeNullOrUndefined v
instance MakeObject CanvasGradient where
makeObject = makeObject . unCanvasGradient
instance IsGObject CanvasGradient where
toGObject = GObject . unCanvasGradient
unsafeCastGObject = CanvasGradient . unGObject
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)
newtype CanvasPattern = CanvasPattern { unCanvasPattern :: JSVal }
instance PToJSVal CanvasPattern where
pToJSVal = unCanvasPattern
instance PFromJSVal CanvasPattern where
pFromJSVal = CanvasPattern
instance ToJSVal CanvasPattern where
toJSVal = return . unCanvasPattern
instance FromJSVal CanvasPattern where
fromJSVal v = fmap CanvasPattern <$> maybeNullOrUndefined v
instance MakeObject CanvasPattern where
makeObject = makeObject . unCanvasPattern
instance IsGObject CanvasPattern where
toGObject = GObject . unCanvasPattern
unsafeCastGObject = CanvasPattern . unGObject
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)
newtype CanvasProxy = CanvasProxy { unCanvasProxy :: JSVal }
instance PToJSVal CanvasProxy where
pToJSVal = unCanvasProxy
instance PFromJSVal CanvasProxy where
pFromJSVal = CanvasProxy
instance ToJSVal CanvasProxy where
toJSVal = return . unCanvasProxy
instance FromJSVal CanvasProxy where
fromJSVal v = fmap CanvasProxy <$> maybeNullOrUndefined v
instance MakeObject CanvasProxy where
makeObject = makeObject . unCanvasProxy
instance IsGObject CanvasProxy where
toGObject = GObject . unCanvasProxy
unsafeCastGObject = CanvasProxy . unGObject
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)
newtype CanvasRenderingContext = CanvasRenderingContext { unCanvasRenderingContext :: JSVal }
instance PToJSVal CanvasRenderingContext where
pToJSVal = unCanvasRenderingContext
instance PFromJSVal CanvasRenderingContext where
pFromJSVal = CanvasRenderingContext
instance ToJSVal CanvasRenderingContext where
toJSVal = return . unCanvasRenderingContext
instance FromJSVal CanvasRenderingContext where
fromJSVal v = fmap CanvasRenderingContext <$> maybeNullOrUndefined v
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
unsafeCastGObject = CanvasRenderingContext . unGObject
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)
newtype CanvasRenderingContext2D = CanvasRenderingContext2D { unCanvasRenderingContext2D :: JSVal }
instance PToJSVal CanvasRenderingContext2D where
pToJSVal = unCanvasRenderingContext2D
instance PFromJSVal CanvasRenderingContext2D where
pFromJSVal = CanvasRenderingContext2D
instance ToJSVal CanvasRenderingContext2D where
toJSVal = return . unCanvasRenderingContext2D
instance FromJSVal CanvasRenderingContext2D where
fromJSVal v = fmap CanvasRenderingContext2D <$> maybeNullOrUndefined v
instance MakeObject CanvasRenderingContext2D where
makeObject = makeObject . unCanvasRenderingContext2D
instance IsCanvasRenderingContext CanvasRenderingContext2D
instance IsGObject CanvasRenderingContext2D where
toGObject = GObject . unCanvasRenderingContext2D
unsafeCastGObject = CanvasRenderingContext2D . unGObject
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)
newtype CapabilityRange = CapabilityRange { unCapabilityRange :: JSVal }
instance PToJSVal CapabilityRange where
pToJSVal = unCapabilityRange
instance PFromJSVal CapabilityRange where
pFromJSVal = CapabilityRange
instance ToJSVal CapabilityRange where
toJSVal = return . unCapabilityRange
instance FromJSVal CapabilityRange where
fromJSVal v = fmap CapabilityRange <$> maybeNullOrUndefined v
instance MakeObject CapabilityRange where
makeObject = makeObject . unCapabilityRange
instance IsGObject CapabilityRange where
toGObject = GObject . unCapabilityRange
unsafeCastGObject = CapabilityRange . unGObject
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)
newtype ChannelMergerNode = ChannelMergerNode { unChannelMergerNode :: JSVal }
instance PToJSVal ChannelMergerNode where
pToJSVal = unChannelMergerNode
instance PFromJSVal ChannelMergerNode where
pFromJSVal = ChannelMergerNode
instance ToJSVal ChannelMergerNode where
toJSVal = return . unChannelMergerNode
instance FromJSVal ChannelMergerNode where
fromJSVal v = fmap ChannelMergerNode <$> maybeNullOrUndefined v
instance MakeObject ChannelMergerNode where
makeObject = makeObject . unChannelMergerNode
instance IsAudioNode ChannelMergerNode
instance IsEventTarget ChannelMergerNode
instance IsGObject ChannelMergerNode where
toGObject = GObject . unChannelMergerNode
unsafeCastGObject = ChannelMergerNode . unGObject
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)
newtype ChannelSplitterNode = ChannelSplitterNode { unChannelSplitterNode :: JSVal }
instance PToJSVal ChannelSplitterNode where
pToJSVal = unChannelSplitterNode
instance PFromJSVal ChannelSplitterNode where
pFromJSVal = ChannelSplitterNode
instance ToJSVal ChannelSplitterNode where
toJSVal = return . unChannelSplitterNode
instance FromJSVal ChannelSplitterNode where
fromJSVal v = fmap ChannelSplitterNode <$> maybeNullOrUndefined v
instance MakeObject ChannelSplitterNode where
makeObject = makeObject . unChannelSplitterNode
instance IsAudioNode ChannelSplitterNode
instance IsEventTarget ChannelSplitterNode
instance IsGObject ChannelSplitterNode where
toGObject = GObject . unChannelSplitterNode
unsafeCastGObject = ChannelSplitterNode . unGObject
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)
newtype CharacterData = CharacterData { unCharacterData :: JSVal }
instance PToJSVal CharacterData where
pToJSVal = unCharacterData
instance PFromJSVal CharacterData where
pFromJSVal = CharacterData
instance ToJSVal CharacterData where
toJSVal = return . unCharacterData
instance FromJSVal CharacterData where
fromJSVal v = fmap CharacterData <$> maybeNullOrUndefined v
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
unsafeCastGObject = CharacterData . unGObject
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)
newtype ChildNode = ChildNode { unChildNode :: JSVal }
instance PToJSVal ChildNode where
pToJSVal = unChildNode
instance PFromJSVal ChildNode where
pFromJSVal = ChildNode
instance ToJSVal ChildNode where
toJSVal = return . unChildNode
instance FromJSVal ChildNode where
fromJSVal v = fmap ChildNode <$> maybeNullOrUndefined v
instance MakeObject ChildNode where
makeObject = makeObject . unChildNode
instance IsGObject ChildNode where
toGObject = GObject . unChildNode
unsafeCastGObject = ChildNode . unGObject
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)
newtype ClientRect = ClientRect { unClientRect :: JSVal }
instance PToJSVal ClientRect where
pToJSVal = unClientRect
instance PFromJSVal ClientRect where
pFromJSVal = ClientRect
instance ToJSVal ClientRect where
toJSVal = return . unClientRect
instance FromJSVal ClientRect where
fromJSVal v = fmap ClientRect <$> maybeNullOrUndefined v
instance MakeObject ClientRect where
makeObject = makeObject . unClientRect
instance IsGObject ClientRect where
toGObject = GObject . unClientRect
unsafeCastGObject = ClientRect . unGObject
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)
newtype ClientRectList = ClientRectList { unClientRectList :: JSVal }
instance PToJSVal ClientRectList where
pToJSVal = unClientRectList
instance PFromJSVal ClientRectList where
pFromJSVal = ClientRectList
instance ToJSVal ClientRectList where
toJSVal = return . unClientRectList
instance FromJSVal ClientRectList where
fromJSVal v = fmap ClientRectList <$> maybeNullOrUndefined v
instance MakeObject ClientRectList where
makeObject = makeObject . unClientRectList
instance IsGObject ClientRectList where
toGObject = GObject . unClientRectList
unsafeCastGObject = ClientRectList . unGObject
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)
newtype CloseEvent = CloseEvent { unCloseEvent :: JSVal }
instance PToJSVal CloseEvent where
pToJSVal = unCloseEvent
instance PFromJSVal CloseEvent where
pFromJSVal = CloseEvent
instance ToJSVal CloseEvent where
toJSVal = return . unCloseEvent
instance FromJSVal CloseEvent where
fromJSVal v = fmap CloseEvent <$> maybeNullOrUndefined v
instance MakeObject CloseEvent where
makeObject = makeObject . unCloseEvent
instance IsEvent CloseEvent
instance IsGObject CloseEvent where
toGObject = GObject . unCloseEvent
unsafeCastGObject = CloseEvent . unGObject
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)
newtype CommandLineAPIHost = CommandLineAPIHost { unCommandLineAPIHost :: JSVal }
instance PToJSVal CommandLineAPIHost where
pToJSVal = unCommandLineAPIHost
instance PFromJSVal CommandLineAPIHost where
pFromJSVal = CommandLineAPIHost
instance ToJSVal CommandLineAPIHost where
toJSVal = return . unCommandLineAPIHost
instance FromJSVal CommandLineAPIHost where
fromJSVal v = fmap CommandLineAPIHost <$> maybeNullOrUndefined v
instance MakeObject CommandLineAPIHost where
makeObject = makeObject . unCommandLineAPIHost
instance IsGObject CommandLineAPIHost where
toGObject = GObject . unCommandLineAPIHost
unsafeCastGObject = CommandLineAPIHost . unGObject
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)
newtype Comment = Comment { unComment :: JSVal }
instance PToJSVal Comment where
pToJSVal = unComment
instance PFromJSVal Comment where
pFromJSVal = Comment
instance ToJSVal Comment where
toJSVal = return . unComment
instance FromJSVal Comment where
fromJSVal v = fmap Comment <$> maybeNullOrUndefined v
instance MakeObject Comment where
makeObject = makeObject . unComment
instance IsCharacterData Comment
instance IsNode Comment
instance IsEventTarget Comment
instance IsGObject Comment where
toGObject = GObject . unComment
unsafeCastGObject = Comment . unGObject
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)
newtype CompositionEvent = CompositionEvent { unCompositionEvent :: JSVal }
instance PToJSVal CompositionEvent where
pToJSVal = unCompositionEvent
instance PFromJSVal CompositionEvent where
pFromJSVal = CompositionEvent
instance ToJSVal CompositionEvent where
toJSVal = return . unCompositionEvent
instance FromJSVal CompositionEvent where
fromJSVal v = fmap CompositionEvent <$> maybeNullOrUndefined v
instance MakeObject CompositionEvent where
makeObject = makeObject . unCompositionEvent
instance IsUIEvent CompositionEvent
instance IsEvent CompositionEvent
instance IsGObject CompositionEvent where
toGObject = GObject . unCompositionEvent
unsafeCastGObject = CompositionEvent . unGObject
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)
newtype ConvolverNode = ConvolverNode { unConvolverNode :: JSVal }
instance PToJSVal ConvolverNode where
pToJSVal = unConvolverNode
instance PFromJSVal ConvolverNode where
pFromJSVal = ConvolverNode
instance ToJSVal ConvolverNode where
toJSVal = return . unConvolverNode
instance FromJSVal ConvolverNode where
fromJSVal v = fmap ConvolverNode <$> maybeNullOrUndefined v
instance MakeObject ConvolverNode where
makeObject = makeObject . unConvolverNode
instance IsAudioNode ConvolverNode
instance IsEventTarget ConvolverNode
instance IsGObject ConvolverNode where
toGObject = GObject . unConvolverNode
unsafeCastGObject = ConvolverNode . unGObject
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)
newtype Coordinates = Coordinates { unCoordinates :: JSVal }
instance PToJSVal Coordinates where
pToJSVal = unCoordinates
instance PFromJSVal Coordinates where
pFromJSVal = Coordinates
instance ToJSVal Coordinates where
toJSVal = return . unCoordinates
instance FromJSVal Coordinates where
fromJSVal v = fmap Coordinates <$> maybeNullOrUndefined v
instance MakeObject Coordinates where
makeObject = makeObject . unCoordinates
instance IsGObject Coordinates where
toGObject = GObject . unCoordinates
unsafeCastGObject = Coordinates . unGObject
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)
newtype Counter = Counter { unCounter :: JSVal }
instance PToJSVal Counter where
pToJSVal = unCounter
instance PFromJSVal Counter where
pFromJSVal = Counter
instance ToJSVal Counter where
toJSVal = return . unCounter
instance FromJSVal Counter where
fromJSVal v = fmap Counter <$> maybeNullOrUndefined v
instance MakeObject Counter where
makeObject = makeObject . unCounter
instance IsGObject Counter where
toGObject = GObject . unCounter
unsafeCastGObject = Counter . unGObject
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)
newtype Crypto = Crypto { unCrypto :: JSVal }
instance PToJSVal Crypto where
pToJSVal = unCrypto
instance PFromJSVal Crypto where
pFromJSVal = Crypto
instance ToJSVal Crypto where
toJSVal = return . unCrypto
instance FromJSVal Crypto where
fromJSVal v = fmap Crypto <$> maybeNullOrUndefined v
instance MakeObject Crypto where
makeObject = makeObject . unCrypto
instance IsGObject Crypto where
toGObject = GObject . unCrypto
unsafeCastGObject = Crypto . unGObject
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)
newtype CryptoKey = CryptoKey { unCryptoKey :: JSVal }
instance PToJSVal CryptoKey where
pToJSVal = unCryptoKey
instance PFromJSVal CryptoKey where
pFromJSVal = CryptoKey
instance ToJSVal CryptoKey where
toJSVal = return . unCryptoKey
instance FromJSVal CryptoKey where
fromJSVal v = fmap CryptoKey <$> maybeNullOrUndefined v
instance MakeObject CryptoKey where
makeObject = makeObject . unCryptoKey
instance IsGObject CryptoKey where
toGObject = GObject . unCryptoKey
unsafeCastGObject = CryptoKey . unGObject
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)
newtype CryptoKeyPair = CryptoKeyPair { unCryptoKeyPair :: JSVal }
instance PToJSVal CryptoKeyPair where
pToJSVal = unCryptoKeyPair
instance PFromJSVal CryptoKeyPair where
pFromJSVal = CryptoKeyPair
instance ToJSVal CryptoKeyPair where
toJSVal = return . unCryptoKeyPair
instance FromJSVal CryptoKeyPair where
fromJSVal v = fmap CryptoKeyPair <$> maybeNullOrUndefined v
instance MakeObject CryptoKeyPair where
makeObject = makeObject . unCryptoKeyPair
instance IsGObject CryptoKeyPair where
toGObject = GObject . unCryptoKeyPair
unsafeCastGObject = CryptoKeyPair . unGObject
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)
newtype CustomEvent = CustomEvent { unCustomEvent :: JSVal }
instance PToJSVal CustomEvent where
pToJSVal = unCustomEvent
instance PFromJSVal CustomEvent where
pFromJSVal = CustomEvent
instance ToJSVal CustomEvent where
toJSVal = return . unCustomEvent
instance FromJSVal CustomEvent where
fromJSVal v = fmap CustomEvent <$> maybeNullOrUndefined v
instance MakeObject CustomEvent where
makeObject = makeObject . unCustomEvent
instance IsEvent CustomEvent
instance IsGObject CustomEvent where
toGObject = GObject . unCustomEvent
unsafeCastGObject = CustomEvent . unGObject
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)
newtype DOMError = DOMError { unDOMError :: JSVal }
instance PToJSVal DOMError where
pToJSVal = unDOMError
instance PFromJSVal DOMError where
pFromJSVal = DOMError
instance ToJSVal DOMError where
toJSVal = return . unDOMError
instance FromJSVal DOMError where
fromJSVal v = fmap DOMError <$> maybeNullOrUndefined v
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
unsafeCastGObject = DOMError . unGObject
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)
newtype DOMImplementation = DOMImplementation { unDOMImplementation :: JSVal }
instance PToJSVal DOMImplementation where
pToJSVal = unDOMImplementation
instance PFromJSVal DOMImplementation where
pFromJSVal = DOMImplementation
instance ToJSVal DOMImplementation where
toJSVal = return . unDOMImplementation
instance FromJSVal DOMImplementation where
fromJSVal v = fmap DOMImplementation <$> maybeNullOrUndefined v
instance MakeObject DOMImplementation where
makeObject = makeObject . unDOMImplementation
instance IsGObject DOMImplementation where
toGObject = GObject . unDOMImplementation
unsafeCastGObject = DOMImplementation . unGObject
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)
newtype DOMNamedFlowCollection = DOMNamedFlowCollection { unDOMNamedFlowCollection :: JSVal }
instance PToJSVal DOMNamedFlowCollection where
pToJSVal = unDOMNamedFlowCollection
instance PFromJSVal DOMNamedFlowCollection where
pFromJSVal = DOMNamedFlowCollection
instance ToJSVal DOMNamedFlowCollection where
toJSVal = return . unDOMNamedFlowCollection
instance FromJSVal DOMNamedFlowCollection where
fromJSVal v = fmap DOMNamedFlowCollection <$> maybeNullOrUndefined v
instance MakeObject DOMNamedFlowCollection where
makeObject = makeObject . unDOMNamedFlowCollection
instance IsGObject DOMNamedFlowCollection where
toGObject = GObject . unDOMNamedFlowCollection
unsafeCastGObject = DOMNamedFlowCollection . unGObject
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)
newtype DOMParser = DOMParser { unDOMParser :: JSVal }
instance PToJSVal DOMParser where
pToJSVal = unDOMParser
instance PFromJSVal DOMParser where
pFromJSVal = DOMParser
instance ToJSVal DOMParser where
toJSVal = return . unDOMParser
instance FromJSVal DOMParser where
fromJSVal v = fmap DOMParser <$> maybeNullOrUndefined v
instance MakeObject DOMParser where
makeObject = makeObject . unDOMParser
instance IsGObject DOMParser where
toGObject = GObject . unDOMParser
unsafeCastGObject = DOMParser . unGObject
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)
newtype DOMSettableTokenList = DOMSettableTokenList { unDOMSettableTokenList :: JSVal }
instance PToJSVal DOMSettableTokenList where
pToJSVal = unDOMSettableTokenList
instance PFromJSVal DOMSettableTokenList where
pFromJSVal = DOMSettableTokenList
instance ToJSVal DOMSettableTokenList where
toJSVal = return . unDOMSettableTokenList
instance FromJSVal DOMSettableTokenList where
fromJSVal v = fmap DOMSettableTokenList <$> maybeNullOrUndefined v
instance MakeObject DOMSettableTokenList where
makeObject = makeObject . unDOMSettableTokenList
instance IsDOMTokenList DOMSettableTokenList
instance IsGObject DOMSettableTokenList where
toGObject = GObject . unDOMSettableTokenList
unsafeCastGObject = DOMSettableTokenList . unGObject
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)
newtype DOMStringList = DOMStringList { unDOMStringList :: JSVal }
instance PToJSVal DOMStringList where
pToJSVal = unDOMStringList
instance PFromJSVal DOMStringList where
pFromJSVal = DOMStringList
instance ToJSVal DOMStringList where
toJSVal = return . unDOMStringList
instance FromJSVal DOMStringList where
fromJSVal v = fmap DOMStringList <$> maybeNullOrUndefined v
instance MakeObject DOMStringList where
makeObject = makeObject . unDOMStringList
instance IsGObject DOMStringList where
toGObject = GObject . unDOMStringList
unsafeCastGObject = DOMStringList . unGObject
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)
newtype DOMStringMap = DOMStringMap { unDOMStringMap :: JSVal }
instance PToJSVal DOMStringMap where
pToJSVal = unDOMStringMap
instance PFromJSVal DOMStringMap where
pFromJSVal = DOMStringMap
instance ToJSVal DOMStringMap where
toJSVal = return . unDOMStringMap
instance FromJSVal DOMStringMap where
fromJSVal v = fmap DOMStringMap <$> maybeNullOrUndefined v
instance MakeObject DOMStringMap where
makeObject = makeObject . unDOMStringMap
instance IsGObject DOMStringMap where
toGObject = GObject . unDOMStringMap
unsafeCastGObject = DOMStringMap . unGObject
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)
newtype DOMTokenList = DOMTokenList { unDOMTokenList :: JSVal }
instance PToJSVal DOMTokenList where
pToJSVal = unDOMTokenList
instance PFromJSVal DOMTokenList where
pFromJSVal = DOMTokenList
instance ToJSVal DOMTokenList where
toJSVal = return . unDOMTokenList
instance FromJSVal DOMTokenList where
fromJSVal v = fmap DOMTokenList <$> maybeNullOrUndefined v
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
unsafeCastGObject = DOMTokenList . unGObject
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)
newtype DataCue = DataCue { unDataCue :: JSVal }
instance PToJSVal DataCue where
pToJSVal = unDataCue
instance PFromJSVal DataCue where
pFromJSVal = DataCue
instance ToJSVal DataCue where
toJSVal = return . unDataCue
instance FromJSVal DataCue where
fromJSVal v = fmap DataCue <$> maybeNullOrUndefined v
instance MakeObject DataCue where
makeObject = makeObject . unDataCue
instance IsTextTrackCue DataCue
instance IsEventTarget DataCue
instance IsGObject DataCue where
toGObject = GObject . unDataCue
unsafeCastGObject = DataCue . unGObject
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)
newtype DataTransfer = DataTransfer { unDataTransfer :: JSVal }
instance PToJSVal DataTransfer where
pToJSVal = unDataTransfer
instance PFromJSVal DataTransfer where
pFromJSVal = DataTransfer
instance ToJSVal DataTransfer where
toJSVal = return . unDataTransfer
instance FromJSVal DataTransfer where
fromJSVal v = fmap DataTransfer <$> maybeNullOrUndefined v
instance MakeObject DataTransfer where
makeObject = makeObject . unDataTransfer
instance IsGObject DataTransfer where
toGObject = GObject . unDataTransfer
unsafeCastGObject = DataTransfer . unGObject
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)
newtype DataTransferItem = DataTransferItem { unDataTransferItem :: JSVal }
instance PToJSVal DataTransferItem where
pToJSVal = unDataTransferItem
instance PFromJSVal DataTransferItem where
pFromJSVal = DataTransferItem
instance ToJSVal DataTransferItem where
toJSVal = return . unDataTransferItem
instance FromJSVal DataTransferItem where
fromJSVal v = fmap DataTransferItem <$> maybeNullOrUndefined v
instance MakeObject DataTransferItem where
makeObject = makeObject . unDataTransferItem
instance IsGObject DataTransferItem where
toGObject = GObject . unDataTransferItem
unsafeCastGObject = DataTransferItem . unGObject
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)
newtype DataTransferItemList = DataTransferItemList { unDataTransferItemList :: JSVal }
instance PToJSVal DataTransferItemList where
pToJSVal = unDataTransferItemList
instance PFromJSVal DataTransferItemList where
pFromJSVal = DataTransferItemList
instance ToJSVal DataTransferItemList where
toJSVal = return . unDataTransferItemList
instance FromJSVal DataTransferItemList where
fromJSVal v = fmap DataTransferItemList <$> maybeNullOrUndefined v
instance MakeObject DataTransferItemList where
makeObject = makeObject . unDataTransferItemList
instance IsGObject DataTransferItemList where
toGObject = GObject . unDataTransferItemList
unsafeCastGObject = DataTransferItemList . unGObject
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)
newtype Database = Database { unDatabase :: JSVal }
instance PToJSVal Database where
pToJSVal = unDatabase
instance PFromJSVal Database where
pFromJSVal = Database
instance ToJSVal Database where
toJSVal = return . unDatabase
instance FromJSVal Database where
fromJSVal v = fmap Database <$> maybeNullOrUndefined v
instance MakeObject Database where
makeObject = makeObject . unDatabase
instance IsGObject Database where
toGObject = GObject . unDatabase
unsafeCastGObject = Database . unGObject
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)
newtype DedicatedWorkerGlobalScope = DedicatedWorkerGlobalScope { unDedicatedWorkerGlobalScope :: JSVal }
instance PToJSVal DedicatedWorkerGlobalScope where
pToJSVal = unDedicatedWorkerGlobalScope
instance PFromJSVal DedicatedWorkerGlobalScope where
pFromJSVal = DedicatedWorkerGlobalScope
instance ToJSVal DedicatedWorkerGlobalScope where
toJSVal = return . unDedicatedWorkerGlobalScope
instance FromJSVal DedicatedWorkerGlobalScope where
fromJSVal v = fmap DedicatedWorkerGlobalScope <$> maybeNullOrUndefined v
instance MakeObject DedicatedWorkerGlobalScope where
makeObject = makeObject . unDedicatedWorkerGlobalScope
instance IsWorkerGlobalScope DedicatedWorkerGlobalScope
instance IsEventTarget DedicatedWorkerGlobalScope
instance IsGObject DedicatedWorkerGlobalScope where
toGObject = GObject . unDedicatedWorkerGlobalScope
unsafeCastGObject = DedicatedWorkerGlobalScope . unGObject
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)
newtype DelayNode = DelayNode { unDelayNode :: JSVal }
instance PToJSVal DelayNode where
pToJSVal = unDelayNode
instance PFromJSVal DelayNode where
pFromJSVal = DelayNode
instance ToJSVal DelayNode where
toJSVal = return . unDelayNode
instance FromJSVal DelayNode where
fromJSVal v = fmap DelayNode <$> maybeNullOrUndefined v
instance MakeObject DelayNode where
makeObject = makeObject . unDelayNode
instance IsAudioNode DelayNode
instance IsEventTarget DelayNode
instance IsGObject DelayNode where
toGObject = GObject . unDelayNode
unsafeCastGObject = DelayNode . unGObject
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)
newtype DeviceMotionEvent = DeviceMotionEvent { unDeviceMotionEvent :: JSVal }
instance PToJSVal DeviceMotionEvent where
pToJSVal = unDeviceMotionEvent
instance PFromJSVal DeviceMotionEvent where
pFromJSVal = DeviceMotionEvent
instance ToJSVal DeviceMotionEvent where
toJSVal = return . unDeviceMotionEvent
instance FromJSVal DeviceMotionEvent where
fromJSVal v = fmap DeviceMotionEvent <$> maybeNullOrUndefined v
instance MakeObject DeviceMotionEvent where
makeObject = makeObject . unDeviceMotionEvent
instance IsEvent DeviceMotionEvent
instance IsGObject DeviceMotionEvent where
toGObject = GObject . unDeviceMotionEvent
unsafeCastGObject = DeviceMotionEvent . unGObject
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)
newtype DeviceOrientationEvent = DeviceOrientationEvent { unDeviceOrientationEvent :: JSVal }
instance PToJSVal DeviceOrientationEvent where
pToJSVal = unDeviceOrientationEvent
instance PFromJSVal DeviceOrientationEvent where
pFromJSVal = DeviceOrientationEvent
instance ToJSVal DeviceOrientationEvent where
toJSVal = return . unDeviceOrientationEvent
instance FromJSVal DeviceOrientationEvent where
fromJSVal v = fmap DeviceOrientationEvent <$> maybeNullOrUndefined v
instance MakeObject DeviceOrientationEvent where
makeObject = makeObject . unDeviceOrientationEvent
instance IsEvent DeviceOrientationEvent
instance IsGObject DeviceOrientationEvent where
toGObject = GObject . unDeviceOrientationEvent
unsafeCastGObject = DeviceOrientationEvent . unGObject
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)
newtype DeviceProximityEvent = DeviceProximityEvent { unDeviceProximityEvent :: JSVal }
instance PToJSVal DeviceProximityEvent where
pToJSVal = unDeviceProximityEvent
instance PFromJSVal DeviceProximityEvent where
pFromJSVal = DeviceProximityEvent
instance ToJSVal DeviceProximityEvent where
toJSVal = return . unDeviceProximityEvent
instance FromJSVal DeviceProximityEvent where
fromJSVal v = fmap DeviceProximityEvent <$> maybeNullOrUndefined v
instance MakeObject DeviceProximityEvent where
makeObject = makeObject . unDeviceProximityEvent
instance IsEvent DeviceProximityEvent
instance IsGObject DeviceProximityEvent where
toGObject = GObject . unDeviceProximityEvent
unsafeCastGObject = DeviceProximityEvent . unGObject
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)
newtype Document = Document { unDocument :: JSVal }
instance PToJSVal Document where
pToJSVal = unDocument
instance PFromJSVal Document where
pFromJSVal = Document
instance ToJSVal Document where
toJSVal = return . unDocument
instance FromJSVal Document where
fromJSVal v = fmap Document <$> maybeNullOrUndefined v
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
unsafeCastGObject = Document . unGObject
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)
newtype DocumentFragment = DocumentFragment { unDocumentFragment :: JSVal }
instance PToJSVal DocumentFragment where
pToJSVal = unDocumentFragment
instance PFromJSVal DocumentFragment where
pFromJSVal = DocumentFragment
instance ToJSVal DocumentFragment where
toJSVal = return . unDocumentFragment
instance FromJSVal DocumentFragment where
fromJSVal v = fmap DocumentFragment <$> maybeNullOrUndefined v
instance MakeObject DocumentFragment where
makeObject = makeObject . unDocumentFragment
instance IsNode DocumentFragment
instance IsEventTarget DocumentFragment
instance IsGObject DocumentFragment where
toGObject = GObject . unDocumentFragment
unsafeCastGObject = DocumentFragment . unGObject
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)
newtype DocumentType = DocumentType { unDocumentType :: JSVal }
instance PToJSVal DocumentType where
pToJSVal = unDocumentType
instance PFromJSVal DocumentType where
pFromJSVal = DocumentType
instance ToJSVal DocumentType where
toJSVal = return . unDocumentType
instance FromJSVal DocumentType where
fromJSVal v = fmap DocumentType <$> maybeNullOrUndefined v
instance MakeObject DocumentType where
makeObject = makeObject . unDocumentType
instance IsNode DocumentType
instance IsEventTarget DocumentType
instance IsGObject DocumentType where
toGObject = GObject . unDocumentType
unsafeCastGObject = DocumentType . unGObject
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)
newtype DynamicsCompressorNode = DynamicsCompressorNode { unDynamicsCompressorNode :: JSVal }
instance PToJSVal DynamicsCompressorNode where
pToJSVal = unDynamicsCompressorNode
instance PFromJSVal DynamicsCompressorNode where
pFromJSVal = DynamicsCompressorNode
instance ToJSVal DynamicsCompressorNode where
toJSVal = return . unDynamicsCompressorNode
instance FromJSVal DynamicsCompressorNode where
fromJSVal v = fmap DynamicsCompressorNode <$> maybeNullOrUndefined v
instance MakeObject DynamicsCompressorNode where
makeObject = makeObject . unDynamicsCompressorNode
instance IsAudioNode DynamicsCompressorNode
instance IsEventTarget DynamicsCompressorNode
instance IsGObject DynamicsCompressorNode where
toGObject = GObject . unDynamicsCompressorNode
unsafeCastGObject = DynamicsCompressorNode . unGObject
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)
newtype EXTBlendMinMax = EXTBlendMinMax { unEXTBlendMinMax :: JSVal }
instance PToJSVal EXTBlendMinMax where
pToJSVal = unEXTBlendMinMax
instance PFromJSVal EXTBlendMinMax where
pFromJSVal = EXTBlendMinMax
instance ToJSVal EXTBlendMinMax where
toJSVal = return . unEXTBlendMinMax
instance FromJSVal EXTBlendMinMax where
fromJSVal v = fmap EXTBlendMinMax <$> maybeNullOrUndefined v
instance MakeObject EXTBlendMinMax where
makeObject = makeObject . unEXTBlendMinMax
instance IsGObject EXTBlendMinMax where
toGObject = GObject . unEXTBlendMinMax
unsafeCastGObject = EXTBlendMinMax . unGObject
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)
newtype EXTFragDepth = EXTFragDepth { unEXTFragDepth :: JSVal }
instance PToJSVal EXTFragDepth where
pToJSVal = unEXTFragDepth
instance PFromJSVal EXTFragDepth where
pFromJSVal = EXTFragDepth
instance ToJSVal EXTFragDepth where
toJSVal = return . unEXTFragDepth
instance FromJSVal EXTFragDepth where
fromJSVal v = fmap EXTFragDepth <$> maybeNullOrUndefined v
instance MakeObject EXTFragDepth where
makeObject = makeObject . unEXTFragDepth
instance IsGObject EXTFragDepth where
toGObject = GObject . unEXTFragDepth
unsafeCastGObject = EXTFragDepth . unGObject
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)
newtype EXTShaderTextureLOD = EXTShaderTextureLOD { unEXTShaderTextureLOD :: JSVal }
instance PToJSVal EXTShaderTextureLOD where
pToJSVal = unEXTShaderTextureLOD
instance PFromJSVal EXTShaderTextureLOD where
pFromJSVal = EXTShaderTextureLOD
instance ToJSVal EXTShaderTextureLOD where
toJSVal = return . unEXTShaderTextureLOD
instance FromJSVal EXTShaderTextureLOD where
fromJSVal v = fmap EXTShaderTextureLOD <$> maybeNullOrUndefined v
instance MakeObject EXTShaderTextureLOD where
makeObject = makeObject . unEXTShaderTextureLOD
instance IsGObject EXTShaderTextureLOD where
toGObject = GObject . unEXTShaderTextureLOD
unsafeCastGObject = EXTShaderTextureLOD . unGObject
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)
newtype EXTTextureFilterAnisotropic = EXTTextureFilterAnisotropic { unEXTTextureFilterAnisotropic :: JSVal }
instance PToJSVal EXTTextureFilterAnisotropic where
pToJSVal = unEXTTextureFilterAnisotropic
instance PFromJSVal EXTTextureFilterAnisotropic where
pFromJSVal = EXTTextureFilterAnisotropic
instance ToJSVal EXTTextureFilterAnisotropic where
toJSVal = return . unEXTTextureFilterAnisotropic
instance FromJSVal EXTTextureFilterAnisotropic where
fromJSVal v = fmap EXTTextureFilterAnisotropic <$> maybeNullOrUndefined v
instance MakeObject EXTTextureFilterAnisotropic where
makeObject = makeObject . unEXTTextureFilterAnisotropic
instance IsGObject EXTTextureFilterAnisotropic where
toGObject = GObject . unEXTTextureFilterAnisotropic
unsafeCastGObject = EXTTextureFilterAnisotropic . unGObject
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)
newtype EXTsRGB = EXTsRGB { unEXTsRGB :: JSVal }
instance PToJSVal EXTsRGB where
pToJSVal = unEXTsRGB
instance PFromJSVal EXTsRGB where
pFromJSVal = EXTsRGB
instance ToJSVal EXTsRGB where
toJSVal = return . unEXTsRGB
instance FromJSVal EXTsRGB where
fromJSVal v = fmap EXTsRGB <$> maybeNullOrUndefined v
instance MakeObject EXTsRGB where
makeObject = makeObject . unEXTsRGB
instance IsGObject EXTsRGB where
toGObject = GObject . unEXTsRGB
unsafeCastGObject = EXTsRGB . unGObject
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)
newtype Element = Element { unElement :: JSVal }
instance PToJSVal Element where
pToJSVal = unElement
instance PFromJSVal Element where
pFromJSVal = Element
instance ToJSVal Element where
toJSVal = return . unElement
instance FromJSVal Element where
fromJSVal v = fmap Element <$> maybeNullOrUndefined v
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
unsafeCastGObject = Element . unGObject
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)
newtype Entity = Entity { unEntity :: JSVal }
instance PToJSVal Entity where
pToJSVal = unEntity
instance PFromJSVal Entity where
pFromJSVal = Entity
instance ToJSVal Entity where
toJSVal = return . unEntity
instance FromJSVal Entity where
fromJSVal v = fmap Entity <$> maybeNullOrUndefined v
instance MakeObject Entity where
makeObject = makeObject . unEntity
instance IsNode Entity
instance IsEventTarget Entity
instance IsGObject Entity where
toGObject = GObject . unEntity
unsafeCastGObject = Entity . unGObject
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)
newtype EntityReference = EntityReference { unEntityReference :: JSVal }
instance PToJSVal EntityReference where
pToJSVal = unEntityReference
instance PFromJSVal EntityReference where
pFromJSVal = EntityReference
instance ToJSVal EntityReference where
toJSVal = return . unEntityReference
instance FromJSVal EntityReference where
fromJSVal v = fmap EntityReference <$> maybeNullOrUndefined v
instance MakeObject EntityReference where
makeObject = makeObject . unEntityReference
instance IsNode EntityReference
instance IsEventTarget EntityReference
instance IsGObject EntityReference where
toGObject = GObject . unEntityReference
unsafeCastGObject = EntityReference . unGObject
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)
newtype ErrorEvent = ErrorEvent { unErrorEvent :: JSVal }
instance PToJSVal ErrorEvent where
pToJSVal = unErrorEvent
instance PFromJSVal ErrorEvent where
pFromJSVal = ErrorEvent
instance ToJSVal ErrorEvent where
toJSVal = return . unErrorEvent
instance FromJSVal ErrorEvent where
fromJSVal v = fmap ErrorEvent <$> maybeNullOrUndefined v
instance MakeObject ErrorEvent where
makeObject = makeObject . unErrorEvent
instance IsEvent ErrorEvent
instance IsGObject ErrorEvent where
toGObject = GObject . unErrorEvent
unsafeCastGObject = ErrorEvent . unGObject
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)
newtype Event = Event { unEvent :: JSVal }
instance PToJSVal Event where
pToJSVal = unEvent
instance PFromJSVal Event where
pFromJSVal = Event
instance ToJSVal Event where
toJSVal = return . unEvent
instance FromJSVal Event where
fromJSVal v = fmap Event <$> maybeNullOrUndefined v
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
unsafeCastGObject = Event . unGObject
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)
newtype EventListener = EventListener { unEventListener :: JSVal }
instance PToJSVal EventListener where
pToJSVal = unEventListener
instance PFromJSVal EventListener where
pFromJSVal = EventListener
instance ToJSVal EventListener where
toJSVal = return . unEventListener
instance FromJSVal EventListener where
fromJSVal v = fmap EventListener <$> maybeNullOrUndefined v
instance MakeObject EventListener where
makeObject = makeObject . unEventListener
instance IsGObject EventListener where
toGObject = GObject . unEventListener
unsafeCastGObject = EventListener . unGObject
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)
newtype EventSource = EventSource { unEventSource :: JSVal }
instance PToJSVal EventSource where
pToJSVal = unEventSource
instance PFromJSVal EventSource where
pFromJSVal = EventSource
instance ToJSVal EventSource where
toJSVal = return . unEventSource
instance FromJSVal EventSource where
fromJSVal v = fmap EventSource <$> maybeNullOrUndefined v
instance MakeObject EventSource where
makeObject = makeObject . unEventSource
instance IsEventTarget EventSource
instance IsGObject EventSource where
toGObject = GObject . unEventSource
unsafeCastGObject = EventSource . unGObject
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)
newtype EventTarget = EventTarget { unEventTarget :: JSVal }
instance PToJSVal EventTarget where
pToJSVal = unEventTarget
instance PFromJSVal EventTarget where
pFromJSVal = EventTarget
instance ToJSVal EventTarget where
toJSVal = return . unEventTarget
instance FromJSVal EventTarget where
fromJSVal v = fmap EventTarget <$> maybeNullOrUndefined v
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
unsafeCastGObject = EventTarget . unGObject
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)
newtype File = File { unFile :: JSVal }
instance PToJSVal File where
pToJSVal = unFile
instance PFromJSVal File where
pFromJSVal = File
instance ToJSVal File where
toJSVal = return . unFile
instance FromJSVal File where
fromJSVal v = fmap File <$> maybeNullOrUndefined v
instance MakeObject File where
makeObject = makeObject . unFile
instance IsBlob File
instance IsGObject File where
toGObject = GObject . unFile
unsafeCastGObject = File . unGObject
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)
newtype FileError = FileError { unFileError :: JSVal }
instance PToJSVal FileError where
pToJSVal = unFileError
instance PFromJSVal FileError where
pFromJSVal = FileError
instance ToJSVal FileError where
toJSVal = return . unFileError
instance FromJSVal FileError where
fromJSVal v = fmap FileError <$> maybeNullOrUndefined v
instance MakeObject FileError where
makeObject = makeObject . unFileError
instance IsGObject FileError where
toGObject = GObject . unFileError
unsafeCastGObject = FileError . unGObject
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)
newtype FileList = FileList { unFileList :: JSVal }
instance PToJSVal FileList where
pToJSVal = unFileList
instance PFromJSVal FileList where
pFromJSVal = FileList
instance ToJSVal FileList where
toJSVal = return . unFileList
instance FromJSVal FileList where
fromJSVal v = fmap FileList <$> maybeNullOrUndefined v
instance MakeObject FileList where
makeObject = makeObject . unFileList
instance IsGObject FileList where
toGObject = GObject . unFileList
unsafeCastGObject = FileList . unGObject
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)
newtype FileReader = FileReader { unFileReader :: JSVal }
instance PToJSVal FileReader where
pToJSVal = unFileReader
instance PFromJSVal FileReader where
pFromJSVal = FileReader
instance ToJSVal FileReader where
toJSVal = return . unFileReader
instance FromJSVal FileReader where
fromJSVal v = fmap FileReader <$> maybeNullOrUndefined v
instance MakeObject FileReader where
makeObject = makeObject . unFileReader
instance IsEventTarget FileReader
instance IsGObject FileReader where
toGObject = GObject . unFileReader
unsafeCastGObject = FileReader . unGObject
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)
newtype FileReaderSync = FileReaderSync { unFileReaderSync :: JSVal }
instance PToJSVal FileReaderSync where
pToJSVal = unFileReaderSync
instance PFromJSVal FileReaderSync where
pFromJSVal = FileReaderSync
instance ToJSVal FileReaderSync where
toJSVal = return . unFileReaderSync
instance FromJSVal FileReaderSync where
fromJSVal v = fmap FileReaderSync <$> maybeNullOrUndefined v
instance MakeObject FileReaderSync where
makeObject = makeObject . unFileReaderSync
instance IsGObject FileReaderSync where
toGObject = GObject . unFileReaderSync
unsafeCastGObject = FileReaderSync . unGObject
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)
newtype FocusEvent = FocusEvent { unFocusEvent :: JSVal }
instance PToJSVal FocusEvent where
pToJSVal = unFocusEvent
instance PFromJSVal FocusEvent where
pFromJSVal = FocusEvent
instance ToJSVal FocusEvent where
toJSVal = return . unFocusEvent
instance FromJSVal FocusEvent where
fromJSVal v = fmap FocusEvent <$> maybeNullOrUndefined v
instance MakeObject FocusEvent where
makeObject = makeObject . unFocusEvent
instance IsUIEvent FocusEvent
instance IsEvent FocusEvent
instance IsGObject FocusEvent where
toGObject = GObject . unFocusEvent
unsafeCastGObject = FocusEvent . unGObject
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)
newtype FontLoader = FontLoader { unFontLoader :: JSVal }
instance PToJSVal FontLoader where
pToJSVal = unFontLoader
instance PFromJSVal FontLoader where
pFromJSVal = FontLoader
instance ToJSVal FontLoader where
toJSVal = return . unFontLoader
instance FromJSVal FontLoader where
fromJSVal v = fmap FontLoader <$> maybeNullOrUndefined v
instance MakeObject FontLoader where
makeObject = makeObject . unFontLoader
instance IsEventTarget FontLoader
instance IsGObject FontLoader where
toGObject = GObject . unFontLoader
unsafeCastGObject = FontLoader . unGObject
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)
newtype FormData = FormData { unFormData :: JSVal }
instance PToJSVal FormData where
pToJSVal = unFormData
instance PFromJSVal FormData where
pFromJSVal = FormData
instance ToJSVal FormData where
toJSVal = return . unFormData
instance FromJSVal FormData where
fromJSVal v = fmap FormData <$> maybeNullOrUndefined v
instance MakeObject FormData where
makeObject = makeObject . unFormData
instance IsGObject FormData where
toGObject = GObject . unFormData
unsafeCastGObject = FormData . unGObject
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)
newtype GainNode = GainNode { unGainNode :: JSVal }
instance PToJSVal GainNode where
pToJSVal = unGainNode
instance PFromJSVal GainNode where
pFromJSVal = GainNode
instance ToJSVal GainNode where
toJSVal = return . unGainNode
instance FromJSVal GainNode where
fromJSVal v = fmap GainNode <$> maybeNullOrUndefined v
instance MakeObject GainNode where
makeObject = makeObject . unGainNode
instance IsAudioNode GainNode
instance IsEventTarget GainNode
instance IsGObject GainNode where
toGObject = GObject . unGainNode
unsafeCastGObject = GainNode . unGObject
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)
newtype Gamepad = Gamepad { unGamepad :: JSVal }
instance PToJSVal Gamepad where
pToJSVal = unGamepad
instance PFromJSVal Gamepad where
pFromJSVal = Gamepad
instance ToJSVal Gamepad where
toJSVal = return . unGamepad
instance FromJSVal Gamepad where
fromJSVal v = fmap Gamepad <$> maybeNullOrUndefined v
instance MakeObject Gamepad where
makeObject = makeObject . unGamepad
instance IsGObject Gamepad where
toGObject = GObject . unGamepad
unsafeCastGObject = Gamepad . unGObject
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)
newtype GamepadButton = GamepadButton { unGamepadButton :: JSVal }
instance PToJSVal GamepadButton where
pToJSVal = unGamepadButton
instance PFromJSVal GamepadButton where
pFromJSVal = GamepadButton
instance ToJSVal GamepadButton where
toJSVal = return . unGamepadButton
instance FromJSVal GamepadButton where
fromJSVal v = fmap GamepadButton <$> maybeNullOrUndefined v
instance MakeObject GamepadButton where
makeObject = makeObject . unGamepadButton
instance IsGObject GamepadButton where
toGObject = GObject . unGamepadButton
unsafeCastGObject = GamepadButton . unGObject
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)
newtype GamepadEvent = GamepadEvent { unGamepadEvent :: JSVal }
instance PToJSVal GamepadEvent where
pToJSVal = unGamepadEvent
instance PFromJSVal GamepadEvent where
pFromJSVal = GamepadEvent
instance ToJSVal GamepadEvent where
toJSVal = return . unGamepadEvent
instance FromJSVal GamepadEvent where
fromJSVal v = fmap GamepadEvent <$> maybeNullOrUndefined v
instance MakeObject GamepadEvent where
makeObject = makeObject . unGamepadEvent
instance IsEvent GamepadEvent
instance IsGObject GamepadEvent where
toGObject = GObject . unGamepadEvent
unsafeCastGObject = GamepadEvent . unGObject
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)
newtype Geolocation = Geolocation { unGeolocation :: JSVal }
instance PToJSVal Geolocation where
pToJSVal = unGeolocation
instance PFromJSVal Geolocation where
pFromJSVal = Geolocation
instance ToJSVal Geolocation where
toJSVal = return . unGeolocation
instance FromJSVal Geolocation where
fromJSVal v = fmap Geolocation <$> maybeNullOrUndefined v
instance MakeObject Geolocation where
makeObject = makeObject . unGeolocation
instance IsGObject Geolocation where
toGObject = GObject . unGeolocation
unsafeCastGObject = Geolocation . unGObject
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)
newtype Geoposition = Geoposition { unGeoposition :: JSVal }
instance PToJSVal Geoposition where
pToJSVal = unGeoposition
instance PFromJSVal Geoposition where
pFromJSVal = Geoposition
instance ToJSVal Geoposition where
toJSVal = return . unGeoposition
instance FromJSVal Geoposition where
fromJSVal v = fmap Geoposition <$> maybeNullOrUndefined v
instance MakeObject Geoposition where
makeObject = makeObject . unGeoposition
instance IsGObject Geoposition where
toGObject = GObject . unGeoposition
unsafeCastGObject = Geoposition . unGObject
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)
newtype HTMLAllCollection = HTMLAllCollection { unHTMLAllCollection :: JSVal }
instance PToJSVal HTMLAllCollection where
pToJSVal = unHTMLAllCollection
instance PFromJSVal HTMLAllCollection where
pFromJSVal = HTMLAllCollection
instance ToJSVal HTMLAllCollection where
toJSVal = return . unHTMLAllCollection
instance FromJSVal HTMLAllCollection where
fromJSVal v = fmap HTMLAllCollection <$> maybeNullOrUndefined v
instance MakeObject HTMLAllCollection where
makeObject = makeObject . unHTMLAllCollection
instance IsGObject HTMLAllCollection where
toGObject = GObject . unHTMLAllCollection
unsafeCastGObject = HTMLAllCollection . unGObject
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)
newtype HTMLAnchorElement = HTMLAnchorElement { unHTMLAnchorElement :: JSVal }
instance PToJSVal HTMLAnchorElement where
pToJSVal = unHTMLAnchorElement
instance PFromJSVal HTMLAnchorElement where
pFromJSVal = HTMLAnchorElement
instance ToJSVal HTMLAnchorElement where
toJSVal = return . unHTMLAnchorElement
instance FromJSVal HTMLAnchorElement where
fromJSVal v = fmap HTMLAnchorElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLAnchorElement . unGObject
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)
newtype HTMLAppletElement = HTMLAppletElement { unHTMLAppletElement :: JSVal }
instance PToJSVal HTMLAppletElement where
pToJSVal = unHTMLAppletElement
instance PFromJSVal HTMLAppletElement where
pFromJSVal = HTMLAppletElement
instance ToJSVal HTMLAppletElement where
toJSVal = return . unHTMLAppletElement
instance FromJSVal HTMLAppletElement where
fromJSVal v = fmap HTMLAppletElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLAppletElement . unGObject
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)
newtype HTMLAreaElement = HTMLAreaElement { unHTMLAreaElement :: JSVal }
instance PToJSVal HTMLAreaElement where
pToJSVal = unHTMLAreaElement
instance PFromJSVal HTMLAreaElement where
pFromJSVal = HTMLAreaElement
instance ToJSVal HTMLAreaElement where
toJSVal = return . unHTMLAreaElement
instance FromJSVal HTMLAreaElement where
fromJSVal v = fmap HTMLAreaElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLAreaElement . unGObject
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)
newtype HTMLAudioElement = HTMLAudioElement { unHTMLAudioElement :: JSVal }
instance PToJSVal HTMLAudioElement where
pToJSVal = unHTMLAudioElement
instance PFromJSVal HTMLAudioElement where
pFromJSVal = HTMLAudioElement
instance ToJSVal HTMLAudioElement where
toJSVal = return . unHTMLAudioElement
instance FromJSVal HTMLAudioElement where
fromJSVal v = fmap HTMLAudioElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLAudioElement . unGObject
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)
newtype HTMLBRElement = HTMLBRElement { unHTMLBRElement :: JSVal }
instance PToJSVal HTMLBRElement where
pToJSVal = unHTMLBRElement
instance PFromJSVal HTMLBRElement where
pFromJSVal = HTMLBRElement
instance ToJSVal HTMLBRElement where
toJSVal = return . unHTMLBRElement
instance FromJSVal HTMLBRElement where
fromJSVal v = fmap HTMLBRElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLBRElement . unGObject
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)
newtype HTMLBaseElement = HTMLBaseElement { unHTMLBaseElement :: JSVal }
instance PToJSVal HTMLBaseElement where
pToJSVal = unHTMLBaseElement
instance PFromJSVal HTMLBaseElement where
pFromJSVal = HTMLBaseElement
instance ToJSVal HTMLBaseElement where
toJSVal = return . unHTMLBaseElement
instance FromJSVal HTMLBaseElement where
fromJSVal v = fmap HTMLBaseElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLBaseElement . unGObject
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)
newtype HTMLBaseFontElement = HTMLBaseFontElement { unHTMLBaseFontElement :: JSVal }
instance PToJSVal HTMLBaseFontElement where
pToJSVal = unHTMLBaseFontElement
instance PFromJSVal HTMLBaseFontElement where
pFromJSVal = HTMLBaseFontElement
instance ToJSVal HTMLBaseFontElement where
toJSVal = return . unHTMLBaseFontElement
instance FromJSVal HTMLBaseFontElement where
fromJSVal v = fmap HTMLBaseFontElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLBaseFontElement . unGObject
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)
newtype HTMLBodyElement = HTMLBodyElement { unHTMLBodyElement :: JSVal }
instance PToJSVal HTMLBodyElement where
pToJSVal = unHTMLBodyElement
instance PFromJSVal HTMLBodyElement where
pFromJSVal = HTMLBodyElement
instance ToJSVal HTMLBodyElement where
toJSVal = return . unHTMLBodyElement
instance FromJSVal HTMLBodyElement where
fromJSVal v = fmap HTMLBodyElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLBodyElement . unGObject
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)
newtype HTMLButtonElement = HTMLButtonElement { unHTMLButtonElement :: JSVal }
instance PToJSVal HTMLButtonElement where
pToJSVal = unHTMLButtonElement
instance PFromJSVal HTMLButtonElement where
pFromJSVal = HTMLButtonElement
instance ToJSVal HTMLButtonElement where
toJSVal = return . unHTMLButtonElement
instance FromJSVal HTMLButtonElement where
fromJSVal v = fmap HTMLButtonElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLButtonElement . unGObject
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)
newtype HTMLCanvasElement = HTMLCanvasElement { unHTMLCanvasElement :: JSVal }
instance PToJSVal HTMLCanvasElement where
pToJSVal = unHTMLCanvasElement
instance PFromJSVal HTMLCanvasElement where
pFromJSVal = HTMLCanvasElement
instance ToJSVal HTMLCanvasElement where
toJSVal = return . unHTMLCanvasElement
instance FromJSVal HTMLCanvasElement where
fromJSVal v = fmap HTMLCanvasElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLCanvasElement . unGObject
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)
newtype HTMLCollection = HTMLCollection { unHTMLCollection :: JSVal }
instance PToJSVal HTMLCollection where
pToJSVal = unHTMLCollection
instance PFromJSVal HTMLCollection where
pFromJSVal = HTMLCollection
instance ToJSVal HTMLCollection where
toJSVal = return . unHTMLCollection
instance FromJSVal HTMLCollection where
fromJSVal v = fmap HTMLCollection <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLCollection . unGObject
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)
newtype HTMLDListElement = HTMLDListElement { unHTMLDListElement :: JSVal }
instance PToJSVal HTMLDListElement where
pToJSVal = unHTMLDListElement
instance PFromJSVal HTMLDListElement where
pFromJSVal = HTMLDListElement
instance ToJSVal HTMLDListElement where
toJSVal = return . unHTMLDListElement
instance FromJSVal HTMLDListElement where
fromJSVal v = fmap HTMLDListElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLDListElement . unGObject
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)
newtype HTMLDataListElement = HTMLDataListElement { unHTMLDataListElement :: JSVal }
instance PToJSVal HTMLDataListElement where
pToJSVal = unHTMLDataListElement
instance PFromJSVal HTMLDataListElement where
pFromJSVal = HTMLDataListElement
instance ToJSVal HTMLDataListElement where
toJSVal = return . unHTMLDataListElement
instance FromJSVal HTMLDataListElement where
fromJSVal v = fmap HTMLDataListElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLDataListElement . unGObject
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)
newtype HTMLDetailsElement = HTMLDetailsElement { unHTMLDetailsElement :: JSVal }
instance PToJSVal HTMLDetailsElement where
pToJSVal = unHTMLDetailsElement
instance PFromJSVal HTMLDetailsElement where
pFromJSVal = HTMLDetailsElement
instance ToJSVal HTMLDetailsElement where
toJSVal = return . unHTMLDetailsElement
instance FromJSVal HTMLDetailsElement where
fromJSVal v = fmap HTMLDetailsElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLDetailsElement . unGObject
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)
newtype HTMLDirectoryElement = HTMLDirectoryElement { unHTMLDirectoryElement :: JSVal }
instance PToJSVal HTMLDirectoryElement where
pToJSVal = unHTMLDirectoryElement
instance PFromJSVal HTMLDirectoryElement where
pFromJSVal = HTMLDirectoryElement
instance ToJSVal HTMLDirectoryElement where
toJSVal = return . unHTMLDirectoryElement
instance FromJSVal HTMLDirectoryElement where
fromJSVal v = fmap HTMLDirectoryElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLDirectoryElement . unGObject
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)
newtype HTMLDivElement = HTMLDivElement { unHTMLDivElement :: JSVal }
instance PToJSVal HTMLDivElement where
pToJSVal = unHTMLDivElement
instance PFromJSVal HTMLDivElement where
pFromJSVal = HTMLDivElement
instance ToJSVal HTMLDivElement where
toJSVal = return . unHTMLDivElement
instance FromJSVal HTMLDivElement where
fromJSVal v = fmap HTMLDivElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLDivElement . unGObject
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)
newtype HTMLDocument = HTMLDocument { unHTMLDocument :: JSVal }
instance PToJSVal HTMLDocument where
pToJSVal = unHTMLDocument
instance PFromJSVal HTMLDocument where
pFromJSVal = HTMLDocument
instance ToJSVal HTMLDocument where
toJSVal = return . unHTMLDocument
instance FromJSVal HTMLDocument where
fromJSVal v = fmap HTMLDocument <$> maybeNullOrUndefined v
instance MakeObject HTMLDocument where
makeObject = makeObject . unHTMLDocument
instance IsDocument HTMLDocument
instance IsNode HTMLDocument
instance IsEventTarget HTMLDocument
instance IsGObject HTMLDocument where
toGObject = GObject . unHTMLDocument
unsafeCastGObject = HTMLDocument . unGObject
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)
newtype HTMLElement = HTMLElement { unHTMLElement :: JSVal }
instance PToJSVal HTMLElement where
pToJSVal = unHTMLElement
instance PFromJSVal HTMLElement where
pFromJSVal = HTMLElement
instance ToJSVal HTMLElement where
toJSVal = return . unHTMLElement
instance FromJSVal HTMLElement where
fromJSVal v = fmap HTMLElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLElement . unGObject
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)
newtype HTMLEmbedElement = HTMLEmbedElement { unHTMLEmbedElement :: JSVal }
instance PToJSVal HTMLEmbedElement where
pToJSVal = unHTMLEmbedElement
instance PFromJSVal HTMLEmbedElement where
pFromJSVal = HTMLEmbedElement
instance ToJSVal HTMLEmbedElement where
toJSVal = return . unHTMLEmbedElement
instance FromJSVal HTMLEmbedElement where
fromJSVal v = fmap HTMLEmbedElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLEmbedElement . unGObject
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)
newtype HTMLFieldSetElement = HTMLFieldSetElement { unHTMLFieldSetElement :: JSVal }
instance PToJSVal HTMLFieldSetElement where
pToJSVal = unHTMLFieldSetElement
instance PFromJSVal HTMLFieldSetElement where
pFromJSVal = HTMLFieldSetElement
instance ToJSVal HTMLFieldSetElement where
toJSVal = return . unHTMLFieldSetElement
instance FromJSVal HTMLFieldSetElement where
fromJSVal v = fmap HTMLFieldSetElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLFieldSetElement . unGObject
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)
newtype HTMLFontElement = HTMLFontElement { unHTMLFontElement :: JSVal }
instance PToJSVal HTMLFontElement where
pToJSVal = unHTMLFontElement
instance PFromJSVal HTMLFontElement where
pFromJSVal = HTMLFontElement
instance ToJSVal HTMLFontElement where
toJSVal = return . unHTMLFontElement
instance FromJSVal HTMLFontElement where
fromJSVal v = fmap HTMLFontElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLFontElement . unGObject
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)
newtype HTMLFormControlsCollection = HTMLFormControlsCollection { unHTMLFormControlsCollection :: JSVal }
instance PToJSVal HTMLFormControlsCollection where
pToJSVal = unHTMLFormControlsCollection
instance PFromJSVal HTMLFormControlsCollection where
pFromJSVal = HTMLFormControlsCollection
instance ToJSVal HTMLFormControlsCollection where
toJSVal = return . unHTMLFormControlsCollection
instance FromJSVal HTMLFormControlsCollection where
fromJSVal v = fmap HTMLFormControlsCollection <$> maybeNullOrUndefined v
instance MakeObject HTMLFormControlsCollection where
makeObject = makeObject . unHTMLFormControlsCollection
instance IsHTMLCollection HTMLFormControlsCollection
instance IsGObject HTMLFormControlsCollection where
toGObject = GObject . unHTMLFormControlsCollection
unsafeCastGObject = HTMLFormControlsCollection . unGObject
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)
newtype HTMLFormElement = HTMLFormElement { unHTMLFormElement :: JSVal }
instance PToJSVal HTMLFormElement where
pToJSVal = unHTMLFormElement
instance PFromJSVal HTMLFormElement where
pFromJSVal = HTMLFormElement
instance ToJSVal HTMLFormElement where
toJSVal = return . unHTMLFormElement
instance FromJSVal HTMLFormElement where
fromJSVal v = fmap HTMLFormElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLFormElement . unGObject
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)
newtype HTMLFrameElement = HTMLFrameElement { unHTMLFrameElement :: JSVal }
instance PToJSVal HTMLFrameElement where
pToJSVal = unHTMLFrameElement
instance PFromJSVal HTMLFrameElement where
pFromJSVal = HTMLFrameElement
instance ToJSVal HTMLFrameElement where
toJSVal = return . unHTMLFrameElement
instance FromJSVal HTMLFrameElement where
fromJSVal v = fmap HTMLFrameElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLFrameElement . unGObject
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)
newtype HTMLFrameSetElement = HTMLFrameSetElement { unHTMLFrameSetElement :: JSVal }
instance PToJSVal HTMLFrameSetElement where
pToJSVal = unHTMLFrameSetElement
instance PFromJSVal HTMLFrameSetElement where
pFromJSVal = HTMLFrameSetElement
instance ToJSVal HTMLFrameSetElement where
toJSVal = return . unHTMLFrameSetElement
instance FromJSVal HTMLFrameSetElement where
fromJSVal v = fmap HTMLFrameSetElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLFrameSetElement . unGObject
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)
newtype HTMLHRElement = HTMLHRElement { unHTMLHRElement :: JSVal }
instance PToJSVal HTMLHRElement where
pToJSVal = unHTMLHRElement
instance PFromJSVal HTMLHRElement where
pFromJSVal = HTMLHRElement
instance ToJSVal HTMLHRElement where
toJSVal = return . unHTMLHRElement
instance FromJSVal HTMLHRElement where
fromJSVal v = fmap HTMLHRElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLHRElement . unGObject
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)
newtype HTMLHeadElement = HTMLHeadElement { unHTMLHeadElement :: JSVal }
instance PToJSVal HTMLHeadElement where
pToJSVal = unHTMLHeadElement
instance PFromJSVal HTMLHeadElement where
pFromJSVal = HTMLHeadElement
instance ToJSVal HTMLHeadElement where
toJSVal = return . unHTMLHeadElement
instance FromJSVal HTMLHeadElement where
fromJSVal v = fmap HTMLHeadElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLHeadElement . unGObject
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)
newtype HTMLHeadingElement = HTMLHeadingElement { unHTMLHeadingElement :: JSVal }
instance PToJSVal HTMLHeadingElement where
pToJSVal = unHTMLHeadingElement
instance PFromJSVal HTMLHeadingElement where
pFromJSVal = HTMLHeadingElement
instance ToJSVal HTMLHeadingElement where
toJSVal = return . unHTMLHeadingElement
instance FromJSVal HTMLHeadingElement where
fromJSVal v = fmap HTMLHeadingElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLHeadingElement . unGObject
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)
newtype HTMLHtmlElement = HTMLHtmlElement { unHTMLHtmlElement :: JSVal }
instance PToJSVal HTMLHtmlElement where
pToJSVal = unHTMLHtmlElement
instance PFromJSVal HTMLHtmlElement where
pFromJSVal = HTMLHtmlElement
instance ToJSVal HTMLHtmlElement where
toJSVal = return . unHTMLHtmlElement
instance FromJSVal HTMLHtmlElement where
fromJSVal v = fmap HTMLHtmlElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLHtmlElement . unGObject
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)
newtype HTMLIFrameElement = HTMLIFrameElement { unHTMLIFrameElement :: JSVal }
instance PToJSVal HTMLIFrameElement where
pToJSVal = unHTMLIFrameElement
instance PFromJSVal HTMLIFrameElement where
pFromJSVal = HTMLIFrameElement
instance ToJSVal HTMLIFrameElement where
toJSVal = return . unHTMLIFrameElement
instance FromJSVal HTMLIFrameElement where
fromJSVal v = fmap HTMLIFrameElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLIFrameElement . unGObject
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)
newtype HTMLImageElement = HTMLImageElement { unHTMLImageElement :: JSVal }
instance PToJSVal HTMLImageElement where
pToJSVal = unHTMLImageElement
instance PFromJSVal HTMLImageElement where
pFromJSVal = HTMLImageElement
instance ToJSVal HTMLImageElement where
toJSVal = return . unHTMLImageElement
instance FromJSVal HTMLImageElement where
fromJSVal v = fmap HTMLImageElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLImageElement . unGObject
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)
newtype HTMLInputElement = HTMLInputElement { unHTMLInputElement :: JSVal }
instance PToJSVal HTMLInputElement where
pToJSVal = unHTMLInputElement
instance PFromJSVal HTMLInputElement where
pFromJSVal = HTMLInputElement
instance ToJSVal HTMLInputElement where
toJSVal = return . unHTMLInputElement
instance FromJSVal HTMLInputElement where
fromJSVal v = fmap HTMLInputElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLInputElement . unGObject
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)
newtype HTMLKeygenElement = HTMLKeygenElement { unHTMLKeygenElement :: JSVal }
instance PToJSVal HTMLKeygenElement where
pToJSVal = unHTMLKeygenElement
instance PFromJSVal HTMLKeygenElement where
pFromJSVal = HTMLKeygenElement
instance ToJSVal HTMLKeygenElement where
toJSVal = return . unHTMLKeygenElement
instance FromJSVal HTMLKeygenElement where
fromJSVal v = fmap HTMLKeygenElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLKeygenElement . unGObject
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)
newtype HTMLLIElement = HTMLLIElement { unHTMLLIElement :: JSVal }
instance PToJSVal HTMLLIElement where
pToJSVal = unHTMLLIElement
instance PFromJSVal HTMLLIElement where
pFromJSVal = HTMLLIElement
instance ToJSVal HTMLLIElement where
toJSVal = return . unHTMLLIElement
instance FromJSVal HTMLLIElement where
fromJSVal v = fmap HTMLLIElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLLIElement . unGObject
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)
newtype HTMLLabelElement = HTMLLabelElement { unHTMLLabelElement :: JSVal }
instance PToJSVal HTMLLabelElement where
pToJSVal = unHTMLLabelElement
instance PFromJSVal HTMLLabelElement where
pFromJSVal = HTMLLabelElement
instance ToJSVal HTMLLabelElement where
toJSVal = return . unHTMLLabelElement
instance FromJSVal HTMLLabelElement where
fromJSVal v = fmap HTMLLabelElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLLabelElement . unGObject
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)
newtype HTMLLegendElement = HTMLLegendElement { unHTMLLegendElement :: JSVal }
instance PToJSVal HTMLLegendElement where
pToJSVal = unHTMLLegendElement
instance PFromJSVal HTMLLegendElement where
pFromJSVal = HTMLLegendElement
instance ToJSVal HTMLLegendElement where
toJSVal = return . unHTMLLegendElement
instance FromJSVal HTMLLegendElement where
fromJSVal v = fmap HTMLLegendElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLLegendElement . unGObject
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)
newtype HTMLLinkElement = HTMLLinkElement { unHTMLLinkElement :: JSVal }
instance PToJSVal HTMLLinkElement where
pToJSVal = unHTMLLinkElement
instance PFromJSVal HTMLLinkElement where
pFromJSVal = HTMLLinkElement
instance ToJSVal HTMLLinkElement where
toJSVal = return . unHTMLLinkElement
instance FromJSVal HTMLLinkElement where
fromJSVal v = fmap HTMLLinkElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLLinkElement . unGObject
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)
newtype HTMLMapElement = HTMLMapElement { unHTMLMapElement :: JSVal }
instance PToJSVal HTMLMapElement where
pToJSVal = unHTMLMapElement
instance PFromJSVal HTMLMapElement where
pFromJSVal = HTMLMapElement
instance ToJSVal HTMLMapElement where
toJSVal = return . unHTMLMapElement
instance FromJSVal HTMLMapElement where
fromJSVal v = fmap HTMLMapElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLMapElement . unGObject
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)
newtype HTMLMarqueeElement = HTMLMarqueeElement { unHTMLMarqueeElement :: JSVal }
instance PToJSVal HTMLMarqueeElement where
pToJSVal = unHTMLMarqueeElement
instance PFromJSVal HTMLMarqueeElement where
pFromJSVal = HTMLMarqueeElement
instance ToJSVal HTMLMarqueeElement where
toJSVal = return . unHTMLMarqueeElement
instance FromJSVal HTMLMarqueeElement where
fromJSVal v = fmap HTMLMarqueeElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLMarqueeElement . unGObject
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)
newtype HTMLMediaElement = HTMLMediaElement { unHTMLMediaElement :: JSVal }
instance PToJSVal HTMLMediaElement where
pToJSVal = unHTMLMediaElement
instance PFromJSVal HTMLMediaElement where
pFromJSVal = HTMLMediaElement
instance ToJSVal HTMLMediaElement where
toJSVal = return . unHTMLMediaElement
instance FromJSVal HTMLMediaElement where
fromJSVal v = fmap HTMLMediaElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLMediaElement . unGObject
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)
newtype HTMLMenuElement = HTMLMenuElement { unHTMLMenuElement :: JSVal }
instance PToJSVal HTMLMenuElement where
pToJSVal = unHTMLMenuElement
instance PFromJSVal HTMLMenuElement where
pFromJSVal = HTMLMenuElement
instance ToJSVal HTMLMenuElement where
toJSVal = return . unHTMLMenuElement
instance FromJSVal HTMLMenuElement where
fromJSVal v = fmap HTMLMenuElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLMenuElement . unGObject
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)
newtype HTMLMetaElement = HTMLMetaElement { unHTMLMetaElement :: JSVal }
instance PToJSVal HTMLMetaElement where
pToJSVal = unHTMLMetaElement
instance PFromJSVal HTMLMetaElement where
pFromJSVal = HTMLMetaElement
instance ToJSVal HTMLMetaElement where
toJSVal = return . unHTMLMetaElement
instance FromJSVal HTMLMetaElement where
fromJSVal v = fmap HTMLMetaElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLMetaElement . unGObject
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)
newtype HTMLMeterElement = HTMLMeterElement { unHTMLMeterElement :: JSVal }
instance PToJSVal HTMLMeterElement where
pToJSVal = unHTMLMeterElement
instance PFromJSVal HTMLMeterElement where
pFromJSVal = HTMLMeterElement
instance ToJSVal HTMLMeterElement where
toJSVal = return . unHTMLMeterElement
instance FromJSVal HTMLMeterElement where
fromJSVal v = fmap HTMLMeterElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLMeterElement . unGObject
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)
newtype HTMLModElement = HTMLModElement { unHTMLModElement :: JSVal }
instance PToJSVal HTMLModElement where
pToJSVal = unHTMLModElement
instance PFromJSVal HTMLModElement where
pFromJSVal = HTMLModElement
instance ToJSVal HTMLModElement where
toJSVal = return . unHTMLModElement
instance FromJSVal HTMLModElement where
fromJSVal v = fmap HTMLModElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLModElement . unGObject
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)
newtype HTMLOListElement = HTMLOListElement { unHTMLOListElement :: JSVal }
instance PToJSVal HTMLOListElement where
pToJSVal = unHTMLOListElement
instance PFromJSVal HTMLOListElement where
pFromJSVal = HTMLOListElement
instance ToJSVal HTMLOListElement where
toJSVal = return . unHTMLOListElement
instance FromJSVal HTMLOListElement where
fromJSVal v = fmap HTMLOListElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLOListElement . unGObject
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)
newtype HTMLObjectElement = HTMLObjectElement { unHTMLObjectElement :: JSVal }
instance PToJSVal HTMLObjectElement where
pToJSVal = unHTMLObjectElement
instance PFromJSVal HTMLObjectElement where
pFromJSVal = HTMLObjectElement
instance ToJSVal HTMLObjectElement where
toJSVal = return . unHTMLObjectElement
instance FromJSVal HTMLObjectElement where
fromJSVal v = fmap HTMLObjectElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLObjectElement . unGObject
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)
newtype HTMLOptGroupElement = HTMLOptGroupElement { unHTMLOptGroupElement :: JSVal }
instance PToJSVal HTMLOptGroupElement where
pToJSVal = unHTMLOptGroupElement
instance PFromJSVal HTMLOptGroupElement where
pFromJSVal = HTMLOptGroupElement
instance ToJSVal HTMLOptGroupElement where
toJSVal = return . unHTMLOptGroupElement
instance FromJSVal HTMLOptGroupElement where
fromJSVal v = fmap HTMLOptGroupElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLOptGroupElement . unGObject
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)
newtype HTMLOptionElement = HTMLOptionElement { unHTMLOptionElement :: JSVal }
instance PToJSVal HTMLOptionElement where
pToJSVal = unHTMLOptionElement
instance PFromJSVal HTMLOptionElement where
pFromJSVal = HTMLOptionElement
instance ToJSVal HTMLOptionElement where
toJSVal = return . unHTMLOptionElement
instance FromJSVal HTMLOptionElement where
fromJSVal v = fmap HTMLOptionElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLOptionElement . unGObject
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)
newtype HTMLOptionsCollection = HTMLOptionsCollection { unHTMLOptionsCollection :: JSVal }
instance PToJSVal HTMLOptionsCollection where
pToJSVal = unHTMLOptionsCollection
instance PFromJSVal HTMLOptionsCollection where
pFromJSVal = HTMLOptionsCollection
instance ToJSVal HTMLOptionsCollection where
toJSVal = return . unHTMLOptionsCollection
instance FromJSVal HTMLOptionsCollection where
fromJSVal v = fmap HTMLOptionsCollection <$> maybeNullOrUndefined v
instance MakeObject HTMLOptionsCollection where
makeObject = makeObject . unHTMLOptionsCollection
instance IsHTMLCollection HTMLOptionsCollection
instance IsGObject HTMLOptionsCollection where
toGObject = GObject . unHTMLOptionsCollection
unsafeCastGObject = HTMLOptionsCollection . unGObject
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)
newtype HTMLOutputElement = HTMLOutputElement { unHTMLOutputElement :: JSVal }
instance PToJSVal HTMLOutputElement where
pToJSVal = unHTMLOutputElement
instance PFromJSVal HTMLOutputElement where
pFromJSVal = HTMLOutputElement
instance ToJSVal HTMLOutputElement where
toJSVal = return . unHTMLOutputElement
instance FromJSVal HTMLOutputElement where
fromJSVal v = fmap HTMLOutputElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLOutputElement . unGObject
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)
newtype HTMLParagraphElement = HTMLParagraphElement { unHTMLParagraphElement :: JSVal }
instance PToJSVal HTMLParagraphElement where
pToJSVal = unHTMLParagraphElement
instance PFromJSVal HTMLParagraphElement where
pFromJSVal = HTMLParagraphElement
instance ToJSVal HTMLParagraphElement where
toJSVal = return . unHTMLParagraphElement
instance FromJSVal HTMLParagraphElement where
fromJSVal v = fmap HTMLParagraphElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLParagraphElement . unGObject
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)
newtype HTMLParamElement = HTMLParamElement { unHTMLParamElement :: JSVal }
instance PToJSVal HTMLParamElement where
pToJSVal = unHTMLParamElement
instance PFromJSVal HTMLParamElement where
pFromJSVal = HTMLParamElement
instance ToJSVal HTMLParamElement where
toJSVal = return . unHTMLParamElement
instance FromJSVal HTMLParamElement where
fromJSVal v = fmap HTMLParamElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLParamElement . unGObject
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)
newtype HTMLPreElement = HTMLPreElement { unHTMLPreElement :: JSVal }
instance PToJSVal HTMLPreElement where
pToJSVal = unHTMLPreElement
instance PFromJSVal HTMLPreElement where
pFromJSVal = HTMLPreElement
instance ToJSVal HTMLPreElement where
toJSVal = return . unHTMLPreElement
instance FromJSVal HTMLPreElement where
fromJSVal v = fmap HTMLPreElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLPreElement . unGObject
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)
newtype HTMLProgressElement = HTMLProgressElement { unHTMLProgressElement :: JSVal }
instance PToJSVal HTMLProgressElement where
pToJSVal = unHTMLProgressElement
instance PFromJSVal HTMLProgressElement where
pFromJSVal = HTMLProgressElement
instance ToJSVal HTMLProgressElement where
toJSVal = return . unHTMLProgressElement
instance FromJSVal HTMLProgressElement where
fromJSVal v = fmap HTMLProgressElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLProgressElement . unGObject
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)
newtype HTMLQuoteElement = HTMLQuoteElement { unHTMLQuoteElement :: JSVal }
instance PToJSVal HTMLQuoteElement where
pToJSVal = unHTMLQuoteElement
instance PFromJSVal HTMLQuoteElement where
pFromJSVal = HTMLQuoteElement
instance ToJSVal HTMLQuoteElement where
toJSVal = return . unHTMLQuoteElement
instance FromJSVal HTMLQuoteElement where
fromJSVal v = fmap HTMLQuoteElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLQuoteElement . unGObject
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)
newtype HTMLScriptElement = HTMLScriptElement { unHTMLScriptElement :: JSVal }
instance PToJSVal HTMLScriptElement where
pToJSVal = unHTMLScriptElement
instance PFromJSVal HTMLScriptElement where
pFromJSVal = HTMLScriptElement
instance ToJSVal HTMLScriptElement where
toJSVal = return . unHTMLScriptElement
instance FromJSVal HTMLScriptElement where
fromJSVal v = fmap HTMLScriptElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLScriptElement . unGObject
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)
newtype HTMLSelectElement = HTMLSelectElement { unHTMLSelectElement :: JSVal }
instance PToJSVal HTMLSelectElement where
pToJSVal = unHTMLSelectElement
instance PFromJSVal HTMLSelectElement where
pFromJSVal = HTMLSelectElement
instance ToJSVal HTMLSelectElement where
toJSVal = return . unHTMLSelectElement
instance FromJSVal HTMLSelectElement where
fromJSVal v = fmap HTMLSelectElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLSelectElement . unGObject
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)
newtype HTMLSourceElement = HTMLSourceElement { unHTMLSourceElement :: JSVal }
instance PToJSVal HTMLSourceElement where
pToJSVal = unHTMLSourceElement
instance PFromJSVal HTMLSourceElement where
pFromJSVal = HTMLSourceElement
instance ToJSVal HTMLSourceElement where
toJSVal = return . unHTMLSourceElement
instance FromJSVal HTMLSourceElement where
fromJSVal v = fmap HTMLSourceElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLSourceElement . unGObject
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)
newtype HTMLSpanElement = HTMLSpanElement { unHTMLSpanElement :: JSVal }
instance PToJSVal HTMLSpanElement where
pToJSVal = unHTMLSpanElement
instance PFromJSVal HTMLSpanElement where
pFromJSVal = HTMLSpanElement
instance ToJSVal HTMLSpanElement where
toJSVal = return . unHTMLSpanElement
instance FromJSVal HTMLSpanElement where
fromJSVal v = fmap HTMLSpanElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLSpanElement . unGObject
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)
newtype HTMLStyleElement = HTMLStyleElement { unHTMLStyleElement :: JSVal }
instance PToJSVal HTMLStyleElement where
pToJSVal = unHTMLStyleElement
instance PFromJSVal HTMLStyleElement where
pFromJSVal = HTMLStyleElement
instance ToJSVal HTMLStyleElement where
toJSVal = return . unHTMLStyleElement
instance FromJSVal HTMLStyleElement where
fromJSVal v = fmap HTMLStyleElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLStyleElement . unGObject
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)
newtype HTMLTableCaptionElement = HTMLTableCaptionElement { unHTMLTableCaptionElement :: JSVal }
instance PToJSVal HTMLTableCaptionElement where
pToJSVal = unHTMLTableCaptionElement
instance PFromJSVal HTMLTableCaptionElement where
pFromJSVal = HTMLTableCaptionElement
instance ToJSVal HTMLTableCaptionElement where
toJSVal = return . unHTMLTableCaptionElement
instance FromJSVal HTMLTableCaptionElement where
fromJSVal v = fmap HTMLTableCaptionElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLTableCaptionElement . unGObject
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)
newtype HTMLTableCellElement = HTMLTableCellElement { unHTMLTableCellElement :: JSVal }
instance PToJSVal HTMLTableCellElement where
pToJSVal = unHTMLTableCellElement
instance PFromJSVal HTMLTableCellElement where
pFromJSVal = HTMLTableCellElement
instance ToJSVal HTMLTableCellElement where
toJSVal = return . unHTMLTableCellElement
instance FromJSVal HTMLTableCellElement where
fromJSVal v = fmap HTMLTableCellElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLTableCellElement . unGObject
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)
newtype HTMLTableColElement = HTMLTableColElement { unHTMLTableColElement :: JSVal }
instance PToJSVal HTMLTableColElement where
pToJSVal = unHTMLTableColElement
instance PFromJSVal HTMLTableColElement where
pFromJSVal = HTMLTableColElement
instance ToJSVal HTMLTableColElement where
toJSVal = return . unHTMLTableColElement
instance FromJSVal HTMLTableColElement where
fromJSVal v = fmap HTMLTableColElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLTableColElement . unGObject
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)
newtype HTMLTableElement = HTMLTableElement { unHTMLTableElement :: JSVal }
instance PToJSVal HTMLTableElement where
pToJSVal = unHTMLTableElement
instance PFromJSVal HTMLTableElement where
pFromJSVal = HTMLTableElement
instance ToJSVal HTMLTableElement where
toJSVal = return . unHTMLTableElement
instance FromJSVal HTMLTableElement where
fromJSVal v = fmap HTMLTableElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLTableElement . unGObject
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)
newtype HTMLTableRowElement = HTMLTableRowElement { unHTMLTableRowElement :: JSVal }
instance PToJSVal HTMLTableRowElement where
pToJSVal = unHTMLTableRowElement
instance PFromJSVal HTMLTableRowElement where
pFromJSVal = HTMLTableRowElement
instance ToJSVal HTMLTableRowElement where
toJSVal = return . unHTMLTableRowElement
instance FromJSVal HTMLTableRowElement where
fromJSVal v = fmap HTMLTableRowElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLTableRowElement . unGObject
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)
newtype HTMLTableSectionElement = HTMLTableSectionElement { unHTMLTableSectionElement :: JSVal }
instance PToJSVal HTMLTableSectionElement where
pToJSVal = unHTMLTableSectionElement
instance PFromJSVal HTMLTableSectionElement where
pFromJSVal = HTMLTableSectionElement
instance ToJSVal HTMLTableSectionElement where
toJSVal = return . unHTMLTableSectionElement
instance FromJSVal HTMLTableSectionElement where
fromJSVal v = fmap HTMLTableSectionElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLTableSectionElement . unGObject
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)
newtype HTMLTemplateElement = HTMLTemplateElement { unHTMLTemplateElement :: JSVal }
instance PToJSVal HTMLTemplateElement where
pToJSVal = unHTMLTemplateElement
instance PFromJSVal HTMLTemplateElement where
pFromJSVal = HTMLTemplateElement
instance ToJSVal HTMLTemplateElement where
toJSVal = return . unHTMLTemplateElement
instance FromJSVal HTMLTemplateElement where
fromJSVal v = fmap HTMLTemplateElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLTemplateElement . unGObject
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)
newtype HTMLTextAreaElement = HTMLTextAreaElement { unHTMLTextAreaElement :: JSVal }
instance PToJSVal HTMLTextAreaElement where
pToJSVal = unHTMLTextAreaElement
instance PFromJSVal HTMLTextAreaElement where
pFromJSVal = HTMLTextAreaElement
instance ToJSVal HTMLTextAreaElement where
toJSVal = return . unHTMLTextAreaElement
instance FromJSVal HTMLTextAreaElement where
fromJSVal v = fmap HTMLTextAreaElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLTextAreaElement . unGObject
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)
newtype HTMLTitleElement = HTMLTitleElement { unHTMLTitleElement :: JSVal }
instance PToJSVal HTMLTitleElement where
pToJSVal = unHTMLTitleElement
instance PFromJSVal HTMLTitleElement where
pFromJSVal = HTMLTitleElement
instance ToJSVal HTMLTitleElement where
toJSVal = return . unHTMLTitleElement
instance FromJSVal HTMLTitleElement where
fromJSVal v = fmap HTMLTitleElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLTitleElement . unGObject
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)
newtype HTMLTrackElement = HTMLTrackElement { unHTMLTrackElement :: JSVal }
instance PToJSVal HTMLTrackElement where
pToJSVal = unHTMLTrackElement
instance PFromJSVal HTMLTrackElement where
pFromJSVal = HTMLTrackElement
instance ToJSVal HTMLTrackElement where
toJSVal = return . unHTMLTrackElement
instance FromJSVal HTMLTrackElement where
fromJSVal v = fmap HTMLTrackElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLTrackElement . unGObject
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)
newtype HTMLUListElement = HTMLUListElement { unHTMLUListElement :: JSVal }
instance PToJSVal HTMLUListElement where
pToJSVal = unHTMLUListElement
instance PFromJSVal HTMLUListElement where
pFromJSVal = HTMLUListElement
instance ToJSVal HTMLUListElement where
toJSVal = return . unHTMLUListElement
instance FromJSVal HTMLUListElement where
fromJSVal v = fmap HTMLUListElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLUListElement . unGObject
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)
newtype HTMLUnknownElement = HTMLUnknownElement { unHTMLUnknownElement :: JSVal }
instance PToJSVal HTMLUnknownElement where
pToJSVal = unHTMLUnknownElement
instance PFromJSVal HTMLUnknownElement where
pFromJSVal = HTMLUnknownElement
instance ToJSVal HTMLUnknownElement where
toJSVal = return . unHTMLUnknownElement
instance FromJSVal HTMLUnknownElement where
fromJSVal v = fmap HTMLUnknownElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLUnknownElement . unGObject
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)
newtype HTMLVideoElement = HTMLVideoElement { unHTMLVideoElement :: JSVal }
instance PToJSVal HTMLVideoElement where
pToJSVal = unHTMLVideoElement
instance PFromJSVal HTMLVideoElement where
pFromJSVal = HTMLVideoElement
instance ToJSVal HTMLVideoElement where
toJSVal = return . unHTMLVideoElement
instance FromJSVal HTMLVideoElement where
fromJSVal v = fmap HTMLVideoElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = HTMLVideoElement . unGObject
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)
newtype HashChangeEvent = HashChangeEvent { unHashChangeEvent :: JSVal }
instance PToJSVal HashChangeEvent where
pToJSVal = unHashChangeEvent
instance PFromJSVal HashChangeEvent where
pFromJSVal = HashChangeEvent
instance ToJSVal HashChangeEvent where
toJSVal = return . unHashChangeEvent
instance FromJSVal HashChangeEvent where
fromJSVal v = fmap HashChangeEvent <$> maybeNullOrUndefined v
instance MakeObject HashChangeEvent where
makeObject = makeObject . unHashChangeEvent
instance IsEvent HashChangeEvent
instance IsGObject HashChangeEvent where
toGObject = GObject . unHashChangeEvent
unsafeCastGObject = HashChangeEvent . unGObject
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)
newtype History = History { unHistory :: JSVal }
instance PToJSVal History where
pToJSVal = unHistory
instance PFromJSVal History where
pFromJSVal = History
instance ToJSVal History where
toJSVal = return . unHistory
instance FromJSVal History where
fromJSVal v = fmap History <$> maybeNullOrUndefined v
instance MakeObject History where
makeObject = makeObject . unHistory
instance IsGObject History where
toGObject = GObject . unHistory
unsafeCastGObject = History . unGObject
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)
newtype IDBAny = IDBAny { unIDBAny :: JSVal }
instance PToJSVal IDBAny where
pToJSVal = unIDBAny
instance PFromJSVal IDBAny where
pFromJSVal = IDBAny
instance ToJSVal IDBAny where
toJSVal = return . unIDBAny
instance FromJSVal IDBAny where
fromJSVal v = fmap IDBAny <$> maybeNullOrUndefined v
instance MakeObject IDBAny where
makeObject = makeObject . unIDBAny
instance IsGObject IDBAny where
toGObject = GObject . unIDBAny
unsafeCastGObject = IDBAny . unGObject
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)
newtype IDBCursor = IDBCursor { unIDBCursor :: JSVal }
instance PToJSVal IDBCursor where
pToJSVal = unIDBCursor
instance PFromJSVal IDBCursor where
pFromJSVal = IDBCursor
instance ToJSVal IDBCursor where
toJSVal = return . unIDBCursor
instance FromJSVal IDBCursor where
fromJSVal v = fmap IDBCursor <$> maybeNullOrUndefined v
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
unsafeCastGObject = IDBCursor . unGObject
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)
newtype IDBCursorWithValue = IDBCursorWithValue { unIDBCursorWithValue :: JSVal }
instance PToJSVal IDBCursorWithValue where
pToJSVal = unIDBCursorWithValue
instance PFromJSVal IDBCursorWithValue where
pFromJSVal = IDBCursorWithValue
instance ToJSVal IDBCursorWithValue where
toJSVal = return . unIDBCursorWithValue
instance FromJSVal IDBCursorWithValue where
fromJSVal v = fmap IDBCursorWithValue <$> maybeNullOrUndefined v
instance MakeObject IDBCursorWithValue where
makeObject = makeObject . unIDBCursorWithValue
instance IsIDBCursor IDBCursorWithValue
instance IsGObject IDBCursorWithValue where
toGObject = GObject . unIDBCursorWithValue
unsafeCastGObject = IDBCursorWithValue . unGObject
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)
newtype IDBDatabase = IDBDatabase { unIDBDatabase :: JSVal }
instance PToJSVal IDBDatabase where
pToJSVal = unIDBDatabase
instance PFromJSVal IDBDatabase where
pFromJSVal = IDBDatabase
instance ToJSVal IDBDatabase where
toJSVal = return . unIDBDatabase
instance FromJSVal IDBDatabase where
fromJSVal v = fmap IDBDatabase <$> maybeNullOrUndefined v
instance MakeObject IDBDatabase where
makeObject = makeObject . unIDBDatabase
instance IsEventTarget IDBDatabase
instance IsGObject IDBDatabase where
toGObject = GObject . unIDBDatabase
unsafeCastGObject = IDBDatabase . unGObject
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)
newtype IDBFactory = IDBFactory { unIDBFactory :: JSVal }
instance PToJSVal IDBFactory where
pToJSVal = unIDBFactory
instance PFromJSVal IDBFactory where
pFromJSVal = IDBFactory
instance ToJSVal IDBFactory where
toJSVal = return . unIDBFactory
instance FromJSVal IDBFactory where
fromJSVal v = fmap IDBFactory <$> maybeNullOrUndefined v
instance MakeObject IDBFactory where
makeObject = makeObject . unIDBFactory
instance IsGObject IDBFactory where
toGObject = GObject . unIDBFactory
unsafeCastGObject = IDBFactory . unGObject
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)
newtype IDBIndex = IDBIndex { unIDBIndex :: JSVal }
instance PToJSVal IDBIndex where
pToJSVal = unIDBIndex
instance PFromJSVal IDBIndex where
pFromJSVal = IDBIndex
instance ToJSVal IDBIndex where
toJSVal = return . unIDBIndex
instance FromJSVal IDBIndex where
fromJSVal v = fmap IDBIndex <$> maybeNullOrUndefined v
instance MakeObject IDBIndex where
makeObject = makeObject . unIDBIndex
instance IsGObject IDBIndex where
toGObject = GObject . unIDBIndex
unsafeCastGObject = IDBIndex . unGObject
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)
newtype IDBKeyRange = IDBKeyRange { unIDBKeyRange :: JSVal }
instance PToJSVal IDBKeyRange where
pToJSVal = unIDBKeyRange
instance PFromJSVal IDBKeyRange where
pFromJSVal = IDBKeyRange
instance ToJSVal IDBKeyRange where
toJSVal = return . unIDBKeyRange
instance FromJSVal IDBKeyRange where
fromJSVal v = fmap IDBKeyRange <$> maybeNullOrUndefined v
instance MakeObject IDBKeyRange where
makeObject = makeObject . unIDBKeyRange
instance IsGObject IDBKeyRange where
toGObject = GObject . unIDBKeyRange
unsafeCastGObject = IDBKeyRange . unGObject
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)
newtype IDBObjectStore = IDBObjectStore { unIDBObjectStore :: JSVal }
instance PToJSVal IDBObjectStore where
pToJSVal = unIDBObjectStore
instance PFromJSVal IDBObjectStore where
pFromJSVal = IDBObjectStore
instance ToJSVal IDBObjectStore where
toJSVal = return . unIDBObjectStore
instance FromJSVal IDBObjectStore where
fromJSVal v = fmap IDBObjectStore <$> maybeNullOrUndefined v
instance MakeObject IDBObjectStore where
makeObject = makeObject . unIDBObjectStore
instance IsGObject IDBObjectStore where
toGObject = GObject . unIDBObjectStore
unsafeCastGObject = IDBObjectStore . unGObject
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)
newtype IDBOpenDBRequest = IDBOpenDBRequest { unIDBOpenDBRequest :: JSVal }
instance PToJSVal IDBOpenDBRequest where
pToJSVal = unIDBOpenDBRequest
instance PFromJSVal IDBOpenDBRequest where
pFromJSVal = IDBOpenDBRequest
instance ToJSVal IDBOpenDBRequest where
toJSVal = return . unIDBOpenDBRequest
instance FromJSVal IDBOpenDBRequest where
fromJSVal v = fmap IDBOpenDBRequest <$> maybeNullOrUndefined v
instance MakeObject IDBOpenDBRequest where
makeObject = makeObject . unIDBOpenDBRequest
instance IsIDBRequest IDBOpenDBRequest
instance IsEventTarget IDBOpenDBRequest
instance IsGObject IDBOpenDBRequest where
toGObject = GObject . unIDBOpenDBRequest
unsafeCastGObject = IDBOpenDBRequest . unGObject
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)
newtype IDBRequest = IDBRequest { unIDBRequest :: JSVal }
instance PToJSVal IDBRequest where
pToJSVal = unIDBRequest
instance PFromJSVal IDBRequest where
pFromJSVal = IDBRequest
instance ToJSVal IDBRequest where
toJSVal = return . unIDBRequest
instance FromJSVal IDBRequest where
fromJSVal v = fmap IDBRequest <$> maybeNullOrUndefined v
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
unsafeCastGObject = IDBRequest . unGObject
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)
newtype IDBTransaction = IDBTransaction { unIDBTransaction :: JSVal }
instance PToJSVal IDBTransaction where
pToJSVal = unIDBTransaction
instance PFromJSVal IDBTransaction where
pFromJSVal = IDBTransaction
instance ToJSVal IDBTransaction where
toJSVal = return . unIDBTransaction
instance FromJSVal IDBTransaction where
fromJSVal v = fmap IDBTransaction <$> maybeNullOrUndefined v
instance MakeObject IDBTransaction where
makeObject = makeObject . unIDBTransaction
instance IsEventTarget IDBTransaction
instance IsGObject IDBTransaction where
toGObject = GObject . unIDBTransaction
unsafeCastGObject = IDBTransaction . unGObject
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)
newtype IDBVersionChangeEvent = IDBVersionChangeEvent { unIDBVersionChangeEvent :: JSVal }
instance PToJSVal IDBVersionChangeEvent where
pToJSVal = unIDBVersionChangeEvent
instance PFromJSVal IDBVersionChangeEvent where
pFromJSVal = IDBVersionChangeEvent
instance ToJSVal IDBVersionChangeEvent where
toJSVal = return . unIDBVersionChangeEvent
instance FromJSVal IDBVersionChangeEvent where
fromJSVal v = fmap IDBVersionChangeEvent <$> maybeNullOrUndefined v
instance MakeObject IDBVersionChangeEvent where
makeObject = makeObject . unIDBVersionChangeEvent
instance IsEvent IDBVersionChangeEvent
instance IsGObject IDBVersionChangeEvent where
toGObject = GObject . unIDBVersionChangeEvent
unsafeCastGObject = IDBVersionChangeEvent . unGObject
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)
newtype ImageData = ImageData { unImageData :: JSVal }
instance PToJSVal ImageData where
pToJSVal = unImageData
instance PFromJSVal ImageData where
pFromJSVal = ImageData
instance ToJSVal ImageData where
toJSVal = return . unImageData
instance FromJSVal ImageData where
fromJSVal v = fmap ImageData <$> maybeNullOrUndefined v
instance MakeObject ImageData where
makeObject = makeObject . unImageData
instance IsGObject ImageData where
toGObject = GObject . unImageData
unsafeCastGObject = ImageData . unGObject
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)
newtype InspectorFrontendHost = InspectorFrontendHost { unInspectorFrontendHost :: JSVal }
instance PToJSVal InspectorFrontendHost where
pToJSVal = unInspectorFrontendHost
instance PFromJSVal InspectorFrontendHost where
pFromJSVal = InspectorFrontendHost
instance ToJSVal InspectorFrontendHost where
toJSVal = return . unInspectorFrontendHost
instance FromJSVal InspectorFrontendHost where
fromJSVal v = fmap InspectorFrontendHost <$> maybeNullOrUndefined v
instance MakeObject InspectorFrontendHost where
makeObject = makeObject . unInspectorFrontendHost
instance IsGObject InspectorFrontendHost where
toGObject = GObject . unInspectorFrontendHost
unsafeCastGObject = InspectorFrontendHost . unGObject
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)
newtype InternalSettings = InternalSettings { unInternalSettings :: JSVal }
instance PToJSVal InternalSettings where
pToJSVal = unInternalSettings
instance PFromJSVal InternalSettings where
pFromJSVal = InternalSettings
instance ToJSVal InternalSettings where
toJSVal = return . unInternalSettings
instance FromJSVal InternalSettings where
fromJSVal v = fmap InternalSettings <$> maybeNullOrUndefined v
instance MakeObject InternalSettings where
makeObject = makeObject . unInternalSettings
instance IsGObject InternalSettings where
toGObject = GObject . unInternalSettings
unsafeCastGObject = InternalSettings . unGObject
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)
newtype Internals = Internals { unInternals :: JSVal }
instance PToJSVal Internals where
pToJSVal = unInternals
instance PFromJSVal Internals where
pFromJSVal = Internals
instance ToJSVal Internals where
toJSVal = return . unInternals
instance FromJSVal Internals where
fromJSVal v = fmap Internals <$> maybeNullOrUndefined v
instance MakeObject Internals where
makeObject = makeObject . unInternals
instance IsGObject Internals where
toGObject = GObject . unInternals
unsafeCastGObject = Internals . unGObject
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)
newtype KeyboardEvent = KeyboardEvent { unKeyboardEvent :: JSVal }
instance PToJSVal KeyboardEvent where
pToJSVal = unKeyboardEvent
instance PFromJSVal KeyboardEvent where
pFromJSVal = KeyboardEvent
instance ToJSVal KeyboardEvent where
toJSVal = return . unKeyboardEvent
instance FromJSVal KeyboardEvent where
fromJSVal v = fmap KeyboardEvent <$> maybeNullOrUndefined v
instance MakeObject KeyboardEvent where
makeObject = makeObject . unKeyboardEvent
instance IsUIEvent KeyboardEvent
instance IsEvent KeyboardEvent
instance IsGObject KeyboardEvent where
toGObject = GObject . unKeyboardEvent
unsafeCastGObject = KeyboardEvent . unGObject
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)
newtype Location = Location { unLocation :: JSVal }
instance PToJSVal Location where
pToJSVal = unLocation
instance PFromJSVal Location where
pFromJSVal = Location
instance ToJSVal Location where
toJSVal = return . unLocation
instance FromJSVal Location where
fromJSVal v = fmap Location <$> maybeNullOrUndefined v
instance MakeObject Location where
makeObject = makeObject . unLocation
instance IsGObject Location where
toGObject = GObject . unLocation
unsafeCastGObject = Location . unGObject
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)
newtype MallocStatistics = MallocStatistics { unMallocStatistics :: JSVal }
instance PToJSVal MallocStatistics where
pToJSVal = unMallocStatistics
instance PFromJSVal MallocStatistics where
pFromJSVal = MallocStatistics
instance ToJSVal MallocStatistics where
toJSVal = return . unMallocStatistics
instance FromJSVal MallocStatistics where
fromJSVal v = fmap MallocStatistics <$> maybeNullOrUndefined v
instance MakeObject MallocStatistics where
makeObject = makeObject . unMallocStatistics
instance IsGObject MallocStatistics where
toGObject = GObject . unMallocStatistics
unsafeCastGObject = MallocStatistics . unGObject
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)
newtype MediaController = MediaController { unMediaController :: JSVal }
instance PToJSVal MediaController where
pToJSVal = unMediaController
instance PFromJSVal MediaController where
pFromJSVal = MediaController
instance ToJSVal MediaController where
toJSVal = return . unMediaController
instance FromJSVal MediaController where
fromJSVal v = fmap MediaController <$> maybeNullOrUndefined v
instance MakeObject MediaController where
makeObject = makeObject . unMediaController
instance IsEventTarget MediaController
instance IsGObject MediaController where
toGObject = GObject . unMediaController
unsafeCastGObject = MediaController . unGObject
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)
newtype MediaControlsHost = MediaControlsHost { unMediaControlsHost :: JSVal }
instance PToJSVal MediaControlsHost where
pToJSVal = unMediaControlsHost
instance PFromJSVal MediaControlsHost where
pFromJSVal = MediaControlsHost
instance ToJSVal MediaControlsHost where
toJSVal = return . unMediaControlsHost
instance FromJSVal MediaControlsHost where
fromJSVal v = fmap MediaControlsHost <$> maybeNullOrUndefined v
instance MakeObject MediaControlsHost where
makeObject = makeObject . unMediaControlsHost
instance IsGObject MediaControlsHost where
toGObject = GObject . unMediaControlsHost
unsafeCastGObject = MediaControlsHost . unGObject
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)
newtype MediaElementAudioSourceNode = MediaElementAudioSourceNode { unMediaElementAudioSourceNode :: JSVal }
instance PToJSVal MediaElementAudioSourceNode where
pToJSVal = unMediaElementAudioSourceNode
instance PFromJSVal MediaElementAudioSourceNode where
pFromJSVal = MediaElementAudioSourceNode
instance ToJSVal MediaElementAudioSourceNode where
toJSVal = return . unMediaElementAudioSourceNode
instance FromJSVal MediaElementAudioSourceNode where
fromJSVal v = fmap MediaElementAudioSourceNode <$> maybeNullOrUndefined v
instance MakeObject MediaElementAudioSourceNode where
makeObject = makeObject . unMediaElementAudioSourceNode
instance IsAudioNode MediaElementAudioSourceNode
instance IsEventTarget MediaElementAudioSourceNode
instance IsGObject MediaElementAudioSourceNode where
toGObject = GObject . unMediaElementAudioSourceNode
unsafeCastGObject = MediaElementAudioSourceNode . unGObject
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)
newtype MediaError = MediaError { unMediaError :: JSVal }
instance PToJSVal MediaError where
pToJSVal = unMediaError
instance PFromJSVal MediaError where
pFromJSVal = MediaError
instance ToJSVal MediaError where
toJSVal = return . unMediaError
instance FromJSVal MediaError where
fromJSVal v = fmap MediaError <$> maybeNullOrUndefined v
instance MakeObject MediaError where
makeObject = makeObject . unMediaError
instance IsGObject MediaError where
toGObject = GObject . unMediaError
unsafeCastGObject = MediaError . unGObject
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)
newtype MediaKeyError = MediaKeyError { unMediaKeyError :: JSVal }
instance PToJSVal MediaKeyError where
pToJSVal = unMediaKeyError
instance PFromJSVal MediaKeyError where
pFromJSVal = MediaKeyError
instance ToJSVal MediaKeyError where
toJSVal = return . unMediaKeyError
instance FromJSVal MediaKeyError where
fromJSVal v = fmap MediaKeyError <$> maybeNullOrUndefined v
instance MakeObject MediaKeyError where
makeObject = makeObject . unMediaKeyError
instance IsGObject MediaKeyError where
toGObject = GObject . unMediaKeyError
unsafeCastGObject = MediaKeyError . unGObject
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)
newtype MediaKeyEvent = MediaKeyEvent { unMediaKeyEvent :: JSVal }
instance PToJSVal MediaKeyEvent where
pToJSVal = unMediaKeyEvent
instance PFromJSVal MediaKeyEvent where
pFromJSVal = MediaKeyEvent
instance ToJSVal MediaKeyEvent where
toJSVal = return . unMediaKeyEvent
instance FromJSVal MediaKeyEvent where
fromJSVal v = fmap MediaKeyEvent <$> maybeNullOrUndefined v
instance MakeObject MediaKeyEvent where
makeObject = makeObject . unMediaKeyEvent
instance IsEvent MediaKeyEvent
instance IsGObject MediaKeyEvent where
toGObject = GObject . unMediaKeyEvent
unsafeCastGObject = MediaKeyEvent . unGObject
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)
newtype MediaKeyMessageEvent = MediaKeyMessageEvent { unMediaKeyMessageEvent :: JSVal }
instance PToJSVal MediaKeyMessageEvent where
pToJSVal = unMediaKeyMessageEvent
instance PFromJSVal MediaKeyMessageEvent where
pFromJSVal = MediaKeyMessageEvent
instance ToJSVal MediaKeyMessageEvent where
toJSVal = return . unMediaKeyMessageEvent
instance FromJSVal MediaKeyMessageEvent where
fromJSVal v = fmap MediaKeyMessageEvent <$> maybeNullOrUndefined v
instance MakeObject MediaKeyMessageEvent where
makeObject = makeObject . unMediaKeyMessageEvent
instance IsEvent MediaKeyMessageEvent
instance IsGObject MediaKeyMessageEvent where
toGObject = GObject . unMediaKeyMessageEvent
unsafeCastGObject = MediaKeyMessageEvent . unGObject
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)
newtype MediaKeyNeededEvent = MediaKeyNeededEvent { unMediaKeyNeededEvent :: JSVal }
instance PToJSVal MediaKeyNeededEvent where
pToJSVal = unMediaKeyNeededEvent
instance PFromJSVal MediaKeyNeededEvent where
pFromJSVal = MediaKeyNeededEvent
instance ToJSVal MediaKeyNeededEvent where
toJSVal = return . unMediaKeyNeededEvent
instance FromJSVal MediaKeyNeededEvent where
fromJSVal v = fmap MediaKeyNeededEvent <$> maybeNullOrUndefined v
instance MakeObject MediaKeyNeededEvent where
makeObject = makeObject . unMediaKeyNeededEvent
instance IsEvent MediaKeyNeededEvent
instance IsGObject MediaKeyNeededEvent where
toGObject = GObject . unMediaKeyNeededEvent
unsafeCastGObject = MediaKeyNeededEvent . unGObject
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)
newtype MediaKeySession = MediaKeySession { unMediaKeySession :: JSVal }
instance PToJSVal MediaKeySession where
pToJSVal = unMediaKeySession
instance PFromJSVal MediaKeySession where
pFromJSVal = MediaKeySession
instance ToJSVal MediaKeySession where
toJSVal = return . unMediaKeySession
instance FromJSVal MediaKeySession where
fromJSVal v = fmap MediaKeySession <$> maybeNullOrUndefined v
instance MakeObject MediaKeySession where
makeObject = makeObject . unMediaKeySession
instance IsEventTarget MediaKeySession
instance IsGObject MediaKeySession where
toGObject = GObject . unMediaKeySession
unsafeCastGObject = MediaKeySession . unGObject
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)
newtype MediaKeys = MediaKeys { unMediaKeys :: JSVal }
instance PToJSVal MediaKeys where
pToJSVal = unMediaKeys
instance PFromJSVal MediaKeys where
pFromJSVal = MediaKeys
instance ToJSVal MediaKeys where
toJSVal = return . unMediaKeys
instance FromJSVal MediaKeys where
fromJSVal v = fmap MediaKeys <$> maybeNullOrUndefined v
instance MakeObject MediaKeys where
makeObject = makeObject . unMediaKeys
instance IsGObject MediaKeys where
toGObject = GObject . unMediaKeys
unsafeCastGObject = MediaKeys . unGObject
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)
newtype MediaList = MediaList { unMediaList :: JSVal }
instance PToJSVal MediaList where
pToJSVal = unMediaList
instance PFromJSVal MediaList where
pFromJSVal = MediaList
instance ToJSVal MediaList where
toJSVal = return . unMediaList
instance FromJSVal MediaList where
fromJSVal v = fmap MediaList <$> maybeNullOrUndefined v
instance MakeObject MediaList where
makeObject = makeObject . unMediaList
instance IsGObject MediaList where
toGObject = GObject . unMediaList
unsafeCastGObject = MediaList . unGObject
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)
newtype MediaQueryList = MediaQueryList { unMediaQueryList :: JSVal }
instance PToJSVal MediaQueryList where
pToJSVal = unMediaQueryList
instance PFromJSVal MediaQueryList where
pFromJSVal = MediaQueryList
instance ToJSVal MediaQueryList where
toJSVal = return . unMediaQueryList
instance FromJSVal MediaQueryList where
fromJSVal v = fmap MediaQueryList <$> maybeNullOrUndefined v
instance MakeObject MediaQueryList where
makeObject = makeObject . unMediaQueryList
instance IsGObject MediaQueryList where
toGObject = GObject . unMediaQueryList
unsafeCastGObject = MediaQueryList . unGObject
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)
newtype MediaSource = MediaSource { unMediaSource :: JSVal }
instance PToJSVal MediaSource where
pToJSVal = unMediaSource
instance PFromJSVal MediaSource where
pFromJSVal = MediaSource
instance ToJSVal MediaSource where
toJSVal = return . unMediaSource
instance FromJSVal MediaSource where
fromJSVal v = fmap MediaSource <$> maybeNullOrUndefined v
instance MakeObject MediaSource where
makeObject = makeObject . unMediaSource
instance IsEventTarget MediaSource
instance IsGObject MediaSource where
toGObject = GObject . unMediaSource
unsafeCastGObject = MediaSource . unGObject
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)
newtype MediaSourceStates = MediaSourceStates { unMediaSourceStates :: JSVal }
instance PToJSVal MediaSourceStates where
pToJSVal = unMediaSourceStates
instance PFromJSVal MediaSourceStates where
pFromJSVal = MediaSourceStates
instance ToJSVal MediaSourceStates where
toJSVal = return . unMediaSourceStates
instance FromJSVal MediaSourceStates where
fromJSVal v = fmap MediaSourceStates <$> maybeNullOrUndefined v
instance MakeObject MediaSourceStates where
makeObject = makeObject . unMediaSourceStates
instance IsGObject MediaSourceStates where
toGObject = GObject . unMediaSourceStates
unsafeCastGObject = MediaSourceStates . unGObject
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)
newtype MediaStream = MediaStream { unMediaStream :: JSVal }
instance PToJSVal MediaStream where
pToJSVal = unMediaStream
instance PFromJSVal MediaStream where
pFromJSVal = MediaStream
instance ToJSVal MediaStream where
toJSVal = return . unMediaStream
instance FromJSVal MediaStream where
fromJSVal v = fmap MediaStream <$> maybeNullOrUndefined v
instance MakeObject MediaStream where
makeObject = makeObject . unMediaStream
instance IsEventTarget MediaStream
instance IsGObject MediaStream where
toGObject = GObject . unMediaStream
unsafeCastGObject = MediaStream . unGObject
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)
newtype MediaStreamAudioDestinationNode = MediaStreamAudioDestinationNode { unMediaStreamAudioDestinationNode :: JSVal }
instance PToJSVal MediaStreamAudioDestinationNode where
pToJSVal = unMediaStreamAudioDestinationNode
instance PFromJSVal MediaStreamAudioDestinationNode where
pFromJSVal = MediaStreamAudioDestinationNode
instance ToJSVal MediaStreamAudioDestinationNode where
toJSVal = return . unMediaStreamAudioDestinationNode
instance FromJSVal MediaStreamAudioDestinationNode where
fromJSVal v = fmap MediaStreamAudioDestinationNode <$> maybeNullOrUndefined v
instance MakeObject MediaStreamAudioDestinationNode where
makeObject = makeObject . unMediaStreamAudioDestinationNode
instance IsAudioNode MediaStreamAudioDestinationNode
instance IsEventTarget MediaStreamAudioDestinationNode
instance IsGObject MediaStreamAudioDestinationNode where
toGObject = GObject . unMediaStreamAudioDestinationNode
unsafeCastGObject = MediaStreamAudioDestinationNode . unGObject
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)
newtype MediaStreamAudioSourceNode = MediaStreamAudioSourceNode { unMediaStreamAudioSourceNode :: JSVal }
instance PToJSVal MediaStreamAudioSourceNode where
pToJSVal = unMediaStreamAudioSourceNode
instance PFromJSVal MediaStreamAudioSourceNode where
pFromJSVal = MediaStreamAudioSourceNode
instance ToJSVal MediaStreamAudioSourceNode where
toJSVal = return . unMediaStreamAudioSourceNode
instance FromJSVal MediaStreamAudioSourceNode where
fromJSVal v = fmap MediaStreamAudioSourceNode <$> maybeNullOrUndefined v
instance MakeObject MediaStreamAudioSourceNode where
makeObject = makeObject . unMediaStreamAudioSourceNode
instance IsAudioNode MediaStreamAudioSourceNode
instance IsEventTarget MediaStreamAudioSourceNode
instance IsGObject MediaStreamAudioSourceNode where
toGObject = GObject . unMediaStreamAudioSourceNode
unsafeCastGObject = MediaStreamAudioSourceNode . unGObject
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)
newtype MediaStreamCapabilities = MediaStreamCapabilities { unMediaStreamCapabilities :: JSVal }
instance PToJSVal MediaStreamCapabilities where
pToJSVal = unMediaStreamCapabilities
instance PFromJSVal MediaStreamCapabilities where
pFromJSVal = MediaStreamCapabilities
instance ToJSVal MediaStreamCapabilities where
toJSVal = return . unMediaStreamCapabilities
instance FromJSVal MediaStreamCapabilities where
fromJSVal v = fmap MediaStreamCapabilities <$> maybeNullOrUndefined v
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
unsafeCastGObject = MediaStreamCapabilities . unGObject
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)
newtype MediaStreamEvent = MediaStreamEvent { unMediaStreamEvent :: JSVal }
instance PToJSVal MediaStreamEvent where
pToJSVal = unMediaStreamEvent
instance PFromJSVal MediaStreamEvent where
pFromJSVal = MediaStreamEvent
instance ToJSVal MediaStreamEvent where
toJSVal = return . unMediaStreamEvent
instance FromJSVal MediaStreamEvent where
fromJSVal v = fmap MediaStreamEvent <$> maybeNullOrUndefined v
instance MakeObject MediaStreamEvent where
makeObject = makeObject . unMediaStreamEvent
instance IsEvent MediaStreamEvent
instance IsGObject MediaStreamEvent where
toGObject = GObject . unMediaStreamEvent
unsafeCastGObject = MediaStreamEvent . unGObject
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)
newtype MediaStreamTrack = MediaStreamTrack { unMediaStreamTrack :: JSVal }
instance PToJSVal MediaStreamTrack where
pToJSVal = unMediaStreamTrack
instance PFromJSVal MediaStreamTrack where
pFromJSVal = MediaStreamTrack
instance ToJSVal MediaStreamTrack where
toJSVal = return . unMediaStreamTrack
instance FromJSVal MediaStreamTrack where
fromJSVal v = fmap MediaStreamTrack <$> maybeNullOrUndefined v
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
unsafeCastGObject = MediaStreamTrack . unGObject
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)
newtype MediaStreamTrackEvent = MediaStreamTrackEvent { unMediaStreamTrackEvent :: JSVal }
instance PToJSVal MediaStreamTrackEvent where
pToJSVal = unMediaStreamTrackEvent
instance PFromJSVal MediaStreamTrackEvent where
pFromJSVal = MediaStreamTrackEvent
instance ToJSVal MediaStreamTrackEvent where
toJSVal = return . unMediaStreamTrackEvent
instance FromJSVal MediaStreamTrackEvent where
fromJSVal v = fmap MediaStreamTrackEvent <$> maybeNullOrUndefined v
instance MakeObject MediaStreamTrackEvent where
makeObject = makeObject . unMediaStreamTrackEvent
instance IsEvent MediaStreamTrackEvent
instance IsGObject MediaStreamTrackEvent where
toGObject = GObject . unMediaStreamTrackEvent
unsafeCastGObject = MediaStreamTrackEvent . unGObject
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)
newtype MediaTrackConstraint = MediaTrackConstraint { unMediaTrackConstraint :: JSVal }
instance PToJSVal MediaTrackConstraint where
pToJSVal = unMediaTrackConstraint
instance PFromJSVal MediaTrackConstraint where
pFromJSVal = MediaTrackConstraint
instance ToJSVal MediaTrackConstraint where
toJSVal = return . unMediaTrackConstraint
instance FromJSVal MediaTrackConstraint where
fromJSVal v = fmap MediaTrackConstraint <$> maybeNullOrUndefined v
instance MakeObject MediaTrackConstraint where
makeObject = makeObject . unMediaTrackConstraint
instance IsGObject MediaTrackConstraint where
toGObject = GObject . unMediaTrackConstraint
unsafeCastGObject = MediaTrackConstraint . unGObject
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)
newtype MediaTrackConstraintSet = MediaTrackConstraintSet { unMediaTrackConstraintSet :: JSVal }
instance PToJSVal MediaTrackConstraintSet where
pToJSVal = unMediaTrackConstraintSet
instance PFromJSVal MediaTrackConstraintSet where
pFromJSVal = MediaTrackConstraintSet
instance ToJSVal MediaTrackConstraintSet where
toJSVal = return . unMediaTrackConstraintSet
instance FromJSVal MediaTrackConstraintSet where
fromJSVal v = fmap MediaTrackConstraintSet <$> maybeNullOrUndefined v
instance MakeObject MediaTrackConstraintSet where
makeObject = makeObject . unMediaTrackConstraintSet
instance IsGObject MediaTrackConstraintSet where
toGObject = GObject . unMediaTrackConstraintSet
unsafeCastGObject = MediaTrackConstraintSet . unGObject
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)
newtype MediaTrackConstraints = MediaTrackConstraints { unMediaTrackConstraints :: JSVal }
instance PToJSVal MediaTrackConstraints where
pToJSVal = unMediaTrackConstraints
instance PFromJSVal MediaTrackConstraints where
pFromJSVal = MediaTrackConstraints
instance ToJSVal MediaTrackConstraints where
toJSVal = return . unMediaTrackConstraints
instance FromJSVal MediaTrackConstraints where
fromJSVal v = fmap MediaTrackConstraints <$> maybeNullOrUndefined v
instance MakeObject MediaTrackConstraints where
makeObject = makeObject . unMediaTrackConstraints
instance IsGObject MediaTrackConstraints where
toGObject = GObject . unMediaTrackConstraints
unsafeCastGObject = MediaTrackConstraints . unGObject
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)
newtype MemoryInfo = MemoryInfo { unMemoryInfo :: JSVal }
instance PToJSVal MemoryInfo where
pToJSVal = unMemoryInfo
instance PFromJSVal MemoryInfo where
pFromJSVal = MemoryInfo
instance ToJSVal MemoryInfo where
toJSVal = return . unMemoryInfo
instance FromJSVal MemoryInfo where
fromJSVal v = fmap MemoryInfo <$> maybeNullOrUndefined v
instance MakeObject MemoryInfo where
makeObject = makeObject . unMemoryInfo
instance IsGObject MemoryInfo where
toGObject = GObject . unMemoryInfo
unsafeCastGObject = MemoryInfo . unGObject
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)
newtype MessageChannel = MessageChannel { unMessageChannel :: JSVal }
instance PToJSVal MessageChannel where
pToJSVal = unMessageChannel
instance PFromJSVal MessageChannel where
pFromJSVal = MessageChannel
instance ToJSVal MessageChannel where
toJSVal = return . unMessageChannel
instance FromJSVal MessageChannel where
fromJSVal v = fmap MessageChannel <$> maybeNullOrUndefined v
instance MakeObject MessageChannel where
makeObject = makeObject . unMessageChannel
instance IsGObject MessageChannel where
toGObject = GObject . unMessageChannel
unsafeCastGObject = MessageChannel . unGObject
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)
newtype MessageEvent = MessageEvent { unMessageEvent :: JSVal }
instance PToJSVal MessageEvent where
pToJSVal = unMessageEvent
instance PFromJSVal MessageEvent where
pFromJSVal = MessageEvent
instance ToJSVal MessageEvent where
toJSVal = return . unMessageEvent
instance FromJSVal MessageEvent where
fromJSVal v = fmap MessageEvent <$> maybeNullOrUndefined v
instance MakeObject MessageEvent where
makeObject = makeObject . unMessageEvent
instance IsEvent MessageEvent
instance IsGObject MessageEvent where
toGObject = GObject . unMessageEvent
unsafeCastGObject = MessageEvent . unGObject
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)
newtype MessagePort = MessagePort { unMessagePort :: JSVal }
instance PToJSVal MessagePort where
pToJSVal = unMessagePort
instance PFromJSVal MessagePort where
pFromJSVal = MessagePort
instance ToJSVal MessagePort where
toJSVal = return . unMessagePort
instance FromJSVal MessagePort where
fromJSVal v = fmap MessagePort <$> maybeNullOrUndefined v
instance MakeObject MessagePort where
makeObject = makeObject . unMessagePort
instance IsEventTarget MessagePort
instance IsGObject MessagePort where
toGObject = GObject . unMessagePort
unsafeCastGObject = MessagePort . unGObject
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)
newtype MimeType = MimeType { unMimeType :: JSVal }
instance PToJSVal MimeType where
pToJSVal = unMimeType
instance PFromJSVal MimeType where
pFromJSVal = MimeType
instance ToJSVal MimeType where
toJSVal = return . unMimeType
instance FromJSVal MimeType where
fromJSVal v = fmap MimeType <$> maybeNullOrUndefined v
instance MakeObject MimeType where
makeObject = makeObject . unMimeType
instance IsGObject MimeType where
toGObject = GObject . unMimeType
unsafeCastGObject = MimeType . unGObject
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)
newtype MimeTypeArray = MimeTypeArray { unMimeTypeArray :: JSVal }
instance PToJSVal MimeTypeArray where
pToJSVal = unMimeTypeArray
instance PFromJSVal MimeTypeArray where
pFromJSVal = MimeTypeArray
instance ToJSVal MimeTypeArray where
toJSVal = return . unMimeTypeArray
instance FromJSVal MimeTypeArray where
fromJSVal v = fmap MimeTypeArray <$> maybeNullOrUndefined v
instance MakeObject MimeTypeArray where
makeObject = makeObject . unMimeTypeArray
instance IsGObject MimeTypeArray where
toGObject = GObject . unMimeTypeArray
unsafeCastGObject = MimeTypeArray . unGObject
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)
newtype MouseEvent = MouseEvent { unMouseEvent :: JSVal }
instance PToJSVal MouseEvent where
pToJSVal = unMouseEvent
instance PFromJSVal MouseEvent where
pFromJSVal = MouseEvent
instance ToJSVal MouseEvent where
toJSVal = return . unMouseEvent
instance FromJSVal MouseEvent where
fromJSVal v = fmap MouseEvent <$> maybeNullOrUndefined v
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
unsafeCastGObject = MouseEvent . unGObject
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)
newtype MutationEvent = MutationEvent { unMutationEvent :: JSVal }
instance PToJSVal MutationEvent where
pToJSVal = unMutationEvent
instance PFromJSVal MutationEvent where
pFromJSVal = MutationEvent
instance ToJSVal MutationEvent where
toJSVal = return . unMutationEvent
instance FromJSVal MutationEvent where
fromJSVal v = fmap MutationEvent <$> maybeNullOrUndefined v
instance MakeObject MutationEvent where
makeObject = makeObject . unMutationEvent
instance IsEvent MutationEvent
instance IsGObject MutationEvent where
toGObject = GObject . unMutationEvent
unsafeCastGObject = MutationEvent . unGObject
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)
newtype MutationObserver = MutationObserver { unMutationObserver :: JSVal }
instance PToJSVal MutationObserver where
pToJSVal = unMutationObserver
instance PFromJSVal MutationObserver where
pFromJSVal = MutationObserver
instance ToJSVal MutationObserver where
toJSVal = return . unMutationObserver
instance FromJSVal MutationObserver where
fromJSVal v = fmap MutationObserver <$> maybeNullOrUndefined v
instance MakeObject MutationObserver where
makeObject = makeObject . unMutationObserver
instance IsGObject MutationObserver where
toGObject = GObject . unMutationObserver
unsafeCastGObject = MutationObserver . unGObject
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)
newtype MutationRecord = MutationRecord { unMutationRecord :: JSVal }
instance PToJSVal MutationRecord where
pToJSVal = unMutationRecord
instance PFromJSVal MutationRecord where
pFromJSVal = MutationRecord
instance ToJSVal MutationRecord where
toJSVal = return . unMutationRecord
instance FromJSVal MutationRecord where
fromJSVal v = fmap MutationRecord <$> maybeNullOrUndefined v
instance MakeObject MutationRecord where
makeObject = makeObject . unMutationRecord
instance IsGObject MutationRecord where
toGObject = GObject . unMutationRecord
unsafeCastGObject = MutationRecord . unGObject
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)
newtype NamedNodeMap = NamedNodeMap { unNamedNodeMap :: JSVal }
instance PToJSVal NamedNodeMap where
pToJSVal = unNamedNodeMap
instance PFromJSVal NamedNodeMap where
pFromJSVal = NamedNodeMap
instance ToJSVal NamedNodeMap where
toJSVal = return . unNamedNodeMap
instance FromJSVal NamedNodeMap where
fromJSVal v = fmap NamedNodeMap <$> maybeNullOrUndefined v
instance MakeObject NamedNodeMap where
makeObject = makeObject . unNamedNodeMap
instance IsGObject NamedNodeMap where
toGObject = GObject . unNamedNodeMap
unsafeCastGObject = NamedNodeMap . unGObject
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)
newtype Navigator = Navigator { unNavigator :: JSVal }
instance PToJSVal Navigator where
pToJSVal = unNavigator
instance PFromJSVal Navigator where
pFromJSVal = Navigator
instance ToJSVal Navigator where
toJSVal = return . unNavigator
instance FromJSVal Navigator where
fromJSVal v = fmap Navigator <$> maybeNullOrUndefined v
instance MakeObject Navigator where
makeObject = makeObject . unNavigator
instance IsGObject Navigator where
toGObject = GObject . unNavigator
unsafeCastGObject = Navigator . unGObject
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)
newtype NavigatorUserMediaError = NavigatorUserMediaError { unNavigatorUserMediaError :: JSVal }
instance PToJSVal NavigatorUserMediaError where
pToJSVal = unNavigatorUserMediaError
instance PFromJSVal NavigatorUserMediaError where
pFromJSVal = NavigatorUserMediaError
instance ToJSVal NavigatorUserMediaError where
toJSVal = return . unNavigatorUserMediaError
instance FromJSVal NavigatorUserMediaError where
fromJSVal v = fmap NavigatorUserMediaError <$> maybeNullOrUndefined v
instance MakeObject NavigatorUserMediaError where
makeObject = makeObject . unNavigatorUserMediaError
instance IsDOMError NavigatorUserMediaError
instance IsGObject NavigatorUserMediaError where
toGObject = GObject . unNavigatorUserMediaError
unsafeCastGObject = NavigatorUserMediaError . unGObject
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)
newtype Node = Node { unNode :: JSVal }
instance PToJSVal Node where
pToJSVal = unNode
instance PFromJSVal Node where
pFromJSVal = Node
instance ToJSVal Node where
toJSVal = return . unNode
instance FromJSVal Node where
fromJSVal v = fmap Node <$> maybeNullOrUndefined v
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
unsafeCastGObject = Node . unGObject
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)
newtype NodeFilter = NodeFilter { unNodeFilter :: JSVal }
instance PToJSVal NodeFilter where
pToJSVal = unNodeFilter
instance PFromJSVal NodeFilter where
pFromJSVal = NodeFilter
instance ToJSVal NodeFilter where
toJSVal = return . unNodeFilter
instance FromJSVal NodeFilter where
fromJSVal v = fmap NodeFilter <$> maybeNullOrUndefined v
instance MakeObject NodeFilter where
makeObject = makeObject . unNodeFilter
instance IsGObject NodeFilter where
toGObject = GObject . unNodeFilter
unsafeCastGObject = NodeFilter . unGObject
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)
newtype NodeIterator = NodeIterator { unNodeIterator :: JSVal }
instance PToJSVal NodeIterator where
pToJSVal = unNodeIterator
instance PFromJSVal NodeIterator where
pFromJSVal = NodeIterator
instance ToJSVal NodeIterator where
toJSVal = return . unNodeIterator
instance FromJSVal NodeIterator where
fromJSVal v = fmap NodeIterator <$> maybeNullOrUndefined v
instance MakeObject NodeIterator where
makeObject = makeObject . unNodeIterator
instance IsGObject NodeIterator where
toGObject = GObject . unNodeIterator
unsafeCastGObject = NodeIterator . unGObject
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)
newtype NodeList = NodeList { unNodeList :: JSVal }
instance PToJSVal NodeList where
pToJSVal = unNodeList
instance PFromJSVal NodeList where
pFromJSVal = NodeList
instance ToJSVal NodeList where
toJSVal = return . unNodeList
instance FromJSVal NodeList where
fromJSVal v = fmap NodeList <$> maybeNullOrUndefined v
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
unsafeCastGObject = NodeList . unGObject
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)
newtype Notification = Notification { unNotification :: JSVal }
instance PToJSVal Notification where
pToJSVal = unNotification
instance PFromJSVal Notification where
pFromJSVal = Notification
instance ToJSVal Notification where
toJSVal = return . unNotification
instance FromJSVal Notification where
fromJSVal v = fmap Notification <$> maybeNullOrUndefined v
instance MakeObject Notification where
makeObject = makeObject . unNotification
instance IsEventTarget Notification
instance IsGObject Notification where
toGObject = GObject . unNotification
unsafeCastGObject = Notification . unGObject
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)
newtype NotificationCenter = NotificationCenter { unNotificationCenter :: JSVal }
instance PToJSVal NotificationCenter where
pToJSVal = unNotificationCenter
instance PFromJSVal NotificationCenter where
pFromJSVal = NotificationCenter
instance ToJSVal NotificationCenter where
toJSVal = return . unNotificationCenter
instance FromJSVal NotificationCenter where
fromJSVal v = fmap NotificationCenter <$> maybeNullOrUndefined v
instance MakeObject NotificationCenter where
makeObject = makeObject . unNotificationCenter
instance IsGObject NotificationCenter where
toGObject = GObject . unNotificationCenter
unsafeCastGObject = NotificationCenter . unGObject
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)
newtype OESElementIndexUint = OESElementIndexUint { unOESElementIndexUint :: JSVal }
instance PToJSVal OESElementIndexUint where
pToJSVal = unOESElementIndexUint
instance PFromJSVal OESElementIndexUint where
pFromJSVal = OESElementIndexUint
instance ToJSVal OESElementIndexUint where
toJSVal = return . unOESElementIndexUint
instance FromJSVal OESElementIndexUint where
fromJSVal v = fmap OESElementIndexUint <$> maybeNullOrUndefined v
instance MakeObject OESElementIndexUint where
makeObject = makeObject . unOESElementIndexUint
instance IsGObject OESElementIndexUint where
toGObject = GObject . unOESElementIndexUint
unsafeCastGObject = OESElementIndexUint . unGObject
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)
newtype OESStandardDerivatives = OESStandardDerivatives { unOESStandardDerivatives :: JSVal }
instance PToJSVal OESStandardDerivatives where
pToJSVal = unOESStandardDerivatives
instance PFromJSVal OESStandardDerivatives where
pFromJSVal = OESStandardDerivatives
instance ToJSVal OESStandardDerivatives where
toJSVal = return . unOESStandardDerivatives
instance FromJSVal OESStandardDerivatives where
fromJSVal v = fmap OESStandardDerivatives <$> maybeNullOrUndefined v
instance MakeObject OESStandardDerivatives where
makeObject = makeObject . unOESStandardDerivatives
instance IsGObject OESStandardDerivatives where
toGObject = GObject . unOESStandardDerivatives
unsafeCastGObject = OESStandardDerivatives . unGObject
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)
newtype OESTextureFloat = OESTextureFloat { unOESTextureFloat :: JSVal }
instance PToJSVal OESTextureFloat where
pToJSVal = unOESTextureFloat
instance PFromJSVal OESTextureFloat where
pFromJSVal = OESTextureFloat
instance ToJSVal OESTextureFloat where
toJSVal = return . unOESTextureFloat
instance FromJSVal OESTextureFloat where
fromJSVal v = fmap OESTextureFloat <$> maybeNullOrUndefined v
instance MakeObject OESTextureFloat where
makeObject = makeObject . unOESTextureFloat
instance IsGObject OESTextureFloat where
toGObject = GObject . unOESTextureFloat
unsafeCastGObject = OESTextureFloat . unGObject
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)
newtype OESTextureFloatLinear = OESTextureFloatLinear { unOESTextureFloatLinear :: JSVal }
instance PToJSVal OESTextureFloatLinear where
pToJSVal = unOESTextureFloatLinear
instance PFromJSVal OESTextureFloatLinear where
pFromJSVal = OESTextureFloatLinear
instance ToJSVal OESTextureFloatLinear where
toJSVal = return . unOESTextureFloatLinear
instance FromJSVal OESTextureFloatLinear where
fromJSVal v = fmap OESTextureFloatLinear <$> maybeNullOrUndefined v
instance MakeObject OESTextureFloatLinear where
makeObject = makeObject . unOESTextureFloatLinear
instance IsGObject OESTextureFloatLinear where
toGObject = GObject . unOESTextureFloatLinear
unsafeCastGObject = OESTextureFloatLinear . unGObject
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)
newtype OESTextureHalfFloat = OESTextureHalfFloat { unOESTextureHalfFloat :: JSVal }
instance PToJSVal OESTextureHalfFloat where
pToJSVal = unOESTextureHalfFloat
instance PFromJSVal OESTextureHalfFloat where
pFromJSVal = OESTextureHalfFloat
instance ToJSVal OESTextureHalfFloat where
toJSVal = return . unOESTextureHalfFloat
instance FromJSVal OESTextureHalfFloat where
fromJSVal v = fmap OESTextureHalfFloat <$> maybeNullOrUndefined v
instance MakeObject OESTextureHalfFloat where
makeObject = makeObject . unOESTextureHalfFloat
instance IsGObject OESTextureHalfFloat where
toGObject = GObject . unOESTextureHalfFloat
unsafeCastGObject = OESTextureHalfFloat . unGObject
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)
newtype OESTextureHalfFloatLinear = OESTextureHalfFloatLinear { unOESTextureHalfFloatLinear :: JSVal }
instance PToJSVal OESTextureHalfFloatLinear where
pToJSVal = unOESTextureHalfFloatLinear
instance PFromJSVal OESTextureHalfFloatLinear where
pFromJSVal = OESTextureHalfFloatLinear
instance ToJSVal OESTextureHalfFloatLinear where
toJSVal = return . unOESTextureHalfFloatLinear
instance FromJSVal OESTextureHalfFloatLinear where
fromJSVal v = fmap OESTextureHalfFloatLinear <$> maybeNullOrUndefined v
instance MakeObject OESTextureHalfFloatLinear where
makeObject = makeObject . unOESTextureHalfFloatLinear
instance IsGObject OESTextureHalfFloatLinear where
toGObject = GObject . unOESTextureHalfFloatLinear
unsafeCastGObject = OESTextureHalfFloatLinear . unGObject
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)
newtype OESVertexArrayObject = OESVertexArrayObject { unOESVertexArrayObject :: JSVal }
instance PToJSVal OESVertexArrayObject where
pToJSVal = unOESVertexArrayObject
instance PFromJSVal OESVertexArrayObject where
pFromJSVal = OESVertexArrayObject
instance ToJSVal OESVertexArrayObject where
toJSVal = return . unOESVertexArrayObject
instance FromJSVal OESVertexArrayObject where
fromJSVal v = fmap OESVertexArrayObject <$> maybeNullOrUndefined v
instance MakeObject OESVertexArrayObject where
makeObject = makeObject . unOESVertexArrayObject
instance IsGObject OESVertexArrayObject where
toGObject = GObject . unOESVertexArrayObject
unsafeCastGObject = OESVertexArrayObject . unGObject
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)
newtype OfflineAudioCompletionEvent = OfflineAudioCompletionEvent { unOfflineAudioCompletionEvent :: JSVal }
instance PToJSVal OfflineAudioCompletionEvent where
pToJSVal = unOfflineAudioCompletionEvent
instance PFromJSVal OfflineAudioCompletionEvent where
pFromJSVal = OfflineAudioCompletionEvent
instance ToJSVal OfflineAudioCompletionEvent where
toJSVal = return . unOfflineAudioCompletionEvent
instance FromJSVal OfflineAudioCompletionEvent where
fromJSVal v = fmap OfflineAudioCompletionEvent <$> maybeNullOrUndefined v
instance MakeObject OfflineAudioCompletionEvent where
makeObject = makeObject . unOfflineAudioCompletionEvent
instance IsEvent OfflineAudioCompletionEvent
instance IsGObject OfflineAudioCompletionEvent where
toGObject = GObject . unOfflineAudioCompletionEvent
unsafeCastGObject = OfflineAudioCompletionEvent . unGObject
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)
newtype OfflineAudioContext = OfflineAudioContext { unOfflineAudioContext :: JSVal }
instance PToJSVal OfflineAudioContext where
pToJSVal = unOfflineAudioContext
instance PFromJSVal OfflineAudioContext where
pFromJSVal = OfflineAudioContext
instance ToJSVal OfflineAudioContext where
toJSVal = return . unOfflineAudioContext
instance FromJSVal OfflineAudioContext where
fromJSVal v = fmap OfflineAudioContext <$> maybeNullOrUndefined v
instance MakeObject OfflineAudioContext where
makeObject = makeObject . unOfflineAudioContext
instance IsAudioContext OfflineAudioContext
instance IsEventTarget OfflineAudioContext
instance IsGObject OfflineAudioContext where
toGObject = GObject . unOfflineAudioContext
unsafeCastGObject = OfflineAudioContext . unGObject
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)
newtype OscillatorNode = OscillatorNode { unOscillatorNode :: JSVal }
instance PToJSVal OscillatorNode where
pToJSVal = unOscillatorNode
instance PFromJSVal OscillatorNode where
pFromJSVal = OscillatorNode
instance ToJSVal OscillatorNode where
toJSVal = return . unOscillatorNode
instance FromJSVal OscillatorNode where
fromJSVal v = fmap OscillatorNode <$> maybeNullOrUndefined v
instance MakeObject OscillatorNode where
makeObject = makeObject . unOscillatorNode
instance IsAudioNode OscillatorNode
instance IsEventTarget OscillatorNode
instance IsGObject OscillatorNode where
toGObject = GObject . unOscillatorNode
unsafeCastGObject = OscillatorNode . unGObject
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)
newtype OverflowEvent = OverflowEvent { unOverflowEvent :: JSVal }
instance PToJSVal OverflowEvent where
pToJSVal = unOverflowEvent
instance PFromJSVal OverflowEvent where
pFromJSVal = OverflowEvent
instance ToJSVal OverflowEvent where
toJSVal = return . unOverflowEvent
instance FromJSVal OverflowEvent where
fromJSVal v = fmap OverflowEvent <$> maybeNullOrUndefined v
instance MakeObject OverflowEvent where
makeObject = makeObject . unOverflowEvent
instance IsEvent OverflowEvent
instance IsGObject OverflowEvent where
toGObject = GObject . unOverflowEvent
unsafeCastGObject = OverflowEvent . unGObject
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)
newtype PageTransitionEvent = PageTransitionEvent { unPageTransitionEvent :: JSVal }
instance PToJSVal PageTransitionEvent where
pToJSVal = unPageTransitionEvent
instance PFromJSVal PageTransitionEvent where
pFromJSVal = PageTransitionEvent
instance ToJSVal PageTransitionEvent where
toJSVal = return . unPageTransitionEvent
instance FromJSVal PageTransitionEvent where
fromJSVal v = fmap PageTransitionEvent <$> maybeNullOrUndefined v
instance MakeObject PageTransitionEvent where
makeObject = makeObject . unPageTransitionEvent
instance IsEvent PageTransitionEvent
instance IsGObject PageTransitionEvent where
toGObject = GObject . unPageTransitionEvent
unsafeCastGObject = PageTransitionEvent . unGObject
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)
newtype PannerNode = PannerNode { unPannerNode :: JSVal }
instance PToJSVal PannerNode where
pToJSVal = unPannerNode
instance PFromJSVal PannerNode where
pFromJSVal = PannerNode
instance ToJSVal PannerNode where
toJSVal = return . unPannerNode
instance FromJSVal PannerNode where
fromJSVal v = fmap PannerNode <$> maybeNullOrUndefined v
instance MakeObject PannerNode where
makeObject = makeObject . unPannerNode
instance IsAudioNode PannerNode
instance IsEventTarget PannerNode
instance IsGObject PannerNode where
toGObject = GObject . unPannerNode
unsafeCastGObject = PannerNode . unGObject
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)
newtype Path2D = Path2D { unPath2D :: JSVal }
instance PToJSVal Path2D where
pToJSVal = unPath2D
instance PFromJSVal Path2D where
pFromJSVal = Path2D
instance ToJSVal Path2D where
toJSVal = return . unPath2D
instance FromJSVal Path2D where
fromJSVal v = fmap Path2D <$> maybeNullOrUndefined v
instance MakeObject Path2D where
makeObject = makeObject . unPath2D
instance IsGObject Path2D where
toGObject = GObject . unPath2D
unsafeCastGObject = Path2D . unGObject
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)
newtype Performance = Performance { unPerformance :: JSVal }
instance PToJSVal Performance where
pToJSVal = unPerformance
instance PFromJSVal Performance where
pFromJSVal = Performance
instance ToJSVal Performance where
toJSVal = return . unPerformance
instance FromJSVal Performance where
fromJSVal v = fmap Performance <$> maybeNullOrUndefined v
instance MakeObject Performance where
makeObject = makeObject . unPerformance
instance IsEventTarget Performance
instance IsGObject Performance where
toGObject = GObject . unPerformance
unsafeCastGObject = Performance . unGObject
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)
newtype PerformanceEntry = PerformanceEntry { unPerformanceEntry :: JSVal }
instance PToJSVal PerformanceEntry where
pToJSVal = unPerformanceEntry
instance PFromJSVal PerformanceEntry where
pFromJSVal = PerformanceEntry
instance ToJSVal PerformanceEntry where
toJSVal = return . unPerformanceEntry
instance FromJSVal PerformanceEntry where
fromJSVal v = fmap PerformanceEntry <$> maybeNullOrUndefined v
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
unsafeCastGObject = PerformanceEntry . unGObject
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)
newtype PerformanceEntryList = PerformanceEntryList { unPerformanceEntryList :: JSVal }
instance PToJSVal PerformanceEntryList where
pToJSVal = unPerformanceEntryList
instance PFromJSVal PerformanceEntryList where
pFromJSVal = PerformanceEntryList
instance ToJSVal PerformanceEntryList where
toJSVal = return . unPerformanceEntryList
instance FromJSVal PerformanceEntryList where
fromJSVal v = fmap PerformanceEntryList <$> maybeNullOrUndefined v
instance MakeObject PerformanceEntryList where
makeObject = makeObject . unPerformanceEntryList
instance IsGObject PerformanceEntryList where
toGObject = GObject . unPerformanceEntryList
unsafeCastGObject = PerformanceEntryList . unGObject
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)
newtype PerformanceMark = PerformanceMark { unPerformanceMark :: JSVal }
instance PToJSVal PerformanceMark where
pToJSVal = unPerformanceMark
instance PFromJSVal PerformanceMark where
pFromJSVal = PerformanceMark
instance ToJSVal PerformanceMark where
toJSVal = return . unPerformanceMark
instance FromJSVal PerformanceMark where
fromJSVal v = fmap PerformanceMark <$> maybeNullOrUndefined v
instance MakeObject PerformanceMark where
makeObject = makeObject . unPerformanceMark
instance IsPerformanceEntry PerformanceMark
instance IsGObject PerformanceMark where
toGObject = GObject . unPerformanceMark
unsafeCastGObject = PerformanceMark . unGObject
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)
newtype PerformanceMeasure = PerformanceMeasure { unPerformanceMeasure :: JSVal }
instance PToJSVal PerformanceMeasure where
pToJSVal = unPerformanceMeasure
instance PFromJSVal PerformanceMeasure where
pFromJSVal = PerformanceMeasure
instance ToJSVal PerformanceMeasure where
toJSVal = return . unPerformanceMeasure
instance FromJSVal PerformanceMeasure where
fromJSVal v = fmap PerformanceMeasure <$> maybeNullOrUndefined v
instance MakeObject PerformanceMeasure where
makeObject = makeObject . unPerformanceMeasure
instance IsPerformanceEntry PerformanceMeasure
instance IsGObject PerformanceMeasure where
toGObject = GObject . unPerformanceMeasure
unsafeCastGObject = PerformanceMeasure . unGObject
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)
newtype PerformanceNavigation = PerformanceNavigation { unPerformanceNavigation :: JSVal }
instance PToJSVal PerformanceNavigation where
pToJSVal = unPerformanceNavigation
instance PFromJSVal PerformanceNavigation where
pFromJSVal = PerformanceNavigation
instance ToJSVal PerformanceNavigation where
toJSVal = return . unPerformanceNavigation
instance FromJSVal PerformanceNavigation where
fromJSVal v = fmap PerformanceNavigation <$> maybeNullOrUndefined v
instance MakeObject PerformanceNavigation where
makeObject = makeObject . unPerformanceNavigation
instance IsGObject PerformanceNavigation where
toGObject = GObject . unPerformanceNavigation
unsafeCastGObject = PerformanceNavigation . unGObject
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)
newtype PerformanceResourceTiming = PerformanceResourceTiming { unPerformanceResourceTiming :: JSVal }
instance PToJSVal PerformanceResourceTiming where
pToJSVal = unPerformanceResourceTiming
instance PFromJSVal PerformanceResourceTiming where
pFromJSVal = PerformanceResourceTiming
instance ToJSVal PerformanceResourceTiming where
toJSVal = return . unPerformanceResourceTiming
instance FromJSVal PerformanceResourceTiming where
fromJSVal v = fmap PerformanceResourceTiming <$> maybeNullOrUndefined v
instance MakeObject PerformanceResourceTiming where
makeObject = makeObject . unPerformanceResourceTiming
instance IsPerformanceEntry PerformanceResourceTiming
instance IsGObject PerformanceResourceTiming where
toGObject = GObject . unPerformanceResourceTiming
unsafeCastGObject = PerformanceResourceTiming . unGObject
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)
newtype PerformanceTiming = PerformanceTiming { unPerformanceTiming :: JSVal }
instance PToJSVal PerformanceTiming where
pToJSVal = unPerformanceTiming
instance PFromJSVal PerformanceTiming where
pFromJSVal = PerformanceTiming
instance ToJSVal PerformanceTiming where
toJSVal = return . unPerformanceTiming
instance FromJSVal PerformanceTiming where
fromJSVal v = fmap PerformanceTiming <$> maybeNullOrUndefined v
instance MakeObject PerformanceTiming where
makeObject = makeObject . unPerformanceTiming
instance IsGObject PerformanceTiming where
toGObject = GObject . unPerformanceTiming
unsafeCastGObject = PerformanceTiming . unGObject
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)
newtype PeriodicWave = PeriodicWave { unPeriodicWave :: JSVal }
instance PToJSVal PeriodicWave where
pToJSVal = unPeriodicWave
instance PFromJSVal PeriodicWave where
pFromJSVal = PeriodicWave
instance ToJSVal PeriodicWave where
toJSVal = return . unPeriodicWave
instance FromJSVal PeriodicWave where
fromJSVal v = fmap PeriodicWave <$> maybeNullOrUndefined v
instance MakeObject PeriodicWave where
makeObject = makeObject . unPeriodicWave
instance IsGObject PeriodicWave where
toGObject = GObject . unPeriodicWave
unsafeCastGObject = PeriodicWave . unGObject
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)
newtype Plugin = Plugin { unPlugin :: JSVal }
instance PToJSVal Plugin where
pToJSVal = unPlugin
instance PFromJSVal Plugin where
pFromJSVal = Plugin
instance ToJSVal Plugin where
toJSVal = return . unPlugin
instance FromJSVal Plugin where
fromJSVal v = fmap Plugin <$> maybeNullOrUndefined v
instance MakeObject Plugin where
makeObject = makeObject . unPlugin
instance IsGObject Plugin where
toGObject = GObject . unPlugin
unsafeCastGObject = Plugin . unGObject
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)
newtype PluginArray = PluginArray { unPluginArray :: JSVal }
instance PToJSVal PluginArray where
pToJSVal = unPluginArray
instance PFromJSVal PluginArray where
pFromJSVal = PluginArray
instance ToJSVal PluginArray where
toJSVal = return . unPluginArray
instance FromJSVal PluginArray where
fromJSVal v = fmap PluginArray <$> maybeNullOrUndefined v
instance MakeObject PluginArray where
makeObject = makeObject . unPluginArray
instance IsGObject PluginArray where
toGObject = GObject . unPluginArray
unsafeCastGObject = PluginArray . unGObject
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)
newtype PopStateEvent = PopStateEvent { unPopStateEvent :: JSVal }
instance PToJSVal PopStateEvent where
pToJSVal = unPopStateEvent
instance PFromJSVal PopStateEvent where
pFromJSVal = PopStateEvent
instance ToJSVal PopStateEvent where
toJSVal = return . unPopStateEvent
instance FromJSVal PopStateEvent where
fromJSVal v = fmap PopStateEvent <$> maybeNullOrUndefined v
instance MakeObject PopStateEvent where
makeObject = makeObject . unPopStateEvent
instance IsEvent PopStateEvent
instance IsGObject PopStateEvent where
toGObject = GObject . unPopStateEvent
unsafeCastGObject = PopStateEvent . unGObject
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)
newtype PositionError = PositionError { unPositionError :: JSVal }
instance PToJSVal PositionError where
pToJSVal = unPositionError
instance PFromJSVal PositionError where
pFromJSVal = PositionError
instance ToJSVal PositionError where
toJSVal = return . unPositionError
instance FromJSVal PositionError where
fromJSVal v = fmap PositionError <$> maybeNullOrUndefined v
instance MakeObject PositionError where
makeObject = makeObject . unPositionError
instance IsGObject PositionError where
toGObject = GObject . unPositionError
unsafeCastGObject = PositionError . unGObject
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)
newtype ProcessingInstruction = ProcessingInstruction { unProcessingInstruction :: JSVal }
instance PToJSVal ProcessingInstruction where
pToJSVal = unProcessingInstruction
instance PFromJSVal ProcessingInstruction where
pFromJSVal = ProcessingInstruction
instance ToJSVal ProcessingInstruction where
toJSVal = return . unProcessingInstruction
instance FromJSVal ProcessingInstruction where
fromJSVal v = fmap ProcessingInstruction <$> maybeNullOrUndefined v
instance MakeObject ProcessingInstruction where
makeObject = makeObject . unProcessingInstruction
instance IsCharacterData ProcessingInstruction
instance IsNode ProcessingInstruction
instance IsEventTarget ProcessingInstruction
instance IsGObject ProcessingInstruction where
toGObject = GObject . unProcessingInstruction
unsafeCastGObject = ProcessingInstruction . unGObject
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)
newtype ProgressEvent = ProgressEvent { unProgressEvent :: JSVal }
instance PToJSVal ProgressEvent where
pToJSVal = unProgressEvent
instance PFromJSVal ProgressEvent where
pFromJSVal = ProgressEvent
instance ToJSVal ProgressEvent where
toJSVal = return . unProgressEvent
instance FromJSVal ProgressEvent where
fromJSVal v = fmap ProgressEvent <$> maybeNullOrUndefined v
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
unsafeCastGObject = ProgressEvent . unGObject
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)
newtype QuickTimePluginReplacement = QuickTimePluginReplacement { unQuickTimePluginReplacement :: JSVal }
instance PToJSVal QuickTimePluginReplacement where
pToJSVal = unQuickTimePluginReplacement
instance PFromJSVal QuickTimePluginReplacement where
pFromJSVal = QuickTimePluginReplacement
instance ToJSVal QuickTimePluginReplacement where
toJSVal = return . unQuickTimePluginReplacement
instance FromJSVal QuickTimePluginReplacement where
fromJSVal v = fmap QuickTimePluginReplacement <$> maybeNullOrUndefined v
instance MakeObject QuickTimePluginReplacement where
makeObject = makeObject . unQuickTimePluginReplacement
instance IsGObject QuickTimePluginReplacement where
toGObject = GObject . unQuickTimePluginReplacement
unsafeCastGObject = QuickTimePluginReplacement . unGObject
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)
newtype RGBColor = RGBColor { unRGBColor :: JSVal }
instance PToJSVal RGBColor where
pToJSVal = unRGBColor
instance PFromJSVal RGBColor where
pFromJSVal = RGBColor
instance ToJSVal RGBColor where
toJSVal = return . unRGBColor
instance FromJSVal RGBColor where
fromJSVal v = fmap RGBColor <$> maybeNullOrUndefined v
instance MakeObject RGBColor where
makeObject = makeObject . unRGBColor
instance IsGObject RGBColor where
toGObject = GObject . unRGBColor
unsafeCastGObject = RGBColor . unGObject
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)
newtype RTCConfiguration = RTCConfiguration { unRTCConfiguration :: JSVal }
instance PToJSVal RTCConfiguration where
pToJSVal = unRTCConfiguration
instance PFromJSVal RTCConfiguration where
pFromJSVal = RTCConfiguration
instance ToJSVal RTCConfiguration where
toJSVal = return . unRTCConfiguration
instance FromJSVal RTCConfiguration where
fromJSVal v = fmap RTCConfiguration <$> maybeNullOrUndefined v
instance MakeObject RTCConfiguration where
makeObject = makeObject . unRTCConfiguration
instance IsGObject RTCConfiguration where
toGObject = GObject . unRTCConfiguration
unsafeCastGObject = RTCConfiguration . unGObject
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)
newtype RTCDTMFSender = RTCDTMFSender { unRTCDTMFSender :: JSVal }
instance PToJSVal RTCDTMFSender where
pToJSVal = unRTCDTMFSender
instance PFromJSVal RTCDTMFSender where
pFromJSVal = RTCDTMFSender
instance ToJSVal RTCDTMFSender where
toJSVal = return . unRTCDTMFSender
instance FromJSVal RTCDTMFSender where
fromJSVal v = fmap RTCDTMFSender <$> maybeNullOrUndefined v
instance MakeObject RTCDTMFSender where
makeObject = makeObject . unRTCDTMFSender
instance IsEventTarget RTCDTMFSender
instance IsGObject RTCDTMFSender where
toGObject = GObject . unRTCDTMFSender
unsafeCastGObject = RTCDTMFSender . unGObject
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)
newtype RTCDTMFToneChangeEvent = RTCDTMFToneChangeEvent { unRTCDTMFToneChangeEvent :: JSVal }
instance PToJSVal RTCDTMFToneChangeEvent where
pToJSVal = unRTCDTMFToneChangeEvent
instance PFromJSVal RTCDTMFToneChangeEvent where
pFromJSVal = RTCDTMFToneChangeEvent
instance ToJSVal RTCDTMFToneChangeEvent where
toJSVal = return . unRTCDTMFToneChangeEvent
instance FromJSVal RTCDTMFToneChangeEvent where
fromJSVal v = fmap RTCDTMFToneChangeEvent <$> maybeNullOrUndefined v
instance MakeObject RTCDTMFToneChangeEvent where
makeObject = makeObject . unRTCDTMFToneChangeEvent
instance IsEvent RTCDTMFToneChangeEvent
instance IsGObject RTCDTMFToneChangeEvent where
toGObject = GObject . unRTCDTMFToneChangeEvent
unsafeCastGObject = RTCDTMFToneChangeEvent . unGObject
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)
newtype RTCDataChannel = RTCDataChannel { unRTCDataChannel :: JSVal }
instance PToJSVal RTCDataChannel where
pToJSVal = unRTCDataChannel
instance PFromJSVal RTCDataChannel where
pFromJSVal = RTCDataChannel
instance ToJSVal RTCDataChannel where
toJSVal = return . unRTCDataChannel
instance FromJSVal RTCDataChannel where
fromJSVal v = fmap RTCDataChannel <$> maybeNullOrUndefined v
instance MakeObject RTCDataChannel where
makeObject = makeObject . unRTCDataChannel
instance IsEventTarget RTCDataChannel
instance IsGObject RTCDataChannel where
toGObject = GObject . unRTCDataChannel
unsafeCastGObject = RTCDataChannel . unGObject
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)
newtype RTCDataChannelEvent = RTCDataChannelEvent { unRTCDataChannelEvent :: JSVal }
instance PToJSVal RTCDataChannelEvent where
pToJSVal = unRTCDataChannelEvent
instance PFromJSVal RTCDataChannelEvent where
pFromJSVal = RTCDataChannelEvent
instance ToJSVal RTCDataChannelEvent where
toJSVal = return . unRTCDataChannelEvent
instance FromJSVal RTCDataChannelEvent where
fromJSVal v = fmap RTCDataChannelEvent <$> maybeNullOrUndefined v
instance MakeObject RTCDataChannelEvent where
makeObject = makeObject . unRTCDataChannelEvent
instance IsEvent RTCDataChannelEvent
instance IsGObject RTCDataChannelEvent where
toGObject = GObject . unRTCDataChannelEvent
unsafeCastGObject = RTCDataChannelEvent . unGObject
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)
newtype RTCIceCandidate = RTCIceCandidate { unRTCIceCandidate :: JSVal }
instance PToJSVal RTCIceCandidate where
pToJSVal = unRTCIceCandidate
instance PFromJSVal RTCIceCandidate where
pFromJSVal = RTCIceCandidate
instance ToJSVal RTCIceCandidate where
toJSVal = return . unRTCIceCandidate
instance FromJSVal RTCIceCandidate where
fromJSVal v = fmap RTCIceCandidate <$> maybeNullOrUndefined v
instance MakeObject RTCIceCandidate where
makeObject = makeObject . unRTCIceCandidate
instance IsGObject RTCIceCandidate where
toGObject = GObject . unRTCIceCandidate
unsafeCastGObject = RTCIceCandidate . unGObject
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)
newtype RTCIceCandidateEvent = RTCIceCandidateEvent { unRTCIceCandidateEvent :: JSVal }
instance PToJSVal RTCIceCandidateEvent where
pToJSVal = unRTCIceCandidateEvent
instance PFromJSVal RTCIceCandidateEvent where
pFromJSVal = RTCIceCandidateEvent
instance ToJSVal RTCIceCandidateEvent where
toJSVal = return . unRTCIceCandidateEvent
instance FromJSVal RTCIceCandidateEvent where
fromJSVal v = fmap RTCIceCandidateEvent <$> maybeNullOrUndefined v
instance MakeObject RTCIceCandidateEvent where
makeObject = makeObject . unRTCIceCandidateEvent
instance IsEvent RTCIceCandidateEvent
instance IsGObject RTCIceCandidateEvent where
toGObject = GObject . unRTCIceCandidateEvent
unsafeCastGObject = RTCIceCandidateEvent . unGObject
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)
newtype RTCIceServer = RTCIceServer { unRTCIceServer :: JSVal }
instance PToJSVal RTCIceServer where
pToJSVal = unRTCIceServer
instance PFromJSVal RTCIceServer where
pFromJSVal = RTCIceServer
instance ToJSVal RTCIceServer where
toJSVal = return . unRTCIceServer
instance FromJSVal RTCIceServer where
fromJSVal v = fmap RTCIceServer <$> maybeNullOrUndefined v
instance MakeObject RTCIceServer where
makeObject = makeObject . unRTCIceServer
instance IsGObject RTCIceServer where
toGObject = GObject . unRTCIceServer
unsafeCastGObject = RTCIceServer . unGObject
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)
newtype RTCPeerConnection = RTCPeerConnection { unRTCPeerConnection :: JSVal }
instance PToJSVal RTCPeerConnection where
pToJSVal = unRTCPeerConnection
instance PFromJSVal RTCPeerConnection where
pFromJSVal = RTCPeerConnection
instance ToJSVal RTCPeerConnection where
toJSVal = return . unRTCPeerConnection
instance FromJSVal RTCPeerConnection where
fromJSVal v = fmap RTCPeerConnection <$> maybeNullOrUndefined v
instance MakeObject RTCPeerConnection where
makeObject = makeObject . unRTCPeerConnection
instance IsEventTarget RTCPeerConnection
instance IsGObject RTCPeerConnection where
toGObject = GObject . unRTCPeerConnection
unsafeCastGObject = RTCPeerConnection . unGObject
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)
newtype RTCSessionDescription = RTCSessionDescription { unRTCSessionDescription :: JSVal }
instance PToJSVal RTCSessionDescription where
pToJSVal = unRTCSessionDescription
instance PFromJSVal RTCSessionDescription where
pFromJSVal = RTCSessionDescription
instance ToJSVal RTCSessionDescription where
toJSVal = return . unRTCSessionDescription
instance FromJSVal RTCSessionDescription where
fromJSVal v = fmap RTCSessionDescription <$> maybeNullOrUndefined v
instance MakeObject RTCSessionDescription where
makeObject = makeObject . unRTCSessionDescription
instance IsGObject RTCSessionDescription where
toGObject = GObject . unRTCSessionDescription
unsafeCastGObject = RTCSessionDescription . unGObject
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)
newtype RTCStatsReport = RTCStatsReport { unRTCStatsReport :: JSVal }
instance PToJSVal RTCStatsReport where
pToJSVal = unRTCStatsReport
instance PFromJSVal RTCStatsReport where
pFromJSVal = RTCStatsReport
instance ToJSVal RTCStatsReport where
toJSVal = return . unRTCStatsReport
instance FromJSVal RTCStatsReport where
fromJSVal v = fmap RTCStatsReport <$> maybeNullOrUndefined v
instance MakeObject RTCStatsReport where
makeObject = makeObject . unRTCStatsReport
instance IsGObject RTCStatsReport where
toGObject = GObject . unRTCStatsReport
unsafeCastGObject = RTCStatsReport . unGObject
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)
newtype RTCStatsResponse = RTCStatsResponse { unRTCStatsResponse :: JSVal }
instance PToJSVal RTCStatsResponse where
pToJSVal = unRTCStatsResponse
instance PFromJSVal RTCStatsResponse where
pFromJSVal = RTCStatsResponse
instance ToJSVal RTCStatsResponse where
toJSVal = return . unRTCStatsResponse
instance FromJSVal RTCStatsResponse where
fromJSVal v = fmap RTCStatsResponse <$> maybeNullOrUndefined v
instance MakeObject RTCStatsResponse where
makeObject = makeObject . unRTCStatsResponse
instance IsGObject RTCStatsResponse where
toGObject = GObject . unRTCStatsResponse
unsafeCastGObject = RTCStatsResponse . unGObject
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)
newtype RadioNodeList = RadioNodeList { unRadioNodeList :: JSVal }
instance PToJSVal RadioNodeList where
pToJSVal = unRadioNodeList
instance PFromJSVal RadioNodeList where
pFromJSVal = RadioNodeList
instance ToJSVal RadioNodeList where
toJSVal = return . unRadioNodeList
instance FromJSVal RadioNodeList where
fromJSVal v = fmap RadioNodeList <$> maybeNullOrUndefined v
instance MakeObject RadioNodeList where
makeObject = makeObject . unRadioNodeList
instance IsNodeList RadioNodeList
instance IsGObject RadioNodeList where
toGObject = GObject . unRadioNodeList
unsafeCastGObject = RadioNodeList . unGObject
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)
newtype Range = Range { unRange :: JSVal }
instance PToJSVal Range where
pToJSVal = unRange
instance PFromJSVal Range where
pFromJSVal = Range
instance ToJSVal Range where
toJSVal = return . unRange
instance FromJSVal Range where
fromJSVal v = fmap Range <$> maybeNullOrUndefined v
instance MakeObject Range where
makeObject = makeObject . unRange
instance IsGObject Range where
toGObject = GObject . unRange
unsafeCastGObject = Range . unGObject
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)
newtype ReadableStream = ReadableStream { unReadableStream :: JSVal }
instance PToJSVal ReadableStream where
pToJSVal = unReadableStream
instance PFromJSVal ReadableStream where
pFromJSVal = ReadableStream
instance ToJSVal ReadableStream where
toJSVal = return . unReadableStream
instance FromJSVal ReadableStream where
fromJSVal v = fmap ReadableStream <$> maybeNullOrUndefined v
instance MakeObject ReadableStream where
makeObject = makeObject . unReadableStream
instance IsGObject ReadableStream where
toGObject = GObject . unReadableStream
unsafeCastGObject = ReadableStream . unGObject
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)
newtype Rect = Rect { unRect :: JSVal }
instance PToJSVal Rect where
pToJSVal = unRect
instance PFromJSVal Rect where
pFromJSVal = Rect
instance ToJSVal Rect where
toJSVal = return . unRect
instance FromJSVal Rect where
fromJSVal v = fmap Rect <$> maybeNullOrUndefined v
instance MakeObject Rect where
makeObject = makeObject . unRect
instance IsGObject Rect where
toGObject = GObject . unRect
unsafeCastGObject = Rect . unGObject
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)
newtype SQLError = SQLError { unSQLError :: JSVal }
instance PToJSVal SQLError where
pToJSVal = unSQLError
instance PFromJSVal SQLError where
pFromJSVal = SQLError
instance ToJSVal SQLError where
toJSVal = return . unSQLError
instance FromJSVal SQLError where
fromJSVal v = fmap SQLError <$> maybeNullOrUndefined v
instance MakeObject SQLError where
makeObject = makeObject . unSQLError
instance IsGObject SQLError where
toGObject = GObject . unSQLError
unsafeCastGObject = SQLError . unGObject
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)
newtype SQLResultSet = SQLResultSet { unSQLResultSet :: JSVal }
instance PToJSVal SQLResultSet where
pToJSVal = unSQLResultSet
instance PFromJSVal SQLResultSet where
pFromJSVal = SQLResultSet
instance ToJSVal SQLResultSet where
toJSVal = return . unSQLResultSet
instance FromJSVal SQLResultSet where
fromJSVal v = fmap SQLResultSet <$> maybeNullOrUndefined v
instance MakeObject SQLResultSet where
makeObject = makeObject . unSQLResultSet
instance IsGObject SQLResultSet where
toGObject = GObject . unSQLResultSet
unsafeCastGObject = SQLResultSet . unGObject
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)
newtype SQLResultSetRowList = SQLResultSetRowList { unSQLResultSetRowList :: JSVal }
instance PToJSVal SQLResultSetRowList where
pToJSVal = unSQLResultSetRowList
instance PFromJSVal SQLResultSetRowList where
pFromJSVal = SQLResultSetRowList
instance ToJSVal SQLResultSetRowList where
toJSVal = return . unSQLResultSetRowList
instance FromJSVal SQLResultSetRowList where
fromJSVal v = fmap SQLResultSetRowList <$> maybeNullOrUndefined v
instance MakeObject SQLResultSetRowList where
makeObject = makeObject . unSQLResultSetRowList
instance IsGObject SQLResultSetRowList where
toGObject = GObject . unSQLResultSetRowList
unsafeCastGObject = SQLResultSetRowList . unGObject
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)
newtype SQLTransaction = SQLTransaction { unSQLTransaction :: JSVal }
instance PToJSVal SQLTransaction where
pToJSVal = unSQLTransaction
instance PFromJSVal SQLTransaction where
pFromJSVal = SQLTransaction
instance ToJSVal SQLTransaction where
toJSVal = return . unSQLTransaction
instance FromJSVal SQLTransaction where
fromJSVal v = fmap SQLTransaction <$> maybeNullOrUndefined v
instance MakeObject SQLTransaction where
makeObject = makeObject . unSQLTransaction
instance IsGObject SQLTransaction where
toGObject = GObject . unSQLTransaction
unsafeCastGObject = SQLTransaction . unGObject
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)
newtype SVGAElement = SVGAElement { unSVGAElement :: JSVal }
instance PToJSVal SVGAElement where
pToJSVal = unSVGAElement
instance PFromJSVal SVGAElement where
pFromJSVal = SVGAElement
instance ToJSVal SVGAElement where
toJSVal = return . unSVGAElement
instance FromJSVal SVGAElement where
fromJSVal v = fmap SVGAElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGAElement . unGObject
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)
newtype SVGAltGlyphDefElement = SVGAltGlyphDefElement { unSVGAltGlyphDefElement :: JSVal }
instance PToJSVal SVGAltGlyphDefElement where
pToJSVal = unSVGAltGlyphDefElement
instance PFromJSVal SVGAltGlyphDefElement where
pFromJSVal = SVGAltGlyphDefElement
instance ToJSVal SVGAltGlyphDefElement where
toJSVal = return . unSVGAltGlyphDefElement
instance FromJSVal SVGAltGlyphDefElement where
fromJSVal v = fmap SVGAltGlyphDefElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGAltGlyphDefElement . unGObject
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)
newtype SVGAltGlyphElement = SVGAltGlyphElement { unSVGAltGlyphElement :: JSVal }
instance PToJSVal SVGAltGlyphElement where
pToJSVal = unSVGAltGlyphElement
instance PFromJSVal SVGAltGlyphElement where
pFromJSVal = SVGAltGlyphElement
instance ToJSVal SVGAltGlyphElement where
toJSVal = return . unSVGAltGlyphElement
instance FromJSVal SVGAltGlyphElement where
fromJSVal v = fmap SVGAltGlyphElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGAltGlyphElement . unGObject
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)
newtype SVGAltGlyphItemElement = SVGAltGlyphItemElement { unSVGAltGlyphItemElement :: JSVal }
instance PToJSVal SVGAltGlyphItemElement where
pToJSVal = unSVGAltGlyphItemElement
instance PFromJSVal SVGAltGlyphItemElement where
pFromJSVal = SVGAltGlyphItemElement
instance ToJSVal SVGAltGlyphItemElement where
toJSVal = return . unSVGAltGlyphItemElement
instance FromJSVal SVGAltGlyphItemElement where
fromJSVal v = fmap SVGAltGlyphItemElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGAltGlyphItemElement . unGObject
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)
newtype SVGAngle = SVGAngle { unSVGAngle :: JSVal }
instance PToJSVal SVGAngle where
pToJSVal = unSVGAngle
instance PFromJSVal SVGAngle where
pFromJSVal = SVGAngle
instance ToJSVal SVGAngle where
toJSVal = return . unSVGAngle
instance FromJSVal SVGAngle where
fromJSVal v = fmap SVGAngle <$> maybeNullOrUndefined v
instance MakeObject SVGAngle where
makeObject = makeObject . unSVGAngle
instance IsGObject SVGAngle where
toGObject = GObject . unSVGAngle
unsafeCastGObject = SVGAngle . unGObject
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)
newtype SVGAnimateColorElement = SVGAnimateColorElement { unSVGAnimateColorElement :: JSVal }
instance PToJSVal SVGAnimateColorElement where
pToJSVal = unSVGAnimateColorElement
instance PFromJSVal SVGAnimateColorElement where
pFromJSVal = SVGAnimateColorElement
instance ToJSVal SVGAnimateColorElement where
toJSVal = return . unSVGAnimateColorElement
instance FromJSVal SVGAnimateColorElement where
fromJSVal v = fmap SVGAnimateColorElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGAnimateColorElement . unGObject
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)
newtype SVGAnimateElement = SVGAnimateElement { unSVGAnimateElement :: JSVal }
instance PToJSVal SVGAnimateElement where
pToJSVal = unSVGAnimateElement
instance PFromJSVal SVGAnimateElement where
pFromJSVal = SVGAnimateElement
instance ToJSVal SVGAnimateElement where
toJSVal = return . unSVGAnimateElement
instance FromJSVal SVGAnimateElement where
fromJSVal v = fmap SVGAnimateElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGAnimateElement . unGObject
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)
newtype SVGAnimateMotionElement = SVGAnimateMotionElement { unSVGAnimateMotionElement :: JSVal }
instance PToJSVal SVGAnimateMotionElement where
pToJSVal = unSVGAnimateMotionElement
instance PFromJSVal SVGAnimateMotionElement where
pFromJSVal = SVGAnimateMotionElement
instance ToJSVal SVGAnimateMotionElement where
toJSVal = return . unSVGAnimateMotionElement
instance FromJSVal SVGAnimateMotionElement where
fromJSVal v = fmap SVGAnimateMotionElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGAnimateMotionElement . unGObject
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)
newtype SVGAnimateTransformElement = SVGAnimateTransformElement { unSVGAnimateTransformElement :: JSVal }
instance PToJSVal SVGAnimateTransformElement where
pToJSVal = unSVGAnimateTransformElement
instance PFromJSVal SVGAnimateTransformElement where
pFromJSVal = SVGAnimateTransformElement
instance ToJSVal SVGAnimateTransformElement where
toJSVal = return . unSVGAnimateTransformElement
instance FromJSVal SVGAnimateTransformElement where
fromJSVal v = fmap SVGAnimateTransformElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGAnimateTransformElement . unGObject
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)
newtype SVGAnimatedAngle = SVGAnimatedAngle { unSVGAnimatedAngle :: JSVal }
instance PToJSVal SVGAnimatedAngle where
pToJSVal = unSVGAnimatedAngle
instance PFromJSVal SVGAnimatedAngle where
pFromJSVal = SVGAnimatedAngle
instance ToJSVal SVGAnimatedAngle where
toJSVal = return . unSVGAnimatedAngle
instance FromJSVal SVGAnimatedAngle where
fromJSVal v = fmap SVGAnimatedAngle <$> maybeNullOrUndefined v
instance MakeObject SVGAnimatedAngle where
makeObject = makeObject . unSVGAnimatedAngle
instance IsGObject SVGAnimatedAngle where
toGObject = GObject . unSVGAnimatedAngle
unsafeCastGObject = SVGAnimatedAngle . unGObject
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)
newtype SVGAnimatedBoolean = SVGAnimatedBoolean { unSVGAnimatedBoolean :: JSVal }
instance PToJSVal SVGAnimatedBoolean where
pToJSVal = unSVGAnimatedBoolean
instance PFromJSVal SVGAnimatedBoolean where
pFromJSVal = SVGAnimatedBoolean
instance ToJSVal SVGAnimatedBoolean where
toJSVal = return . unSVGAnimatedBoolean
instance FromJSVal SVGAnimatedBoolean where
fromJSVal v = fmap SVGAnimatedBoolean <$> maybeNullOrUndefined v
instance MakeObject SVGAnimatedBoolean where
makeObject = makeObject . unSVGAnimatedBoolean
instance IsGObject SVGAnimatedBoolean where
toGObject = GObject . unSVGAnimatedBoolean
unsafeCastGObject = SVGAnimatedBoolean . unGObject
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)
newtype SVGAnimatedEnumeration = SVGAnimatedEnumeration { unSVGAnimatedEnumeration :: JSVal }
instance PToJSVal SVGAnimatedEnumeration where
pToJSVal = unSVGAnimatedEnumeration
instance PFromJSVal SVGAnimatedEnumeration where
pFromJSVal = SVGAnimatedEnumeration
instance ToJSVal SVGAnimatedEnumeration where
toJSVal = return . unSVGAnimatedEnumeration
instance FromJSVal SVGAnimatedEnumeration where
fromJSVal v = fmap SVGAnimatedEnumeration <$> maybeNullOrUndefined v
instance MakeObject SVGAnimatedEnumeration where
makeObject = makeObject . unSVGAnimatedEnumeration
instance IsGObject SVGAnimatedEnumeration where
toGObject = GObject . unSVGAnimatedEnumeration
unsafeCastGObject = SVGAnimatedEnumeration . unGObject
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)
newtype SVGAnimatedInteger = SVGAnimatedInteger { unSVGAnimatedInteger :: JSVal }
instance PToJSVal SVGAnimatedInteger where
pToJSVal = unSVGAnimatedInteger
instance PFromJSVal SVGAnimatedInteger where
pFromJSVal = SVGAnimatedInteger
instance ToJSVal SVGAnimatedInteger where
toJSVal = return . unSVGAnimatedInteger
instance FromJSVal SVGAnimatedInteger where
fromJSVal v = fmap SVGAnimatedInteger <$> maybeNullOrUndefined v
instance MakeObject SVGAnimatedInteger where
makeObject = makeObject . unSVGAnimatedInteger
instance IsGObject SVGAnimatedInteger where
toGObject = GObject . unSVGAnimatedInteger
unsafeCastGObject = SVGAnimatedInteger . unGObject
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)
newtype SVGAnimatedLength = SVGAnimatedLength { unSVGAnimatedLength :: JSVal }
instance PToJSVal SVGAnimatedLength where
pToJSVal = unSVGAnimatedLength
instance PFromJSVal SVGAnimatedLength where
pFromJSVal = SVGAnimatedLength
instance ToJSVal SVGAnimatedLength where
toJSVal = return . unSVGAnimatedLength
instance FromJSVal SVGAnimatedLength where
fromJSVal v = fmap SVGAnimatedLength <$> maybeNullOrUndefined v
instance MakeObject SVGAnimatedLength where
makeObject = makeObject . unSVGAnimatedLength
instance IsGObject SVGAnimatedLength where
toGObject = GObject . unSVGAnimatedLength
unsafeCastGObject = SVGAnimatedLength . unGObject
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)
newtype SVGAnimatedLengthList = SVGAnimatedLengthList { unSVGAnimatedLengthList :: JSVal }
instance PToJSVal SVGAnimatedLengthList where
pToJSVal = unSVGAnimatedLengthList
instance PFromJSVal SVGAnimatedLengthList where
pFromJSVal = SVGAnimatedLengthList
instance ToJSVal SVGAnimatedLengthList where
toJSVal = return . unSVGAnimatedLengthList
instance FromJSVal SVGAnimatedLengthList where
fromJSVal v = fmap SVGAnimatedLengthList <$> maybeNullOrUndefined v
instance MakeObject SVGAnimatedLengthList where
makeObject = makeObject . unSVGAnimatedLengthList
instance IsGObject SVGAnimatedLengthList where
toGObject = GObject . unSVGAnimatedLengthList
unsafeCastGObject = SVGAnimatedLengthList . unGObject
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)
newtype SVGAnimatedNumber = SVGAnimatedNumber { unSVGAnimatedNumber :: JSVal }
instance PToJSVal SVGAnimatedNumber where
pToJSVal = unSVGAnimatedNumber
instance PFromJSVal SVGAnimatedNumber where
pFromJSVal = SVGAnimatedNumber
instance ToJSVal SVGAnimatedNumber where
toJSVal = return . unSVGAnimatedNumber
instance FromJSVal SVGAnimatedNumber where
fromJSVal v = fmap SVGAnimatedNumber <$> maybeNullOrUndefined v
instance MakeObject SVGAnimatedNumber where
makeObject = makeObject . unSVGAnimatedNumber
instance IsGObject SVGAnimatedNumber where
toGObject = GObject . unSVGAnimatedNumber
unsafeCastGObject = SVGAnimatedNumber . unGObject
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)
newtype SVGAnimatedNumberList = SVGAnimatedNumberList { unSVGAnimatedNumberList :: JSVal }
instance PToJSVal SVGAnimatedNumberList where
pToJSVal = unSVGAnimatedNumberList
instance PFromJSVal SVGAnimatedNumberList where
pFromJSVal = SVGAnimatedNumberList
instance ToJSVal SVGAnimatedNumberList where
toJSVal = return . unSVGAnimatedNumberList
instance FromJSVal SVGAnimatedNumberList where
fromJSVal v = fmap SVGAnimatedNumberList <$> maybeNullOrUndefined v
instance MakeObject SVGAnimatedNumberList where
makeObject = makeObject . unSVGAnimatedNumberList
instance IsGObject SVGAnimatedNumberList where
toGObject = GObject . unSVGAnimatedNumberList
unsafeCastGObject = SVGAnimatedNumberList . unGObject
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)
newtype SVGAnimatedPreserveAspectRatio = SVGAnimatedPreserveAspectRatio { unSVGAnimatedPreserveAspectRatio :: JSVal }
instance PToJSVal SVGAnimatedPreserveAspectRatio where
pToJSVal = unSVGAnimatedPreserveAspectRatio
instance PFromJSVal SVGAnimatedPreserveAspectRatio where
pFromJSVal = SVGAnimatedPreserveAspectRatio
instance ToJSVal SVGAnimatedPreserveAspectRatio where
toJSVal = return . unSVGAnimatedPreserveAspectRatio
instance FromJSVal SVGAnimatedPreserveAspectRatio where
fromJSVal v = fmap SVGAnimatedPreserveAspectRatio <$> maybeNullOrUndefined v
instance MakeObject SVGAnimatedPreserveAspectRatio where
makeObject = makeObject . unSVGAnimatedPreserveAspectRatio
instance IsGObject SVGAnimatedPreserveAspectRatio where
toGObject = GObject . unSVGAnimatedPreserveAspectRatio
unsafeCastGObject = SVGAnimatedPreserveAspectRatio . unGObject
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)
newtype SVGAnimatedRect = SVGAnimatedRect { unSVGAnimatedRect :: JSVal }
instance PToJSVal SVGAnimatedRect where
pToJSVal = unSVGAnimatedRect
instance PFromJSVal SVGAnimatedRect where
pFromJSVal = SVGAnimatedRect
instance ToJSVal SVGAnimatedRect where
toJSVal = return . unSVGAnimatedRect
instance FromJSVal SVGAnimatedRect where
fromJSVal v = fmap SVGAnimatedRect <$> maybeNullOrUndefined v
instance MakeObject SVGAnimatedRect where
makeObject = makeObject . unSVGAnimatedRect
instance IsGObject SVGAnimatedRect where
toGObject = GObject . unSVGAnimatedRect
unsafeCastGObject = SVGAnimatedRect . unGObject
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)
newtype SVGAnimatedString = SVGAnimatedString { unSVGAnimatedString :: JSVal }
instance PToJSVal SVGAnimatedString where
pToJSVal = unSVGAnimatedString
instance PFromJSVal SVGAnimatedString where
pFromJSVal = SVGAnimatedString
instance ToJSVal SVGAnimatedString where
toJSVal = return . unSVGAnimatedString
instance FromJSVal SVGAnimatedString where
fromJSVal v = fmap SVGAnimatedString <$> maybeNullOrUndefined v
instance MakeObject SVGAnimatedString where
makeObject = makeObject . unSVGAnimatedString
instance IsGObject SVGAnimatedString where
toGObject = GObject . unSVGAnimatedString
unsafeCastGObject = SVGAnimatedString . unGObject
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)
newtype SVGAnimatedTransformList = SVGAnimatedTransformList { unSVGAnimatedTransformList :: JSVal }
instance PToJSVal SVGAnimatedTransformList where
pToJSVal = unSVGAnimatedTransformList
instance PFromJSVal SVGAnimatedTransformList where
pFromJSVal = SVGAnimatedTransformList
instance ToJSVal SVGAnimatedTransformList where
toJSVal = return . unSVGAnimatedTransformList
instance FromJSVal SVGAnimatedTransformList where
fromJSVal v = fmap SVGAnimatedTransformList <$> maybeNullOrUndefined v
instance MakeObject SVGAnimatedTransformList where
makeObject = makeObject . unSVGAnimatedTransformList
instance IsGObject SVGAnimatedTransformList where
toGObject = GObject . unSVGAnimatedTransformList
unsafeCastGObject = SVGAnimatedTransformList . unGObject
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)
newtype SVGAnimationElement = SVGAnimationElement { unSVGAnimationElement :: JSVal }
instance PToJSVal SVGAnimationElement where
pToJSVal = unSVGAnimationElement
instance PFromJSVal SVGAnimationElement where
pFromJSVal = SVGAnimationElement
instance ToJSVal SVGAnimationElement where
toJSVal = return . unSVGAnimationElement
instance FromJSVal SVGAnimationElement where
fromJSVal v = fmap SVGAnimationElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGAnimationElement . unGObject
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)
newtype SVGCircleElement = SVGCircleElement { unSVGCircleElement :: JSVal }
instance PToJSVal SVGCircleElement where
pToJSVal = unSVGCircleElement
instance PFromJSVal SVGCircleElement where
pFromJSVal = SVGCircleElement
instance ToJSVal SVGCircleElement where
toJSVal = return . unSVGCircleElement
instance FromJSVal SVGCircleElement where
fromJSVal v = fmap SVGCircleElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGCircleElement . unGObject
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)
newtype SVGClipPathElement = SVGClipPathElement { unSVGClipPathElement :: JSVal }
instance PToJSVal SVGClipPathElement where
pToJSVal = unSVGClipPathElement
instance PFromJSVal SVGClipPathElement where
pFromJSVal = SVGClipPathElement
instance ToJSVal SVGClipPathElement where
toJSVal = return . unSVGClipPathElement
instance FromJSVal SVGClipPathElement where
fromJSVal v = fmap SVGClipPathElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGClipPathElement . unGObject
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)
newtype SVGColor = SVGColor { unSVGColor :: JSVal }
instance PToJSVal SVGColor where
pToJSVal = unSVGColor
instance PFromJSVal SVGColor where
pFromJSVal = SVGColor
instance ToJSVal SVGColor where
toJSVal = return . unSVGColor
instance FromJSVal SVGColor where
fromJSVal v = fmap SVGColor <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGColor . unGObject
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)
newtype SVGComponentTransferFunctionElement = SVGComponentTransferFunctionElement { unSVGComponentTransferFunctionElement :: JSVal }
instance PToJSVal SVGComponentTransferFunctionElement where
pToJSVal = unSVGComponentTransferFunctionElement
instance PFromJSVal SVGComponentTransferFunctionElement where
pFromJSVal = SVGComponentTransferFunctionElement
instance ToJSVal SVGComponentTransferFunctionElement where
toJSVal = return . unSVGComponentTransferFunctionElement
instance FromJSVal SVGComponentTransferFunctionElement where
fromJSVal v = fmap SVGComponentTransferFunctionElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGComponentTransferFunctionElement . unGObject
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)
newtype SVGCursorElement = SVGCursorElement { unSVGCursorElement :: JSVal }
instance PToJSVal SVGCursorElement where
pToJSVal = unSVGCursorElement
instance PFromJSVal SVGCursorElement where
pFromJSVal = SVGCursorElement
instance ToJSVal SVGCursorElement where
toJSVal = return . unSVGCursorElement
instance FromJSVal SVGCursorElement where
fromJSVal v = fmap SVGCursorElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGCursorElement . unGObject
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)
newtype SVGDefsElement = SVGDefsElement { unSVGDefsElement :: JSVal }
instance PToJSVal SVGDefsElement where
pToJSVal = unSVGDefsElement
instance PFromJSVal SVGDefsElement where
pFromJSVal = SVGDefsElement
instance ToJSVal SVGDefsElement where
toJSVal = return . unSVGDefsElement
instance FromJSVal SVGDefsElement where
fromJSVal v = fmap SVGDefsElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGDefsElement . unGObject
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)
newtype SVGDescElement = SVGDescElement { unSVGDescElement :: JSVal }
instance PToJSVal SVGDescElement where
pToJSVal = unSVGDescElement
instance PFromJSVal SVGDescElement where
pFromJSVal = SVGDescElement
instance ToJSVal SVGDescElement where
toJSVal = return . unSVGDescElement
instance FromJSVal SVGDescElement where
fromJSVal v = fmap SVGDescElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGDescElement . unGObject
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)
newtype SVGDocument = SVGDocument { unSVGDocument :: JSVal }
instance PToJSVal SVGDocument where
pToJSVal = unSVGDocument
instance PFromJSVal SVGDocument where
pFromJSVal = SVGDocument
instance ToJSVal SVGDocument where
toJSVal = return . unSVGDocument
instance FromJSVal SVGDocument where
fromJSVal v = fmap SVGDocument <$> maybeNullOrUndefined v
instance MakeObject SVGDocument where
makeObject = makeObject . unSVGDocument
instance IsDocument SVGDocument
instance IsNode SVGDocument
instance IsEventTarget SVGDocument
instance IsGObject SVGDocument where
toGObject = GObject . unSVGDocument
unsafeCastGObject = SVGDocument . unGObject
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)
newtype SVGElement = SVGElement { unSVGElement :: JSVal }
instance PToJSVal SVGElement where
pToJSVal = unSVGElement
instance PFromJSVal SVGElement where
pFromJSVal = SVGElement
instance ToJSVal SVGElement where
toJSVal = return . unSVGElement
instance FromJSVal SVGElement where
fromJSVal v = fmap SVGElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGElement . unGObject
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)
newtype SVGEllipseElement = SVGEllipseElement { unSVGEllipseElement :: JSVal }
instance PToJSVal SVGEllipseElement where
pToJSVal = unSVGEllipseElement
instance PFromJSVal SVGEllipseElement where
pFromJSVal = SVGEllipseElement
instance ToJSVal SVGEllipseElement where
toJSVal = return . unSVGEllipseElement
instance FromJSVal SVGEllipseElement where
fromJSVal v = fmap SVGEllipseElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGEllipseElement . unGObject
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)
newtype SVGExternalResourcesRequired = SVGExternalResourcesRequired { unSVGExternalResourcesRequired :: JSVal }
instance PToJSVal SVGExternalResourcesRequired where
pToJSVal = unSVGExternalResourcesRequired
instance PFromJSVal SVGExternalResourcesRequired where
pFromJSVal = SVGExternalResourcesRequired
instance ToJSVal SVGExternalResourcesRequired where
toJSVal = return . unSVGExternalResourcesRequired
instance FromJSVal SVGExternalResourcesRequired where
fromJSVal v = fmap SVGExternalResourcesRequired <$> maybeNullOrUndefined v
instance MakeObject SVGExternalResourcesRequired where
makeObject = makeObject . unSVGExternalResourcesRequired
instance IsGObject SVGExternalResourcesRequired where
toGObject = GObject . unSVGExternalResourcesRequired
unsafeCastGObject = SVGExternalResourcesRequired . unGObject
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)
newtype SVGFEBlendElement = SVGFEBlendElement { unSVGFEBlendElement :: JSVal }
instance PToJSVal SVGFEBlendElement where
pToJSVal = unSVGFEBlendElement
instance PFromJSVal SVGFEBlendElement where
pFromJSVal = SVGFEBlendElement
instance ToJSVal SVGFEBlendElement where
toJSVal = return . unSVGFEBlendElement
instance FromJSVal SVGFEBlendElement where
fromJSVal v = fmap SVGFEBlendElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFEBlendElement . unGObject
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)
newtype SVGFEColorMatrixElement = SVGFEColorMatrixElement { unSVGFEColorMatrixElement :: JSVal }
instance PToJSVal SVGFEColorMatrixElement where
pToJSVal = unSVGFEColorMatrixElement
instance PFromJSVal SVGFEColorMatrixElement where
pFromJSVal = SVGFEColorMatrixElement
instance ToJSVal SVGFEColorMatrixElement where
toJSVal = return . unSVGFEColorMatrixElement
instance FromJSVal SVGFEColorMatrixElement where
fromJSVal v = fmap SVGFEColorMatrixElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFEColorMatrixElement . unGObject
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)
newtype SVGFEComponentTransferElement = SVGFEComponentTransferElement { unSVGFEComponentTransferElement :: JSVal }
instance PToJSVal SVGFEComponentTransferElement where
pToJSVal = unSVGFEComponentTransferElement
instance PFromJSVal SVGFEComponentTransferElement where
pFromJSVal = SVGFEComponentTransferElement
instance ToJSVal SVGFEComponentTransferElement where
toJSVal = return . unSVGFEComponentTransferElement
instance FromJSVal SVGFEComponentTransferElement where
fromJSVal v = fmap SVGFEComponentTransferElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFEComponentTransferElement . unGObject
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)
newtype SVGFECompositeElement = SVGFECompositeElement { unSVGFECompositeElement :: JSVal }
instance PToJSVal SVGFECompositeElement where
pToJSVal = unSVGFECompositeElement
instance PFromJSVal SVGFECompositeElement where
pFromJSVal = SVGFECompositeElement
instance ToJSVal SVGFECompositeElement where
toJSVal = return . unSVGFECompositeElement
instance FromJSVal SVGFECompositeElement where
fromJSVal v = fmap SVGFECompositeElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFECompositeElement . unGObject
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)
newtype SVGFEConvolveMatrixElement = SVGFEConvolveMatrixElement { unSVGFEConvolveMatrixElement :: JSVal }
instance PToJSVal SVGFEConvolveMatrixElement where
pToJSVal = unSVGFEConvolveMatrixElement
instance PFromJSVal SVGFEConvolveMatrixElement where
pFromJSVal = SVGFEConvolveMatrixElement
instance ToJSVal SVGFEConvolveMatrixElement where
toJSVal = return . unSVGFEConvolveMatrixElement
instance FromJSVal SVGFEConvolveMatrixElement where
fromJSVal v = fmap SVGFEConvolveMatrixElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFEConvolveMatrixElement . unGObject
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)
newtype SVGFEDiffuseLightingElement = SVGFEDiffuseLightingElement { unSVGFEDiffuseLightingElement :: JSVal }
instance PToJSVal SVGFEDiffuseLightingElement where
pToJSVal = unSVGFEDiffuseLightingElement
instance PFromJSVal SVGFEDiffuseLightingElement where
pFromJSVal = SVGFEDiffuseLightingElement
instance ToJSVal SVGFEDiffuseLightingElement where
toJSVal = return . unSVGFEDiffuseLightingElement
instance FromJSVal SVGFEDiffuseLightingElement where
fromJSVal v = fmap SVGFEDiffuseLightingElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFEDiffuseLightingElement . unGObject
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)
newtype SVGFEDisplacementMapElement = SVGFEDisplacementMapElement { unSVGFEDisplacementMapElement :: JSVal }
instance PToJSVal SVGFEDisplacementMapElement where
pToJSVal = unSVGFEDisplacementMapElement
instance PFromJSVal SVGFEDisplacementMapElement where
pFromJSVal = SVGFEDisplacementMapElement
instance ToJSVal SVGFEDisplacementMapElement where
toJSVal = return . unSVGFEDisplacementMapElement
instance FromJSVal SVGFEDisplacementMapElement where
fromJSVal v = fmap SVGFEDisplacementMapElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFEDisplacementMapElement . unGObject
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)
newtype SVGFEDistantLightElement = SVGFEDistantLightElement { unSVGFEDistantLightElement :: JSVal }
instance PToJSVal SVGFEDistantLightElement where
pToJSVal = unSVGFEDistantLightElement
instance PFromJSVal SVGFEDistantLightElement where
pFromJSVal = SVGFEDistantLightElement
instance ToJSVal SVGFEDistantLightElement where
toJSVal = return . unSVGFEDistantLightElement
instance FromJSVal SVGFEDistantLightElement where
fromJSVal v = fmap SVGFEDistantLightElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFEDistantLightElement . unGObject
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)
newtype SVGFEDropShadowElement = SVGFEDropShadowElement { unSVGFEDropShadowElement :: JSVal }
instance PToJSVal SVGFEDropShadowElement where
pToJSVal = unSVGFEDropShadowElement
instance PFromJSVal SVGFEDropShadowElement where
pFromJSVal = SVGFEDropShadowElement
instance ToJSVal SVGFEDropShadowElement where
toJSVal = return . unSVGFEDropShadowElement
instance FromJSVal SVGFEDropShadowElement where
fromJSVal v = fmap SVGFEDropShadowElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFEDropShadowElement . unGObject
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)
newtype SVGFEFloodElement = SVGFEFloodElement { unSVGFEFloodElement :: JSVal }
instance PToJSVal SVGFEFloodElement where
pToJSVal = unSVGFEFloodElement
instance PFromJSVal SVGFEFloodElement where
pFromJSVal = SVGFEFloodElement
instance ToJSVal SVGFEFloodElement where
toJSVal = return . unSVGFEFloodElement
instance FromJSVal SVGFEFloodElement where
fromJSVal v = fmap SVGFEFloodElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFEFloodElement . unGObject
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)
newtype SVGFEFuncAElement = SVGFEFuncAElement { unSVGFEFuncAElement :: JSVal }
instance PToJSVal SVGFEFuncAElement where
pToJSVal = unSVGFEFuncAElement
instance PFromJSVal SVGFEFuncAElement where
pFromJSVal = SVGFEFuncAElement
instance ToJSVal SVGFEFuncAElement where
toJSVal = return . unSVGFEFuncAElement
instance FromJSVal SVGFEFuncAElement where
fromJSVal v = fmap SVGFEFuncAElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFEFuncAElement . unGObject
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)
newtype SVGFEFuncBElement = SVGFEFuncBElement { unSVGFEFuncBElement :: JSVal }
instance PToJSVal SVGFEFuncBElement where
pToJSVal = unSVGFEFuncBElement
instance PFromJSVal SVGFEFuncBElement where
pFromJSVal = SVGFEFuncBElement
instance ToJSVal SVGFEFuncBElement where
toJSVal = return . unSVGFEFuncBElement
instance FromJSVal SVGFEFuncBElement where
fromJSVal v = fmap SVGFEFuncBElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFEFuncBElement . unGObject
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)
newtype SVGFEFuncGElement = SVGFEFuncGElement { unSVGFEFuncGElement :: JSVal }
instance PToJSVal SVGFEFuncGElement where
pToJSVal = unSVGFEFuncGElement
instance PFromJSVal SVGFEFuncGElement where
pFromJSVal = SVGFEFuncGElement
instance ToJSVal SVGFEFuncGElement where
toJSVal = return . unSVGFEFuncGElement
instance FromJSVal SVGFEFuncGElement where
fromJSVal v = fmap SVGFEFuncGElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFEFuncGElement . unGObject
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)
newtype SVGFEFuncRElement = SVGFEFuncRElement { unSVGFEFuncRElement :: JSVal }
instance PToJSVal SVGFEFuncRElement where
pToJSVal = unSVGFEFuncRElement
instance PFromJSVal SVGFEFuncRElement where
pFromJSVal = SVGFEFuncRElement
instance ToJSVal SVGFEFuncRElement where
toJSVal = return . unSVGFEFuncRElement
instance FromJSVal SVGFEFuncRElement where
fromJSVal v = fmap SVGFEFuncRElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFEFuncRElement . unGObject
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)
newtype SVGFEGaussianBlurElement = SVGFEGaussianBlurElement { unSVGFEGaussianBlurElement :: JSVal }
instance PToJSVal SVGFEGaussianBlurElement where
pToJSVal = unSVGFEGaussianBlurElement
instance PFromJSVal SVGFEGaussianBlurElement where
pFromJSVal = SVGFEGaussianBlurElement
instance ToJSVal SVGFEGaussianBlurElement where
toJSVal = return . unSVGFEGaussianBlurElement
instance FromJSVal SVGFEGaussianBlurElement where
fromJSVal v = fmap SVGFEGaussianBlurElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFEGaussianBlurElement . unGObject
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)
newtype SVGFEImageElement = SVGFEImageElement { unSVGFEImageElement :: JSVal }
instance PToJSVal SVGFEImageElement where
pToJSVal = unSVGFEImageElement
instance PFromJSVal SVGFEImageElement where
pFromJSVal = SVGFEImageElement
instance ToJSVal SVGFEImageElement where
toJSVal = return . unSVGFEImageElement
instance FromJSVal SVGFEImageElement where
fromJSVal v = fmap SVGFEImageElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFEImageElement . unGObject
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)
newtype SVGFEMergeElement = SVGFEMergeElement { unSVGFEMergeElement :: JSVal }
instance PToJSVal SVGFEMergeElement where
pToJSVal = unSVGFEMergeElement
instance PFromJSVal SVGFEMergeElement where
pFromJSVal = SVGFEMergeElement
instance ToJSVal SVGFEMergeElement where
toJSVal = return . unSVGFEMergeElement
instance FromJSVal SVGFEMergeElement where
fromJSVal v = fmap SVGFEMergeElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFEMergeElement . unGObject
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)
newtype SVGFEMergeNodeElement = SVGFEMergeNodeElement { unSVGFEMergeNodeElement :: JSVal }
instance PToJSVal SVGFEMergeNodeElement where
pToJSVal = unSVGFEMergeNodeElement
instance PFromJSVal SVGFEMergeNodeElement where
pFromJSVal = SVGFEMergeNodeElement
instance ToJSVal SVGFEMergeNodeElement where
toJSVal = return . unSVGFEMergeNodeElement
instance FromJSVal SVGFEMergeNodeElement where
fromJSVal v = fmap SVGFEMergeNodeElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFEMergeNodeElement . unGObject
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)
newtype SVGFEMorphologyElement = SVGFEMorphologyElement { unSVGFEMorphologyElement :: JSVal }
instance PToJSVal SVGFEMorphologyElement where
pToJSVal = unSVGFEMorphologyElement
instance PFromJSVal SVGFEMorphologyElement where
pFromJSVal = SVGFEMorphologyElement
instance ToJSVal SVGFEMorphologyElement where
toJSVal = return . unSVGFEMorphologyElement
instance FromJSVal SVGFEMorphologyElement where
fromJSVal v = fmap SVGFEMorphologyElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFEMorphologyElement . unGObject
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)
newtype SVGFEOffsetElement = SVGFEOffsetElement { unSVGFEOffsetElement :: JSVal }
instance PToJSVal SVGFEOffsetElement where
pToJSVal = unSVGFEOffsetElement
instance PFromJSVal SVGFEOffsetElement where
pFromJSVal = SVGFEOffsetElement
instance ToJSVal SVGFEOffsetElement where
toJSVal = return . unSVGFEOffsetElement
instance FromJSVal SVGFEOffsetElement where
fromJSVal v = fmap SVGFEOffsetElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFEOffsetElement . unGObject
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)
newtype SVGFEPointLightElement = SVGFEPointLightElement { unSVGFEPointLightElement :: JSVal }
instance PToJSVal SVGFEPointLightElement where
pToJSVal = unSVGFEPointLightElement
instance PFromJSVal SVGFEPointLightElement where
pFromJSVal = SVGFEPointLightElement
instance ToJSVal SVGFEPointLightElement where
toJSVal = return . unSVGFEPointLightElement
instance FromJSVal SVGFEPointLightElement where
fromJSVal v = fmap SVGFEPointLightElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFEPointLightElement . unGObject
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)
newtype SVGFESpecularLightingElement = SVGFESpecularLightingElement { unSVGFESpecularLightingElement :: JSVal }
instance PToJSVal SVGFESpecularLightingElement where
pToJSVal = unSVGFESpecularLightingElement
instance PFromJSVal SVGFESpecularLightingElement where
pFromJSVal = SVGFESpecularLightingElement
instance ToJSVal SVGFESpecularLightingElement where
toJSVal = return . unSVGFESpecularLightingElement
instance FromJSVal SVGFESpecularLightingElement where
fromJSVal v = fmap SVGFESpecularLightingElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFESpecularLightingElement . unGObject
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)
newtype SVGFESpotLightElement = SVGFESpotLightElement { unSVGFESpotLightElement :: JSVal }
instance PToJSVal SVGFESpotLightElement where
pToJSVal = unSVGFESpotLightElement
instance PFromJSVal SVGFESpotLightElement where
pFromJSVal = SVGFESpotLightElement
instance ToJSVal SVGFESpotLightElement where
toJSVal = return . unSVGFESpotLightElement
instance FromJSVal SVGFESpotLightElement where
fromJSVal v = fmap SVGFESpotLightElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFESpotLightElement . unGObject
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)
newtype SVGFETileElement = SVGFETileElement { unSVGFETileElement :: JSVal }
instance PToJSVal SVGFETileElement where
pToJSVal = unSVGFETileElement
instance PFromJSVal SVGFETileElement where
pFromJSVal = SVGFETileElement
instance ToJSVal SVGFETileElement where
toJSVal = return . unSVGFETileElement
instance FromJSVal SVGFETileElement where
fromJSVal v = fmap SVGFETileElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFETileElement . unGObject
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)
newtype SVGFETurbulenceElement = SVGFETurbulenceElement { unSVGFETurbulenceElement :: JSVal }
instance PToJSVal SVGFETurbulenceElement where
pToJSVal = unSVGFETurbulenceElement
instance PFromJSVal SVGFETurbulenceElement where
pFromJSVal = SVGFETurbulenceElement
instance ToJSVal SVGFETurbulenceElement where
toJSVal = return . unSVGFETurbulenceElement
instance FromJSVal SVGFETurbulenceElement where
fromJSVal v = fmap SVGFETurbulenceElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFETurbulenceElement . unGObject
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)
newtype SVGFilterElement = SVGFilterElement { unSVGFilterElement :: JSVal }
instance PToJSVal SVGFilterElement where
pToJSVal = unSVGFilterElement
instance PFromJSVal SVGFilterElement where
pFromJSVal = SVGFilterElement
instance ToJSVal SVGFilterElement where
toJSVal = return . unSVGFilterElement
instance FromJSVal SVGFilterElement where
fromJSVal v = fmap SVGFilterElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFilterElement . unGObject
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)
newtype SVGFilterPrimitiveStandardAttributes = SVGFilterPrimitiveStandardAttributes { unSVGFilterPrimitiveStandardAttributes :: JSVal }
instance PToJSVal SVGFilterPrimitiveStandardAttributes where
pToJSVal = unSVGFilterPrimitiveStandardAttributes
instance PFromJSVal SVGFilterPrimitiveStandardAttributes where
pFromJSVal = SVGFilterPrimitiveStandardAttributes
instance ToJSVal SVGFilterPrimitiveStandardAttributes where
toJSVal = return . unSVGFilterPrimitiveStandardAttributes
instance FromJSVal SVGFilterPrimitiveStandardAttributes where
fromJSVal v = fmap SVGFilterPrimitiveStandardAttributes <$> maybeNullOrUndefined v
instance MakeObject SVGFilterPrimitiveStandardAttributes where
makeObject = makeObject . unSVGFilterPrimitiveStandardAttributes
instance IsGObject SVGFilterPrimitiveStandardAttributes where
toGObject = GObject . unSVGFilterPrimitiveStandardAttributes
unsafeCastGObject = SVGFilterPrimitiveStandardAttributes . unGObject
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)
newtype SVGFitToViewBox = SVGFitToViewBox { unSVGFitToViewBox :: JSVal }
instance PToJSVal SVGFitToViewBox where
pToJSVal = unSVGFitToViewBox
instance PFromJSVal SVGFitToViewBox where
pFromJSVal = SVGFitToViewBox
instance ToJSVal SVGFitToViewBox where
toJSVal = return . unSVGFitToViewBox
instance FromJSVal SVGFitToViewBox where
fromJSVal v = fmap SVGFitToViewBox <$> maybeNullOrUndefined v
instance MakeObject SVGFitToViewBox where
makeObject = makeObject . unSVGFitToViewBox
instance IsGObject SVGFitToViewBox where
toGObject = GObject . unSVGFitToViewBox
unsafeCastGObject = SVGFitToViewBox . unGObject
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)
newtype SVGFontElement = SVGFontElement { unSVGFontElement :: JSVal }
instance PToJSVal SVGFontElement where
pToJSVal = unSVGFontElement
instance PFromJSVal SVGFontElement where
pFromJSVal = SVGFontElement
instance ToJSVal SVGFontElement where
toJSVal = return . unSVGFontElement
instance FromJSVal SVGFontElement where
fromJSVal v = fmap SVGFontElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFontElement . unGObject
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)
newtype SVGFontFaceElement = SVGFontFaceElement { unSVGFontFaceElement :: JSVal }
instance PToJSVal SVGFontFaceElement where
pToJSVal = unSVGFontFaceElement
instance PFromJSVal SVGFontFaceElement where
pFromJSVal = SVGFontFaceElement
instance ToJSVal SVGFontFaceElement where
toJSVal = return . unSVGFontFaceElement
instance FromJSVal SVGFontFaceElement where
fromJSVal v = fmap SVGFontFaceElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFontFaceElement . unGObject
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)
newtype SVGFontFaceFormatElement = SVGFontFaceFormatElement { unSVGFontFaceFormatElement :: JSVal }
instance PToJSVal SVGFontFaceFormatElement where
pToJSVal = unSVGFontFaceFormatElement
instance PFromJSVal SVGFontFaceFormatElement where
pFromJSVal = SVGFontFaceFormatElement
instance ToJSVal SVGFontFaceFormatElement where
toJSVal = return . unSVGFontFaceFormatElement
instance FromJSVal SVGFontFaceFormatElement where
fromJSVal v = fmap SVGFontFaceFormatElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFontFaceFormatElement . unGObject
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)
newtype SVGFontFaceNameElement = SVGFontFaceNameElement { unSVGFontFaceNameElement :: JSVal }
instance PToJSVal SVGFontFaceNameElement where
pToJSVal = unSVGFontFaceNameElement
instance PFromJSVal SVGFontFaceNameElement where
pFromJSVal = SVGFontFaceNameElement
instance ToJSVal SVGFontFaceNameElement where
toJSVal = return . unSVGFontFaceNameElement
instance FromJSVal SVGFontFaceNameElement where
fromJSVal v = fmap SVGFontFaceNameElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFontFaceNameElement . unGObject
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)
newtype SVGFontFaceSrcElement = SVGFontFaceSrcElement { unSVGFontFaceSrcElement :: JSVal }
instance PToJSVal SVGFontFaceSrcElement where
pToJSVal = unSVGFontFaceSrcElement
instance PFromJSVal SVGFontFaceSrcElement where
pFromJSVal = SVGFontFaceSrcElement
instance ToJSVal SVGFontFaceSrcElement where
toJSVal = return . unSVGFontFaceSrcElement
instance FromJSVal SVGFontFaceSrcElement where
fromJSVal v = fmap SVGFontFaceSrcElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFontFaceSrcElement . unGObject
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)
newtype SVGFontFaceUriElement = SVGFontFaceUriElement { unSVGFontFaceUriElement :: JSVal }
instance PToJSVal SVGFontFaceUriElement where
pToJSVal = unSVGFontFaceUriElement
instance PFromJSVal SVGFontFaceUriElement where
pFromJSVal = SVGFontFaceUriElement
instance ToJSVal SVGFontFaceUriElement where
toJSVal = return . unSVGFontFaceUriElement
instance FromJSVal SVGFontFaceUriElement where
fromJSVal v = fmap SVGFontFaceUriElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGFontFaceUriElement . unGObject
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)
newtype SVGForeignObjectElement = SVGForeignObjectElement { unSVGForeignObjectElement :: JSVal }
instance PToJSVal SVGForeignObjectElement where
pToJSVal = unSVGForeignObjectElement
instance PFromJSVal SVGForeignObjectElement where
pFromJSVal = SVGForeignObjectElement
instance ToJSVal SVGForeignObjectElement where
toJSVal = return . unSVGForeignObjectElement
instance FromJSVal SVGForeignObjectElement where
fromJSVal v = fmap SVGForeignObjectElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGForeignObjectElement . unGObject
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)
newtype SVGGElement = SVGGElement { unSVGGElement :: JSVal }
instance PToJSVal SVGGElement where
pToJSVal = unSVGGElement
instance PFromJSVal SVGGElement where
pFromJSVal = SVGGElement
instance ToJSVal SVGGElement where
toJSVal = return . unSVGGElement
instance FromJSVal SVGGElement where
fromJSVal v = fmap SVGGElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGGElement . unGObject
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)
newtype SVGGlyphElement = SVGGlyphElement { unSVGGlyphElement :: JSVal }
instance PToJSVal SVGGlyphElement where
pToJSVal = unSVGGlyphElement
instance PFromJSVal SVGGlyphElement where
pFromJSVal = SVGGlyphElement
instance ToJSVal SVGGlyphElement where
toJSVal = return . unSVGGlyphElement
instance FromJSVal SVGGlyphElement where
fromJSVal v = fmap SVGGlyphElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGGlyphElement . unGObject
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)
newtype SVGGlyphRefElement = SVGGlyphRefElement { unSVGGlyphRefElement :: JSVal }
instance PToJSVal SVGGlyphRefElement where
pToJSVal = unSVGGlyphRefElement
instance PFromJSVal SVGGlyphRefElement where
pFromJSVal = SVGGlyphRefElement
instance ToJSVal SVGGlyphRefElement where
toJSVal = return . unSVGGlyphRefElement
instance FromJSVal SVGGlyphRefElement where
fromJSVal v = fmap SVGGlyphRefElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGGlyphRefElement . unGObject
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)
newtype SVGGradientElement = SVGGradientElement { unSVGGradientElement :: JSVal }
instance PToJSVal SVGGradientElement where
pToJSVal = unSVGGradientElement
instance PFromJSVal SVGGradientElement where
pFromJSVal = SVGGradientElement
instance ToJSVal SVGGradientElement where
toJSVal = return . unSVGGradientElement
instance FromJSVal SVGGradientElement where
fromJSVal v = fmap SVGGradientElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGGradientElement . unGObject
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)
newtype SVGGraphicsElement = SVGGraphicsElement { unSVGGraphicsElement :: JSVal }
instance PToJSVal SVGGraphicsElement where
pToJSVal = unSVGGraphicsElement
instance PFromJSVal SVGGraphicsElement where
pFromJSVal = SVGGraphicsElement
instance ToJSVal SVGGraphicsElement where
toJSVal = return . unSVGGraphicsElement
instance FromJSVal SVGGraphicsElement where
fromJSVal v = fmap SVGGraphicsElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGGraphicsElement . unGObject
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)
newtype SVGHKernElement = SVGHKernElement { unSVGHKernElement :: JSVal }
instance PToJSVal SVGHKernElement where
pToJSVal = unSVGHKernElement
instance PFromJSVal SVGHKernElement where
pFromJSVal = SVGHKernElement
instance ToJSVal SVGHKernElement where
toJSVal = return . unSVGHKernElement
instance FromJSVal SVGHKernElement where
fromJSVal v = fmap SVGHKernElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGHKernElement . unGObject
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)
newtype SVGImageElement = SVGImageElement { unSVGImageElement :: JSVal }
instance PToJSVal SVGImageElement where
pToJSVal = unSVGImageElement
instance PFromJSVal SVGImageElement where
pFromJSVal = SVGImageElement
instance ToJSVal SVGImageElement where
toJSVal = return . unSVGImageElement
instance FromJSVal SVGImageElement where
fromJSVal v = fmap SVGImageElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGImageElement . unGObject
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)
newtype SVGLength = SVGLength { unSVGLength :: JSVal }
instance PToJSVal SVGLength where
pToJSVal = unSVGLength
instance PFromJSVal SVGLength where
pFromJSVal = SVGLength
instance ToJSVal SVGLength where
toJSVal = return . unSVGLength
instance FromJSVal SVGLength where
fromJSVal v = fmap SVGLength <$> maybeNullOrUndefined v
instance MakeObject SVGLength where
makeObject = makeObject . unSVGLength
instance IsGObject SVGLength where
toGObject = GObject . unSVGLength
unsafeCastGObject = SVGLength . unGObject
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)
newtype SVGLengthList = SVGLengthList { unSVGLengthList :: JSVal }
instance PToJSVal SVGLengthList where
pToJSVal = unSVGLengthList
instance PFromJSVal SVGLengthList where
pFromJSVal = SVGLengthList
instance ToJSVal SVGLengthList where
toJSVal = return . unSVGLengthList
instance FromJSVal SVGLengthList where
fromJSVal v = fmap SVGLengthList <$> maybeNullOrUndefined v
instance MakeObject SVGLengthList where
makeObject = makeObject . unSVGLengthList
instance IsGObject SVGLengthList where
toGObject = GObject . unSVGLengthList
unsafeCastGObject = SVGLengthList . unGObject
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)
newtype SVGLineElement = SVGLineElement { unSVGLineElement :: JSVal }
instance PToJSVal SVGLineElement where
pToJSVal = unSVGLineElement
instance PFromJSVal SVGLineElement where
pFromJSVal = SVGLineElement
instance ToJSVal SVGLineElement where
toJSVal = return . unSVGLineElement
instance FromJSVal SVGLineElement where
fromJSVal v = fmap SVGLineElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGLineElement . unGObject
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)
newtype SVGLinearGradientElement = SVGLinearGradientElement { unSVGLinearGradientElement :: JSVal }
instance PToJSVal SVGLinearGradientElement where
pToJSVal = unSVGLinearGradientElement
instance PFromJSVal SVGLinearGradientElement where
pFromJSVal = SVGLinearGradientElement
instance ToJSVal SVGLinearGradientElement where
toJSVal = return . unSVGLinearGradientElement
instance FromJSVal SVGLinearGradientElement where
fromJSVal v = fmap SVGLinearGradientElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGLinearGradientElement . unGObject
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)
newtype SVGMPathElement = SVGMPathElement { unSVGMPathElement :: JSVal }
instance PToJSVal SVGMPathElement where
pToJSVal = unSVGMPathElement
instance PFromJSVal SVGMPathElement where
pFromJSVal = SVGMPathElement
instance ToJSVal SVGMPathElement where
toJSVal = return . unSVGMPathElement
instance FromJSVal SVGMPathElement where
fromJSVal v = fmap SVGMPathElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGMPathElement . unGObject
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)
newtype SVGMarkerElement = SVGMarkerElement { unSVGMarkerElement :: JSVal }
instance PToJSVal SVGMarkerElement where
pToJSVal = unSVGMarkerElement
instance PFromJSVal SVGMarkerElement where
pFromJSVal = SVGMarkerElement
instance ToJSVal SVGMarkerElement where
toJSVal = return . unSVGMarkerElement
instance FromJSVal SVGMarkerElement where
fromJSVal v = fmap SVGMarkerElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGMarkerElement . unGObject
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)
newtype SVGMaskElement = SVGMaskElement { unSVGMaskElement :: JSVal }
instance PToJSVal SVGMaskElement where
pToJSVal = unSVGMaskElement
instance PFromJSVal SVGMaskElement where
pFromJSVal = SVGMaskElement
instance ToJSVal SVGMaskElement where
toJSVal = return . unSVGMaskElement
instance FromJSVal SVGMaskElement where
fromJSVal v = fmap SVGMaskElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGMaskElement . unGObject
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)
newtype SVGMatrix = SVGMatrix { unSVGMatrix :: JSVal }
instance PToJSVal SVGMatrix where
pToJSVal = unSVGMatrix
instance PFromJSVal SVGMatrix where
pFromJSVal = SVGMatrix
instance ToJSVal SVGMatrix where
toJSVal = return . unSVGMatrix
instance FromJSVal SVGMatrix where
fromJSVal v = fmap SVGMatrix <$> maybeNullOrUndefined v
instance MakeObject SVGMatrix where
makeObject = makeObject . unSVGMatrix
instance IsGObject SVGMatrix where
toGObject = GObject . unSVGMatrix
unsafeCastGObject = SVGMatrix . unGObject
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)
newtype SVGMetadataElement = SVGMetadataElement { unSVGMetadataElement :: JSVal }
instance PToJSVal SVGMetadataElement where
pToJSVal = unSVGMetadataElement
instance PFromJSVal SVGMetadataElement where
pFromJSVal = SVGMetadataElement
instance ToJSVal SVGMetadataElement where
toJSVal = return . unSVGMetadataElement
instance FromJSVal SVGMetadataElement where
fromJSVal v = fmap SVGMetadataElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGMetadataElement . unGObject
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)
newtype SVGMissingGlyphElement = SVGMissingGlyphElement { unSVGMissingGlyphElement :: JSVal }
instance PToJSVal SVGMissingGlyphElement where
pToJSVal = unSVGMissingGlyphElement
instance PFromJSVal SVGMissingGlyphElement where
pFromJSVal = SVGMissingGlyphElement
instance ToJSVal SVGMissingGlyphElement where
toJSVal = return . unSVGMissingGlyphElement
instance FromJSVal SVGMissingGlyphElement where
fromJSVal v = fmap SVGMissingGlyphElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGMissingGlyphElement . unGObject
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)
newtype SVGNumber = SVGNumber { unSVGNumber :: JSVal }
instance PToJSVal SVGNumber where
pToJSVal = unSVGNumber
instance PFromJSVal SVGNumber where
pFromJSVal = SVGNumber
instance ToJSVal SVGNumber where
toJSVal = return . unSVGNumber
instance FromJSVal SVGNumber where
fromJSVal v = fmap SVGNumber <$> maybeNullOrUndefined v
instance MakeObject SVGNumber where
makeObject = makeObject . unSVGNumber
instance IsGObject SVGNumber where
toGObject = GObject . unSVGNumber
unsafeCastGObject = SVGNumber . unGObject
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)
newtype SVGNumberList = SVGNumberList { unSVGNumberList :: JSVal }
instance PToJSVal SVGNumberList where
pToJSVal = unSVGNumberList
instance PFromJSVal SVGNumberList where
pFromJSVal = SVGNumberList
instance ToJSVal SVGNumberList where
toJSVal = return . unSVGNumberList
instance FromJSVal SVGNumberList where
fromJSVal v = fmap SVGNumberList <$> maybeNullOrUndefined v
instance MakeObject SVGNumberList where
makeObject = makeObject . unSVGNumberList
instance IsGObject SVGNumberList where
toGObject = GObject . unSVGNumberList
unsafeCastGObject = SVGNumberList . unGObject
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)
newtype SVGPaint = SVGPaint { unSVGPaint :: JSVal }
instance PToJSVal SVGPaint where
pToJSVal = unSVGPaint
instance PFromJSVal SVGPaint where
pFromJSVal = SVGPaint
instance ToJSVal SVGPaint where
toJSVal = return . unSVGPaint
instance FromJSVal SVGPaint where
fromJSVal v = fmap SVGPaint <$> maybeNullOrUndefined v
instance MakeObject SVGPaint where
makeObject = makeObject . unSVGPaint
instance IsSVGColor SVGPaint
instance IsCSSValue SVGPaint
instance IsGObject SVGPaint where
toGObject = GObject . unSVGPaint
unsafeCastGObject = SVGPaint . unGObject
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)
newtype SVGPathElement = SVGPathElement { unSVGPathElement :: JSVal }
instance PToJSVal SVGPathElement where
pToJSVal = unSVGPathElement
instance PFromJSVal SVGPathElement where
pFromJSVal = SVGPathElement
instance ToJSVal SVGPathElement where
toJSVal = return . unSVGPathElement
instance FromJSVal SVGPathElement where
fromJSVal v = fmap SVGPathElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGPathElement . unGObject
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)
newtype SVGPathSeg = SVGPathSeg { unSVGPathSeg :: JSVal }
instance PToJSVal SVGPathSeg where
pToJSVal = unSVGPathSeg
instance PFromJSVal SVGPathSeg where
pFromJSVal = SVGPathSeg
instance ToJSVal SVGPathSeg where
toJSVal = return . unSVGPathSeg
instance FromJSVal SVGPathSeg where
fromJSVal v = fmap SVGPathSeg <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGPathSeg . unGObject
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)
newtype SVGPathSegArcAbs = SVGPathSegArcAbs { unSVGPathSegArcAbs :: JSVal }
instance PToJSVal SVGPathSegArcAbs where
pToJSVal = unSVGPathSegArcAbs
instance PFromJSVal SVGPathSegArcAbs where
pFromJSVal = SVGPathSegArcAbs
instance ToJSVal SVGPathSegArcAbs where
toJSVal = return . unSVGPathSegArcAbs
instance FromJSVal SVGPathSegArcAbs where
fromJSVal v = fmap SVGPathSegArcAbs <$> maybeNullOrUndefined v
instance MakeObject SVGPathSegArcAbs where
makeObject = makeObject . unSVGPathSegArcAbs
instance IsSVGPathSeg SVGPathSegArcAbs
instance IsGObject SVGPathSegArcAbs where
toGObject = GObject . unSVGPathSegArcAbs
unsafeCastGObject = SVGPathSegArcAbs . unGObject
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)
newtype SVGPathSegArcRel = SVGPathSegArcRel { unSVGPathSegArcRel :: JSVal }
instance PToJSVal SVGPathSegArcRel where
pToJSVal = unSVGPathSegArcRel
instance PFromJSVal SVGPathSegArcRel where
pFromJSVal = SVGPathSegArcRel
instance ToJSVal SVGPathSegArcRel where
toJSVal = return . unSVGPathSegArcRel
instance FromJSVal SVGPathSegArcRel where
fromJSVal v = fmap SVGPathSegArcRel <$> maybeNullOrUndefined v
instance MakeObject SVGPathSegArcRel where
makeObject = makeObject . unSVGPathSegArcRel
instance IsSVGPathSeg SVGPathSegArcRel
instance IsGObject SVGPathSegArcRel where
toGObject = GObject . unSVGPathSegArcRel
unsafeCastGObject = SVGPathSegArcRel . unGObject
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)
newtype SVGPathSegClosePath = SVGPathSegClosePath { unSVGPathSegClosePath :: JSVal }
instance PToJSVal SVGPathSegClosePath where
pToJSVal = unSVGPathSegClosePath
instance PFromJSVal SVGPathSegClosePath where
pFromJSVal = SVGPathSegClosePath
instance ToJSVal SVGPathSegClosePath where
toJSVal = return . unSVGPathSegClosePath
instance FromJSVal SVGPathSegClosePath where
fromJSVal v = fmap SVGPathSegClosePath <$> maybeNullOrUndefined v
instance MakeObject SVGPathSegClosePath where
makeObject = makeObject . unSVGPathSegClosePath
instance IsSVGPathSeg SVGPathSegClosePath
instance IsGObject SVGPathSegClosePath where
toGObject = GObject . unSVGPathSegClosePath
unsafeCastGObject = SVGPathSegClosePath . unGObject
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)
newtype SVGPathSegCurvetoCubicAbs = SVGPathSegCurvetoCubicAbs { unSVGPathSegCurvetoCubicAbs :: JSVal }
instance PToJSVal SVGPathSegCurvetoCubicAbs where
pToJSVal = unSVGPathSegCurvetoCubicAbs
instance PFromJSVal SVGPathSegCurvetoCubicAbs where
pFromJSVal = SVGPathSegCurvetoCubicAbs
instance ToJSVal SVGPathSegCurvetoCubicAbs where
toJSVal = return . unSVGPathSegCurvetoCubicAbs
instance FromJSVal SVGPathSegCurvetoCubicAbs where
fromJSVal v = fmap SVGPathSegCurvetoCubicAbs <$> maybeNullOrUndefined v
instance MakeObject SVGPathSegCurvetoCubicAbs where
makeObject = makeObject . unSVGPathSegCurvetoCubicAbs
instance IsSVGPathSeg SVGPathSegCurvetoCubicAbs
instance IsGObject SVGPathSegCurvetoCubicAbs where
toGObject = GObject . unSVGPathSegCurvetoCubicAbs
unsafeCastGObject = SVGPathSegCurvetoCubicAbs . unGObject
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)
newtype SVGPathSegCurvetoCubicRel = SVGPathSegCurvetoCubicRel { unSVGPathSegCurvetoCubicRel :: JSVal }
instance PToJSVal SVGPathSegCurvetoCubicRel where
pToJSVal = unSVGPathSegCurvetoCubicRel
instance PFromJSVal SVGPathSegCurvetoCubicRel where
pFromJSVal = SVGPathSegCurvetoCubicRel
instance ToJSVal SVGPathSegCurvetoCubicRel where
toJSVal = return . unSVGPathSegCurvetoCubicRel
instance FromJSVal SVGPathSegCurvetoCubicRel where
fromJSVal v = fmap SVGPathSegCurvetoCubicRel <$> maybeNullOrUndefined v
instance MakeObject SVGPathSegCurvetoCubicRel where
makeObject = makeObject . unSVGPathSegCurvetoCubicRel
instance IsSVGPathSeg SVGPathSegCurvetoCubicRel
instance IsGObject SVGPathSegCurvetoCubicRel where
toGObject = GObject . unSVGPathSegCurvetoCubicRel
unsafeCastGObject = SVGPathSegCurvetoCubicRel . unGObject
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)
newtype SVGPathSegCurvetoCubicSmoothAbs = SVGPathSegCurvetoCubicSmoothAbs { unSVGPathSegCurvetoCubicSmoothAbs :: JSVal }
instance PToJSVal SVGPathSegCurvetoCubicSmoothAbs where
pToJSVal = unSVGPathSegCurvetoCubicSmoothAbs
instance PFromJSVal SVGPathSegCurvetoCubicSmoothAbs where
pFromJSVal = SVGPathSegCurvetoCubicSmoothAbs
instance ToJSVal SVGPathSegCurvetoCubicSmoothAbs where
toJSVal = return . unSVGPathSegCurvetoCubicSmoothAbs
instance FromJSVal SVGPathSegCurvetoCubicSmoothAbs where
fromJSVal v = fmap SVGPathSegCurvetoCubicSmoothAbs <$> maybeNullOrUndefined v
instance MakeObject SVGPathSegCurvetoCubicSmoothAbs where
makeObject = makeObject . unSVGPathSegCurvetoCubicSmoothAbs
instance IsSVGPathSeg SVGPathSegCurvetoCubicSmoothAbs
instance IsGObject SVGPathSegCurvetoCubicSmoothAbs where
toGObject = GObject . unSVGPathSegCurvetoCubicSmoothAbs
unsafeCastGObject = SVGPathSegCurvetoCubicSmoothAbs . unGObject
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)
newtype SVGPathSegCurvetoCubicSmoothRel = SVGPathSegCurvetoCubicSmoothRel { unSVGPathSegCurvetoCubicSmoothRel :: JSVal }
instance PToJSVal SVGPathSegCurvetoCubicSmoothRel where
pToJSVal = unSVGPathSegCurvetoCubicSmoothRel
instance PFromJSVal SVGPathSegCurvetoCubicSmoothRel where
pFromJSVal = SVGPathSegCurvetoCubicSmoothRel
instance ToJSVal SVGPathSegCurvetoCubicSmoothRel where
toJSVal = return . unSVGPathSegCurvetoCubicSmoothRel
instance FromJSVal SVGPathSegCurvetoCubicSmoothRel where
fromJSVal v = fmap SVGPathSegCurvetoCubicSmoothRel <$> maybeNullOrUndefined v
instance MakeObject SVGPathSegCurvetoCubicSmoothRel where
makeObject = makeObject . unSVGPathSegCurvetoCubicSmoothRel
instance IsSVGPathSeg SVGPathSegCurvetoCubicSmoothRel
instance IsGObject SVGPathSegCurvetoCubicSmoothRel where
toGObject = GObject . unSVGPathSegCurvetoCubicSmoothRel
unsafeCastGObject = SVGPathSegCurvetoCubicSmoothRel . unGObject
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)
newtype SVGPathSegCurvetoQuadraticAbs = SVGPathSegCurvetoQuadraticAbs { unSVGPathSegCurvetoQuadraticAbs :: JSVal }
instance PToJSVal SVGPathSegCurvetoQuadraticAbs where
pToJSVal = unSVGPathSegCurvetoQuadraticAbs
instance PFromJSVal SVGPathSegCurvetoQuadraticAbs where
pFromJSVal = SVGPathSegCurvetoQuadraticAbs
instance ToJSVal SVGPathSegCurvetoQuadraticAbs where
toJSVal = return . unSVGPathSegCurvetoQuadraticAbs
instance FromJSVal SVGPathSegCurvetoQuadraticAbs where
fromJSVal v = fmap SVGPathSegCurvetoQuadraticAbs <$> maybeNullOrUndefined v
instance MakeObject SVGPathSegCurvetoQuadraticAbs where
makeObject = makeObject . unSVGPathSegCurvetoQuadraticAbs
instance IsSVGPathSeg SVGPathSegCurvetoQuadraticAbs
instance IsGObject SVGPathSegCurvetoQuadraticAbs where
toGObject = GObject . unSVGPathSegCurvetoQuadraticAbs
unsafeCastGObject = SVGPathSegCurvetoQuadraticAbs . unGObject
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)
newtype SVGPathSegCurvetoQuadraticRel = SVGPathSegCurvetoQuadraticRel { unSVGPathSegCurvetoQuadraticRel :: JSVal }
instance PToJSVal SVGPathSegCurvetoQuadraticRel where
pToJSVal = unSVGPathSegCurvetoQuadraticRel
instance PFromJSVal SVGPathSegCurvetoQuadraticRel where
pFromJSVal = SVGPathSegCurvetoQuadraticRel
instance ToJSVal SVGPathSegCurvetoQuadraticRel where
toJSVal = return . unSVGPathSegCurvetoQuadraticRel
instance FromJSVal SVGPathSegCurvetoQuadraticRel where
fromJSVal v = fmap SVGPathSegCurvetoQuadraticRel <$> maybeNullOrUndefined v
instance MakeObject SVGPathSegCurvetoQuadraticRel where
makeObject = makeObject . unSVGPathSegCurvetoQuadraticRel
instance IsSVGPathSeg SVGPathSegCurvetoQuadraticRel
instance IsGObject SVGPathSegCurvetoQuadraticRel where
toGObject = GObject . unSVGPathSegCurvetoQuadraticRel
unsafeCastGObject = SVGPathSegCurvetoQuadraticRel . unGObject
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)
newtype SVGPathSegCurvetoQuadraticSmoothAbs = SVGPathSegCurvetoQuadraticSmoothAbs { unSVGPathSegCurvetoQuadraticSmoothAbs :: JSVal }
instance PToJSVal SVGPathSegCurvetoQuadraticSmoothAbs where
pToJSVal = unSVGPathSegCurvetoQuadraticSmoothAbs
instance PFromJSVal SVGPathSegCurvetoQuadraticSmoothAbs where
pFromJSVal = SVGPathSegCurvetoQuadraticSmoothAbs
instance ToJSVal SVGPathSegCurvetoQuadraticSmoothAbs where
toJSVal = return . unSVGPathSegCurvetoQuadraticSmoothAbs
instance FromJSVal SVGPathSegCurvetoQuadraticSmoothAbs where
fromJSVal v = fmap SVGPathSegCurvetoQuadraticSmoothAbs <$> maybeNullOrUndefined v
instance MakeObject SVGPathSegCurvetoQuadraticSmoothAbs where
makeObject = makeObject . unSVGPathSegCurvetoQuadraticSmoothAbs
instance IsSVGPathSeg SVGPathSegCurvetoQuadraticSmoothAbs
instance IsGObject SVGPathSegCurvetoQuadraticSmoothAbs where
toGObject = GObject . unSVGPathSegCurvetoQuadraticSmoothAbs
unsafeCastGObject = SVGPathSegCurvetoQuadraticSmoothAbs . unGObject
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)
newtype SVGPathSegCurvetoQuadraticSmoothRel = SVGPathSegCurvetoQuadraticSmoothRel { unSVGPathSegCurvetoQuadraticSmoothRel :: JSVal }
instance PToJSVal SVGPathSegCurvetoQuadraticSmoothRel where
pToJSVal = unSVGPathSegCurvetoQuadraticSmoothRel
instance PFromJSVal SVGPathSegCurvetoQuadraticSmoothRel where
pFromJSVal = SVGPathSegCurvetoQuadraticSmoothRel
instance ToJSVal SVGPathSegCurvetoQuadraticSmoothRel where
toJSVal = return . unSVGPathSegCurvetoQuadraticSmoothRel
instance FromJSVal SVGPathSegCurvetoQuadraticSmoothRel where
fromJSVal v = fmap SVGPathSegCurvetoQuadraticSmoothRel <$> maybeNullOrUndefined v
instance MakeObject SVGPathSegCurvetoQuadraticSmoothRel where
makeObject = makeObject . unSVGPathSegCurvetoQuadraticSmoothRel
instance IsSVGPathSeg SVGPathSegCurvetoQuadraticSmoothRel
instance IsGObject SVGPathSegCurvetoQuadraticSmoothRel where
toGObject = GObject . unSVGPathSegCurvetoQuadraticSmoothRel
unsafeCastGObject = SVGPathSegCurvetoQuadraticSmoothRel . unGObject
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)
newtype SVGPathSegLinetoAbs = SVGPathSegLinetoAbs { unSVGPathSegLinetoAbs :: JSVal }
instance PToJSVal SVGPathSegLinetoAbs where
pToJSVal = unSVGPathSegLinetoAbs
instance PFromJSVal SVGPathSegLinetoAbs where
pFromJSVal = SVGPathSegLinetoAbs
instance ToJSVal SVGPathSegLinetoAbs where
toJSVal = return . unSVGPathSegLinetoAbs
instance FromJSVal SVGPathSegLinetoAbs where
fromJSVal v = fmap SVGPathSegLinetoAbs <$> maybeNullOrUndefined v
instance MakeObject SVGPathSegLinetoAbs where
makeObject = makeObject . unSVGPathSegLinetoAbs
instance IsSVGPathSeg SVGPathSegLinetoAbs
instance IsGObject SVGPathSegLinetoAbs where
toGObject = GObject . unSVGPathSegLinetoAbs
unsafeCastGObject = SVGPathSegLinetoAbs . unGObject
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)
newtype SVGPathSegLinetoHorizontalAbs = SVGPathSegLinetoHorizontalAbs { unSVGPathSegLinetoHorizontalAbs :: JSVal }
instance PToJSVal SVGPathSegLinetoHorizontalAbs where
pToJSVal = unSVGPathSegLinetoHorizontalAbs
instance PFromJSVal SVGPathSegLinetoHorizontalAbs where
pFromJSVal = SVGPathSegLinetoHorizontalAbs
instance ToJSVal SVGPathSegLinetoHorizontalAbs where
toJSVal = return . unSVGPathSegLinetoHorizontalAbs
instance FromJSVal SVGPathSegLinetoHorizontalAbs where
fromJSVal v = fmap SVGPathSegLinetoHorizontalAbs <$> maybeNullOrUndefined v
instance MakeObject SVGPathSegLinetoHorizontalAbs where
makeObject = makeObject . unSVGPathSegLinetoHorizontalAbs
instance IsSVGPathSeg SVGPathSegLinetoHorizontalAbs
instance IsGObject SVGPathSegLinetoHorizontalAbs where
toGObject = GObject . unSVGPathSegLinetoHorizontalAbs
unsafeCastGObject = SVGPathSegLinetoHorizontalAbs . unGObject
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)
newtype SVGPathSegLinetoHorizontalRel = SVGPathSegLinetoHorizontalRel { unSVGPathSegLinetoHorizontalRel :: JSVal }
instance PToJSVal SVGPathSegLinetoHorizontalRel where
pToJSVal = unSVGPathSegLinetoHorizontalRel
instance PFromJSVal SVGPathSegLinetoHorizontalRel where
pFromJSVal = SVGPathSegLinetoHorizontalRel
instance ToJSVal SVGPathSegLinetoHorizontalRel where
toJSVal = return . unSVGPathSegLinetoHorizontalRel
instance FromJSVal SVGPathSegLinetoHorizontalRel where
fromJSVal v = fmap SVGPathSegLinetoHorizontalRel <$> maybeNullOrUndefined v
instance MakeObject SVGPathSegLinetoHorizontalRel where
makeObject = makeObject . unSVGPathSegLinetoHorizontalRel
instance IsSVGPathSeg SVGPathSegLinetoHorizontalRel
instance IsGObject SVGPathSegLinetoHorizontalRel where
toGObject = GObject . unSVGPathSegLinetoHorizontalRel
unsafeCastGObject = SVGPathSegLinetoHorizontalRel . unGObject
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)
newtype SVGPathSegLinetoRel = SVGPathSegLinetoRel { unSVGPathSegLinetoRel :: JSVal }
instance PToJSVal SVGPathSegLinetoRel where
pToJSVal = unSVGPathSegLinetoRel
instance PFromJSVal SVGPathSegLinetoRel where
pFromJSVal = SVGPathSegLinetoRel
instance ToJSVal SVGPathSegLinetoRel where
toJSVal = return . unSVGPathSegLinetoRel
instance FromJSVal SVGPathSegLinetoRel where
fromJSVal v = fmap SVGPathSegLinetoRel <$> maybeNullOrUndefined v
instance MakeObject SVGPathSegLinetoRel where
makeObject = makeObject . unSVGPathSegLinetoRel
instance IsSVGPathSeg SVGPathSegLinetoRel
instance IsGObject SVGPathSegLinetoRel where
toGObject = GObject . unSVGPathSegLinetoRel
unsafeCastGObject = SVGPathSegLinetoRel . unGObject
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)
newtype SVGPathSegLinetoVerticalAbs = SVGPathSegLinetoVerticalAbs { unSVGPathSegLinetoVerticalAbs :: JSVal }
instance PToJSVal SVGPathSegLinetoVerticalAbs where
pToJSVal = unSVGPathSegLinetoVerticalAbs
instance PFromJSVal SVGPathSegLinetoVerticalAbs where
pFromJSVal = SVGPathSegLinetoVerticalAbs
instance ToJSVal SVGPathSegLinetoVerticalAbs where
toJSVal = return . unSVGPathSegLinetoVerticalAbs
instance FromJSVal SVGPathSegLinetoVerticalAbs where
fromJSVal v = fmap SVGPathSegLinetoVerticalAbs <$> maybeNullOrUndefined v
instance MakeObject SVGPathSegLinetoVerticalAbs where
makeObject = makeObject . unSVGPathSegLinetoVerticalAbs
instance IsSVGPathSeg SVGPathSegLinetoVerticalAbs
instance IsGObject SVGPathSegLinetoVerticalAbs where
toGObject = GObject . unSVGPathSegLinetoVerticalAbs
unsafeCastGObject = SVGPathSegLinetoVerticalAbs . unGObject
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)
newtype SVGPathSegLinetoVerticalRel = SVGPathSegLinetoVerticalRel { unSVGPathSegLinetoVerticalRel :: JSVal }
instance PToJSVal SVGPathSegLinetoVerticalRel where
pToJSVal = unSVGPathSegLinetoVerticalRel
instance PFromJSVal SVGPathSegLinetoVerticalRel where
pFromJSVal = SVGPathSegLinetoVerticalRel
instance ToJSVal SVGPathSegLinetoVerticalRel where
toJSVal = return . unSVGPathSegLinetoVerticalRel
instance FromJSVal SVGPathSegLinetoVerticalRel where
fromJSVal v = fmap SVGPathSegLinetoVerticalRel <$> maybeNullOrUndefined v
instance MakeObject SVGPathSegLinetoVerticalRel where
makeObject = makeObject . unSVGPathSegLinetoVerticalRel
instance IsSVGPathSeg SVGPathSegLinetoVerticalRel
instance IsGObject SVGPathSegLinetoVerticalRel where
toGObject = GObject . unSVGPathSegLinetoVerticalRel
unsafeCastGObject = SVGPathSegLinetoVerticalRel . unGObject
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)
newtype SVGPathSegList = SVGPathSegList { unSVGPathSegList :: JSVal }
instance PToJSVal SVGPathSegList where
pToJSVal = unSVGPathSegList
instance PFromJSVal SVGPathSegList where
pFromJSVal = SVGPathSegList
instance ToJSVal SVGPathSegList where
toJSVal = return . unSVGPathSegList
instance FromJSVal SVGPathSegList where
fromJSVal v = fmap SVGPathSegList <$> maybeNullOrUndefined v
instance MakeObject SVGPathSegList where
makeObject = makeObject . unSVGPathSegList
instance IsGObject SVGPathSegList where
toGObject = GObject . unSVGPathSegList
unsafeCastGObject = SVGPathSegList . unGObject
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)
newtype SVGPathSegMovetoAbs = SVGPathSegMovetoAbs { unSVGPathSegMovetoAbs :: JSVal }
instance PToJSVal SVGPathSegMovetoAbs where
pToJSVal = unSVGPathSegMovetoAbs
instance PFromJSVal SVGPathSegMovetoAbs where
pFromJSVal = SVGPathSegMovetoAbs
instance ToJSVal SVGPathSegMovetoAbs where
toJSVal = return . unSVGPathSegMovetoAbs
instance FromJSVal SVGPathSegMovetoAbs where
fromJSVal v = fmap SVGPathSegMovetoAbs <$> maybeNullOrUndefined v
instance MakeObject SVGPathSegMovetoAbs where
makeObject = makeObject . unSVGPathSegMovetoAbs
instance IsSVGPathSeg SVGPathSegMovetoAbs
instance IsGObject SVGPathSegMovetoAbs where
toGObject = GObject . unSVGPathSegMovetoAbs
unsafeCastGObject = SVGPathSegMovetoAbs . unGObject
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)
newtype SVGPathSegMovetoRel = SVGPathSegMovetoRel { unSVGPathSegMovetoRel :: JSVal }
instance PToJSVal SVGPathSegMovetoRel where
pToJSVal = unSVGPathSegMovetoRel
instance PFromJSVal SVGPathSegMovetoRel where
pFromJSVal = SVGPathSegMovetoRel
instance ToJSVal SVGPathSegMovetoRel where
toJSVal = return . unSVGPathSegMovetoRel
instance FromJSVal SVGPathSegMovetoRel where
fromJSVal v = fmap SVGPathSegMovetoRel <$> maybeNullOrUndefined v
instance MakeObject SVGPathSegMovetoRel where
makeObject = makeObject . unSVGPathSegMovetoRel
instance IsSVGPathSeg SVGPathSegMovetoRel
instance IsGObject SVGPathSegMovetoRel where
toGObject = GObject . unSVGPathSegMovetoRel
unsafeCastGObject = SVGPathSegMovetoRel . unGObject
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)
newtype SVGPatternElement = SVGPatternElement { unSVGPatternElement :: JSVal }
instance PToJSVal SVGPatternElement where
pToJSVal = unSVGPatternElement
instance PFromJSVal SVGPatternElement where
pFromJSVal = SVGPatternElement
instance ToJSVal SVGPatternElement where
toJSVal = return . unSVGPatternElement
instance FromJSVal SVGPatternElement where
fromJSVal v = fmap SVGPatternElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGPatternElement . unGObject
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)
newtype SVGPoint = SVGPoint { unSVGPoint :: JSVal }
instance PToJSVal SVGPoint where
pToJSVal = unSVGPoint
instance PFromJSVal SVGPoint where
pFromJSVal = SVGPoint
instance ToJSVal SVGPoint where
toJSVal = return . unSVGPoint
instance FromJSVal SVGPoint where
fromJSVal v = fmap SVGPoint <$> maybeNullOrUndefined v
instance MakeObject SVGPoint where
makeObject = makeObject . unSVGPoint
instance IsGObject SVGPoint where
toGObject = GObject . unSVGPoint
unsafeCastGObject = SVGPoint . unGObject
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)
newtype SVGPointList = SVGPointList { unSVGPointList :: JSVal }
instance PToJSVal SVGPointList where
pToJSVal = unSVGPointList
instance PFromJSVal SVGPointList where
pFromJSVal = SVGPointList
instance ToJSVal SVGPointList where
toJSVal = return . unSVGPointList
instance FromJSVal SVGPointList where
fromJSVal v = fmap SVGPointList <$> maybeNullOrUndefined v
instance MakeObject SVGPointList where
makeObject = makeObject . unSVGPointList
instance IsGObject SVGPointList where
toGObject = GObject . unSVGPointList
unsafeCastGObject = SVGPointList . unGObject
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)
newtype SVGPolygonElement = SVGPolygonElement { unSVGPolygonElement :: JSVal }
instance PToJSVal SVGPolygonElement where
pToJSVal = unSVGPolygonElement
instance PFromJSVal SVGPolygonElement where
pFromJSVal = SVGPolygonElement
instance ToJSVal SVGPolygonElement where
toJSVal = return . unSVGPolygonElement
instance FromJSVal SVGPolygonElement where
fromJSVal v = fmap SVGPolygonElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGPolygonElement . unGObject
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)
newtype SVGPolylineElement = SVGPolylineElement { unSVGPolylineElement :: JSVal }
instance PToJSVal SVGPolylineElement where
pToJSVal = unSVGPolylineElement
instance PFromJSVal SVGPolylineElement where
pFromJSVal = SVGPolylineElement
instance ToJSVal SVGPolylineElement where
toJSVal = return . unSVGPolylineElement
instance FromJSVal SVGPolylineElement where
fromJSVal v = fmap SVGPolylineElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGPolylineElement . unGObject
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)
newtype SVGPreserveAspectRatio = SVGPreserveAspectRatio { unSVGPreserveAspectRatio :: JSVal }
instance PToJSVal SVGPreserveAspectRatio where
pToJSVal = unSVGPreserveAspectRatio
instance PFromJSVal SVGPreserveAspectRatio where
pFromJSVal = SVGPreserveAspectRatio
instance ToJSVal SVGPreserveAspectRatio where
toJSVal = return . unSVGPreserveAspectRatio
instance FromJSVal SVGPreserveAspectRatio where
fromJSVal v = fmap SVGPreserveAspectRatio <$> maybeNullOrUndefined v
instance MakeObject SVGPreserveAspectRatio where
makeObject = makeObject . unSVGPreserveAspectRatio
instance IsGObject SVGPreserveAspectRatio where
toGObject = GObject . unSVGPreserveAspectRatio
unsafeCastGObject = SVGPreserveAspectRatio . unGObject
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)
newtype SVGRadialGradientElement = SVGRadialGradientElement { unSVGRadialGradientElement :: JSVal }
instance PToJSVal SVGRadialGradientElement where
pToJSVal = unSVGRadialGradientElement
instance PFromJSVal SVGRadialGradientElement where
pFromJSVal = SVGRadialGradientElement
instance ToJSVal SVGRadialGradientElement where
toJSVal = return . unSVGRadialGradientElement
instance FromJSVal SVGRadialGradientElement where
fromJSVal v = fmap SVGRadialGradientElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGRadialGradientElement . unGObject
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)
newtype SVGRect = SVGRect { unSVGRect :: JSVal }
instance PToJSVal SVGRect where
pToJSVal = unSVGRect
instance PFromJSVal SVGRect where
pFromJSVal = SVGRect
instance ToJSVal SVGRect where
toJSVal = return . unSVGRect
instance FromJSVal SVGRect where
fromJSVal v = fmap SVGRect <$> maybeNullOrUndefined v
instance MakeObject SVGRect where
makeObject = makeObject . unSVGRect
instance IsGObject SVGRect where
toGObject = GObject . unSVGRect
unsafeCastGObject = SVGRect . unGObject
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)
newtype SVGRectElement = SVGRectElement { unSVGRectElement :: JSVal }
instance PToJSVal SVGRectElement where
pToJSVal = unSVGRectElement
instance PFromJSVal SVGRectElement where
pFromJSVal = SVGRectElement
instance ToJSVal SVGRectElement where
toJSVal = return . unSVGRectElement
instance FromJSVal SVGRectElement where
fromJSVal v = fmap SVGRectElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGRectElement . unGObject
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)
newtype SVGRenderingIntent = SVGRenderingIntent { unSVGRenderingIntent :: JSVal }
instance PToJSVal SVGRenderingIntent where
pToJSVal = unSVGRenderingIntent
instance PFromJSVal SVGRenderingIntent where
pFromJSVal = SVGRenderingIntent
instance ToJSVal SVGRenderingIntent where
toJSVal = return . unSVGRenderingIntent
instance FromJSVal SVGRenderingIntent where
fromJSVal v = fmap SVGRenderingIntent <$> maybeNullOrUndefined v
instance MakeObject SVGRenderingIntent where
makeObject = makeObject . unSVGRenderingIntent
instance IsGObject SVGRenderingIntent where
toGObject = GObject . unSVGRenderingIntent
unsafeCastGObject = SVGRenderingIntent . unGObject
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)
newtype SVGSVGElement = SVGSVGElement { unSVGSVGElement :: JSVal }
instance PToJSVal SVGSVGElement where
pToJSVal = unSVGSVGElement
instance PFromJSVal SVGSVGElement where
pFromJSVal = SVGSVGElement
instance ToJSVal SVGSVGElement where
toJSVal = return . unSVGSVGElement
instance FromJSVal SVGSVGElement where
fromJSVal v = fmap SVGSVGElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGSVGElement . unGObject
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)
newtype SVGScriptElement = SVGScriptElement { unSVGScriptElement :: JSVal }
instance PToJSVal SVGScriptElement where
pToJSVal = unSVGScriptElement
instance PFromJSVal SVGScriptElement where
pFromJSVal = SVGScriptElement
instance ToJSVal SVGScriptElement where
toJSVal = return . unSVGScriptElement
instance FromJSVal SVGScriptElement where
fromJSVal v = fmap SVGScriptElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGScriptElement . unGObject
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)
newtype SVGSetElement = SVGSetElement { unSVGSetElement :: JSVal }
instance PToJSVal SVGSetElement where
pToJSVal = unSVGSetElement
instance PFromJSVal SVGSetElement where
pFromJSVal = SVGSetElement
instance ToJSVal SVGSetElement where
toJSVal = return . unSVGSetElement
instance FromJSVal SVGSetElement where
fromJSVal v = fmap SVGSetElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGSetElement . unGObject
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)
newtype SVGStopElement = SVGStopElement { unSVGStopElement :: JSVal }
instance PToJSVal SVGStopElement where
pToJSVal = unSVGStopElement
instance PFromJSVal SVGStopElement where
pFromJSVal = SVGStopElement
instance ToJSVal SVGStopElement where
toJSVal = return . unSVGStopElement
instance FromJSVal SVGStopElement where
fromJSVal v = fmap SVGStopElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGStopElement . unGObject
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)
newtype SVGStringList = SVGStringList { unSVGStringList :: JSVal }
instance PToJSVal SVGStringList where
pToJSVal = unSVGStringList
instance PFromJSVal SVGStringList where
pFromJSVal = SVGStringList
instance ToJSVal SVGStringList where
toJSVal = return . unSVGStringList
instance FromJSVal SVGStringList where
fromJSVal v = fmap SVGStringList <$> maybeNullOrUndefined v
instance MakeObject SVGStringList where
makeObject = makeObject . unSVGStringList
instance IsGObject SVGStringList where
toGObject = GObject . unSVGStringList
unsafeCastGObject = SVGStringList . unGObject
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)
newtype SVGStyleElement = SVGStyleElement { unSVGStyleElement :: JSVal }
instance PToJSVal SVGStyleElement where
pToJSVal = unSVGStyleElement
instance PFromJSVal SVGStyleElement where
pFromJSVal = SVGStyleElement
instance ToJSVal SVGStyleElement where
toJSVal = return . unSVGStyleElement
instance FromJSVal SVGStyleElement where
fromJSVal v = fmap SVGStyleElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGStyleElement . unGObject
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)
newtype SVGSwitchElement = SVGSwitchElement { unSVGSwitchElement :: JSVal }
instance PToJSVal SVGSwitchElement where
pToJSVal = unSVGSwitchElement
instance PFromJSVal SVGSwitchElement where
pFromJSVal = SVGSwitchElement
instance ToJSVal SVGSwitchElement where
toJSVal = return . unSVGSwitchElement
instance FromJSVal SVGSwitchElement where
fromJSVal v = fmap SVGSwitchElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGSwitchElement . unGObject
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)
newtype SVGSymbolElement = SVGSymbolElement { unSVGSymbolElement :: JSVal }
instance PToJSVal SVGSymbolElement where
pToJSVal = unSVGSymbolElement
instance PFromJSVal SVGSymbolElement where
pFromJSVal = SVGSymbolElement
instance ToJSVal SVGSymbolElement where
toJSVal = return . unSVGSymbolElement
instance FromJSVal SVGSymbolElement where
fromJSVal v = fmap SVGSymbolElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGSymbolElement . unGObject
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)
newtype SVGTRefElement = SVGTRefElement { unSVGTRefElement :: JSVal }
instance PToJSVal SVGTRefElement where
pToJSVal = unSVGTRefElement
instance PFromJSVal SVGTRefElement where
pFromJSVal = SVGTRefElement
instance ToJSVal SVGTRefElement where
toJSVal = return . unSVGTRefElement
instance FromJSVal SVGTRefElement where
fromJSVal v = fmap SVGTRefElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGTRefElement . unGObject
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)
newtype SVGTSpanElement = SVGTSpanElement { unSVGTSpanElement :: JSVal }
instance PToJSVal SVGTSpanElement where
pToJSVal = unSVGTSpanElement
instance PFromJSVal SVGTSpanElement where
pFromJSVal = SVGTSpanElement
instance ToJSVal SVGTSpanElement where
toJSVal = return . unSVGTSpanElement
instance FromJSVal SVGTSpanElement where
fromJSVal v = fmap SVGTSpanElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGTSpanElement . unGObject
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)
newtype SVGTests = SVGTests { unSVGTests :: JSVal }
instance PToJSVal SVGTests where
pToJSVal = unSVGTests
instance PFromJSVal SVGTests where
pFromJSVal = SVGTests
instance ToJSVal SVGTests where
toJSVal = return . unSVGTests
instance FromJSVal SVGTests where
fromJSVal v = fmap SVGTests <$> maybeNullOrUndefined v
instance MakeObject SVGTests where
makeObject = makeObject . unSVGTests
instance IsGObject SVGTests where
toGObject = GObject . unSVGTests
unsafeCastGObject = SVGTests . unGObject
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)
newtype SVGTextContentElement = SVGTextContentElement { unSVGTextContentElement :: JSVal }
instance PToJSVal SVGTextContentElement where
pToJSVal = unSVGTextContentElement
instance PFromJSVal SVGTextContentElement where
pFromJSVal = SVGTextContentElement
instance ToJSVal SVGTextContentElement where
toJSVal = return . unSVGTextContentElement
instance FromJSVal SVGTextContentElement where
fromJSVal v = fmap SVGTextContentElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGTextContentElement . unGObject
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)
newtype SVGTextElement = SVGTextElement { unSVGTextElement :: JSVal }
instance PToJSVal SVGTextElement where
pToJSVal = unSVGTextElement
instance PFromJSVal SVGTextElement where
pFromJSVal = SVGTextElement
instance ToJSVal SVGTextElement where
toJSVal = return . unSVGTextElement
instance FromJSVal SVGTextElement where
fromJSVal v = fmap SVGTextElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGTextElement . unGObject
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)
newtype SVGTextPathElement = SVGTextPathElement { unSVGTextPathElement :: JSVal }
instance PToJSVal SVGTextPathElement where
pToJSVal = unSVGTextPathElement
instance PFromJSVal SVGTextPathElement where
pFromJSVal = SVGTextPathElement
instance ToJSVal SVGTextPathElement where
toJSVal = return . unSVGTextPathElement
instance FromJSVal SVGTextPathElement where
fromJSVal v = fmap SVGTextPathElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGTextPathElement . unGObject
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)
newtype SVGTextPositioningElement = SVGTextPositioningElement { unSVGTextPositioningElement :: JSVal }
instance PToJSVal SVGTextPositioningElement where
pToJSVal = unSVGTextPositioningElement
instance PFromJSVal SVGTextPositioningElement where
pFromJSVal = SVGTextPositioningElement
instance ToJSVal SVGTextPositioningElement where
toJSVal = return . unSVGTextPositioningElement
instance FromJSVal SVGTextPositioningElement where
fromJSVal v = fmap SVGTextPositioningElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGTextPositioningElement . unGObject
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)
newtype SVGTitleElement = SVGTitleElement { unSVGTitleElement :: JSVal }
instance PToJSVal SVGTitleElement where
pToJSVal = unSVGTitleElement
instance PFromJSVal SVGTitleElement where
pFromJSVal = SVGTitleElement
instance ToJSVal SVGTitleElement where
toJSVal = return . unSVGTitleElement
instance FromJSVal SVGTitleElement where
fromJSVal v = fmap SVGTitleElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGTitleElement . unGObject
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)
newtype SVGTransform = SVGTransform { unSVGTransform :: JSVal }
instance PToJSVal SVGTransform where
pToJSVal = unSVGTransform
instance PFromJSVal SVGTransform where
pFromJSVal = SVGTransform
instance ToJSVal SVGTransform where
toJSVal = return . unSVGTransform
instance FromJSVal SVGTransform where
fromJSVal v = fmap SVGTransform <$> maybeNullOrUndefined v
instance MakeObject SVGTransform where
makeObject = makeObject . unSVGTransform
instance IsGObject SVGTransform where
toGObject = GObject . unSVGTransform
unsafeCastGObject = SVGTransform . unGObject
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)
newtype SVGTransformList = SVGTransformList { unSVGTransformList :: JSVal }
instance PToJSVal SVGTransformList where
pToJSVal = unSVGTransformList
instance PFromJSVal SVGTransformList where
pFromJSVal = SVGTransformList
instance ToJSVal SVGTransformList where
toJSVal = return . unSVGTransformList
instance FromJSVal SVGTransformList where
fromJSVal v = fmap SVGTransformList <$> maybeNullOrUndefined v
instance MakeObject SVGTransformList where
makeObject = makeObject . unSVGTransformList
instance IsGObject SVGTransformList where
toGObject = GObject . unSVGTransformList
unsafeCastGObject = SVGTransformList . unGObject
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)
newtype SVGURIReference = SVGURIReference { unSVGURIReference :: JSVal }
instance PToJSVal SVGURIReference where
pToJSVal = unSVGURIReference
instance PFromJSVal SVGURIReference where
pFromJSVal = SVGURIReference
instance ToJSVal SVGURIReference where
toJSVal = return . unSVGURIReference
instance FromJSVal SVGURIReference where
fromJSVal v = fmap SVGURIReference <$> maybeNullOrUndefined v
instance MakeObject SVGURIReference where
makeObject = makeObject . unSVGURIReference
instance IsGObject SVGURIReference where
toGObject = GObject . unSVGURIReference
unsafeCastGObject = SVGURIReference . unGObject
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)
newtype SVGUnitTypes = SVGUnitTypes { unSVGUnitTypes :: JSVal }
instance PToJSVal SVGUnitTypes where
pToJSVal = unSVGUnitTypes
instance PFromJSVal SVGUnitTypes where
pFromJSVal = SVGUnitTypes
instance ToJSVal SVGUnitTypes where
toJSVal = return . unSVGUnitTypes
instance FromJSVal SVGUnitTypes where
fromJSVal v = fmap SVGUnitTypes <$> maybeNullOrUndefined v
instance MakeObject SVGUnitTypes where
makeObject = makeObject . unSVGUnitTypes
instance IsGObject SVGUnitTypes where
toGObject = GObject . unSVGUnitTypes
unsafeCastGObject = SVGUnitTypes . unGObject
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)
newtype SVGUseElement = SVGUseElement { unSVGUseElement :: JSVal }
instance PToJSVal SVGUseElement where
pToJSVal = unSVGUseElement
instance PFromJSVal SVGUseElement where
pFromJSVal = SVGUseElement
instance ToJSVal SVGUseElement where
toJSVal = return . unSVGUseElement
instance FromJSVal SVGUseElement where
fromJSVal v = fmap SVGUseElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGUseElement . unGObject
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)
newtype SVGVKernElement = SVGVKernElement { unSVGVKernElement :: JSVal }
instance PToJSVal SVGVKernElement where
pToJSVal = unSVGVKernElement
instance PFromJSVal SVGVKernElement where
pFromJSVal = SVGVKernElement
instance ToJSVal SVGVKernElement where
toJSVal = return . unSVGVKernElement
instance FromJSVal SVGVKernElement where
fromJSVal v = fmap SVGVKernElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGVKernElement . unGObject
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)
newtype SVGViewElement = SVGViewElement { unSVGViewElement :: JSVal }
instance PToJSVal SVGViewElement where
pToJSVal = unSVGViewElement
instance PFromJSVal SVGViewElement where
pFromJSVal = SVGViewElement
instance ToJSVal SVGViewElement where
toJSVal = return . unSVGViewElement
instance FromJSVal SVGViewElement where
fromJSVal v = fmap SVGViewElement <$> maybeNullOrUndefined v
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
unsafeCastGObject = SVGViewElement . unGObject
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)
newtype SVGViewSpec = SVGViewSpec { unSVGViewSpec :: JSVal }
instance PToJSVal SVGViewSpec where
pToJSVal = unSVGViewSpec
instance PFromJSVal SVGViewSpec where
pFromJSVal = SVGViewSpec
instance ToJSVal SVGViewSpec where
toJSVal = return . unSVGViewSpec
instance FromJSVal SVGViewSpec where
fromJSVal v = fmap SVGViewSpec <$> maybeNullOrUndefined v
instance MakeObject SVGViewSpec where
makeObject = makeObject . unSVGViewSpec
instance IsGObject SVGViewSpec where
toGObject = GObject . unSVGViewSpec
unsafeCastGObject = SVGViewSpec . unGObject
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)
newtype SVGZoomAndPan = SVGZoomAndPan { unSVGZoomAndPan :: JSVal }
instance PToJSVal SVGZoomAndPan where
pToJSVal = unSVGZoomAndPan
instance PFromJSVal SVGZoomAndPan where
pFromJSVal = SVGZoomAndPan
instance ToJSVal SVGZoomAndPan where
toJSVal = return . unSVGZoomAndPan
instance FromJSVal SVGZoomAndPan where
fromJSVal v = fmap SVGZoomAndPan <$> maybeNullOrUndefined v
instance MakeObject SVGZoomAndPan where
makeObject = makeObject . unSVGZoomAndPan
instance IsGObject SVGZoomAndPan where
toGObject = GObject . unSVGZoomAndPan
unsafeCastGObject = SVGZoomAndPan . unGObject
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)
newtype SVGZoomEvent = SVGZoomEvent { unSVGZoomEvent :: JSVal }
instance PToJSVal SVGZoomEvent where
pToJSVal = unSVGZoomEvent
instance PFromJSVal SVGZoomEvent where
pFromJSVal = SVGZoomEvent
instance ToJSVal SVGZoomEvent where
toJSVal = return . unSVGZoomEvent
instance FromJSVal SVGZoomEvent where
fromJSVal v = fmap SVGZoomEvent <$> maybeNullOrUndefined v
instance MakeObject SVGZoomEvent where
makeObject = makeObject . unSVGZoomEvent
instance IsUIEvent SVGZoomEvent
instance IsEvent SVGZoomEvent
instance IsGObject SVGZoomEvent where
toGObject = GObject . unSVGZoomEvent
unsafeCastGObject = SVGZoomEvent . unGObject
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)
newtype Screen = Screen { unScreen :: JSVal }
instance PToJSVal Screen where
pToJSVal = unScreen
instance PFromJSVal Screen where
pFromJSVal = Screen
instance ToJSVal Screen where
toJSVal = return . unScreen
instance FromJSVal Screen where
fromJSVal v = fmap Screen <$> maybeNullOrUndefined v
instance MakeObject Screen where
makeObject = makeObject . unScreen
instance IsGObject Screen where
toGObject = GObject . unScreen
unsafeCastGObject = Screen . unGObject
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)
newtype ScriptProcessorNode = ScriptProcessorNode { unScriptProcessorNode :: JSVal }
instance PToJSVal ScriptProcessorNode where
pToJSVal = unScriptProcessorNode
instance PFromJSVal ScriptProcessorNode where
pFromJSVal = ScriptProcessorNode
instance ToJSVal ScriptProcessorNode where
toJSVal = return . unScriptProcessorNode
instance FromJSVal ScriptProcessorNode where
fromJSVal v = fmap ScriptProcessorNode <$> maybeNullOrUndefined v
instance MakeObject ScriptProcessorNode where
makeObject = makeObject . unScriptProcessorNode
instance IsAudioNode ScriptProcessorNode
instance IsEventTarget ScriptProcessorNode
instance IsGObject ScriptProcessorNode where
toGObject = GObject . unScriptProcessorNode
unsafeCastGObject = ScriptProcessorNode . unGObject
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)
newtype ScriptProfile = ScriptProfile { unScriptProfile :: JSVal }
instance PToJSVal ScriptProfile where
pToJSVal = unScriptProfile
instance PFromJSVal ScriptProfile where
pFromJSVal = ScriptProfile
instance ToJSVal ScriptProfile where
toJSVal = return . unScriptProfile
instance FromJSVal ScriptProfile where
fromJSVal v = fmap ScriptProfile <$> maybeNullOrUndefined v
instance MakeObject ScriptProfile where
makeObject = makeObject . unScriptProfile
instance IsGObject ScriptProfile where
toGObject = GObject . unScriptProfile
unsafeCastGObject = ScriptProfile . unGObject
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)
newtype ScriptProfileNode = ScriptProfileNode { unScriptProfileNode :: JSVal }
instance PToJSVal ScriptProfileNode where
pToJSVal = unScriptProfileNode
instance PFromJSVal ScriptProfileNode where
pFromJSVal = ScriptProfileNode
instance ToJSVal ScriptProfileNode where
toJSVal = return . unScriptProfileNode
instance FromJSVal ScriptProfileNode where
fromJSVal v = fmap ScriptProfileNode <$> maybeNullOrUndefined v
instance MakeObject ScriptProfileNode where
makeObject = makeObject . unScriptProfileNode
instance IsGObject ScriptProfileNode where
toGObject = GObject . unScriptProfileNode
unsafeCastGObject = ScriptProfileNode . unGObject
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)
newtype SecurityPolicy = SecurityPolicy { unSecurityPolicy :: JSVal }
instance PToJSVal SecurityPolicy where
pToJSVal = unSecurityPolicy
instance PFromJSVal SecurityPolicy where
pFromJSVal = SecurityPolicy
instance ToJSVal SecurityPolicy where
toJSVal = return . unSecurityPolicy
instance FromJSVal SecurityPolicy where
fromJSVal v = fmap SecurityPolicy <$> maybeNullOrUndefined v
instance MakeObject SecurityPolicy where
makeObject = makeObject . unSecurityPolicy
instance IsGObject SecurityPolicy where
toGObject = GObject . unSecurityPolicy
unsafeCastGObject = SecurityPolicy . unGObject
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)
newtype SecurityPolicyViolationEvent = SecurityPolicyViolationEvent { unSecurityPolicyViolationEvent :: JSVal }
instance PToJSVal SecurityPolicyViolationEvent where
pToJSVal = unSecurityPolicyViolationEvent
instance PFromJSVal SecurityPolicyViolationEvent where
pFromJSVal = SecurityPolicyViolationEvent
instance ToJSVal SecurityPolicyViolationEvent where
toJSVal = return . unSecurityPolicyViolationEvent
instance FromJSVal SecurityPolicyViolationEvent where
fromJSVal v = fmap SecurityPolicyViolationEvent <$> maybeNullOrUndefined v
instance MakeObject SecurityPolicyViolationEvent where
makeObject = makeObject . unSecurityPolicyViolationEvent
instance IsEvent SecurityPolicyViolationEvent
instance IsGObject SecurityPolicyViolationEvent where
toGObject = GObject . unSecurityPolicyViolationEvent
unsafeCastGObject = SecurityPolicyViolationEvent . unGObject
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)
newtype Selection = Selection { unSelection :: JSVal }
instance PToJSVal Selection where
pToJSVal = unSelection
instance PFromJSVal Selection where
pFromJSVal = Selection
instance ToJSVal Selection where
toJSVal = return . unSelection
instance FromJSVal Selection where
fromJSVal v = fmap Selection <$> maybeNullOrUndefined v
instance MakeObject Selection where
makeObject = makeObject . unSelection
instance IsGObject Selection where
toGObject = GObject . unSelection
unsafeCastGObject = Selection . unGObject
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)
newtype SourceBuffer = SourceBuffer { unSourceBuffer :: JSVal }
instance PToJSVal SourceBuffer where
pToJSVal = unSourceBuffer
instance PFromJSVal SourceBuffer where
pFromJSVal = SourceBuffer
instance ToJSVal SourceBuffer where
toJSVal = return . unSourceBuffer
instance FromJSVal SourceBuffer where
fromJSVal v = fmap SourceBuffer <$> maybeNullOrUndefined v
instance MakeObject SourceBuffer where
makeObject = makeObject . unSourceBuffer
instance IsEventTarget SourceBuffer
instance IsGObject SourceBuffer where
toGObject = GObject . unSourceBuffer
unsafeCastGObject = SourceBuffer . unGObject
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)
newtype SourceBufferList = SourceBufferList { unSourceBufferList :: JSVal }
instance PToJSVal SourceBufferList where
pToJSVal = unSourceBufferList
instance PFromJSVal SourceBufferList where
pFromJSVal = SourceBufferList
instance ToJSVal SourceBufferList where
toJSVal = return . unSourceBufferList
instance FromJSVal SourceBufferList where
fromJSVal v = fmap SourceBufferList <$> maybeNullOrUndefined v
instance MakeObject SourceBufferList where
makeObject = makeObject . unSourceBufferList
instance IsEventTarget SourceBufferList
instance IsGObject SourceBufferList where
toGObject = GObject . unSourceBufferList
unsafeCastGObject = SourceBufferList . unGObject
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)
newtype SourceInfo = SourceInfo { unSourceInfo :: JSVal }
instance PToJSVal SourceInfo where
pToJSVal = unSourceInfo
instance PFromJSVal SourceInfo where
pFromJSVal = SourceInfo
instance ToJSVal SourceInfo where
toJSVal = return . unSourceInfo
instance FromJSVal SourceInfo where
fromJSVal v = fmap SourceInfo <$> maybeNullOrUndefined v
instance MakeObject SourceInfo where
makeObject = makeObject . unSourceInfo
instance IsGObject SourceInfo where
toGObject = GObject . unSourceInfo
unsafeCastGObject = SourceInfo . unGObject
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)
newtype SpeechSynthesis = SpeechSynthesis { unSpeechSynthesis :: JSVal }
instance PToJSVal SpeechSynthesis where
pToJSVal = unSpeechSynthesis
instance PFromJSVal SpeechSynthesis where
pFromJSVal = SpeechSynthesis
instance ToJSVal SpeechSynthesis where
toJSVal = return . unSpeechSynthesis
instance FromJSVal SpeechSynthesis where
fromJSVal v = fmap SpeechSynthesis <$> maybeNullOrUndefined v
instance MakeObject SpeechSynthesis where
makeObject = makeObject . unSpeechSynthesis
instance IsGObject SpeechSynthesis where
toGObject = GObject . unSpeechSynthesis
unsafeCastGObject = SpeechSynthesis . unGObject
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)
newtype SpeechSynthesisEvent = SpeechSynthesisEvent { unSpeechSynthesisEvent :: JSVal }
instance PToJSVal SpeechSynthesisEvent where
pToJSVal = unSpeechSynthesisEvent
instance PFromJSVal SpeechSynthesisEvent where
pFromJSVal = SpeechSynthesisEvent
instance ToJSVal SpeechSynthesisEvent where
toJSVal = return . unSpeechSynthesisEvent
instance FromJSVal SpeechSynthesisEvent where
fromJSVal v = fmap SpeechSynthesisEvent <$> maybeNullOrUndefined v
instance MakeObject SpeechSynthesisEvent where
makeObject = makeObject . unSpeechSynthesisEvent
instance IsEvent SpeechSynthesisEvent
instance IsGObject SpeechSynthesisEvent where
toGObject = GObject . unSpeechSynthesisEvent
unsafeCastGObject = SpeechSynthesisEvent . unGObject
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)
newtype SpeechSynthesisUtterance = SpeechSynthesisUtterance { unSpeechSynthesisUtterance :: JSVal }
instance PToJSVal SpeechSynthesisUtterance where
pToJSVal = unSpeechSynthesisUtterance
instance PFromJSVal SpeechSynthesisUtterance where
pFromJSVal = SpeechSynthesisUtterance
instance ToJSVal SpeechSynthesisUtterance where
toJSVal = return . unSpeechSynthesisUtterance
instance FromJSVal SpeechSynthesisUtterance where
fromJSVal v = fmap SpeechSynthesisUtterance <$> maybeNullOrUndefined v
instance MakeObject SpeechSynthesisUtterance where
makeObject = makeObject . unSpeechSynthesisUtterance
instance IsEventTarget SpeechSynthesisUtterance
instance IsGObject SpeechSynthesisUtterance where
toGObject = GObject . unSpeechSynthesisUtterance
unsafeCastGObject = SpeechSynthesisUtterance . unGObject
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)
newtype SpeechSynthesisVoice = SpeechSynthesisVoice { unSpeechSynthesisVoice :: JSVal }
instance PToJSVal SpeechSynthesisVoice where
pToJSVal = unSpeechSynthesisVoice
instance PFromJSVal SpeechSynthesisVoice where
pFromJSVal = SpeechSynthesisVoice
instance ToJSVal SpeechSynthesisVoice where
toJSVal = return . unSpeechSynthesisVoice
instance FromJSVal SpeechSynthesisVoice where
fromJSVal v = fmap SpeechSynthesisVoice <$> maybeNullOrUndefined v
instance MakeObject SpeechSynthesisVoice where
makeObject = makeObject . unSpeechSynthesisVoice
instance IsGObject SpeechSynthesisVoice where
toGObject = GObject . unSpeechSynthesisVoice
unsafeCastGObject = SpeechSynthesisVoice . unGObject
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)
newtype Storage = Storage { unStorage :: JSVal }
instance PToJSVal Storage where
pToJSVal = unStorage
instance PFromJSVal Storage where
pFromJSVal = Storage
instance ToJSVal Storage where
toJSVal = return . unStorage
instance FromJSVal Storage where
fromJSVal v = fmap Storage <$> maybeNullOrUndefined v
instance MakeObject Storage where
makeObject = makeObject . unStorage
instance IsGObject Storage where
toGObject = GObject . unStorage
unsafeCastGObject = Storage . unGObject
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)
newtype StorageEvent = StorageEvent { unStorageEvent :: JSVal }
instance PToJSVal StorageEvent where
pToJSVal = unStorageEvent
instance PFromJSVal StorageEvent where
pFromJSVal = StorageEvent
instance ToJSVal StorageEvent where
toJSVal = return . unStorageEvent
instance FromJSVal StorageEvent where
fromJSVal v = fmap StorageEvent <$> maybeNullOrUndefined v
instance MakeObject StorageEvent where
makeObject = makeObject . unStorageEvent
instance IsEvent StorageEvent
instance IsGObject StorageEvent where
toGObject = GObject . unStorageEvent
unsafeCastGObject = StorageEvent . unGObject
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)
newtype StorageInfo = StorageInfo { unStorageInfo :: JSVal }
instance PToJSVal StorageInfo where
pToJSVal = unStorageInfo
instance PFromJSVal StorageInfo where
pFromJSVal = StorageInfo
instance ToJSVal StorageInfo where
toJSVal = return . unStorageInfo
instance FromJSVal StorageInfo where
fromJSVal v = fmap StorageInfo <$> maybeNullOrUndefined v
instance MakeObject StorageInfo where
makeObject = makeObject . unStorageInfo
instance IsGObject StorageInfo where
toGObject = GObject . unStorageInfo
unsafeCastGObject = StorageInfo . unGObject
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)
newtype StorageQuota = StorageQuota { unStorageQuota :: JSVal }
instance PToJSVal StorageQuota where
pToJSVal = unStorageQuota
instance PFromJSVal StorageQuota where
pFromJSVal = StorageQuota
instance ToJSVal StorageQuota where
toJSVal = return . unStorageQuota
instance FromJSVal StorageQuota where
fromJSVal v = fmap StorageQuota <$> maybeNullOrUndefined v
instance MakeObject StorageQuota where
makeObject = makeObject . unStorageQuota
instance IsGObject StorageQuota where
toGObject = GObject . unStorageQuota
unsafeCastGObject = StorageQuota . unGObject
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)
newtype StyleMedia = StyleMedia { unStyleMedia :: JSVal }
instance PToJSVal StyleMedia where
pToJSVal = unStyleMedia
instance PFromJSVal StyleMedia where
pFromJSVal = StyleMedia
instance ToJSVal StyleMedia where
toJSVal = return . unStyleMedia
instance FromJSVal StyleMedia where
fromJSVal v = fmap StyleMedia <$> maybeNullOrUndefined v
instance MakeObject StyleMedia where
makeObject = makeObject . unStyleMedia
instance IsGObject StyleMedia where
toGObject = GObject . unStyleMedia
unsafeCastGObject = StyleMedia . unGObject
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)
newtype StyleSheet = StyleSheet { unStyleSheet :: JSVal }
instance PToJSVal StyleSheet where
pToJSVal = unStyleSheet
instance PFromJSVal StyleSheet where
pFromJSVal = StyleSheet
instance ToJSVal StyleSheet where
toJSVal = return . unStyleSheet
instance FromJSVal StyleSheet where
fromJSVal v = fmap StyleSheet <$> maybeNullOrUndefined v
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
unsafeCastGObject = StyleSheet . unGObject
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)
newtype StyleSheetList = StyleSheetList { unStyleSheetList :: JSVal }
instance PToJSVal StyleSheetList where
pToJSVal = unStyleSheetList
instance PFromJSVal StyleSheetList where
pFromJSVal = StyleSheetList
instance ToJSVal StyleSheetList where
toJSVal = return . unStyleSheetList
instance FromJSVal StyleSheetList where
fromJSVal v = fmap StyleSheetList <$> maybeNullOrUndefined v
instance MakeObject StyleSheetList where
makeObject = makeObject . unStyleSheetList
instance IsGObject StyleSheetList where
toGObject = GObject . unStyleSheetList
unsafeCastGObject = StyleSheetList . unGObject
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)
newtype SubtleCrypto = SubtleCrypto { unSubtleCrypto :: JSVal }
instance PToJSVal SubtleCrypto where
pToJSVal = unSubtleCrypto
instance PFromJSVal SubtleCrypto where
pFromJSVal = SubtleCrypto
instance ToJSVal SubtleCrypto where
toJSVal = return . unSubtleCrypto
instance FromJSVal SubtleCrypto where
fromJSVal v = fmap SubtleCrypto <$> maybeNullOrUndefined v
instance MakeObject SubtleCrypto where
makeObject = makeObject . unSubtleCrypto
instance IsGObject SubtleCrypto where
toGObject = GObject . unSubtleCrypto
unsafeCastGObject = SubtleCrypto . unGObject
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)
newtype Text = Text { unText :: JSVal }
instance PToJSVal Text where
pToJSVal = unText
instance PFromJSVal Text where
pFromJSVal = Text
instance ToJSVal Text where
toJSVal = return . unText
instance FromJSVal Text where
fromJSVal v = fmap Text <$> maybeNullOrUndefined v
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
unsafeCastGObject = Text . unGObject
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)
newtype TextEvent = TextEvent { unTextEvent :: JSVal }
instance PToJSVal TextEvent where
pToJSVal = unTextEvent
instance PFromJSVal TextEvent where
pFromJSVal = TextEvent
instance ToJSVal TextEvent where
toJSVal = return . unTextEvent
instance FromJSVal TextEvent where
fromJSVal v = fmap TextEvent <$> maybeNullOrUndefined v
instance MakeObject TextEvent where
makeObject = makeObject . unTextEvent
instance IsUIEvent TextEvent
instance IsEvent TextEvent
instance IsGObject TextEvent where
toGObject = GObject . unTextEvent
unsafeCastGObject = TextEvent . unGObject
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)
newtype TextMetrics = TextMetrics { unTextMetrics :: JSVal }
instance PToJSVal TextMetrics where
pToJSVal = unTextMetrics
instance PFromJSVal TextMetrics where
pFromJSVal = TextMetrics
instance ToJSVal TextMetrics where
toJSVal = return . unTextMetrics
instance FromJSVal TextMetrics where
fromJSVal v = fmap TextMetrics <$> maybeNullOrUndefined v
instance MakeObject TextMetrics where
makeObject = makeObject . unTextMetrics
instance IsGObject TextMetrics where
toGObject = GObject . unTextMetrics
unsafeCastGObject = TextMetrics . unGObject
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)
newtype TextTrack = TextTrack { unTextTrack :: JSVal }
instance PToJSVal TextTrack where
pToJSVal = unTextTrack
instance PFromJSVal TextTrack where
pFromJSVal = TextTrack
instance ToJSVal TextTrack where
toJSVal = return . unTextTrack
instance FromJSVal TextTrack where
fromJSVal v = fmap TextTrack <$> maybeNullOrUndefined v
instance MakeObject TextTrack where
makeObject = makeObject . unTextTrack
instance IsEventTarget TextTrack
instance IsGObject TextTrack where
toGObject = GObject . unTextTrack
unsafeCastGObject = TextTrack . unGObject
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)
newtype TextTrackCue = TextTrackCue { unTextTrackCue :: JSVal }
instance PToJSVal TextTrackCue where
pToJSVal = unTextTrackCue
instance PFromJSVal TextTrackCue where
pFromJSVal = TextTrackCue
instance ToJSVal TextTrackCue where
toJSVal = return . unTextTrackCue
instance FromJSVal TextTrackCue where
fromJSVal v = fmap TextTrackCue <$> maybeNullOrUndefined v
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
unsafeCastGObject = TextTrackCue . unGObject
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)
newtype TextTrackCueList = TextTrackCueList { unTextTrackCueList :: JSVal }
instance PToJSVal TextTrackCueList where
pToJSVal = unTextTrackCueList
instance PFromJSVal TextTrackCueList where
pFromJSVal = TextTrackCueList
instance ToJSVal TextTrackCueList where
toJSVal = return . unTextTrackCueList
instance FromJSVal TextTrackCueList where
fromJSVal v = fmap TextTrackCueList <$> maybeNullOrUndefined v
instance MakeObject TextTrackCueList where
makeObject = makeObject . unTextTrackCueList
instance IsGObject TextTrackCueList where
toGObject = GObject . unTextTrackCueList
unsafeCastGObject = TextTrackCueList . unGObject
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)
newtype TextTrackList = TextTrackList { unTextTrackList :: JSVal }
instance PToJSVal TextTrackList where
pToJSVal = unTextTrackList
instance PFromJSVal TextTrackList where
pFromJSVal = TextTrackList
instance ToJSVal TextTrackList where
toJSVal = return . unTextTrackList
instance FromJSVal TextTrackList where
fromJSVal v = fmap TextTrackList <$> maybeNullOrUndefined v
instance MakeObject TextTrackList where
makeObject = makeObject . unTextTrackList
instance IsEventTarget TextTrackList
instance IsGObject TextTrackList where
toGObject = GObject . unTextTrackList
unsafeCastGObject = TextTrackList . unGObject
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)
newtype TimeRanges = TimeRanges { unTimeRanges :: JSVal }
instance PToJSVal TimeRanges where
pToJSVal = unTimeRanges
instance PFromJSVal TimeRanges where
pFromJSVal = TimeRanges
instance ToJSVal TimeRanges where
toJSVal = return . unTimeRanges
instance FromJSVal TimeRanges where
fromJSVal v = fmap TimeRanges <$> maybeNullOrUndefined v
instance MakeObject TimeRanges where
makeObject = makeObject . unTimeRanges
instance IsGObject TimeRanges where
toGObject = GObject . unTimeRanges
unsafeCastGObject = TimeRanges . unGObject
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)
newtype Touch = Touch { unTouch :: JSVal }
instance PToJSVal Touch where
pToJSVal = unTouch
instance PFromJSVal Touch where
pFromJSVal = Touch
instance ToJSVal Touch where
toJSVal = return . unTouch
instance FromJSVal Touch where
fromJSVal v = fmap Touch <$> maybeNullOrUndefined v
instance MakeObject Touch where
makeObject = makeObject . unTouch
instance IsGObject Touch where
toGObject = GObject . unTouch
unsafeCastGObject = Touch . unGObject
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)
newtype TouchEvent = TouchEvent { unTouchEvent :: JSVal }
instance PToJSVal TouchEvent where
pToJSVal = unTouchEvent
instance PFromJSVal TouchEvent where
pFromJSVal = TouchEvent
instance ToJSVal TouchEvent where
toJSVal = return . unTouchEvent
instance FromJSVal TouchEvent where
fromJSVal v = fmap TouchEvent <$> maybeNullOrUndefined v
instance MakeObject TouchEvent where
makeObject = makeObject . unTouchEvent
instance IsUIEvent TouchEvent
instance IsEvent TouchEvent
instance IsGObject TouchEvent where
toGObject = GObject . unTouchEvent
unsafeCastGObject = TouchEvent . unGObject
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)
newtype TouchList = TouchList { unTouchList :: JSVal }
instance PToJSVal TouchList where
pToJSVal = unTouchList
instance PFromJSVal TouchList where
pFromJSVal = TouchList
instance ToJSVal TouchList where
toJSVal = return . unTouchList
instance FromJSVal TouchList where
fromJSVal v = fmap TouchList <$> maybeNullOrUndefined v
instance MakeObject TouchList where
makeObject = makeObject . unTouchList
instance IsGObject TouchList where
toGObject = GObject . unTouchList
unsafeCastGObject = TouchList . unGObject
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)
newtype TrackEvent = TrackEvent { unTrackEvent :: JSVal }
instance PToJSVal TrackEvent where
pToJSVal = unTrackEvent
instance PFromJSVal TrackEvent where
pFromJSVal = TrackEvent
instance ToJSVal TrackEvent where
toJSVal = return . unTrackEvent
instance FromJSVal TrackEvent where
fromJSVal v = fmap TrackEvent <$> maybeNullOrUndefined v
instance MakeObject TrackEvent where
makeObject = makeObject . unTrackEvent
instance IsEvent TrackEvent
instance IsGObject TrackEvent where
toGObject = GObject . unTrackEvent
unsafeCastGObject = TrackEvent . unGObject
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)
newtype TransitionEvent = TransitionEvent { unTransitionEvent :: JSVal }
instance PToJSVal TransitionEvent where
pToJSVal = unTransitionEvent
instance PFromJSVal TransitionEvent where
pFromJSVal = TransitionEvent
instance ToJSVal TransitionEvent where
toJSVal = return . unTransitionEvent
instance FromJSVal TransitionEvent where
fromJSVal v = fmap TransitionEvent <$> maybeNullOrUndefined v
instance MakeObject TransitionEvent where
makeObject = makeObject . unTransitionEvent
instance IsEvent TransitionEvent
instance IsGObject TransitionEvent where
toGObject = GObject . unTransitionEvent
unsafeCastGObject = TransitionEvent . unGObject
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)
newtype TreeWalker = TreeWalker { unTreeWalker :: JSVal }
instance PToJSVal TreeWalker where
pToJSVal = unTreeWalker
instance PFromJSVal TreeWalker where
pFromJSVal = TreeWalker
instance ToJSVal TreeWalker where
toJSVal = return . unTreeWalker
instance FromJSVal TreeWalker where
fromJSVal v = fmap TreeWalker <$> maybeNullOrUndefined v
instance MakeObject TreeWalker where
makeObject = makeObject . unTreeWalker
instance IsGObject TreeWalker where
toGObject = GObject . unTreeWalker
unsafeCastGObject = TreeWalker . unGObject
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)
newtype TypeConversions = TypeConversions { unTypeConversions :: JSVal }
instance PToJSVal TypeConversions where
pToJSVal = unTypeConversions
instance PFromJSVal TypeConversions where
pFromJSVal = TypeConversions
instance ToJSVal TypeConversions where
toJSVal = return . unTypeConversions
instance FromJSVal TypeConversions where
fromJSVal v = fmap TypeConversions <$> maybeNullOrUndefined v
instance MakeObject TypeConversions where
makeObject = makeObject . unTypeConversions
instance IsGObject TypeConversions where
toGObject = GObject . unTypeConversions
unsafeCastGObject = TypeConversions . unGObject
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)
newtype UIEvent = UIEvent { unUIEvent :: JSVal }
instance PToJSVal UIEvent where
pToJSVal = unUIEvent
instance PFromJSVal UIEvent where
pFromJSVal = UIEvent
instance ToJSVal UIEvent where
toJSVal = return . unUIEvent
instance FromJSVal UIEvent where
fromJSVal v = fmap UIEvent <$> maybeNullOrUndefined v
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
unsafeCastGObject = UIEvent . unGObject
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)
newtype UIRequestEvent = UIRequestEvent { unUIRequestEvent :: JSVal }
instance PToJSVal UIRequestEvent where
pToJSVal = unUIRequestEvent
instance PFromJSVal UIRequestEvent where
pFromJSVal = UIRequestEvent
instance ToJSVal UIRequestEvent where
toJSVal = return . unUIRequestEvent
instance FromJSVal UIRequestEvent where
fromJSVal v = fmap UIRequestEvent <$> maybeNullOrUndefined v
instance MakeObject UIRequestEvent where
makeObject = makeObject . unUIRequestEvent
instance IsUIEvent UIRequestEvent
instance IsEvent UIRequestEvent
instance IsGObject UIRequestEvent where
toGObject = GObject . unUIRequestEvent
unsafeCastGObject = UIRequestEvent . unGObject
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)
newtype URL = URL { unURL :: JSVal }
instance PToJSVal URL where
pToJSVal = unURL
instance PFromJSVal URL where
pFromJSVal = URL
instance ToJSVal URL where
toJSVal = return . unURL
instance FromJSVal URL where
fromJSVal v = fmap URL <$> maybeNullOrUndefined v
instance MakeObject URL where
makeObject = makeObject . unURL
instance IsGObject URL where
toGObject = GObject . unURL
unsafeCastGObject = URL . unGObject
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)
newtype URLUtils = URLUtils { unURLUtils :: JSVal }
instance PToJSVal URLUtils where
pToJSVal = unURLUtils
instance PFromJSVal URLUtils where
pFromJSVal = URLUtils
instance ToJSVal URLUtils where
toJSVal = return . unURLUtils
instance FromJSVal URLUtils where
fromJSVal v = fmap URLUtils <$> maybeNullOrUndefined v
instance MakeObject URLUtils where
makeObject = makeObject . unURLUtils
instance IsGObject URLUtils where
toGObject = GObject . unURLUtils
unsafeCastGObject = URLUtils . unGObject
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)
newtype UserMessageHandler = UserMessageHandler { unUserMessageHandler :: JSVal }
instance PToJSVal UserMessageHandler where
pToJSVal = unUserMessageHandler
instance PFromJSVal UserMessageHandler where
pFromJSVal = UserMessageHandler
instance ToJSVal UserMessageHandler where
toJSVal = return . unUserMessageHandler
instance FromJSVal UserMessageHandler where
fromJSVal v = fmap UserMessageHandler <$> maybeNullOrUndefined v
instance MakeObject UserMessageHandler where
makeObject = makeObject . unUserMessageHandler
instance IsGObject UserMessageHandler where
toGObject = GObject . unUserMessageHandler
unsafeCastGObject = UserMessageHandler . unGObject
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)
newtype UserMessageHandlersNamespace = UserMessageHandlersNamespace { unUserMessageHandlersNamespace :: JSVal }
instance PToJSVal UserMessageHandlersNamespace where
pToJSVal = unUserMessageHandlersNamespace
instance PFromJSVal UserMessageHandlersNamespace where
pFromJSVal = UserMessageHandlersNamespace
instance ToJSVal UserMessageHandlersNamespace where
toJSVal = return . unUserMessageHandlersNamespace
instance FromJSVal UserMessageHandlersNamespace where
fromJSVal v = fmap UserMessageHandlersNamespace <$> maybeNullOrUndefined v
instance MakeObject UserMessageHandlersNamespace where
makeObject = makeObject . unUserMessageHandlersNamespace
instance IsGObject UserMessageHandlersNamespace where
toGObject = GObject . unUserMessageHandlersNamespace
unsafeCastGObject = UserMessageHandlersNamespace . unGObject
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)
newtype VTTCue = VTTCue { unVTTCue :: JSVal }
instance PToJSVal VTTCue where
pToJSVal = unVTTCue
instance PFromJSVal VTTCue where
pFromJSVal = VTTCue
instance ToJSVal VTTCue where
toJSVal = return . unVTTCue
instance FromJSVal VTTCue where
fromJSVal v = fmap VTTCue <$> maybeNullOrUndefined v
instance MakeObject VTTCue where
makeObject = makeObject . unVTTCue
instance IsTextTrackCue VTTCue
instance IsEventTarget VTTCue
instance IsGObject VTTCue where
toGObject = GObject . unVTTCue
unsafeCastGObject = VTTCue . unGObject
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)
newtype VTTRegion = VTTRegion { unVTTRegion :: JSVal }
instance PToJSVal VTTRegion where
pToJSVal = unVTTRegion
instance PFromJSVal VTTRegion where
pFromJSVal = VTTRegion
instance ToJSVal VTTRegion where
toJSVal = return . unVTTRegion
instance FromJSVal VTTRegion where
fromJSVal v = fmap VTTRegion <$> maybeNullOrUndefined v
instance MakeObject VTTRegion where
makeObject = makeObject . unVTTRegion
instance IsGObject VTTRegion where
toGObject = GObject . unVTTRegion
unsafeCastGObject = VTTRegion . unGObject
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)
newtype VTTRegionList = VTTRegionList { unVTTRegionList :: JSVal }
instance PToJSVal VTTRegionList where
pToJSVal = unVTTRegionList
instance PFromJSVal VTTRegionList where
pFromJSVal = VTTRegionList
instance ToJSVal VTTRegionList where
toJSVal = return . unVTTRegionList
instance FromJSVal VTTRegionList where
fromJSVal v = fmap VTTRegionList <$> maybeNullOrUndefined v
instance MakeObject VTTRegionList where
makeObject = makeObject . unVTTRegionList
instance IsGObject VTTRegionList where
toGObject = GObject . unVTTRegionList
unsafeCastGObject = VTTRegionList . unGObject
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)
newtype ValidityState = ValidityState { unValidityState :: JSVal }
instance PToJSVal ValidityState where
pToJSVal = unValidityState
instance PFromJSVal ValidityState where
pFromJSVal = ValidityState
instance ToJSVal ValidityState where
toJSVal = return . unValidityState
instance FromJSVal ValidityState where
fromJSVal v = fmap ValidityState <$> maybeNullOrUndefined v
instance MakeObject ValidityState where
makeObject = makeObject . unValidityState
instance IsGObject ValidityState where
toGObject = GObject . unValidityState
unsafeCastGObject = ValidityState . unGObject
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)
newtype VideoPlaybackQuality = VideoPlaybackQuality { unVideoPlaybackQuality :: JSVal }
instance PToJSVal VideoPlaybackQuality where
pToJSVal = unVideoPlaybackQuality
instance PFromJSVal VideoPlaybackQuality where
pFromJSVal = VideoPlaybackQuality
instance ToJSVal VideoPlaybackQuality where
toJSVal = return . unVideoPlaybackQuality
instance FromJSVal VideoPlaybackQuality where
fromJSVal v = fmap VideoPlaybackQuality <$> maybeNullOrUndefined v
instance MakeObject VideoPlaybackQuality where
makeObject = makeObject . unVideoPlaybackQuality
instance IsGObject VideoPlaybackQuality where
toGObject = GObject . unVideoPlaybackQuality
unsafeCastGObject = VideoPlaybackQuality . unGObject
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)
newtype VideoStreamTrack = VideoStreamTrack { unVideoStreamTrack :: JSVal }
instance PToJSVal VideoStreamTrack where
pToJSVal = unVideoStreamTrack
instance PFromJSVal VideoStreamTrack where
pFromJSVal = VideoStreamTrack
instance ToJSVal VideoStreamTrack where
toJSVal = return . unVideoStreamTrack
instance FromJSVal VideoStreamTrack where
fromJSVal v = fmap VideoStreamTrack <$> maybeNullOrUndefined v
instance MakeObject VideoStreamTrack where
makeObject = makeObject . unVideoStreamTrack
instance IsMediaStreamTrack VideoStreamTrack
instance IsEventTarget VideoStreamTrack
instance IsGObject VideoStreamTrack where
toGObject = GObject . unVideoStreamTrack
unsafeCastGObject = VideoStreamTrack . unGObject
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)
newtype VideoTrack = VideoTrack { unVideoTrack :: JSVal }
instance PToJSVal VideoTrack where
pToJSVal = unVideoTrack
instance PFromJSVal VideoTrack where
pFromJSVal = VideoTrack
instance ToJSVal VideoTrack where
toJSVal = return . unVideoTrack
instance FromJSVal VideoTrack where
fromJSVal v = fmap VideoTrack <$> maybeNullOrUndefined v
instance MakeObject VideoTrack where
makeObject = makeObject . unVideoTrack
instance IsGObject VideoTrack where
toGObject = GObject . unVideoTrack
unsafeCastGObject = VideoTrack . unGObject
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)
newtype VideoTrackList = VideoTrackList { unVideoTrackList :: JSVal }
instance PToJSVal VideoTrackList where
pToJSVal = unVideoTrackList
instance PFromJSVal VideoTrackList where
pFromJSVal = VideoTrackList
instance ToJSVal VideoTrackList where
toJSVal = return . unVideoTrackList
instance FromJSVal VideoTrackList where
fromJSVal v = fmap VideoTrackList <$> maybeNullOrUndefined v
instance MakeObject VideoTrackList where
makeObject = makeObject . unVideoTrackList
instance IsEventTarget VideoTrackList
instance IsGObject VideoTrackList where
toGObject = GObject . unVideoTrackList
unsafeCastGObject = VideoTrackList . unGObject
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)
newtype WaveShaperNode = WaveShaperNode { unWaveShaperNode :: JSVal }
instance PToJSVal WaveShaperNode where
pToJSVal = unWaveShaperNode
instance PFromJSVal WaveShaperNode where
pFromJSVal = WaveShaperNode
instance ToJSVal WaveShaperNode where
toJSVal = return . unWaveShaperNode
instance FromJSVal WaveShaperNode where
fromJSVal v = fmap WaveShaperNode <$> maybeNullOrUndefined v
instance MakeObject WaveShaperNode where
makeObject = makeObject . unWaveShaperNode
instance IsAudioNode WaveShaperNode
instance IsEventTarget WaveShaperNode
instance IsGObject WaveShaperNode where
toGObject = GObject . unWaveShaperNode
unsafeCastGObject = WaveShaperNode . unGObject
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)
newtype WebGL2RenderingContext = WebGL2RenderingContext { unWebGL2RenderingContext :: JSVal }
instance PToJSVal WebGL2RenderingContext where
pToJSVal = unWebGL2RenderingContext
instance PFromJSVal WebGL2RenderingContext where
pFromJSVal = WebGL2RenderingContext
instance ToJSVal WebGL2RenderingContext where
toJSVal = return . unWebGL2RenderingContext
instance FromJSVal WebGL2RenderingContext where
fromJSVal v = fmap WebGL2RenderingContext <$> maybeNullOrUndefined v
instance MakeObject WebGL2RenderingContext where
makeObject = makeObject . unWebGL2RenderingContext
instance IsWebGLRenderingContextBase WebGL2RenderingContext
instance IsCanvasRenderingContext WebGL2RenderingContext
instance IsGObject WebGL2RenderingContext where
toGObject = GObject . unWebGL2RenderingContext
unsafeCastGObject = WebGL2RenderingContext . unGObject
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)
newtype WebGLActiveInfo = WebGLActiveInfo { unWebGLActiveInfo :: JSVal }
instance PToJSVal WebGLActiveInfo where
pToJSVal = unWebGLActiveInfo
instance PFromJSVal WebGLActiveInfo where
pFromJSVal = WebGLActiveInfo
instance ToJSVal WebGLActiveInfo where
toJSVal = return . unWebGLActiveInfo
instance FromJSVal WebGLActiveInfo where
fromJSVal v = fmap WebGLActiveInfo <$> maybeNullOrUndefined v
instance MakeObject WebGLActiveInfo where
makeObject = makeObject . unWebGLActiveInfo
instance IsGObject WebGLActiveInfo where
toGObject = GObject . unWebGLActiveInfo
unsafeCastGObject = WebGLActiveInfo . unGObject
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)
newtype WebGLBuffer = WebGLBuffer { unWebGLBuffer :: JSVal }
instance PToJSVal WebGLBuffer where
pToJSVal = unWebGLBuffer
instance PFromJSVal WebGLBuffer where
pFromJSVal = WebGLBuffer
instance ToJSVal WebGLBuffer where
toJSVal = return . unWebGLBuffer
instance FromJSVal WebGLBuffer where
fromJSVal v = fmap WebGLBuffer <$> maybeNullOrUndefined v
instance MakeObject WebGLBuffer where
makeObject = makeObject . unWebGLBuffer
instance IsGObject WebGLBuffer where
toGObject = GObject . unWebGLBuffer
unsafeCastGObject = WebGLBuffer . unGObject
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)
newtype WebGLCompressedTextureATC = WebGLCompressedTextureATC { unWebGLCompressedTextureATC :: JSVal }
instance PToJSVal WebGLCompressedTextureATC where
pToJSVal = unWebGLCompressedTextureATC
instance PFromJSVal WebGLCompressedTextureATC where
pFromJSVal = WebGLCompressedTextureATC
instance ToJSVal WebGLCompressedTextureATC where
toJSVal = return . unWebGLCompressedTextureATC
instance FromJSVal WebGLCompressedTextureATC where
fromJSVal v = fmap WebGLCompressedTextureATC <$> maybeNullOrUndefined v
instance MakeObject WebGLCompressedTextureATC where
makeObject = makeObject . unWebGLCompressedTextureATC
instance IsGObject WebGLCompressedTextureATC where
toGObject = GObject . unWebGLCompressedTextureATC
unsafeCastGObject = WebGLCompressedTextureATC . unGObject
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)
newtype WebGLCompressedTexturePVRTC = WebGLCompressedTexturePVRTC { unWebGLCompressedTexturePVRTC :: JSVal }
instance PToJSVal WebGLCompressedTexturePVRTC where
pToJSVal = unWebGLCompressedTexturePVRTC
instance PFromJSVal WebGLCompressedTexturePVRTC where
pFromJSVal = WebGLCompressedTexturePVRTC
instance ToJSVal WebGLCompressedTexturePVRTC where
toJSVal = return . unWebGLCompressedTexturePVRTC
instance FromJSVal WebGLCompressedTexturePVRTC where
fromJSVal v = fmap WebGLCompressedTexturePVRTC <$> maybeNullOrUndefined v
instance MakeObject WebGLCompressedTexturePVRTC where
makeObject = makeObject . unWebGLCompressedTexturePVRTC
instance IsGObject WebGLCompressedTexturePVRTC where
toGObject = GObject . unWebGLCompressedTexturePVRTC
unsafeCastGObject = WebGLCompressedTexturePVRTC . unGObject
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)
newtype WebGLCompressedTextureS3TC = WebGLCompressedTextureS3TC { unWebGLCompressedTextureS3TC :: JSVal }
instance PToJSVal WebGLCompressedTextureS3TC where
pToJSVal = unWebGLCompressedTextureS3TC
instance PFromJSVal WebGLCompressedTextureS3TC where
pFromJSVal = WebGLCompressedTextureS3TC
instance ToJSVal WebGLCompressedTextureS3TC where
toJSVal = return . unWebGLCompressedTextureS3TC
instance FromJSVal WebGLCompressedTextureS3TC where
fromJSVal v = fmap WebGLCompressedTextureS3TC <$> maybeNullOrUndefined v
instance MakeObject WebGLCompressedTextureS3TC where
makeObject = makeObject . unWebGLCompressedTextureS3TC
instance IsGObject WebGLCompressedTextureS3TC where
toGObject = GObject . unWebGLCompressedTextureS3TC
unsafeCastGObject = WebGLCompressedTextureS3TC . unGObject
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)
newtype WebGLContextAttributes = WebGLContextAttributes { unWebGLContextAttributes :: JSVal }
instance PToJSVal WebGLContextAttributes where
pToJSVal = unWebGLContextAttributes
instance PFromJSVal WebGLContextAttributes where
pFromJSVal = WebGLContextAttributes
instance ToJSVal WebGLContextAttributes where
toJSVal = return . unWebGLContextAttributes
instance FromJSVal WebGLContextAttributes where
fromJSVal v = fmap WebGLContextAttributes <$> maybeNullOrUndefined v
instance MakeObject WebGLContextAttributes where
makeObject = makeObject . unWebGLContextAttributes
instance IsGObject WebGLContextAttributes where
toGObject = GObject . unWebGLContextAttributes
unsafeCastGObject = WebGLContextAttributes . unGObject
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)
newtype WebGLContextEvent = WebGLContextEvent { unWebGLContextEvent :: JSVal }
instance PToJSVal WebGLContextEvent where
pToJSVal = unWebGLContextEvent
instance PFromJSVal WebGLContextEvent where
pFromJSVal = WebGLContextEvent
instance ToJSVal WebGLContextEvent where
toJSVal = return . unWebGLContextEvent
instance FromJSVal WebGLContextEvent where
fromJSVal v = fmap WebGLContextEvent <$> maybeNullOrUndefined v
instance MakeObject WebGLContextEvent where
makeObject = makeObject . unWebGLContextEvent
instance IsEvent WebGLContextEvent
instance IsGObject WebGLContextEvent where
toGObject = GObject . unWebGLContextEvent
unsafeCastGObject = WebGLContextEvent . unGObject
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)
newtype WebGLDebugRendererInfo = WebGLDebugRendererInfo { unWebGLDebugRendererInfo :: JSVal }
instance PToJSVal WebGLDebugRendererInfo where
pToJSVal = unWebGLDebugRendererInfo
instance PFromJSVal WebGLDebugRendererInfo where
pFromJSVal = WebGLDebugRendererInfo
instance ToJSVal WebGLDebugRendererInfo where
toJSVal = return . unWebGLDebugRendererInfo
instance FromJSVal WebGLDebugRendererInfo where
fromJSVal v = fmap WebGLDebugRendererInfo <$> maybeNullOrUndefined v
instance MakeObject WebGLDebugRendererInfo where
makeObject = makeObject . unWebGLDebugRendererInfo
instance IsGObject WebGLDebugRendererInfo where
toGObject = GObject . unWebGLDebugRendererInfo
unsafeCastGObject = WebGLDebugRendererInfo . unGObject
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)
newtype WebGLDebugShaders = WebGLDebugShaders { unWebGLDebugShaders :: JSVal }
instance PToJSVal WebGLDebugShaders where
pToJSVal = unWebGLDebugShaders
instance PFromJSVal WebGLDebugShaders where
pFromJSVal = WebGLDebugShaders
instance ToJSVal WebGLDebugShaders where
toJSVal = return . unWebGLDebugShaders
instance FromJSVal WebGLDebugShaders where
fromJSVal v = fmap WebGLDebugShaders <$> maybeNullOrUndefined v
instance MakeObject WebGLDebugShaders where
makeObject = makeObject . unWebGLDebugShaders
instance IsGObject WebGLDebugShaders where
toGObject = GObject . unWebGLDebugShaders
unsafeCastGObject = WebGLDebugShaders . unGObject
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)
newtype WebGLDepthTexture = WebGLDepthTexture { unWebGLDepthTexture :: JSVal }
instance PToJSVal WebGLDepthTexture where
pToJSVal = unWebGLDepthTexture
instance PFromJSVal WebGLDepthTexture where
pFromJSVal = WebGLDepthTexture
instance ToJSVal WebGLDepthTexture where
toJSVal = return . unWebGLDepthTexture
instance FromJSVal WebGLDepthTexture where
fromJSVal v = fmap WebGLDepthTexture <$> maybeNullOrUndefined v
instance MakeObject WebGLDepthTexture where
makeObject = makeObject . unWebGLDepthTexture
instance IsGObject WebGLDepthTexture where
toGObject = GObject . unWebGLDepthTexture
unsafeCastGObject = WebGLDepthTexture . unGObject
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)
newtype WebGLDrawBuffers = WebGLDrawBuffers { unWebGLDrawBuffers :: JSVal }
instance PToJSVal WebGLDrawBuffers where
pToJSVal = unWebGLDrawBuffers
instance PFromJSVal WebGLDrawBuffers where
pFromJSVal = WebGLDrawBuffers
instance ToJSVal WebGLDrawBuffers where
toJSVal = return . unWebGLDrawBuffers
instance FromJSVal WebGLDrawBuffers where
fromJSVal v = fmap WebGLDrawBuffers <$> maybeNullOrUndefined v
instance MakeObject WebGLDrawBuffers where
makeObject = makeObject . unWebGLDrawBuffers
instance IsGObject WebGLDrawBuffers where
toGObject = GObject . unWebGLDrawBuffers
unsafeCastGObject = WebGLDrawBuffers . unGObject
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)
newtype WebGLFramebuffer = WebGLFramebuffer { unWebGLFramebuffer :: JSVal }
instance PToJSVal WebGLFramebuffer where
pToJSVal = unWebGLFramebuffer
instance PFromJSVal WebGLFramebuffer where
pFromJSVal = WebGLFramebuffer
instance ToJSVal WebGLFramebuffer where
toJSVal = return . unWebGLFramebuffer
instance FromJSVal WebGLFramebuffer where
fromJSVal v = fmap WebGLFramebuffer <$> maybeNullOrUndefined v
instance MakeObject WebGLFramebuffer where
makeObject = makeObject . unWebGLFramebuffer
instance IsGObject WebGLFramebuffer where
toGObject = GObject . unWebGLFramebuffer
unsafeCastGObject = WebGLFramebuffer . unGObject
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)
newtype WebGLLoseContext = WebGLLoseContext { unWebGLLoseContext :: JSVal }
instance PToJSVal WebGLLoseContext where
pToJSVal = unWebGLLoseContext
instance PFromJSVal WebGLLoseContext where
pFromJSVal = WebGLLoseContext
instance ToJSVal WebGLLoseContext where
toJSVal = return . unWebGLLoseContext
instance FromJSVal WebGLLoseContext where
fromJSVal v = fmap WebGLLoseContext <$> maybeNullOrUndefined v
instance MakeObject WebGLLoseContext where
makeObject = makeObject . unWebGLLoseContext
instance IsGObject WebGLLoseContext where
toGObject = GObject . unWebGLLoseContext
unsafeCastGObject = WebGLLoseContext . unGObject
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)
newtype WebGLProgram = WebGLProgram { unWebGLProgram :: JSVal }
instance PToJSVal WebGLProgram where
pToJSVal = unWebGLProgram
instance PFromJSVal WebGLProgram where
pFromJSVal = WebGLProgram
instance ToJSVal WebGLProgram where
toJSVal = return . unWebGLProgram
instance FromJSVal WebGLProgram where
fromJSVal v = fmap WebGLProgram <$> maybeNullOrUndefined v
instance MakeObject WebGLProgram where
makeObject = makeObject . unWebGLProgram
instance IsGObject WebGLProgram where
toGObject = GObject . unWebGLProgram
unsafeCastGObject = WebGLProgram . unGObject
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)
newtype WebGLQuery = WebGLQuery { unWebGLQuery :: JSVal }
instance PToJSVal WebGLQuery where
pToJSVal = unWebGLQuery
instance PFromJSVal WebGLQuery where
pFromJSVal = WebGLQuery
instance ToJSVal WebGLQuery where
toJSVal = return . unWebGLQuery
instance FromJSVal WebGLQuery where
fromJSVal v = fmap WebGLQuery <$> maybeNullOrUndefined v
instance MakeObject WebGLQuery where
makeObject = makeObject . unWebGLQuery
instance IsGObject WebGLQuery where
toGObject = GObject . unWebGLQuery
unsafeCastGObject = WebGLQuery . unGObject
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)
newtype WebGLRenderbuffer = WebGLRenderbuffer { unWebGLRenderbuffer :: JSVal }
instance PToJSVal WebGLRenderbuffer where
pToJSVal = unWebGLRenderbuffer
instance PFromJSVal WebGLRenderbuffer where
pFromJSVal = WebGLRenderbuffer
instance ToJSVal WebGLRenderbuffer where
toJSVal = return . unWebGLRenderbuffer
instance FromJSVal WebGLRenderbuffer where
fromJSVal v = fmap WebGLRenderbuffer <$> maybeNullOrUndefined v
instance MakeObject WebGLRenderbuffer where
makeObject = makeObject . unWebGLRenderbuffer
instance IsGObject WebGLRenderbuffer where
toGObject = GObject . unWebGLRenderbuffer
unsafeCastGObject = WebGLRenderbuffer . unGObject
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)
newtype WebGLRenderingContext = WebGLRenderingContext { unWebGLRenderingContext :: JSVal }
instance PToJSVal WebGLRenderingContext where
pToJSVal = unWebGLRenderingContext
instance PFromJSVal WebGLRenderingContext where
pFromJSVal = WebGLRenderingContext
instance ToJSVal WebGLRenderingContext where
toJSVal = return . unWebGLRenderingContext
instance FromJSVal WebGLRenderingContext where
fromJSVal v = fmap WebGLRenderingContext <$> maybeNullOrUndefined v
instance MakeObject WebGLRenderingContext where
makeObject = makeObject . unWebGLRenderingContext
instance IsWebGLRenderingContextBase WebGLRenderingContext
instance IsCanvasRenderingContext WebGLRenderingContext
instance IsGObject WebGLRenderingContext where
toGObject = GObject . unWebGLRenderingContext
unsafeCastGObject = WebGLRenderingContext . unGObject
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)
newtype WebGLRenderingContextBase = WebGLRenderingContextBase { unWebGLRenderingContextBase :: JSVal }
instance PToJSVal WebGLRenderingContextBase where
pToJSVal = unWebGLRenderingContextBase
instance PFromJSVal WebGLRenderingContextBase where
pFromJSVal = WebGLRenderingContextBase
instance ToJSVal WebGLRenderingContextBase where
toJSVal = return . unWebGLRenderingContextBase
instance FromJSVal WebGLRenderingContextBase where
fromJSVal v = fmap WebGLRenderingContextBase <$> maybeNullOrUndefined v
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
unsafeCastGObject = WebGLRenderingContextBase . unGObject
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)
newtype WebGLSampler = WebGLSampler { unWebGLSampler :: JSVal }
instance PToJSVal WebGLSampler where
pToJSVal = unWebGLSampler
instance PFromJSVal WebGLSampler where
pFromJSVal = WebGLSampler
instance ToJSVal WebGLSampler where
toJSVal = return . unWebGLSampler
instance FromJSVal WebGLSampler where
fromJSVal v = fmap WebGLSampler <$> maybeNullOrUndefined v
instance MakeObject WebGLSampler where
makeObject = makeObject . unWebGLSampler
instance IsGObject WebGLSampler where
toGObject = GObject . unWebGLSampler
unsafeCastGObject = WebGLSampler . unGObject
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)
newtype WebGLShader = WebGLShader { unWebGLShader :: JSVal }
instance PToJSVal WebGLShader where
pToJSVal = unWebGLShader
instance PFromJSVal WebGLShader where
pFromJSVal = WebGLShader
instance ToJSVal WebGLShader where
toJSVal = return . unWebGLShader
instance FromJSVal WebGLShader where
fromJSVal v = fmap WebGLShader <$> maybeNullOrUndefined v
instance MakeObject WebGLShader where
makeObject = makeObject . unWebGLShader
instance IsGObject WebGLShader where
toGObject = GObject . unWebGLShader
unsafeCastGObject = WebGLShader . unGObject
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)
newtype WebGLShaderPrecisionFormat = WebGLShaderPrecisionFormat { unWebGLShaderPrecisionFormat :: JSVal }
instance PToJSVal WebGLShaderPrecisionFormat where
pToJSVal = unWebGLShaderPrecisionFormat
instance PFromJSVal WebGLShaderPrecisionFormat where
pFromJSVal = WebGLShaderPrecisionFormat
instance ToJSVal WebGLShaderPrecisionFormat where
toJSVal = return . unWebGLShaderPrecisionFormat
instance FromJSVal WebGLShaderPrecisionFormat where
fromJSVal v = fmap WebGLShaderPrecisionFormat <$> maybeNullOrUndefined v
instance MakeObject WebGLShaderPrecisionFormat where
makeObject = makeObject . unWebGLShaderPrecisionFormat
instance IsGObject WebGLShaderPrecisionFormat where
toGObject = GObject . unWebGLShaderPrecisionFormat
unsafeCastGObject = WebGLShaderPrecisionFormat . unGObject
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)
newtype WebGLSync = WebGLSync { unWebGLSync :: JSVal }
instance PToJSVal WebGLSync where
pToJSVal = unWebGLSync
instance PFromJSVal WebGLSync where
pFromJSVal = WebGLSync
instance ToJSVal WebGLSync where
toJSVal = return . unWebGLSync
instance FromJSVal WebGLSync where
fromJSVal v = fmap WebGLSync <$> maybeNullOrUndefined v
instance MakeObject WebGLSync where
makeObject = makeObject . unWebGLSync
instance IsGObject WebGLSync where
toGObject = GObject . unWebGLSync
unsafeCastGObject = WebGLSync . unGObject
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)
newtype WebGLTexture = WebGLTexture { unWebGLTexture :: JSVal }
instance PToJSVal WebGLTexture where
pToJSVal = unWebGLTexture
instance PFromJSVal WebGLTexture where
pFromJSVal = WebGLTexture
instance ToJSVal WebGLTexture where
toJSVal = return . unWebGLTexture
instance FromJSVal WebGLTexture where
fromJSVal v = fmap WebGLTexture <$> maybeNullOrUndefined v
instance MakeObject WebGLTexture where
makeObject = makeObject . unWebGLTexture
instance IsGObject WebGLTexture where
toGObject = GObject . unWebGLTexture
unsafeCastGObject = WebGLTexture . unGObject
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)
newtype WebGLTransformFeedback = WebGLTransformFeedback { unWebGLTransformFeedback :: JSVal }
instance PToJSVal WebGLTransformFeedback where
pToJSVal = unWebGLTransformFeedback
instance PFromJSVal WebGLTransformFeedback where
pFromJSVal = WebGLTransformFeedback
instance ToJSVal WebGLTransformFeedback where
toJSVal = return . unWebGLTransformFeedback
instance FromJSVal WebGLTransformFeedback where
fromJSVal v = fmap WebGLTransformFeedback <$> maybeNullOrUndefined v
instance MakeObject WebGLTransformFeedback where
makeObject = makeObject . unWebGLTransformFeedback
instance IsGObject WebGLTransformFeedback where
toGObject = GObject . unWebGLTransformFeedback
unsafeCastGObject = WebGLTransformFeedback . unGObject
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)
newtype WebGLUniformLocation = WebGLUniformLocation { unWebGLUniformLocation :: JSVal }
instance PToJSVal WebGLUniformLocation where
pToJSVal = unWebGLUniformLocation
instance PFromJSVal WebGLUniformLocation where
pFromJSVal = WebGLUniformLocation
instance ToJSVal WebGLUniformLocation where
toJSVal = return . unWebGLUniformLocation
instance FromJSVal WebGLUniformLocation where
fromJSVal v = fmap WebGLUniformLocation <$> maybeNullOrUndefined v
instance MakeObject WebGLUniformLocation where
makeObject = makeObject . unWebGLUniformLocation
instance IsGObject WebGLUniformLocation where
toGObject = GObject . unWebGLUniformLocation
unsafeCastGObject = WebGLUniformLocation . unGObject
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)
newtype WebGLVertexArrayObject = WebGLVertexArrayObject { unWebGLVertexArrayObject :: JSVal }
instance PToJSVal WebGLVertexArrayObject where
pToJSVal = unWebGLVertexArrayObject
instance PFromJSVal WebGLVertexArrayObject where
pFromJSVal = WebGLVertexArrayObject
instance ToJSVal WebGLVertexArrayObject where
toJSVal = return . unWebGLVertexArrayObject
instance FromJSVal WebGLVertexArrayObject where
fromJSVal v = fmap WebGLVertexArrayObject <$> maybeNullOrUndefined v
instance MakeObject WebGLVertexArrayObject where
makeObject = makeObject . unWebGLVertexArrayObject
instance IsGObject WebGLVertexArrayObject where
toGObject = GObject . unWebGLVertexArrayObject
unsafeCastGObject = WebGLVertexArrayObject . unGObject
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)
newtype WebGLVertexArrayObjectOES = WebGLVertexArrayObjectOES { unWebGLVertexArrayObjectOES :: JSVal }
instance PToJSVal WebGLVertexArrayObjectOES where
pToJSVal = unWebGLVertexArrayObjectOES
instance PFromJSVal WebGLVertexArrayObjectOES where
pFromJSVal = WebGLVertexArrayObjectOES
instance ToJSVal WebGLVertexArrayObjectOES where
toJSVal = return . unWebGLVertexArrayObjectOES
instance FromJSVal WebGLVertexArrayObjectOES where
fromJSVal v = fmap WebGLVertexArrayObjectOES <$> maybeNullOrUndefined v
instance MakeObject WebGLVertexArrayObjectOES where
makeObject = makeObject . unWebGLVertexArrayObjectOES
instance IsGObject WebGLVertexArrayObjectOES where
toGObject = GObject . unWebGLVertexArrayObjectOES
unsafeCastGObject = WebGLVertexArrayObjectOES . unGObject
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)
newtype WebKitAnimationEvent = WebKitAnimationEvent { unWebKitAnimationEvent :: JSVal }
instance PToJSVal WebKitAnimationEvent where
pToJSVal = unWebKitAnimationEvent
instance PFromJSVal WebKitAnimationEvent where
pFromJSVal = WebKitAnimationEvent
instance ToJSVal WebKitAnimationEvent where
toJSVal = return . unWebKitAnimationEvent
instance FromJSVal WebKitAnimationEvent where
fromJSVal v = fmap WebKitAnimationEvent <$> maybeNullOrUndefined v
instance MakeObject WebKitAnimationEvent where
makeObject = makeObject . unWebKitAnimationEvent
instance IsEvent WebKitAnimationEvent
instance IsGObject WebKitAnimationEvent where
toGObject = GObject . unWebKitAnimationEvent
unsafeCastGObject = WebKitAnimationEvent . unGObject
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)
newtype WebKitCSSFilterValue = WebKitCSSFilterValue { unWebKitCSSFilterValue :: JSVal }
instance PToJSVal WebKitCSSFilterValue where
pToJSVal = unWebKitCSSFilterValue
instance PFromJSVal WebKitCSSFilterValue where
pFromJSVal = WebKitCSSFilterValue
instance ToJSVal WebKitCSSFilterValue where
toJSVal = return . unWebKitCSSFilterValue
instance FromJSVal WebKitCSSFilterValue where
fromJSVal v = fmap WebKitCSSFilterValue <$> maybeNullOrUndefined v
instance MakeObject WebKitCSSFilterValue where
makeObject = makeObject . unWebKitCSSFilterValue
instance IsCSSValueList WebKitCSSFilterValue
instance IsCSSValue WebKitCSSFilterValue
instance IsGObject WebKitCSSFilterValue where
toGObject = GObject . unWebKitCSSFilterValue
unsafeCastGObject = WebKitCSSFilterValue . unGObject
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)
newtype WebKitCSSMatrix = WebKitCSSMatrix { unWebKitCSSMatrix :: JSVal }
instance PToJSVal WebKitCSSMatrix where
pToJSVal = unWebKitCSSMatrix
instance PFromJSVal WebKitCSSMatrix where
pFromJSVal = WebKitCSSMatrix
instance ToJSVal WebKitCSSMatrix where
toJSVal = return . unWebKitCSSMatrix
instance FromJSVal WebKitCSSMatrix where
fromJSVal v = fmap WebKitCSSMatrix <$> maybeNullOrUndefined v
instance MakeObject WebKitCSSMatrix where
makeObject = makeObject . unWebKitCSSMatrix
instance IsGObject WebKitCSSMatrix where
toGObject = GObject . unWebKitCSSMatrix
unsafeCastGObject = WebKitCSSMatrix . unGObject
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)
newtype WebKitCSSRegionRule = WebKitCSSRegionRule { unWebKitCSSRegionRule :: JSVal }
instance PToJSVal WebKitCSSRegionRule where
pToJSVal = unWebKitCSSRegionRule
instance PFromJSVal WebKitCSSRegionRule where
pFromJSVal = WebKitCSSRegionRule
instance ToJSVal WebKitCSSRegionRule where
toJSVal = return . unWebKitCSSRegionRule
instance FromJSVal WebKitCSSRegionRule where
fromJSVal v = fmap WebKitCSSRegionRule <$> maybeNullOrUndefined v
instance MakeObject WebKitCSSRegionRule where
makeObject = makeObject . unWebKitCSSRegionRule
instance IsCSSRule WebKitCSSRegionRule
instance IsGObject WebKitCSSRegionRule where
toGObject = GObject . unWebKitCSSRegionRule
unsafeCastGObject = WebKitCSSRegionRule . unGObject
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)
newtype WebKitCSSTransformValue = WebKitCSSTransformValue { unWebKitCSSTransformValue :: JSVal }
instance PToJSVal WebKitCSSTransformValue where
pToJSVal = unWebKitCSSTransformValue
instance PFromJSVal WebKitCSSTransformValue where
pFromJSVal = WebKitCSSTransformValue
instance ToJSVal WebKitCSSTransformValue where
toJSVal = return . unWebKitCSSTransformValue
instance FromJSVal WebKitCSSTransformValue where
fromJSVal v = fmap WebKitCSSTransformValue <$> maybeNullOrUndefined v
instance MakeObject WebKitCSSTransformValue where
makeObject = makeObject . unWebKitCSSTransformValue
instance IsCSSValueList WebKitCSSTransformValue
instance IsCSSValue WebKitCSSTransformValue
instance IsGObject WebKitCSSTransformValue where
toGObject = GObject . unWebKitCSSTransformValue
unsafeCastGObject = WebKitCSSTransformValue . unGObject
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)
newtype WebKitCSSViewportRule = WebKitCSSViewportRule { unWebKitCSSViewportRule :: JSVal }
instance PToJSVal WebKitCSSViewportRule where
pToJSVal = unWebKitCSSViewportRule
instance PFromJSVal WebKitCSSViewportRule where
pFromJSVal = WebKitCSSViewportRule
instance ToJSVal WebKitCSSViewportRule where
toJSVal = return . unWebKitCSSViewportRule
instance FromJSVal WebKitCSSViewportRule where
fromJSVal v = fmap WebKitCSSViewportRule <$> maybeNullOrUndefined v
instance MakeObject WebKitCSSViewportRule where
makeObject = makeObject . unWebKitCSSViewportRule
instance IsCSSRule WebKitCSSViewportRule
instance IsGObject WebKitCSSViewportRule where
toGObject = GObject . unWebKitCSSViewportRule
unsafeCastGObject = WebKitCSSViewportRule . unGObject
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)
newtype WebKitNamedFlow = WebKitNamedFlow { unWebKitNamedFlow :: JSVal }
instance PToJSVal WebKitNamedFlow where
pToJSVal = unWebKitNamedFlow
instance PFromJSVal WebKitNamedFlow where
pFromJSVal = WebKitNamedFlow
instance ToJSVal WebKitNamedFlow where
toJSVal = return . unWebKitNamedFlow
instance FromJSVal WebKitNamedFlow where
fromJSVal v = fmap WebKitNamedFlow <$> maybeNullOrUndefined v
instance MakeObject WebKitNamedFlow where
makeObject = makeObject . unWebKitNamedFlow
instance IsEventTarget WebKitNamedFlow
instance IsGObject WebKitNamedFlow where
toGObject = GObject . unWebKitNamedFlow
unsafeCastGObject = WebKitNamedFlow . unGObject
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)
newtype WebKitNamespace = WebKitNamespace { unWebKitNamespace :: JSVal }
instance PToJSVal WebKitNamespace where
pToJSVal = unWebKitNamespace
instance PFromJSVal WebKitNamespace where
pFromJSVal = WebKitNamespace
instance ToJSVal WebKitNamespace where
toJSVal = return . unWebKitNamespace
instance FromJSVal WebKitNamespace where
fromJSVal v = fmap WebKitNamespace <$> maybeNullOrUndefined v
instance MakeObject WebKitNamespace where
makeObject = makeObject . unWebKitNamespace
instance IsGObject WebKitNamespace where
toGObject = GObject . unWebKitNamespace
unsafeCastGObject = WebKitNamespace . unGObject
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)
newtype WebKitPlaybackTargetAvailabilityEvent = WebKitPlaybackTargetAvailabilityEvent { unWebKitPlaybackTargetAvailabilityEvent :: JSVal }
instance PToJSVal WebKitPlaybackTargetAvailabilityEvent where
pToJSVal = unWebKitPlaybackTargetAvailabilityEvent
instance PFromJSVal WebKitPlaybackTargetAvailabilityEvent where
pFromJSVal = WebKitPlaybackTargetAvailabilityEvent
instance ToJSVal WebKitPlaybackTargetAvailabilityEvent where
toJSVal = return . unWebKitPlaybackTargetAvailabilityEvent
instance FromJSVal WebKitPlaybackTargetAvailabilityEvent where
fromJSVal v = fmap WebKitPlaybackTargetAvailabilityEvent <$> maybeNullOrUndefined v
instance MakeObject WebKitPlaybackTargetAvailabilityEvent where
makeObject = makeObject . unWebKitPlaybackTargetAvailabilityEvent
instance IsEvent WebKitPlaybackTargetAvailabilityEvent
instance IsGObject WebKitPlaybackTargetAvailabilityEvent where
toGObject = GObject . unWebKitPlaybackTargetAvailabilityEvent
unsafeCastGObject = WebKitPlaybackTargetAvailabilityEvent . unGObject
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)
newtype WebKitPoint = WebKitPoint { unWebKitPoint :: JSVal }
instance PToJSVal WebKitPoint where
pToJSVal = unWebKitPoint
instance PFromJSVal WebKitPoint where
pFromJSVal = WebKitPoint
instance ToJSVal WebKitPoint where
toJSVal = return . unWebKitPoint
instance FromJSVal WebKitPoint where
fromJSVal v = fmap WebKitPoint <$> maybeNullOrUndefined v
instance MakeObject WebKitPoint where
makeObject = makeObject . unWebKitPoint
instance IsGObject WebKitPoint where
toGObject = GObject . unWebKitPoint
unsafeCastGObject = WebKitPoint . unGObject
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)
newtype WebKitTransitionEvent = WebKitTransitionEvent { unWebKitTransitionEvent :: JSVal }
instance PToJSVal WebKitTransitionEvent where
pToJSVal = unWebKitTransitionEvent
instance PFromJSVal WebKitTransitionEvent where
pFromJSVal = WebKitTransitionEvent
instance ToJSVal WebKitTransitionEvent where
toJSVal = return . unWebKitTransitionEvent
instance FromJSVal WebKitTransitionEvent where
fromJSVal v = fmap WebKitTransitionEvent <$> maybeNullOrUndefined v
instance MakeObject WebKitTransitionEvent where
makeObject = makeObject . unWebKitTransitionEvent
instance IsEvent WebKitTransitionEvent
instance IsGObject WebKitTransitionEvent where
toGObject = GObject . unWebKitTransitionEvent
unsafeCastGObject = WebKitTransitionEvent . unGObject
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)
newtype WebSocket = WebSocket { unWebSocket :: JSVal }
instance PToJSVal WebSocket where
pToJSVal = unWebSocket
instance PFromJSVal WebSocket where
pFromJSVal = WebSocket
instance ToJSVal WebSocket where
toJSVal = return . unWebSocket
instance FromJSVal WebSocket where
fromJSVal v = fmap WebSocket <$> maybeNullOrUndefined v
instance MakeObject WebSocket where
makeObject = makeObject . unWebSocket
instance IsEventTarget WebSocket
instance IsGObject WebSocket where
toGObject = GObject . unWebSocket
unsafeCastGObject = WebSocket . unGObject
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)
newtype WheelEvent = WheelEvent { unWheelEvent :: JSVal }
instance PToJSVal WheelEvent where
pToJSVal = unWheelEvent
instance PFromJSVal WheelEvent where
pFromJSVal = WheelEvent
instance ToJSVal WheelEvent where
toJSVal = return . unWheelEvent
instance FromJSVal WheelEvent where
fromJSVal v = fmap WheelEvent <$> maybeNullOrUndefined v
instance MakeObject WheelEvent where
makeObject = makeObject . unWheelEvent
instance IsMouseEvent WheelEvent
instance IsUIEvent WheelEvent
instance IsEvent WheelEvent
instance IsGObject WheelEvent where
toGObject = GObject . unWheelEvent
unsafeCastGObject = WheelEvent . unGObject
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)
newtype Window = Window { unWindow :: JSVal }
instance PToJSVal Window where
pToJSVal = unWindow
instance PFromJSVal Window where
pFromJSVal = Window
instance ToJSVal Window where
toJSVal = return . unWindow
instance FromJSVal Window where
fromJSVal v = fmap Window <$> maybeNullOrUndefined v
instance MakeObject Window where
makeObject = makeObject . unWindow
instance IsEventTarget Window
instance IsGObject Window where
toGObject = GObject . unWindow
unsafeCastGObject = Window . unGObject
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)
newtype WindowBase64 = WindowBase64 { unWindowBase64 :: JSVal }
instance PToJSVal WindowBase64 where
pToJSVal = unWindowBase64
instance PFromJSVal WindowBase64 where
pFromJSVal = WindowBase64
instance ToJSVal WindowBase64 where
toJSVal = return . unWindowBase64
instance FromJSVal WindowBase64 where
fromJSVal v = fmap WindowBase64 <$> maybeNullOrUndefined v
instance MakeObject WindowBase64 where
makeObject = makeObject . unWindowBase64
instance IsGObject WindowBase64 where
toGObject = GObject . unWindowBase64
unsafeCastGObject = WindowBase64 . unGObject
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)
newtype WindowTimers = WindowTimers { unWindowTimers :: JSVal }
instance PToJSVal WindowTimers where
pToJSVal = unWindowTimers
instance PFromJSVal WindowTimers where
pFromJSVal = WindowTimers
instance ToJSVal WindowTimers where
toJSVal = return . unWindowTimers
instance FromJSVal WindowTimers where
fromJSVal v = fmap WindowTimers <$> maybeNullOrUndefined v
instance MakeObject WindowTimers where
makeObject = makeObject . unWindowTimers
instance IsGObject WindowTimers where
toGObject = GObject . unWindowTimers
unsafeCastGObject = WindowTimers . unGObject
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)
newtype Worker = Worker { unWorker :: JSVal }
instance PToJSVal Worker where
pToJSVal = unWorker
instance PFromJSVal Worker where
pFromJSVal = Worker
instance ToJSVal Worker where
toJSVal = return . unWorker
instance FromJSVal Worker where
fromJSVal v = fmap Worker <$> maybeNullOrUndefined v
instance MakeObject Worker where
makeObject = makeObject . unWorker
instance IsEventTarget Worker
instance IsGObject Worker where
toGObject = GObject . unWorker
unsafeCastGObject = Worker . unGObject
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)
newtype WorkerGlobalScope = WorkerGlobalScope { unWorkerGlobalScope :: JSVal }
instance PToJSVal WorkerGlobalScope where
pToJSVal = unWorkerGlobalScope
instance PFromJSVal WorkerGlobalScope where
pFromJSVal = WorkerGlobalScope
instance ToJSVal WorkerGlobalScope where
toJSVal = return . unWorkerGlobalScope
instance FromJSVal WorkerGlobalScope where
fromJSVal v = fmap WorkerGlobalScope <$> maybeNullOrUndefined v
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
unsafeCastGObject = WorkerGlobalScope . unGObject
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)
newtype WorkerLocation = WorkerLocation { unWorkerLocation :: JSVal }
instance PToJSVal WorkerLocation where
pToJSVal = unWorkerLocation
instance PFromJSVal WorkerLocation where
pFromJSVal = WorkerLocation
instance ToJSVal WorkerLocation where
toJSVal = return . unWorkerLocation
instance FromJSVal WorkerLocation where
fromJSVal v = fmap WorkerLocation <$> maybeNullOrUndefined v
instance MakeObject WorkerLocation where
makeObject = makeObject . unWorkerLocation
instance IsGObject WorkerLocation where
toGObject = GObject . unWorkerLocation
unsafeCastGObject = WorkerLocation . unGObject
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)
newtype WorkerNavigator = WorkerNavigator { unWorkerNavigator :: JSVal }
instance PToJSVal WorkerNavigator where
pToJSVal = unWorkerNavigator
instance PFromJSVal WorkerNavigator where
pFromJSVal = WorkerNavigator
instance ToJSVal WorkerNavigator where
toJSVal = return . unWorkerNavigator
instance FromJSVal WorkerNavigator where
fromJSVal v = fmap WorkerNavigator <$> maybeNullOrUndefined v
instance MakeObject WorkerNavigator where
makeObject = makeObject . unWorkerNavigator
instance IsGObject WorkerNavigator where
toGObject = GObject . unWorkerNavigator
unsafeCastGObject = WorkerNavigator . unGObject
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)
newtype XMLHttpRequest = XMLHttpRequest { unXMLHttpRequest :: JSVal }
instance PToJSVal XMLHttpRequest where
pToJSVal = unXMLHttpRequest
instance PFromJSVal XMLHttpRequest where
pFromJSVal = XMLHttpRequest
instance ToJSVal XMLHttpRequest where
toJSVal = return . unXMLHttpRequest
instance FromJSVal XMLHttpRequest where
fromJSVal v = fmap XMLHttpRequest <$> maybeNullOrUndefined v
instance MakeObject XMLHttpRequest where
makeObject = makeObject . unXMLHttpRequest
instance IsEventTarget XMLHttpRequest
instance IsGObject XMLHttpRequest where
toGObject = GObject . unXMLHttpRequest
unsafeCastGObject = XMLHttpRequest . unGObject
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)
newtype XMLHttpRequestProgressEvent = XMLHttpRequestProgressEvent { unXMLHttpRequestProgressEvent :: JSVal }
instance PToJSVal XMLHttpRequestProgressEvent where
pToJSVal = unXMLHttpRequestProgressEvent
instance PFromJSVal XMLHttpRequestProgressEvent where
pFromJSVal = XMLHttpRequestProgressEvent
instance ToJSVal XMLHttpRequestProgressEvent where
toJSVal = return . unXMLHttpRequestProgressEvent
instance FromJSVal XMLHttpRequestProgressEvent where
fromJSVal v = fmap XMLHttpRequestProgressEvent <$> maybeNullOrUndefined v
instance MakeObject XMLHttpRequestProgressEvent where
makeObject = makeObject . unXMLHttpRequestProgressEvent
instance IsProgressEvent XMLHttpRequestProgressEvent
instance IsEvent XMLHttpRequestProgressEvent
instance IsGObject XMLHttpRequestProgressEvent where
toGObject = GObject . unXMLHttpRequestProgressEvent
unsafeCastGObject = XMLHttpRequestProgressEvent . unGObject
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)
newtype XMLHttpRequestUpload = XMLHttpRequestUpload { unXMLHttpRequestUpload :: JSVal }
instance PToJSVal XMLHttpRequestUpload where
pToJSVal = unXMLHttpRequestUpload
instance PFromJSVal XMLHttpRequestUpload where
pFromJSVal = XMLHttpRequestUpload
instance ToJSVal XMLHttpRequestUpload where
toJSVal = return . unXMLHttpRequestUpload
instance FromJSVal XMLHttpRequestUpload where
fromJSVal v = fmap XMLHttpRequestUpload <$> maybeNullOrUndefined v
instance MakeObject XMLHttpRequestUpload where
makeObject = makeObject . unXMLHttpRequestUpload
instance IsEventTarget XMLHttpRequestUpload
instance IsGObject XMLHttpRequestUpload where
toGObject = GObject . unXMLHttpRequestUpload
unsafeCastGObject = XMLHttpRequestUpload . unGObject
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)
newtype XMLSerializer = XMLSerializer { unXMLSerializer :: JSVal }
instance PToJSVal XMLSerializer where
pToJSVal = unXMLSerializer
instance PFromJSVal XMLSerializer where
pFromJSVal = XMLSerializer
instance ToJSVal XMLSerializer where
toJSVal = return . unXMLSerializer
instance FromJSVal XMLSerializer where
fromJSVal v = fmap XMLSerializer <$> maybeNullOrUndefined v
instance MakeObject XMLSerializer where
makeObject = makeObject . unXMLSerializer
instance IsGObject XMLSerializer where
toGObject = GObject . unXMLSerializer
unsafeCastGObject = XMLSerializer . unGObject
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)
newtype XPathEvaluator = XPathEvaluator { unXPathEvaluator :: JSVal }
instance PToJSVal XPathEvaluator where
pToJSVal = unXPathEvaluator
instance PFromJSVal XPathEvaluator where
pFromJSVal = XPathEvaluator
instance ToJSVal XPathEvaluator where
toJSVal = return . unXPathEvaluator
instance FromJSVal XPathEvaluator where
fromJSVal v = fmap XPathEvaluator <$> maybeNullOrUndefined v
instance MakeObject XPathEvaluator where
makeObject = makeObject . unXPathEvaluator
instance IsGObject XPathEvaluator where
toGObject = GObject . unXPathEvaluator
unsafeCastGObject = XPathEvaluator . unGObject
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)
newtype XPathExpression = XPathExpression { unXPathExpression :: JSVal }
instance PToJSVal XPathExpression where
pToJSVal = unXPathExpression
instance PFromJSVal XPathExpression where
pFromJSVal = XPathExpression
instance ToJSVal XPathExpression where
toJSVal = return . unXPathExpression
instance FromJSVal XPathExpression where
fromJSVal v = fmap XPathExpression <$> maybeNullOrUndefined v
instance MakeObject XPathExpression where
makeObject = makeObject . unXPathExpression
instance IsGObject XPathExpression where
toGObject = GObject . unXPathExpression
unsafeCastGObject = XPathExpression . unGObject
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)
newtype XPathNSResolver = XPathNSResolver { unXPathNSResolver :: JSVal }
instance PToJSVal XPathNSResolver where
pToJSVal = unXPathNSResolver
instance PFromJSVal XPathNSResolver where
pFromJSVal = XPathNSResolver
instance ToJSVal XPathNSResolver where
toJSVal = return . unXPathNSResolver
instance FromJSVal XPathNSResolver where
fromJSVal v = fmap XPathNSResolver <$> maybeNullOrUndefined v
instance MakeObject XPathNSResolver where
makeObject = makeObject . unXPathNSResolver
instance IsGObject XPathNSResolver where
toGObject = GObject . unXPathNSResolver
unsafeCastGObject = XPathNSResolver . unGObject
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)
newtype XPathResult = XPathResult { unXPathResult :: JSVal }
instance PToJSVal XPathResult where
pToJSVal = unXPathResult
instance PFromJSVal XPathResult where
pFromJSVal = XPathResult
instance ToJSVal XPathResult where
toJSVal = return . unXPathResult
instance FromJSVal XPathResult where
fromJSVal v = fmap XPathResult <$> maybeNullOrUndefined v
instance MakeObject XPathResult where
makeObject = makeObject . unXPathResult
instance IsGObject XPathResult where
toGObject = GObject . unXPathResult
unsafeCastGObject = XPathResult . unGObject
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)
newtype XSLTProcessor = XSLTProcessor { unXSLTProcessor :: JSVal }
instance PToJSVal XSLTProcessor where
pToJSVal = unXSLTProcessor
instance PFromJSVal XSLTProcessor where
pFromJSVal = XSLTProcessor
instance ToJSVal XSLTProcessor where
toJSVal = return . unXSLTProcessor
instance FromJSVal XSLTProcessor where
fromJSVal v = fmap XSLTProcessor <$> maybeNullOrUndefined v
instance MakeObject XSLTProcessor where
makeObject = makeObject . unXSLTProcessor
instance IsGObject XSLTProcessor where
toGObject = GObject . unXSLTProcessor
unsafeCastGObject = XSLTProcessor . unGObject
castToXSLTProcessor :: IsGObject obj => obj -> JSM XSLTProcessor
castToXSLTProcessor = castTo gTypeXSLTProcessor "XSLTProcessor"
gTypeXSLTProcessor :: JSM GType
gTypeXSLTProcessor = GType . Object <$> jsg "XSLTProcessor"
#endif