module JSDOM.Types (
JSContextRef(..), JSM, askJSM, runJSM, MonadJSM(..), liftJSM
, DOMContext(..), DOM, askDOM, runDOM, MonadDOM(..), liftDOM
, JSVal(..), ToJSVal(..), FromJSVal(..), PToJSVal(..), PFromJSVal(..)
, JSString(..), ToJSString(..), FromJSString(..)
, toMaybeJSString, fromMaybeJSString
, fromJSArray, fromJSArrayUnchecked
, Object(..)
, Nullable(..), nullableToMaybe, maybeToNullable
, DOMString(..), ToDOMString(..), FromDOMString(..), IsDOMString
, maybeNullOrUndefined, maybeNullOrUndefined', GType(..)
, GObject(..), IsGObject, toGObject, gTypeGObject, isA, objectToString
, castTo, unsafeCastTo, uncheckedCastTo
, strictEqual
, 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, gTypePromise
, Date(Date), unDate, IsDate, toDate, gTypeDate
, Array(Array), unArray, IsArray, toArray, gTypeArray
, ObjectArray(ObjectArray), unObjectArray, IsObjectArray, toObjectArray
, ArrayBuffer(ArrayBuffer), unArrayBuffer, IsArrayBuffer, toArrayBuffer, gTypeArrayBuffer
, ArrayBufferView(ArrayBufferView), unArrayBufferView, IsArrayBufferView, toArrayBufferView
, Float32Array(Float32Array), unFloat32Array, IsFloat32Array, toFloat32Array, gTypeFloat32Array
, Float64Array(Float64Array), unFloat64Array, IsFloat64Array, toFloat64Array, gTypeFloat64Array
, Uint8Array(Uint8Array), unUint8Array, IsUint8Array, toUint8Array, gTypeUint8Array
, Uint8ClampedArray(Uint8ClampedArray), unUint8ClampedArray, IsUint8ClampedArray, toUint8ClampedArray, gTypeUint8ClampedArray
, Uint16Array(Uint16Array), unUint16Array, IsUint16Array, toUint16Array, gTypeUint16Array
, Uint32Array(Uint32Array), unUint32Array, IsUint32Array, toUint32Array, gTypeUint32Array
, Int8Array(Int8Array), unInt8Array, IsInt8Array, toInt8Array, gTypeInt8Array
, Int16Array(Int16Array), unInt16Array, IsInt16Array, toInt16Array, gTypeInt16Array
, Int32Array(Int32Array), unInt32Array, IsInt32Array, toInt32Array, 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
, HasCallStack
, ANGLEInstancedArrays(ANGLEInstancedArrays), unANGLEInstancedArrays, gTypeANGLEInstancedArrays
, AbstractView(AbstractView), unAbstractView, gTypeAbstractView
, AbstractWorker(AbstractWorker), unAbstractWorker, gTypeAbstractWorker
, AllAudioCapabilities(AllAudioCapabilities), unAllAudioCapabilities, gTypeAllAudioCapabilities
, AllVideoCapabilities(AllVideoCapabilities), unAllVideoCapabilities, gTypeAllVideoCapabilities
, AnalyserNode(AnalyserNode), unAnalyserNode, gTypeAnalyserNode
, AnimationEvent(AnimationEvent), unAnimationEvent, gTypeAnimationEvent
, ApplicationCache(ApplicationCache), unApplicationCache, gTypeApplicationCache
, Attr(Attr), unAttr, gTypeAttr
, AudioBuffer(AudioBuffer), unAudioBuffer, gTypeAudioBuffer
, AudioBufferSourceNode(AudioBufferSourceNode), unAudioBufferSourceNode, gTypeAudioBufferSourceNode
, AudioContext(AudioContext), unAudioContext, IsAudioContext, toAudioContext, gTypeAudioContext
, AudioDestinationNode(AudioDestinationNode), unAudioDestinationNode, gTypeAudioDestinationNode
, AudioListener(AudioListener), unAudioListener, gTypeAudioListener
, AudioNode(AudioNode), unAudioNode, IsAudioNode, toAudioNode, gTypeAudioNode
, AudioParam(AudioParam), unAudioParam, gTypeAudioParam
, AudioProcessingEvent(AudioProcessingEvent), unAudioProcessingEvent, gTypeAudioProcessingEvent
, AudioStreamTrack(AudioStreamTrack), unAudioStreamTrack, gTypeAudioStreamTrack
, AudioTrack(AudioTrack), unAudioTrack, gTypeAudioTrack
, AudioTrackList(AudioTrackList), unAudioTrackList, gTypeAudioTrackList
, AutocompleteErrorEvent(AutocompleteErrorEvent), unAutocompleteErrorEvent, gTypeAutocompleteErrorEvent
, BarProp(BarProp), unBarProp, gTypeBarProp
, BatteryManager(BatteryManager), unBatteryManager, gTypeBatteryManager
, BeforeLoadEvent(BeforeLoadEvent), unBeforeLoadEvent, gTypeBeforeLoadEvent
, BeforeUnloadEvent(BeforeUnloadEvent), unBeforeUnloadEvent, gTypeBeforeUnloadEvent
, BiquadFilterNode(BiquadFilterNode), unBiquadFilterNode, gTypeBiquadFilterNode
, Blob(Blob), unBlob, IsBlob, toBlob, gTypeBlob
, CDATASection(CDATASection), unCDATASection, gTypeCDATASection
, CSS(CSS), unCSS, gTypeCSS
, CSSCharsetRule(CSSCharsetRule), unCSSCharsetRule, gTypeCSSCharsetRule
, CSSFontFaceLoadEvent(CSSFontFaceLoadEvent), unCSSFontFaceLoadEvent, gTypeCSSFontFaceLoadEvent
, CSSFontFaceRule(CSSFontFaceRule), unCSSFontFaceRule, gTypeCSSFontFaceRule
, CSSImportRule(CSSImportRule), unCSSImportRule, gTypeCSSImportRule
, CSSKeyframeRule(CSSKeyframeRule), unCSSKeyframeRule, gTypeCSSKeyframeRule
, CSSKeyframesRule(CSSKeyframesRule), unCSSKeyframesRule, gTypeCSSKeyframesRule
, CSSMediaRule(CSSMediaRule), unCSSMediaRule, gTypeCSSMediaRule
, CSSPageRule(CSSPageRule), unCSSPageRule, gTypeCSSPageRule
, CSSPrimitiveValue(CSSPrimitiveValue), unCSSPrimitiveValue, gTypeCSSPrimitiveValue
, CSSRule(CSSRule), unCSSRule, IsCSSRule, toCSSRule, gTypeCSSRule
, CSSRuleList(CSSRuleList), unCSSRuleList, gTypeCSSRuleList
, CSSStyleDeclaration(CSSStyleDeclaration), unCSSStyleDeclaration, gTypeCSSStyleDeclaration
, CSSStyleRule(CSSStyleRule), unCSSStyleRule, gTypeCSSStyleRule
, CSSStyleSheet(CSSStyleSheet), unCSSStyleSheet, gTypeCSSStyleSheet
, CSSSupportsRule(CSSSupportsRule), unCSSSupportsRule, gTypeCSSSupportsRule
, CSSUnknownRule(CSSUnknownRule), unCSSUnknownRule, gTypeCSSUnknownRule
, CSSValue(CSSValue), unCSSValue, IsCSSValue, toCSSValue, gTypeCSSValue
, CSSValueList(CSSValueList), unCSSValueList, IsCSSValueList, toCSSValueList, gTypeCSSValueList
, CanvasGradient(CanvasGradient), unCanvasGradient, gTypeCanvasGradient
, CanvasPattern(CanvasPattern), unCanvasPattern, gTypeCanvasPattern
, CanvasProxy(CanvasProxy), unCanvasProxy, gTypeCanvasProxy
, CanvasRenderingContext(CanvasRenderingContext), unCanvasRenderingContext, IsCanvasRenderingContext, toCanvasRenderingContext, gTypeCanvasRenderingContext
, CanvasRenderingContext2D(CanvasRenderingContext2D), unCanvasRenderingContext2D, gTypeCanvasRenderingContext2D
, CapabilityRange(CapabilityRange), unCapabilityRange, gTypeCapabilityRange
, ChannelMergerNode(ChannelMergerNode), unChannelMergerNode, gTypeChannelMergerNode
, ChannelSplitterNode(ChannelSplitterNode), unChannelSplitterNode, gTypeChannelSplitterNode
, CharacterData(CharacterData), unCharacterData, IsCharacterData, toCharacterData, gTypeCharacterData
, ChildNode(ChildNode), unChildNode, gTypeChildNode
, ClientRect(ClientRect), unClientRect, gTypeClientRect
, ClientRectList(ClientRectList), unClientRectList, gTypeClientRectList
, CloseEvent(CloseEvent), unCloseEvent, gTypeCloseEvent
, CommandLineAPIHost(CommandLineAPIHost), unCommandLineAPIHost, gTypeCommandLineAPIHost
, Comment(Comment), unComment, gTypeComment
, CompositionEvent(CompositionEvent), unCompositionEvent, gTypeCompositionEvent
, ConvolverNode(ConvolverNode), unConvolverNode, gTypeConvolverNode
, Coordinates(Coordinates), unCoordinates, gTypeCoordinates
, Counter(Counter), unCounter, gTypeCounter
, Crypto(Crypto), unCrypto, gTypeCrypto
, CryptoKey(CryptoKey), unCryptoKey, gTypeCryptoKey
, CryptoKeyPair(CryptoKeyPair), unCryptoKeyPair, gTypeCryptoKeyPair
, CustomEvent(CustomEvent), unCustomEvent, gTypeCustomEvent
, DOMError(DOMError), unDOMError, IsDOMError, toDOMError, gTypeDOMError
, DOMImplementation(DOMImplementation), unDOMImplementation, gTypeDOMImplementation
, DOMNamedFlowCollection(DOMNamedFlowCollection), unDOMNamedFlowCollection, gTypeDOMNamedFlowCollection
, DOMParser(DOMParser), unDOMParser, gTypeDOMParser
, DOMSettableTokenList(DOMSettableTokenList), unDOMSettableTokenList, gTypeDOMSettableTokenList
, DOMStringList(DOMStringList), unDOMStringList, gTypeDOMStringList
, DOMStringMap(DOMStringMap), unDOMStringMap, gTypeDOMStringMap
, DOMTokenList(DOMTokenList), unDOMTokenList, IsDOMTokenList, toDOMTokenList, gTypeDOMTokenList
, DataCue(DataCue), unDataCue, gTypeDataCue
, DataTransfer(DataTransfer), unDataTransfer, gTypeDataTransfer
, DataTransferItem(DataTransferItem), unDataTransferItem, gTypeDataTransferItem
, DataTransferItemList(DataTransferItemList), unDataTransferItemList, gTypeDataTransferItemList
, Database(Database), unDatabase, gTypeDatabase
, DedicatedWorkerGlobalScope(DedicatedWorkerGlobalScope), unDedicatedWorkerGlobalScope, gTypeDedicatedWorkerGlobalScope
, DelayNode(DelayNode), unDelayNode, gTypeDelayNode
, DeviceMotionEvent(DeviceMotionEvent), unDeviceMotionEvent, gTypeDeviceMotionEvent
, DeviceOrientationEvent(DeviceOrientationEvent), unDeviceOrientationEvent, gTypeDeviceOrientationEvent
, DeviceProximityEvent(DeviceProximityEvent), unDeviceProximityEvent, gTypeDeviceProximityEvent
, Document(Document), unDocument, IsDocument, toDocument, gTypeDocument
, DocumentFragment(DocumentFragment), unDocumentFragment, gTypeDocumentFragment
, DocumentType(DocumentType), unDocumentType, gTypeDocumentType
, DynamicsCompressorNode(DynamicsCompressorNode), unDynamicsCompressorNode, gTypeDynamicsCompressorNode
, EXTBlendMinMax(EXTBlendMinMax), unEXTBlendMinMax, gTypeEXTBlendMinMax
, EXTFragDepth(EXTFragDepth), unEXTFragDepth, gTypeEXTFragDepth
, EXTShaderTextureLOD(EXTShaderTextureLOD), unEXTShaderTextureLOD, gTypeEXTShaderTextureLOD
, EXTTextureFilterAnisotropic(EXTTextureFilterAnisotropic), unEXTTextureFilterAnisotropic, gTypeEXTTextureFilterAnisotropic
, EXTsRGB(EXTsRGB), unEXTsRGB, gTypeEXTsRGB
, Element(Element), unElement, IsElement, toElement, gTypeElement
, Entity(Entity), unEntity, gTypeEntity
, EntityReference(EntityReference), unEntityReference, gTypeEntityReference
, ErrorEvent(ErrorEvent), unErrorEvent, gTypeErrorEvent
, Event(Event), unEvent, IsEvent, toEvent, gTypeEvent
, EventListener(EventListener), unEventListener, gTypeEventListener
, EventSource(EventSource), unEventSource, gTypeEventSource
, EventTarget(EventTarget), unEventTarget, IsEventTarget, toEventTarget, gTypeEventTarget
, File(File), unFile, gTypeFile
, FileError(FileError), unFileError, gTypeFileError
, FileList(FileList), unFileList, gTypeFileList
, FileReader(FileReader), unFileReader, gTypeFileReader
, FileReaderSync(FileReaderSync), unFileReaderSync, gTypeFileReaderSync
, FocusEvent(FocusEvent), unFocusEvent, gTypeFocusEvent
, FontLoader(FontLoader), unFontLoader, gTypeFontLoader
, FormData(FormData), unFormData, gTypeFormData
, GainNode(GainNode), unGainNode, gTypeGainNode
, Gamepad(Gamepad), unGamepad, gTypeGamepad
, GamepadButton(GamepadButton), unGamepadButton, gTypeGamepadButton
, GamepadEvent(GamepadEvent), unGamepadEvent, gTypeGamepadEvent
, Geolocation(Geolocation), unGeolocation, gTypeGeolocation
, Geoposition(Geoposition), unGeoposition, gTypeGeoposition
, HTMLAllCollection(HTMLAllCollection), unHTMLAllCollection, gTypeHTMLAllCollection
, HTMLAnchorElement(HTMLAnchorElement), unHTMLAnchorElement, gTypeHTMLAnchorElement
, HTMLAppletElement(HTMLAppletElement), unHTMLAppletElement, gTypeHTMLAppletElement
, HTMLAreaElement(HTMLAreaElement), unHTMLAreaElement, gTypeHTMLAreaElement
, HTMLAudioElement(HTMLAudioElement), unHTMLAudioElement, gTypeHTMLAudioElement
, HTMLBRElement(HTMLBRElement), unHTMLBRElement, gTypeHTMLBRElement
, HTMLBaseElement(HTMLBaseElement), unHTMLBaseElement, gTypeHTMLBaseElement
, HTMLBaseFontElement(HTMLBaseFontElement), unHTMLBaseFontElement, gTypeHTMLBaseFontElement
, HTMLBodyElement(HTMLBodyElement), unHTMLBodyElement, gTypeHTMLBodyElement
, HTMLButtonElement(HTMLButtonElement), unHTMLButtonElement, gTypeHTMLButtonElement
, HTMLCanvasElement(HTMLCanvasElement), unHTMLCanvasElement, gTypeHTMLCanvasElement
, HTMLCollection(HTMLCollection), unHTMLCollection, IsHTMLCollection, toHTMLCollection, gTypeHTMLCollection
, HTMLDListElement(HTMLDListElement), unHTMLDListElement, gTypeHTMLDListElement
, HTMLDataListElement(HTMLDataListElement), unHTMLDataListElement, gTypeHTMLDataListElement
, HTMLDetailsElement(HTMLDetailsElement), unHTMLDetailsElement, gTypeHTMLDetailsElement
, HTMLDirectoryElement(HTMLDirectoryElement), unHTMLDirectoryElement, gTypeHTMLDirectoryElement
, HTMLDivElement(HTMLDivElement), unHTMLDivElement, gTypeHTMLDivElement
, HTMLDocument(HTMLDocument), unHTMLDocument, gTypeHTMLDocument
, HTMLElement(HTMLElement), unHTMLElement, IsHTMLElement, toHTMLElement, gTypeHTMLElement
, HTMLEmbedElement(HTMLEmbedElement), unHTMLEmbedElement, gTypeHTMLEmbedElement
, HTMLFieldSetElement(HTMLFieldSetElement), unHTMLFieldSetElement, gTypeHTMLFieldSetElement
, HTMLFontElement(HTMLFontElement), unHTMLFontElement, gTypeHTMLFontElement
, HTMLFormControlsCollection(HTMLFormControlsCollection), unHTMLFormControlsCollection, gTypeHTMLFormControlsCollection
, HTMLFormElement(HTMLFormElement), unHTMLFormElement, gTypeHTMLFormElement
, HTMLFrameElement(HTMLFrameElement), unHTMLFrameElement, gTypeHTMLFrameElement
, HTMLFrameSetElement(HTMLFrameSetElement), unHTMLFrameSetElement, gTypeHTMLFrameSetElement
, HTMLHRElement(HTMLHRElement), unHTMLHRElement, gTypeHTMLHRElement
, HTMLHeadElement(HTMLHeadElement), unHTMLHeadElement, gTypeHTMLHeadElement
, HTMLHeadingElement(HTMLHeadingElement), unHTMLHeadingElement, gTypeHTMLHeadingElement
, HTMLHtmlElement(HTMLHtmlElement), unHTMLHtmlElement, gTypeHTMLHtmlElement
, HTMLIFrameElement(HTMLIFrameElement), unHTMLIFrameElement, gTypeHTMLIFrameElement
, HTMLImageElement(HTMLImageElement), unHTMLImageElement, gTypeHTMLImageElement
, HTMLInputElement(HTMLInputElement), unHTMLInputElement, gTypeHTMLInputElement
, HTMLKeygenElement(HTMLKeygenElement), unHTMLKeygenElement, gTypeHTMLKeygenElement
, HTMLLIElement(HTMLLIElement), unHTMLLIElement, gTypeHTMLLIElement
, HTMLLabelElement(HTMLLabelElement), unHTMLLabelElement, gTypeHTMLLabelElement
, HTMLLegendElement(HTMLLegendElement), unHTMLLegendElement, gTypeHTMLLegendElement
, HTMLLinkElement(HTMLLinkElement), unHTMLLinkElement, gTypeHTMLLinkElement
, HTMLMapElement(HTMLMapElement), unHTMLMapElement, gTypeHTMLMapElement
, HTMLMarqueeElement(HTMLMarqueeElement), unHTMLMarqueeElement, gTypeHTMLMarqueeElement
, HTMLMediaElement(HTMLMediaElement), unHTMLMediaElement, IsHTMLMediaElement, toHTMLMediaElement, gTypeHTMLMediaElement
, HTMLMenuElement(HTMLMenuElement), unHTMLMenuElement, gTypeHTMLMenuElement
, HTMLMetaElement(HTMLMetaElement), unHTMLMetaElement, gTypeHTMLMetaElement
, HTMLMeterElement(HTMLMeterElement), unHTMLMeterElement, gTypeHTMLMeterElement
, HTMLModElement(HTMLModElement), unHTMLModElement, gTypeHTMLModElement
, HTMLOListElement(HTMLOListElement), unHTMLOListElement, gTypeHTMLOListElement
, HTMLObjectElement(HTMLObjectElement), unHTMLObjectElement, gTypeHTMLObjectElement
, HTMLOptGroupElement(HTMLOptGroupElement), unHTMLOptGroupElement, gTypeHTMLOptGroupElement
, HTMLOptionElement(HTMLOptionElement), unHTMLOptionElement, gTypeHTMLOptionElement
, HTMLOptionsCollection(HTMLOptionsCollection), unHTMLOptionsCollection, gTypeHTMLOptionsCollection
, HTMLOutputElement(HTMLOutputElement), unHTMLOutputElement, gTypeHTMLOutputElement
, HTMLParagraphElement(HTMLParagraphElement), unHTMLParagraphElement, gTypeHTMLParagraphElement
, HTMLParamElement(HTMLParamElement), unHTMLParamElement, gTypeHTMLParamElement
, HTMLPreElement(HTMLPreElement), unHTMLPreElement, gTypeHTMLPreElement
, HTMLProgressElement(HTMLProgressElement), unHTMLProgressElement, gTypeHTMLProgressElement
, HTMLQuoteElement(HTMLQuoteElement), unHTMLQuoteElement, gTypeHTMLQuoteElement
, HTMLScriptElement(HTMLScriptElement), unHTMLScriptElement, gTypeHTMLScriptElement
, HTMLSelectElement(HTMLSelectElement), unHTMLSelectElement, gTypeHTMLSelectElement
, HTMLSourceElement(HTMLSourceElement), unHTMLSourceElement, gTypeHTMLSourceElement
, HTMLSpanElement(HTMLSpanElement), unHTMLSpanElement, gTypeHTMLSpanElement
, HTMLStyleElement(HTMLStyleElement), unHTMLStyleElement, gTypeHTMLStyleElement
, HTMLTableCaptionElement(HTMLTableCaptionElement), unHTMLTableCaptionElement, gTypeHTMLTableCaptionElement
, HTMLTableCellElement(HTMLTableCellElement), unHTMLTableCellElement, gTypeHTMLTableCellElement
, HTMLTableColElement(HTMLTableColElement), unHTMLTableColElement, gTypeHTMLTableColElement
, HTMLTableElement(HTMLTableElement), unHTMLTableElement, gTypeHTMLTableElement
, HTMLTableRowElement(HTMLTableRowElement), unHTMLTableRowElement, gTypeHTMLTableRowElement
, HTMLTableSectionElement(HTMLTableSectionElement), unHTMLTableSectionElement, gTypeHTMLTableSectionElement
, HTMLTemplateElement(HTMLTemplateElement), unHTMLTemplateElement, gTypeHTMLTemplateElement
, HTMLTextAreaElement(HTMLTextAreaElement), unHTMLTextAreaElement, gTypeHTMLTextAreaElement
, HTMLTitleElement(HTMLTitleElement), unHTMLTitleElement, gTypeHTMLTitleElement
, HTMLTrackElement(HTMLTrackElement), unHTMLTrackElement, gTypeHTMLTrackElement
, HTMLUListElement(HTMLUListElement), unHTMLUListElement, gTypeHTMLUListElement
, HTMLUnknownElement(HTMLUnknownElement), unHTMLUnknownElement, gTypeHTMLUnknownElement
, HTMLVideoElement(HTMLVideoElement), unHTMLVideoElement, gTypeHTMLVideoElement
, HashChangeEvent(HashChangeEvent), unHashChangeEvent, gTypeHashChangeEvent
, History(History), unHistory, gTypeHistory
, IDBAny(IDBAny), unIDBAny, gTypeIDBAny
, IDBCursor(IDBCursor), unIDBCursor, IsIDBCursor, toIDBCursor, gTypeIDBCursor
, IDBCursorWithValue(IDBCursorWithValue), unIDBCursorWithValue, gTypeIDBCursorWithValue
, IDBDatabase(IDBDatabase), unIDBDatabase, gTypeIDBDatabase
, IDBFactory(IDBFactory), unIDBFactory, gTypeIDBFactory
, IDBIndex(IDBIndex), unIDBIndex, gTypeIDBIndex
, IDBKeyRange(IDBKeyRange), unIDBKeyRange, gTypeIDBKeyRange
, IDBObjectStore(IDBObjectStore), unIDBObjectStore, gTypeIDBObjectStore
, IDBOpenDBRequest(IDBOpenDBRequest), unIDBOpenDBRequest, gTypeIDBOpenDBRequest
, IDBRequest(IDBRequest), unIDBRequest, IsIDBRequest, toIDBRequest, gTypeIDBRequest
, IDBTransaction(IDBTransaction), unIDBTransaction, gTypeIDBTransaction
, IDBVersionChangeEvent(IDBVersionChangeEvent), unIDBVersionChangeEvent, gTypeIDBVersionChangeEvent
, ImageData(ImageData), unImageData, gTypeImageData
, InspectorFrontendHost(InspectorFrontendHost), unInspectorFrontendHost, gTypeInspectorFrontendHost
, InternalSettings(InternalSettings), unInternalSettings, gTypeInternalSettings
, Internals(Internals), unInternals, gTypeInternals
, KeyboardEvent(KeyboardEvent), unKeyboardEvent, gTypeKeyboardEvent
, Location(Location), unLocation, gTypeLocation
, MallocStatistics(MallocStatistics), unMallocStatistics, gTypeMallocStatistics
, MediaController(MediaController), unMediaController, gTypeMediaController
, MediaControlsHost(MediaControlsHost), unMediaControlsHost, gTypeMediaControlsHost
, MediaElementAudioSourceNode(MediaElementAudioSourceNode), unMediaElementAudioSourceNode, gTypeMediaElementAudioSourceNode
, MediaError(MediaError), unMediaError, gTypeMediaError
, MediaKeyError(MediaKeyError), unMediaKeyError, gTypeMediaKeyError
, MediaKeyEvent(MediaKeyEvent), unMediaKeyEvent, gTypeMediaKeyEvent
, MediaKeyMessageEvent(MediaKeyMessageEvent), unMediaKeyMessageEvent, gTypeMediaKeyMessageEvent
, MediaKeyNeededEvent(MediaKeyNeededEvent), unMediaKeyNeededEvent, gTypeMediaKeyNeededEvent
, MediaKeySession(MediaKeySession), unMediaKeySession, gTypeMediaKeySession
, MediaKeys(MediaKeys), unMediaKeys, gTypeMediaKeys
, MediaList(MediaList), unMediaList, gTypeMediaList
, MediaQueryList(MediaQueryList), unMediaQueryList, gTypeMediaQueryList
, MediaSource(MediaSource), unMediaSource, gTypeMediaSource
, MediaSourceStates(MediaSourceStates), unMediaSourceStates, gTypeMediaSourceStates
, MediaStream(MediaStream), unMediaStream, gTypeMediaStream
, MediaStreamAudioDestinationNode(MediaStreamAudioDestinationNode), unMediaStreamAudioDestinationNode, gTypeMediaStreamAudioDestinationNode
, MediaStreamAudioSourceNode(MediaStreamAudioSourceNode), unMediaStreamAudioSourceNode, gTypeMediaStreamAudioSourceNode
, MediaStreamCapabilities(MediaStreamCapabilities), unMediaStreamCapabilities, IsMediaStreamCapabilities, toMediaStreamCapabilities, gTypeMediaStreamCapabilities
, MediaStreamEvent(MediaStreamEvent), unMediaStreamEvent, gTypeMediaStreamEvent
, MediaStreamTrack(MediaStreamTrack), unMediaStreamTrack, IsMediaStreamTrack, toMediaStreamTrack, gTypeMediaStreamTrack
, MediaStreamTrackEvent(MediaStreamTrackEvent), unMediaStreamTrackEvent, gTypeMediaStreamTrackEvent
, MediaTrackConstraint(MediaTrackConstraint), unMediaTrackConstraint, gTypeMediaTrackConstraint
, MediaTrackConstraintSet(MediaTrackConstraintSet), unMediaTrackConstraintSet, gTypeMediaTrackConstraintSet
, MediaTrackConstraints(MediaTrackConstraints), unMediaTrackConstraints, gTypeMediaTrackConstraints
, MemoryInfo(MemoryInfo), unMemoryInfo, gTypeMemoryInfo
, MessageChannel(MessageChannel), unMessageChannel, gTypeMessageChannel
, MessageEvent(MessageEvent), unMessageEvent, gTypeMessageEvent
, MessagePort(MessagePort), unMessagePort, gTypeMessagePort
, MimeType(MimeType), unMimeType, gTypeMimeType
, MimeTypeArray(MimeTypeArray), unMimeTypeArray, gTypeMimeTypeArray
, MouseEvent(MouseEvent), unMouseEvent, IsMouseEvent, toMouseEvent, gTypeMouseEvent
, MutationEvent(MutationEvent), unMutationEvent, gTypeMutationEvent
, MutationObserver(MutationObserver), unMutationObserver, gTypeMutationObserver
, MutationRecord(MutationRecord), unMutationRecord, gTypeMutationRecord
, NamedNodeMap(NamedNodeMap), unNamedNodeMap, gTypeNamedNodeMap
, Navigator(Navigator), unNavigator, gTypeNavigator
, NavigatorUserMediaError(NavigatorUserMediaError), unNavigatorUserMediaError, gTypeNavigatorUserMediaError
, Node(Node), unNode, IsNode, toNode, gTypeNode
, NodeFilter(NodeFilter), unNodeFilter, gTypeNodeFilter
, NodeIterator(NodeIterator), unNodeIterator, gTypeNodeIterator
, NodeList(NodeList), unNodeList, IsNodeList, toNodeList, gTypeNodeList
, Notification(Notification), unNotification, gTypeNotification
, NotificationCenter(NotificationCenter), unNotificationCenter, gTypeNotificationCenter
, OESElementIndexUint(OESElementIndexUint), unOESElementIndexUint, gTypeOESElementIndexUint
, OESStandardDerivatives(OESStandardDerivatives), unOESStandardDerivatives, gTypeOESStandardDerivatives
, OESTextureFloat(OESTextureFloat), unOESTextureFloat, gTypeOESTextureFloat
, OESTextureFloatLinear(OESTextureFloatLinear), unOESTextureFloatLinear, gTypeOESTextureFloatLinear
, OESTextureHalfFloat(OESTextureHalfFloat), unOESTextureHalfFloat, gTypeOESTextureHalfFloat
, OESTextureHalfFloatLinear(OESTextureHalfFloatLinear), unOESTextureHalfFloatLinear, gTypeOESTextureHalfFloatLinear
, OESVertexArrayObject(OESVertexArrayObject), unOESVertexArrayObject, gTypeOESVertexArrayObject
, OfflineAudioCompletionEvent(OfflineAudioCompletionEvent), unOfflineAudioCompletionEvent, gTypeOfflineAudioCompletionEvent
, OfflineAudioContext(OfflineAudioContext), unOfflineAudioContext, gTypeOfflineAudioContext
, OscillatorNode(OscillatorNode), unOscillatorNode, gTypeOscillatorNode
, OverflowEvent(OverflowEvent), unOverflowEvent, gTypeOverflowEvent
, PageTransitionEvent(PageTransitionEvent), unPageTransitionEvent, gTypePageTransitionEvent
, PannerNode(PannerNode), unPannerNode, gTypePannerNode
, Path2D(Path2D), unPath2D, gTypePath2D
, Performance(Performance), unPerformance, gTypePerformance
, PerformanceEntry(PerformanceEntry), unPerformanceEntry, IsPerformanceEntry, toPerformanceEntry, gTypePerformanceEntry
, PerformanceEntryList(PerformanceEntryList), unPerformanceEntryList, gTypePerformanceEntryList
, PerformanceMark(PerformanceMark), unPerformanceMark, gTypePerformanceMark
, PerformanceMeasure(PerformanceMeasure), unPerformanceMeasure, gTypePerformanceMeasure
, PerformanceNavigation(PerformanceNavigation), unPerformanceNavigation, gTypePerformanceNavigation
, PerformanceResourceTiming(PerformanceResourceTiming), unPerformanceResourceTiming, gTypePerformanceResourceTiming
, PerformanceTiming(PerformanceTiming), unPerformanceTiming, gTypePerformanceTiming
, PeriodicWave(PeriodicWave), unPeriodicWave, gTypePeriodicWave
, Plugin(Plugin), unPlugin, gTypePlugin
, PluginArray(PluginArray), unPluginArray, gTypePluginArray
, PopStateEvent(PopStateEvent), unPopStateEvent, gTypePopStateEvent
, PositionError(PositionError), unPositionError, gTypePositionError
, ProcessingInstruction(ProcessingInstruction), unProcessingInstruction, gTypeProcessingInstruction
, ProgressEvent(ProgressEvent), unProgressEvent, IsProgressEvent, toProgressEvent, gTypeProgressEvent
, QuickTimePluginReplacement(QuickTimePluginReplacement), unQuickTimePluginReplacement, gTypeQuickTimePluginReplacement
, RGBColor(RGBColor), unRGBColor, gTypeRGBColor
, RTCConfiguration(RTCConfiguration), unRTCConfiguration, gTypeRTCConfiguration
, RTCDTMFSender(RTCDTMFSender), unRTCDTMFSender, gTypeRTCDTMFSender
, RTCDTMFToneChangeEvent(RTCDTMFToneChangeEvent), unRTCDTMFToneChangeEvent, gTypeRTCDTMFToneChangeEvent
, RTCDataChannel(RTCDataChannel), unRTCDataChannel, gTypeRTCDataChannel
, RTCDataChannelEvent(RTCDataChannelEvent), unRTCDataChannelEvent, gTypeRTCDataChannelEvent
, RTCIceCandidate(RTCIceCandidate), unRTCIceCandidate, gTypeRTCIceCandidate
, RTCIceCandidateEvent(RTCIceCandidateEvent), unRTCIceCandidateEvent, gTypeRTCIceCandidateEvent
, RTCIceServer(RTCIceServer), unRTCIceServer, gTypeRTCIceServer
, RTCPeerConnection(RTCPeerConnection), unRTCPeerConnection, gTypeRTCPeerConnection
, RTCSessionDescription(RTCSessionDescription), unRTCSessionDescription, gTypeRTCSessionDescription
, RTCStatsReport(RTCStatsReport), unRTCStatsReport, gTypeRTCStatsReport
, RTCStatsResponse(RTCStatsResponse), unRTCStatsResponse, gTypeRTCStatsResponse
, RadioNodeList(RadioNodeList), unRadioNodeList, gTypeRadioNodeList
, Range(Range), unRange, gTypeRange
, ReadableStream(ReadableStream), unReadableStream, gTypeReadableStream
, Rect(Rect), unRect, gTypeRect
, SQLError(SQLError), unSQLError, gTypeSQLError
, SQLResultSet(SQLResultSet), unSQLResultSet, gTypeSQLResultSet
, SQLResultSetRowList(SQLResultSetRowList), unSQLResultSetRowList, gTypeSQLResultSetRowList
, SQLTransaction(SQLTransaction), unSQLTransaction, gTypeSQLTransaction
, SVGAElement(SVGAElement), unSVGAElement, gTypeSVGAElement
, SVGAltGlyphDefElement(SVGAltGlyphDefElement), unSVGAltGlyphDefElement, gTypeSVGAltGlyphDefElement
, SVGAltGlyphElement(SVGAltGlyphElement), unSVGAltGlyphElement, gTypeSVGAltGlyphElement
, SVGAltGlyphItemElement(SVGAltGlyphItemElement), unSVGAltGlyphItemElement, gTypeSVGAltGlyphItemElement
, SVGAngle(SVGAngle), unSVGAngle, gTypeSVGAngle
, SVGAnimateColorElement(SVGAnimateColorElement), unSVGAnimateColorElement, gTypeSVGAnimateColorElement
, SVGAnimateElement(SVGAnimateElement), unSVGAnimateElement, gTypeSVGAnimateElement
, SVGAnimateMotionElement(SVGAnimateMotionElement), unSVGAnimateMotionElement, gTypeSVGAnimateMotionElement
, SVGAnimateTransformElement(SVGAnimateTransformElement), unSVGAnimateTransformElement, gTypeSVGAnimateTransformElement
, SVGAnimatedAngle(SVGAnimatedAngle), unSVGAnimatedAngle, gTypeSVGAnimatedAngle
, SVGAnimatedBoolean(SVGAnimatedBoolean), unSVGAnimatedBoolean, gTypeSVGAnimatedBoolean
, SVGAnimatedEnumeration(SVGAnimatedEnumeration), unSVGAnimatedEnumeration, gTypeSVGAnimatedEnumeration
, SVGAnimatedInteger(SVGAnimatedInteger), unSVGAnimatedInteger, gTypeSVGAnimatedInteger
, SVGAnimatedLength(SVGAnimatedLength), unSVGAnimatedLength, gTypeSVGAnimatedLength
, SVGAnimatedLengthList(SVGAnimatedLengthList), unSVGAnimatedLengthList, gTypeSVGAnimatedLengthList
, SVGAnimatedNumber(SVGAnimatedNumber), unSVGAnimatedNumber, gTypeSVGAnimatedNumber
, SVGAnimatedNumberList(SVGAnimatedNumberList), unSVGAnimatedNumberList, gTypeSVGAnimatedNumberList
, SVGAnimatedPreserveAspectRatio(SVGAnimatedPreserveAspectRatio), unSVGAnimatedPreserveAspectRatio, gTypeSVGAnimatedPreserveAspectRatio
, SVGAnimatedRect(SVGAnimatedRect), unSVGAnimatedRect, gTypeSVGAnimatedRect
, SVGAnimatedString(SVGAnimatedString), unSVGAnimatedString, gTypeSVGAnimatedString
, SVGAnimatedTransformList(SVGAnimatedTransformList), unSVGAnimatedTransformList, gTypeSVGAnimatedTransformList
, SVGAnimationElement(SVGAnimationElement), unSVGAnimationElement, IsSVGAnimationElement, toSVGAnimationElement, gTypeSVGAnimationElement
, SVGCircleElement(SVGCircleElement), unSVGCircleElement, gTypeSVGCircleElement
, SVGClipPathElement(SVGClipPathElement), unSVGClipPathElement, gTypeSVGClipPathElement
, SVGColor(SVGColor), unSVGColor, IsSVGColor, toSVGColor, gTypeSVGColor
, SVGComponentTransferFunctionElement(SVGComponentTransferFunctionElement), unSVGComponentTransferFunctionElement, IsSVGComponentTransferFunctionElement, toSVGComponentTransferFunctionElement, gTypeSVGComponentTransferFunctionElement
, SVGCursorElement(SVGCursorElement), unSVGCursorElement, gTypeSVGCursorElement
, SVGDefsElement(SVGDefsElement), unSVGDefsElement, gTypeSVGDefsElement
, SVGDescElement(SVGDescElement), unSVGDescElement, gTypeSVGDescElement
, SVGDocument(SVGDocument), unSVGDocument, gTypeSVGDocument
, SVGElement(SVGElement), unSVGElement, IsSVGElement, toSVGElement, gTypeSVGElement
, SVGEllipseElement(SVGEllipseElement), unSVGEllipseElement, gTypeSVGEllipseElement
, SVGExternalResourcesRequired(SVGExternalResourcesRequired), unSVGExternalResourcesRequired, gTypeSVGExternalResourcesRequired
, SVGFEBlendElement(SVGFEBlendElement), unSVGFEBlendElement, gTypeSVGFEBlendElement
, SVGFEColorMatrixElement(SVGFEColorMatrixElement), unSVGFEColorMatrixElement, gTypeSVGFEColorMatrixElement
, SVGFEComponentTransferElement(SVGFEComponentTransferElement), unSVGFEComponentTransferElement, gTypeSVGFEComponentTransferElement
, SVGFECompositeElement(SVGFECompositeElement), unSVGFECompositeElement, gTypeSVGFECompositeElement
, SVGFEConvolveMatrixElement(SVGFEConvolveMatrixElement), unSVGFEConvolveMatrixElement, gTypeSVGFEConvolveMatrixElement
, SVGFEDiffuseLightingElement(SVGFEDiffuseLightingElement), unSVGFEDiffuseLightingElement, gTypeSVGFEDiffuseLightingElement
, SVGFEDisplacementMapElement(SVGFEDisplacementMapElement), unSVGFEDisplacementMapElement, gTypeSVGFEDisplacementMapElement
, SVGFEDistantLightElement(SVGFEDistantLightElement), unSVGFEDistantLightElement, gTypeSVGFEDistantLightElement
, SVGFEDropShadowElement(SVGFEDropShadowElement), unSVGFEDropShadowElement, gTypeSVGFEDropShadowElement
, SVGFEFloodElement(SVGFEFloodElement), unSVGFEFloodElement, gTypeSVGFEFloodElement
, SVGFEFuncAElement(SVGFEFuncAElement), unSVGFEFuncAElement, gTypeSVGFEFuncAElement
, SVGFEFuncBElement(SVGFEFuncBElement), unSVGFEFuncBElement, gTypeSVGFEFuncBElement
, SVGFEFuncGElement(SVGFEFuncGElement), unSVGFEFuncGElement, gTypeSVGFEFuncGElement
, SVGFEFuncRElement(SVGFEFuncRElement), unSVGFEFuncRElement, gTypeSVGFEFuncRElement
, SVGFEGaussianBlurElement(SVGFEGaussianBlurElement), unSVGFEGaussianBlurElement, gTypeSVGFEGaussianBlurElement
, SVGFEImageElement(SVGFEImageElement), unSVGFEImageElement, gTypeSVGFEImageElement
, SVGFEMergeElement(SVGFEMergeElement), unSVGFEMergeElement, gTypeSVGFEMergeElement
, SVGFEMergeNodeElement(SVGFEMergeNodeElement), unSVGFEMergeNodeElement, gTypeSVGFEMergeNodeElement
, SVGFEMorphologyElement(SVGFEMorphologyElement), unSVGFEMorphologyElement, gTypeSVGFEMorphologyElement
, SVGFEOffsetElement(SVGFEOffsetElement), unSVGFEOffsetElement, gTypeSVGFEOffsetElement
, SVGFEPointLightElement(SVGFEPointLightElement), unSVGFEPointLightElement, gTypeSVGFEPointLightElement
, SVGFESpecularLightingElement(SVGFESpecularLightingElement), unSVGFESpecularLightingElement, gTypeSVGFESpecularLightingElement
, SVGFESpotLightElement(SVGFESpotLightElement), unSVGFESpotLightElement, gTypeSVGFESpotLightElement
, SVGFETileElement(SVGFETileElement), unSVGFETileElement, gTypeSVGFETileElement
, SVGFETurbulenceElement(SVGFETurbulenceElement), unSVGFETurbulenceElement, gTypeSVGFETurbulenceElement
, SVGFilterElement(SVGFilterElement), unSVGFilterElement, gTypeSVGFilterElement
, SVGFilterPrimitiveStandardAttributes(SVGFilterPrimitiveStandardAttributes), unSVGFilterPrimitiveStandardAttributes, gTypeSVGFilterPrimitiveStandardAttributes
, SVGFitToViewBox(SVGFitToViewBox), unSVGFitToViewBox, gTypeSVGFitToViewBox
, SVGFontElement(SVGFontElement), unSVGFontElement, gTypeSVGFontElement
, SVGFontFaceElement(SVGFontFaceElement), unSVGFontFaceElement, gTypeSVGFontFaceElement
, SVGFontFaceFormatElement(SVGFontFaceFormatElement), unSVGFontFaceFormatElement, gTypeSVGFontFaceFormatElement
, SVGFontFaceNameElement(SVGFontFaceNameElement), unSVGFontFaceNameElement, gTypeSVGFontFaceNameElement
, SVGFontFaceSrcElement(SVGFontFaceSrcElement), unSVGFontFaceSrcElement, gTypeSVGFontFaceSrcElement
, SVGFontFaceUriElement(SVGFontFaceUriElement), unSVGFontFaceUriElement, gTypeSVGFontFaceUriElement
, SVGForeignObjectElement(SVGForeignObjectElement), unSVGForeignObjectElement, gTypeSVGForeignObjectElement
, SVGGElement(SVGGElement), unSVGGElement, gTypeSVGGElement
, SVGGlyphElement(SVGGlyphElement), unSVGGlyphElement, gTypeSVGGlyphElement
, SVGGlyphRefElement(SVGGlyphRefElement), unSVGGlyphRefElement, gTypeSVGGlyphRefElement
, SVGGradientElement(SVGGradientElement), unSVGGradientElement, IsSVGGradientElement, toSVGGradientElement, gTypeSVGGradientElement
, SVGGraphicsElement(SVGGraphicsElement), unSVGGraphicsElement, IsSVGGraphicsElement, toSVGGraphicsElement, gTypeSVGGraphicsElement
, SVGHKernElement(SVGHKernElement), unSVGHKernElement, gTypeSVGHKernElement
, SVGImageElement(SVGImageElement), unSVGImageElement, gTypeSVGImageElement
, SVGLength(SVGLength), unSVGLength, gTypeSVGLength
, SVGLengthList(SVGLengthList), unSVGLengthList, gTypeSVGLengthList
, SVGLineElement(SVGLineElement), unSVGLineElement, gTypeSVGLineElement
, SVGLinearGradientElement(SVGLinearGradientElement), unSVGLinearGradientElement, gTypeSVGLinearGradientElement
, SVGMPathElement(SVGMPathElement), unSVGMPathElement, gTypeSVGMPathElement
, SVGMarkerElement(SVGMarkerElement), unSVGMarkerElement, gTypeSVGMarkerElement
, SVGMaskElement(SVGMaskElement), unSVGMaskElement, gTypeSVGMaskElement
, SVGMatrix(SVGMatrix), unSVGMatrix, gTypeSVGMatrix
, SVGMetadataElement(SVGMetadataElement), unSVGMetadataElement, gTypeSVGMetadataElement
, SVGMissingGlyphElement(SVGMissingGlyphElement), unSVGMissingGlyphElement, gTypeSVGMissingGlyphElement
, SVGNumber(SVGNumber), unSVGNumber, gTypeSVGNumber
, SVGNumberList(SVGNumberList), unSVGNumberList, gTypeSVGNumberList
, SVGPaint(SVGPaint), unSVGPaint, gTypeSVGPaint
, SVGPathElement(SVGPathElement), unSVGPathElement, gTypeSVGPathElement
, SVGPathSeg(SVGPathSeg), unSVGPathSeg, IsSVGPathSeg, toSVGPathSeg, gTypeSVGPathSeg
, SVGPathSegArcAbs(SVGPathSegArcAbs), unSVGPathSegArcAbs, gTypeSVGPathSegArcAbs
, SVGPathSegArcRel(SVGPathSegArcRel), unSVGPathSegArcRel, gTypeSVGPathSegArcRel
, SVGPathSegClosePath(SVGPathSegClosePath), unSVGPathSegClosePath, gTypeSVGPathSegClosePath
, SVGPathSegCurvetoCubicAbs(SVGPathSegCurvetoCubicAbs), unSVGPathSegCurvetoCubicAbs, gTypeSVGPathSegCurvetoCubicAbs
, SVGPathSegCurvetoCubicRel(SVGPathSegCurvetoCubicRel), unSVGPathSegCurvetoCubicRel, gTypeSVGPathSegCurvetoCubicRel
, SVGPathSegCurvetoCubicSmoothAbs(SVGPathSegCurvetoCubicSmoothAbs), unSVGPathSegCurvetoCubicSmoothAbs, gTypeSVGPathSegCurvetoCubicSmoothAbs
, SVGPathSegCurvetoCubicSmoothRel(SVGPathSegCurvetoCubicSmoothRel), unSVGPathSegCurvetoCubicSmoothRel, gTypeSVGPathSegCurvetoCubicSmoothRel
, SVGPathSegCurvetoQuadraticAbs(SVGPathSegCurvetoQuadraticAbs), unSVGPathSegCurvetoQuadraticAbs, gTypeSVGPathSegCurvetoQuadraticAbs
, SVGPathSegCurvetoQuadraticRel(SVGPathSegCurvetoQuadraticRel), unSVGPathSegCurvetoQuadraticRel, gTypeSVGPathSegCurvetoQuadraticRel
, SVGPathSegCurvetoQuadraticSmoothAbs(SVGPathSegCurvetoQuadraticSmoothAbs), unSVGPathSegCurvetoQuadraticSmoothAbs, gTypeSVGPathSegCurvetoQuadraticSmoothAbs
, SVGPathSegCurvetoQuadraticSmoothRel(SVGPathSegCurvetoQuadraticSmoothRel), unSVGPathSegCurvetoQuadraticSmoothRel, gTypeSVGPathSegCurvetoQuadraticSmoothRel
, SVGPathSegLinetoAbs(SVGPathSegLinetoAbs), unSVGPathSegLinetoAbs, gTypeSVGPathSegLinetoAbs
, SVGPathSegLinetoHorizontalAbs(SVGPathSegLinetoHorizontalAbs), unSVGPathSegLinetoHorizontalAbs, gTypeSVGPathSegLinetoHorizontalAbs
, SVGPathSegLinetoHorizontalRel(SVGPathSegLinetoHorizontalRel), unSVGPathSegLinetoHorizontalRel, gTypeSVGPathSegLinetoHorizontalRel
, SVGPathSegLinetoRel(SVGPathSegLinetoRel), unSVGPathSegLinetoRel, gTypeSVGPathSegLinetoRel
, SVGPathSegLinetoVerticalAbs(SVGPathSegLinetoVerticalAbs), unSVGPathSegLinetoVerticalAbs, gTypeSVGPathSegLinetoVerticalAbs
, SVGPathSegLinetoVerticalRel(SVGPathSegLinetoVerticalRel), unSVGPathSegLinetoVerticalRel, gTypeSVGPathSegLinetoVerticalRel
, SVGPathSegList(SVGPathSegList), unSVGPathSegList, gTypeSVGPathSegList
, SVGPathSegMovetoAbs(SVGPathSegMovetoAbs), unSVGPathSegMovetoAbs, gTypeSVGPathSegMovetoAbs
, SVGPathSegMovetoRel(SVGPathSegMovetoRel), unSVGPathSegMovetoRel, gTypeSVGPathSegMovetoRel
, SVGPatternElement(SVGPatternElement), unSVGPatternElement, gTypeSVGPatternElement
, SVGPoint(SVGPoint), unSVGPoint, gTypeSVGPoint
, SVGPointList(SVGPointList), unSVGPointList, gTypeSVGPointList
, SVGPolygonElement(SVGPolygonElement), unSVGPolygonElement, gTypeSVGPolygonElement
, SVGPolylineElement(SVGPolylineElement), unSVGPolylineElement, gTypeSVGPolylineElement
, SVGPreserveAspectRatio(SVGPreserveAspectRatio), unSVGPreserveAspectRatio, gTypeSVGPreserveAspectRatio
, SVGRadialGradientElement(SVGRadialGradientElement), unSVGRadialGradientElement, gTypeSVGRadialGradientElement
, SVGRect(SVGRect), unSVGRect, gTypeSVGRect
, SVGRectElement(SVGRectElement), unSVGRectElement, gTypeSVGRectElement
, SVGRenderingIntent(SVGRenderingIntent), unSVGRenderingIntent, gTypeSVGRenderingIntent
, SVGSVGElement(SVGSVGElement), unSVGSVGElement, gTypeSVGSVGElement
, SVGScriptElement(SVGScriptElement), unSVGScriptElement, gTypeSVGScriptElement
, SVGSetElement(SVGSetElement), unSVGSetElement, gTypeSVGSetElement
, SVGStopElement(SVGStopElement), unSVGStopElement, gTypeSVGStopElement
, SVGStringList(SVGStringList), unSVGStringList, gTypeSVGStringList
, SVGStyleElement(SVGStyleElement), unSVGStyleElement, gTypeSVGStyleElement
, SVGSwitchElement(SVGSwitchElement), unSVGSwitchElement, gTypeSVGSwitchElement
, SVGSymbolElement(SVGSymbolElement), unSVGSymbolElement, gTypeSVGSymbolElement
, SVGTRefElement(SVGTRefElement), unSVGTRefElement, gTypeSVGTRefElement
, SVGTSpanElement(SVGTSpanElement), unSVGTSpanElement, gTypeSVGTSpanElement
, SVGTests(SVGTests), unSVGTests, gTypeSVGTests
, SVGTextContentElement(SVGTextContentElement), unSVGTextContentElement, IsSVGTextContentElement, toSVGTextContentElement, gTypeSVGTextContentElement
, SVGTextElement(SVGTextElement), unSVGTextElement, gTypeSVGTextElement
, SVGTextPathElement(SVGTextPathElement), unSVGTextPathElement, gTypeSVGTextPathElement
, SVGTextPositioningElement(SVGTextPositioningElement), unSVGTextPositioningElement, IsSVGTextPositioningElement, toSVGTextPositioningElement, gTypeSVGTextPositioningElement
, SVGTitleElement(SVGTitleElement), unSVGTitleElement, gTypeSVGTitleElement
, SVGTransform(SVGTransform), unSVGTransform, gTypeSVGTransform
, SVGTransformList(SVGTransformList), unSVGTransformList, gTypeSVGTransformList
, SVGURIReference(SVGURIReference), unSVGURIReference, gTypeSVGURIReference
, SVGUnitTypes(SVGUnitTypes), unSVGUnitTypes, gTypeSVGUnitTypes
, SVGUseElement(SVGUseElement), unSVGUseElement, gTypeSVGUseElement
, SVGVKernElement(SVGVKernElement), unSVGVKernElement, gTypeSVGVKernElement
, SVGViewElement(SVGViewElement), unSVGViewElement, gTypeSVGViewElement
, SVGViewSpec(SVGViewSpec), unSVGViewSpec, gTypeSVGViewSpec
, SVGZoomAndPan(SVGZoomAndPan), unSVGZoomAndPan, gTypeSVGZoomAndPan
, SVGZoomEvent(SVGZoomEvent), unSVGZoomEvent, gTypeSVGZoomEvent
, Screen(Screen), unScreen, gTypeScreen
, ScriptProcessorNode(ScriptProcessorNode), unScriptProcessorNode, gTypeScriptProcessorNode
, ScriptProfile(ScriptProfile), unScriptProfile, gTypeScriptProfile
, ScriptProfileNode(ScriptProfileNode), unScriptProfileNode, gTypeScriptProfileNode
, SecurityPolicy(SecurityPolicy), unSecurityPolicy, gTypeSecurityPolicy
, SecurityPolicyViolationEvent(SecurityPolicyViolationEvent), unSecurityPolicyViolationEvent, gTypeSecurityPolicyViolationEvent
, Selection(Selection), unSelection, gTypeSelection
, SourceBuffer(SourceBuffer), unSourceBuffer, gTypeSourceBuffer
, SourceBufferList(SourceBufferList), unSourceBufferList, gTypeSourceBufferList
, SourceInfo(SourceInfo), unSourceInfo, gTypeSourceInfo
, SpeechSynthesis(SpeechSynthesis), unSpeechSynthesis, gTypeSpeechSynthesis
, SpeechSynthesisEvent(SpeechSynthesisEvent), unSpeechSynthesisEvent, gTypeSpeechSynthesisEvent
, SpeechSynthesisUtterance(SpeechSynthesisUtterance), unSpeechSynthesisUtterance, gTypeSpeechSynthesisUtterance
, SpeechSynthesisVoice(SpeechSynthesisVoice), unSpeechSynthesisVoice, gTypeSpeechSynthesisVoice
, Storage(Storage), unStorage, gTypeStorage
, StorageEvent(StorageEvent), unStorageEvent, gTypeStorageEvent
, StorageInfo(StorageInfo), unStorageInfo, gTypeStorageInfo
, StorageQuota(StorageQuota), unStorageQuota, gTypeStorageQuota
, StyleMedia(StyleMedia), unStyleMedia, gTypeStyleMedia
, StyleSheet(StyleSheet), unStyleSheet, IsStyleSheet, toStyleSheet, gTypeStyleSheet
, StyleSheetList(StyleSheetList), unStyleSheetList, gTypeStyleSheetList
, SubtleCrypto(SubtleCrypto), unSubtleCrypto, gTypeSubtleCrypto
, Text(Text), unText, IsText, toText, gTypeText
, TextEvent(TextEvent), unTextEvent, gTypeTextEvent
, TextMetrics(TextMetrics), unTextMetrics, gTypeTextMetrics
, TextTrack(TextTrack), unTextTrack, gTypeTextTrack
, TextTrackCue(TextTrackCue), unTextTrackCue, IsTextTrackCue, toTextTrackCue, gTypeTextTrackCue
, TextTrackCueList(TextTrackCueList), unTextTrackCueList, gTypeTextTrackCueList
, TextTrackList(TextTrackList), unTextTrackList, gTypeTextTrackList
, TimeRanges(TimeRanges), unTimeRanges, gTypeTimeRanges
, Touch(Touch), unTouch, gTypeTouch
, TouchEvent(TouchEvent), unTouchEvent, gTypeTouchEvent
, TouchList(TouchList), unTouchList, gTypeTouchList
, TrackEvent(TrackEvent), unTrackEvent, gTypeTrackEvent
, TransitionEvent(TransitionEvent), unTransitionEvent, gTypeTransitionEvent
, TreeWalker(TreeWalker), unTreeWalker, gTypeTreeWalker
, TypeConversions(TypeConversions), unTypeConversions, gTypeTypeConversions
, UIEvent(UIEvent), unUIEvent, IsUIEvent, toUIEvent, gTypeUIEvent
, UIRequestEvent(UIRequestEvent), unUIRequestEvent, gTypeUIRequestEvent
, URL(URL), unURL, gTypeURL
, URLUtils(URLUtils), unURLUtils, gTypeURLUtils
, UserMessageHandler(UserMessageHandler), unUserMessageHandler, gTypeUserMessageHandler
, UserMessageHandlersNamespace(UserMessageHandlersNamespace), unUserMessageHandlersNamespace, gTypeUserMessageHandlersNamespace
, VTTCue(VTTCue), unVTTCue, gTypeVTTCue
, VTTRegion(VTTRegion), unVTTRegion, gTypeVTTRegion
, VTTRegionList(VTTRegionList), unVTTRegionList, gTypeVTTRegionList
, ValidityState(ValidityState), unValidityState, gTypeValidityState
, VideoPlaybackQuality(VideoPlaybackQuality), unVideoPlaybackQuality, gTypeVideoPlaybackQuality
, VideoStreamTrack(VideoStreamTrack), unVideoStreamTrack, gTypeVideoStreamTrack
, VideoTrack(VideoTrack), unVideoTrack, gTypeVideoTrack
, VideoTrackList(VideoTrackList), unVideoTrackList, gTypeVideoTrackList
, WaveShaperNode(WaveShaperNode), unWaveShaperNode, gTypeWaveShaperNode
, WebGL2RenderingContext(WebGL2RenderingContext), unWebGL2RenderingContext, gTypeWebGL2RenderingContext
, WebGLActiveInfo(WebGLActiveInfo), unWebGLActiveInfo, gTypeWebGLActiveInfo
, WebGLBuffer(WebGLBuffer), unWebGLBuffer, gTypeWebGLBuffer
, WebGLCompressedTextureATC(WebGLCompressedTextureATC), unWebGLCompressedTextureATC, gTypeWebGLCompressedTextureATC
, WebGLCompressedTexturePVRTC(WebGLCompressedTexturePVRTC), unWebGLCompressedTexturePVRTC, gTypeWebGLCompressedTexturePVRTC
, WebGLCompressedTextureS3TC(WebGLCompressedTextureS3TC), unWebGLCompressedTextureS3TC, gTypeWebGLCompressedTextureS3TC
, WebGLContextAttributes(WebGLContextAttributes), unWebGLContextAttributes, gTypeWebGLContextAttributes
, WebGLContextEvent(WebGLContextEvent), unWebGLContextEvent, gTypeWebGLContextEvent
, WebGLDebugRendererInfo(WebGLDebugRendererInfo), unWebGLDebugRendererInfo, gTypeWebGLDebugRendererInfo
, WebGLDebugShaders(WebGLDebugShaders), unWebGLDebugShaders, gTypeWebGLDebugShaders
, WebGLDepthTexture(WebGLDepthTexture), unWebGLDepthTexture, gTypeWebGLDepthTexture
, WebGLDrawBuffers(WebGLDrawBuffers), unWebGLDrawBuffers, gTypeWebGLDrawBuffers
, WebGLFramebuffer(WebGLFramebuffer), unWebGLFramebuffer, gTypeWebGLFramebuffer
, WebGLLoseContext(WebGLLoseContext), unWebGLLoseContext, gTypeWebGLLoseContext
, WebGLProgram(WebGLProgram), unWebGLProgram, gTypeWebGLProgram
, WebGLQuery(WebGLQuery), unWebGLQuery, gTypeWebGLQuery
, WebGLRenderbuffer(WebGLRenderbuffer), unWebGLRenderbuffer, gTypeWebGLRenderbuffer
, WebGLRenderingContext(WebGLRenderingContext), unWebGLRenderingContext, gTypeWebGLRenderingContext
, WebGLRenderingContextBase(WebGLRenderingContextBase), unWebGLRenderingContextBase, IsWebGLRenderingContextBase, toWebGLRenderingContextBase, gTypeWebGLRenderingContextBase
, WebGLSampler(WebGLSampler), unWebGLSampler, gTypeWebGLSampler
, WebGLShader(WebGLShader), unWebGLShader, gTypeWebGLShader
, WebGLShaderPrecisionFormat(WebGLShaderPrecisionFormat), unWebGLShaderPrecisionFormat, gTypeWebGLShaderPrecisionFormat
, WebGLSync(WebGLSync), unWebGLSync, gTypeWebGLSync
, WebGLTexture(WebGLTexture), unWebGLTexture, gTypeWebGLTexture
, WebGLTransformFeedback(WebGLTransformFeedback), unWebGLTransformFeedback, gTypeWebGLTransformFeedback
, WebGLUniformLocation(WebGLUniformLocation), unWebGLUniformLocation, gTypeWebGLUniformLocation
, WebGLVertexArrayObject(WebGLVertexArrayObject), unWebGLVertexArrayObject, gTypeWebGLVertexArrayObject
, WebGLVertexArrayObjectOES(WebGLVertexArrayObjectOES), unWebGLVertexArrayObjectOES, gTypeWebGLVertexArrayObjectOES
, WebKitAnimationEvent(WebKitAnimationEvent), unWebKitAnimationEvent, gTypeWebKitAnimationEvent
, WebKitCSSFilterValue(WebKitCSSFilterValue), unWebKitCSSFilterValue, gTypeWebKitCSSFilterValue
, WebKitCSSMatrix(WebKitCSSMatrix), unWebKitCSSMatrix, gTypeWebKitCSSMatrix
, WebKitCSSRegionRule(WebKitCSSRegionRule), unWebKitCSSRegionRule, gTypeWebKitCSSRegionRule
, WebKitCSSTransformValue(WebKitCSSTransformValue), unWebKitCSSTransformValue, gTypeWebKitCSSTransformValue
, WebKitCSSViewportRule(WebKitCSSViewportRule), unWebKitCSSViewportRule, gTypeWebKitCSSViewportRule
, WebKitNamedFlow(WebKitNamedFlow), unWebKitNamedFlow, gTypeWebKitNamedFlow
, WebKitNamespace(WebKitNamespace), unWebKitNamespace, gTypeWebKitNamespace
, WebKitPlaybackTargetAvailabilityEvent(WebKitPlaybackTargetAvailabilityEvent), unWebKitPlaybackTargetAvailabilityEvent, gTypeWebKitPlaybackTargetAvailabilityEvent
, WebKitPoint(WebKitPoint), unWebKitPoint, gTypeWebKitPoint
, WebKitTransitionEvent(WebKitTransitionEvent), unWebKitTransitionEvent, gTypeWebKitTransitionEvent
, WebSocket(WebSocket), unWebSocket, gTypeWebSocket
, WheelEvent(WheelEvent), unWheelEvent, gTypeWheelEvent
, Window(Window), unWindow, gTypeWindow
, WindowBase64(WindowBase64), unWindowBase64, gTypeWindowBase64
, WindowTimers(WindowTimers), unWindowTimers, gTypeWindowTimers
, Worker(Worker), unWorker, gTypeWorker
, WorkerGlobalScope(WorkerGlobalScope), unWorkerGlobalScope, IsWorkerGlobalScope, toWorkerGlobalScope, gTypeWorkerGlobalScope
, WorkerLocation(WorkerLocation), unWorkerLocation, gTypeWorkerLocation
, WorkerNavigator(WorkerNavigator), unWorkerNavigator, gTypeWorkerNavigator
, XMLHttpRequest(XMLHttpRequest), unXMLHttpRequest, gTypeXMLHttpRequest
, XMLHttpRequestProgressEvent(XMLHttpRequestProgressEvent), unXMLHttpRequestProgressEvent, gTypeXMLHttpRequestProgressEvent
, XMLHttpRequestUpload(XMLHttpRequestUpload), unXMLHttpRequestUpload, gTypeXMLHttpRequestUpload
, XMLSerializer(XMLSerializer), unXMLSerializer, gTypeXMLSerializer
, XPathEvaluator(XPathEvaluator), unXPathEvaluator, gTypeXPathEvaluator
, XPathExpression(XPathExpression), unXPathExpression, gTypeXPathExpression
, XPathNSResolver(XPathNSResolver), unXPathNSResolver, gTypeXPathNSResolver
, XPathResult(XPathResult), unXPathResult, gTypeXPathResult
, XSLTProcessor(XSLTProcessor), unXSLTProcessor, 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 Data.Monoid ((<>))
import Language.Javascript.JSaddle
(Object(..), valToBool, valNull, valToNumber, (!!), js, valToText,
JSVal, JSString, JSM, maybeNullOrUndefined, maybeNullOrUndefined',
valToStr, jsg, ToJSString(..), strToText, MakeObject(..),
Nullable(..), Function(..), freeFunction, instanceOf, JSContextRef,
askJSM, runJSM, MonadJSM(..), liftJSM, strictEqual)
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)
#ifdef ghcjs_HOST_OS
import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))
#endif
#if MIN_VERSION_base(4,9,0)
import GHC.Stack (HasCallStack)
#else
import GHC.Exts (Constraint)
type HasCallStack = (() :: Constraint)
#endif
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 :: forall obj obj' m. (IsGObject obj, IsGObject obj', MonadJSM m) => (JSVal -> obj') -> obj -> m (Maybe obj')
castTo constructor obj = liftJSM $ do
GType gtype <- typeGType (undefined :: obj')
let jsval = coerce obj
jsval `instanceOf` gtype >>= \case
True -> return . Just $ constructor jsval
False -> return Nothing
unsafeCastTo :: forall obj obj' m. (HasCallStack, IsGObject obj, IsGObject obj', MonadJSM m) => (JSVal -> obj') -> obj -> m obj'
unsafeCastTo constructor obj = liftJSM $ do
GType gtype <- typeGType (undefined :: obj')
let jsval = coerce obj
jsval `instanceOf` gtype >>= \case
True -> return $ constructor jsval
False -> do
srcType <- typeGType obj >>= \(GType t) -> valToText (t ^. js "name")
destType <- valToText (gtype ^. js "name")
error $ "unsafeCastTo :: invalid conversion from " <> T.unpack srcType <> " to "
<> T.unpack destType <> " requested."
uncheckedCastTo :: (IsGObject obj, IsGObject obj') => (JSVal -> obj') -> obj -> obj'
uncheckedCastTo constructor = constructor . coerce
isA :: IsGObject o => o -> GType -> JSM Bool
isA obj = typeInstanceIsA (unGObject $ toGObject obj)
newtype GObject = GObject { unGObject :: JSVal }
class (ToJSVal o, FromJSVal o, Coercible o JSVal) => IsGObject o where
typeGType :: o -> JSM GType
toGObject :: IsGObject o => o -> GObject
toGObject = GObject . coerce
#ifndef ghcjs_HOST_OS
class PToJSVal o where
pToJSVal :: o -> JSVal
class PFromJSVal o where
pFromJSVal :: JSVal -> o
#endif
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
typeGType _ = gTypeGObject
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "Object" gTypeGObject :: IO GType
#else
gTypeGObject :: JSM GType
gTypeGObject = GType . Object <$> jsg "Object"
#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 = SerializedScriptValue . coerce
instance IsSerializedScriptValue SerializedScriptValue
instance IsGObject SerializedScriptValue where
typeGType _ = error "Unable to get the JavaScript type of SerializedScriptValue"
#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 = PositionOptions . coerce
instance IsPositionOptions PositionOptions
instance IsGObject PositionOptions where
typeGType _ = error "Unable to get the JavaScript type of PositionOptions"
#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 = Dictionary . coerce
instance IsDictionary Dictionary
instance IsGObject Dictionary where
typeGType _ = error "Unable to get the JavaScript type of Dictionary"
#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 = BlobPropertyBag . coerce
instance IsBlobPropertyBag BlobPropertyBag
instance IsGObject BlobPropertyBag where
typeGType _ = error "Unable to get the JavaScript type of BlobPropertyBag"
#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 = MutationCallback . coerce
instance IsMutationCallback MutationCallback
instance IsGObject MutationCallback where
typeGType _ = error "Unable to get the JavaScript type of MutationCallback"
#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 = Promise . coerce
instance IsPromise Promise
instance IsGObject Promise where
typeGType _ = gTypePromise
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 = ArrayBuffer . coerce
instance IsArrayBuffer ArrayBuffer
instance IsGObject ArrayBuffer where
typeGType _ = gTypeArrayBuffer
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 = Float32Array . coerce
instance IsFloat32Array Float32Array
instance IsGObject Float32Array where
typeGType _ = gTypeFloat32Array
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 = Float64Array . coerce
instance IsFloat64Array Float64Array
instance IsGObject Float64Array where
typeGType _ = gTypeFloat64Array
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 = Uint8Array . coerce
instance IsUint8Array Uint8Array
instance IsGObject Uint8Array where
typeGType _ = gTypeUint8Array
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 = Uint8ClampedArray . coerce
instance IsUint8ClampedArray Uint8ClampedArray
instance IsGObject Uint8ClampedArray where
typeGType _ = gTypeUint8ClampedArray
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 = Uint16Array . coerce
instance IsUint16Array Uint16Array
instance IsGObject Uint16Array where
typeGType _ = gTypeUint16Array
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 = Uint32Array . coerce
instance IsUint32Array Uint32Array
instance IsGObject Uint32Array where
typeGType _ = gTypeUint32Array
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 = Int8Array . coerce
instance IsInt8Array Int8Array
instance IsGObject Int8Array where
typeGType _ = gTypeInt8Array
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 = Int16Array . coerce
instance IsInt16Array Int16Array
instance IsGObject Int16Array where
typeGType _ = gTypeInt16Array
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 = Int32Array . coerce
instance IsInt32Array Int32Array
instance IsGObject Int32Array where
typeGType _ = gTypeInt32Array
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 = ObjectArray . coerce
instance IsObjectArray ObjectArray
instance IsGObject ObjectArray where
typeGType _ = error "Unable to get the JavaScript type of ObjectArray"
#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 = ArrayBufferView . coerce
instance IsArrayBufferView ArrayBufferView
instance IsGObject ArrayBufferView where
typeGType _ = error "Unable to get the JavaScript type of ArrayBufferView"
#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 = Array . coerce
instance IsArray Array
instance IsGObject Array where
typeGType _ = gTypeArray
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 = Date . coerce
instance IsDate Date
instance IsGObject Date where
typeGType _ = gTypeDate
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 = Acceleration . coerce
instance IsAcceleration Acceleration
instance IsGObject Acceleration where
typeGType _ = error "Unable to get the JavaScript type of Acceleration"
#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 = RotationRate . coerce
instance IsRotationRate RotationRate
instance IsGObject RotationRate where
typeGType _ = error "Unable to get the JavaScript type of RotationRate"
#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 = Algorithm . coerce
instance IsAlgorithm Algorithm
instance IsGObject Algorithm where
typeGType _ = error "Unable to get the JavaScript type of Algorithm"
#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 = CryptoOperationData . coerce
instance IsCryptoOperationData CryptoOperationData
instance IsGObject CryptoOperationData where
typeGType _ = error "Unable to get the JavaScript type of CryptoOperationData"
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 = CanvasStyle . coerce
instance IsCanvasStyle CanvasStyle
instance IsGObject CanvasStyle where
typeGType _ = error "Unable to get the JavaScript type of CanvasStyle"
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 = DOMException . coerce
instance IsDOMException DOMException
instance IsGObject DOMException where
typeGType _ = error "Unable to get the JavaScript type of DOMException"
#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
typeGType _ = gTypeANGLEInstancedArrays
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
typeGType _ = gTypeAbstractView
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
typeGType _ = gTypeAbstractWorker
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
typeGType _ = gTypeAllAudioCapabilities
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
typeGType _ = gTypeAllVideoCapabilities
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
typeGType _ = gTypeAnalyserNode
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
typeGType _ = gTypeAnimationEvent
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
typeGType _ = gTypeApplicationCache
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
typeGType _ = gTypeAttr
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
typeGType _ = gTypeAudioBuffer
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
typeGType _ = gTypeAudioBufferSourceNode
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 = AudioContext . coerce
instance IsAudioContext AudioContext
instance IsEventTarget AudioContext
instance IsGObject AudioContext where
typeGType _ = gTypeAudioContext
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
typeGType _ = gTypeAudioDestinationNode
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
typeGType _ = gTypeAudioListener
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 = AudioNode . coerce
instance IsAudioNode AudioNode
instance IsEventTarget AudioNode
instance IsGObject AudioNode where
typeGType _ = gTypeAudioNode
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
typeGType _ = gTypeAudioParam
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
typeGType _ = gTypeAudioProcessingEvent
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
typeGType _ = gTypeAudioStreamTrack
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
typeGType _ = gTypeAudioTrack
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
typeGType _ = gTypeAudioTrackList
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
typeGType _ = gTypeAutocompleteErrorEvent
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
typeGType _ = gTypeBarProp
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
typeGType _ = gTypeBatteryManager
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
typeGType _ = gTypeBeforeLoadEvent
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
typeGType _ = gTypeBeforeUnloadEvent
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
typeGType _ = gTypeBiquadFilterNode
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 = Blob . coerce
instance IsBlob Blob
instance IsGObject Blob where
typeGType _ = gTypeBlob
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
typeGType _ = gTypeCDATASection
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
typeGType _ = gTypeCSS
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
typeGType _ = gTypeCSSCharsetRule
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
typeGType _ = gTypeCSSFontFaceLoadEvent
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
typeGType _ = gTypeCSSFontFaceRule
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
typeGType _ = gTypeCSSImportRule
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
typeGType _ = gTypeCSSKeyframeRule
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
typeGType _ = gTypeCSSKeyframesRule
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
typeGType _ = gTypeCSSMediaRule
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
typeGType _ = gTypeCSSPageRule
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
typeGType _ = gTypeCSSPrimitiveValue
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 = CSSRule . coerce
instance IsCSSRule CSSRule
instance IsGObject CSSRule where
typeGType _ = gTypeCSSRule
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
typeGType _ = gTypeCSSRuleList
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
typeGType _ = gTypeCSSStyleDeclaration
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
typeGType _ = gTypeCSSStyleRule
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
typeGType _ = gTypeCSSStyleSheet
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
typeGType _ = gTypeCSSSupportsRule
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
typeGType _ = gTypeCSSUnknownRule
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 = CSSValue . coerce
instance IsCSSValue CSSValue
instance IsGObject CSSValue where
typeGType _ = gTypeCSSValue
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 = CSSValueList . coerce
instance IsCSSValueList CSSValueList
instance IsCSSValue CSSValueList
instance IsGObject CSSValueList where
typeGType _ = gTypeCSSValueList
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
typeGType _ = gTypeCanvasGradient
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
typeGType _ = gTypeCanvasPattern
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
typeGType _ = gTypeCanvasProxy
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 = CanvasRenderingContext . coerce
instance IsCanvasRenderingContext CanvasRenderingContext
instance IsGObject CanvasRenderingContext where
typeGType _ = gTypeCanvasRenderingContext
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
typeGType _ = gTypeCanvasRenderingContext2D
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
typeGType _ = gTypeCapabilityRange
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
typeGType _ = gTypeChannelMergerNode
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
typeGType _ = gTypeChannelSplitterNode
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 = CharacterData . coerce
instance IsCharacterData CharacterData
instance IsNode CharacterData
instance IsEventTarget CharacterData
instance IsGObject CharacterData where
typeGType _ = gTypeCharacterData
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
typeGType _ = gTypeChildNode
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
typeGType _ = gTypeClientRect
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
typeGType _ = gTypeClientRectList
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
typeGType _ = gTypeCloseEvent
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
typeGType _ = gTypeCommandLineAPIHost
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
typeGType _ = gTypeComment
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
typeGType _ = gTypeCompositionEvent
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
typeGType _ = gTypeConvolverNode
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
typeGType _ = gTypeCoordinates
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
typeGType _ = gTypeCounter
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
typeGType _ = gTypeCrypto
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
typeGType _ = gTypeCryptoKey
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
typeGType _ = gTypeCryptoKeyPair
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
typeGType _ = gTypeCustomEvent
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 = DOMError . coerce
instance IsDOMError DOMError
instance IsGObject DOMError where
typeGType _ = gTypeDOMError
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
typeGType _ = gTypeDOMImplementation
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
typeGType _ = gTypeDOMNamedFlowCollection
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
typeGType _ = gTypeDOMParser
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
typeGType _ = gTypeDOMSettableTokenList
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
typeGType _ = gTypeDOMStringList
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
typeGType _ = gTypeDOMStringMap
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 = DOMTokenList . coerce
instance IsDOMTokenList DOMTokenList
instance IsGObject DOMTokenList where
typeGType _ = gTypeDOMTokenList
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
typeGType _ = gTypeDataCue
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
typeGType _ = gTypeDataTransfer
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
typeGType _ = gTypeDataTransferItem
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
typeGType _ = gTypeDataTransferItemList
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
typeGType _ = gTypeDatabase
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
typeGType _ = gTypeDedicatedWorkerGlobalScope
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
typeGType _ = gTypeDelayNode
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
typeGType _ = gTypeDeviceMotionEvent
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
typeGType _ = gTypeDeviceOrientationEvent
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
typeGType _ = gTypeDeviceProximityEvent
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 = Document . coerce
instance IsDocument Document
instance IsNode Document
instance IsEventTarget Document
instance IsGObject Document where
typeGType _ = gTypeDocument
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
typeGType _ = gTypeDocumentFragment
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
typeGType _ = gTypeDocumentType
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
typeGType _ = gTypeDynamicsCompressorNode
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
typeGType _ = gTypeEXTBlendMinMax
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
typeGType _ = gTypeEXTFragDepth
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
typeGType _ = gTypeEXTShaderTextureLOD
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
typeGType _ = gTypeEXTTextureFilterAnisotropic
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
typeGType _ = gTypeEXTsRGB
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 = Element . coerce
instance IsElement Element
instance IsNode Element
instance IsEventTarget Element
instance IsGObject Element where
typeGType _ = gTypeElement
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
typeGType _ = gTypeEntity
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
typeGType _ = gTypeEntityReference
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
typeGType _ = gTypeErrorEvent
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 = Event . coerce
instance IsEvent Event
instance IsGObject Event where
typeGType _ = gTypeEvent
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
typeGType _ = gTypeEventListener
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
typeGType _ = gTypeEventSource
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 = EventTarget . coerce
instance IsEventTarget EventTarget
instance IsGObject EventTarget where
typeGType _ = gTypeEventTarget
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
typeGType _ = gTypeFile
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
typeGType _ = gTypeFileError
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
typeGType _ = gTypeFileList
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
typeGType _ = gTypeFileReader
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
typeGType _ = gTypeFileReaderSync
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
typeGType _ = gTypeFocusEvent
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
typeGType _ = gTypeFontLoader
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
typeGType _ = gTypeFormData
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
typeGType _ = gTypeGainNode
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
typeGType _ = gTypeGamepad
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
typeGType _ = gTypeGamepadButton
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
typeGType _ = gTypeGamepadEvent
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
typeGType _ = gTypeGeolocation
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
typeGType _ = gTypeGeoposition
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
typeGType _ = gTypeHTMLAllCollection
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
typeGType _ = gTypeHTMLAnchorElement
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
typeGType _ = gTypeHTMLAppletElement
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
typeGType _ = gTypeHTMLAreaElement
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
typeGType _ = gTypeHTMLAudioElement
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
typeGType _ = gTypeHTMLBRElement
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
typeGType _ = gTypeHTMLBaseElement
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
typeGType _ = gTypeHTMLBaseFontElement
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
typeGType _ = gTypeHTMLBodyElement
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
typeGType _ = gTypeHTMLButtonElement
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
typeGType _ = gTypeHTMLCanvasElement
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 = HTMLCollection . coerce
instance IsHTMLCollection HTMLCollection
instance IsGObject HTMLCollection where
typeGType _ = gTypeHTMLCollection
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
typeGType _ = gTypeHTMLDListElement
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
typeGType _ = gTypeHTMLDataListElement
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
typeGType _ = gTypeHTMLDetailsElement
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
typeGType _ = gTypeHTMLDirectoryElement
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
typeGType _ = gTypeHTMLDivElement
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
typeGType _ = gTypeHTMLDocument
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 = HTMLElement . coerce
instance IsHTMLElement HTMLElement
instance IsElement HTMLElement
instance IsNode HTMLElement
instance IsEventTarget HTMLElement
instance IsGObject HTMLElement where
typeGType _ = gTypeHTMLElement
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
typeGType _ = gTypeHTMLEmbedElement
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
typeGType _ = gTypeHTMLFieldSetElement
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
typeGType _ = gTypeHTMLFontElement
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
typeGType _ = gTypeHTMLFormControlsCollection
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
typeGType _ = gTypeHTMLFormElement
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
typeGType _ = gTypeHTMLFrameElement
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
typeGType _ = gTypeHTMLFrameSetElement
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
typeGType _ = gTypeHTMLHRElement
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
typeGType _ = gTypeHTMLHeadElement
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
typeGType _ = gTypeHTMLHeadingElement
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
typeGType _ = gTypeHTMLHtmlElement
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
typeGType _ = gTypeHTMLIFrameElement
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
typeGType _ = gTypeHTMLImageElement
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
typeGType _ = gTypeHTMLInputElement
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
typeGType _ = gTypeHTMLKeygenElement
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
typeGType _ = gTypeHTMLLIElement
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
typeGType _ = gTypeHTMLLabelElement
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
typeGType _ = gTypeHTMLLegendElement
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
typeGType _ = gTypeHTMLLinkElement
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
typeGType _ = gTypeHTMLMapElement
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
typeGType _ = gTypeHTMLMarqueeElement
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 = HTMLMediaElement . coerce
instance IsHTMLMediaElement HTMLMediaElement
instance IsHTMLElement HTMLMediaElement
instance IsElement HTMLMediaElement
instance IsNode HTMLMediaElement
instance IsEventTarget HTMLMediaElement
instance IsGObject HTMLMediaElement where
typeGType _ = gTypeHTMLMediaElement
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
typeGType _ = gTypeHTMLMenuElement
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
typeGType _ = gTypeHTMLMetaElement
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
typeGType _ = gTypeHTMLMeterElement
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
typeGType _ = gTypeHTMLModElement
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
typeGType _ = gTypeHTMLOListElement
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
typeGType _ = gTypeHTMLObjectElement
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
typeGType _ = gTypeHTMLOptGroupElement
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
typeGType _ = gTypeHTMLOptionElement
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
typeGType _ = gTypeHTMLOptionsCollection
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
typeGType _ = gTypeHTMLOutputElement
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
typeGType _ = gTypeHTMLParagraphElement
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
typeGType _ = gTypeHTMLParamElement
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
typeGType _ = gTypeHTMLPreElement
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
typeGType _ = gTypeHTMLProgressElement
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
typeGType _ = gTypeHTMLQuoteElement
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
typeGType _ = gTypeHTMLScriptElement
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
typeGType _ = gTypeHTMLSelectElement
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
typeGType _ = gTypeHTMLSourceElement
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
typeGType _ = gTypeHTMLSpanElement
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
typeGType _ = gTypeHTMLStyleElement
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
typeGType _ = gTypeHTMLTableCaptionElement
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
typeGType _ = gTypeHTMLTableCellElement
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
typeGType _ = gTypeHTMLTableColElement
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
typeGType _ = gTypeHTMLTableElement
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
typeGType _ = gTypeHTMLTableRowElement
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
typeGType _ = gTypeHTMLTableSectionElement
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
typeGType _ = gTypeHTMLTemplateElement
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
typeGType _ = gTypeHTMLTextAreaElement
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
typeGType _ = gTypeHTMLTitleElement
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
typeGType _ = gTypeHTMLTrackElement
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
typeGType _ = gTypeHTMLUListElement
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
typeGType _ = gTypeHTMLUnknownElement
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
typeGType _ = gTypeHTMLVideoElement
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
typeGType _ = gTypeHashChangeEvent
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
typeGType _ = gTypeHistory
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
typeGType _ = gTypeIDBAny
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 = IDBCursor . coerce
instance IsIDBCursor IDBCursor
instance IsGObject IDBCursor where
typeGType _ = gTypeIDBCursor
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
typeGType _ = gTypeIDBCursorWithValue
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
typeGType _ = gTypeIDBDatabase
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
typeGType _ = gTypeIDBFactory
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
typeGType _ = gTypeIDBIndex
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
typeGType _ = gTypeIDBKeyRange
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
typeGType _ = gTypeIDBObjectStore
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
typeGType _ = gTypeIDBOpenDBRequest
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 = IDBRequest . coerce
instance IsIDBRequest IDBRequest
instance IsEventTarget IDBRequest
instance IsGObject IDBRequest where
typeGType _ = gTypeIDBRequest
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
typeGType _ = gTypeIDBTransaction
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
typeGType _ = gTypeIDBVersionChangeEvent
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
typeGType _ = gTypeImageData
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
typeGType _ = gTypeInspectorFrontendHost
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
typeGType _ = gTypeInternalSettings
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
typeGType _ = gTypeInternals
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
typeGType _ = gTypeKeyboardEvent
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
typeGType _ = gTypeLocation
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
typeGType _ = gTypeMallocStatistics
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
typeGType _ = gTypeMediaController
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
typeGType _ = gTypeMediaControlsHost
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
typeGType _ = gTypeMediaElementAudioSourceNode
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
typeGType _ = gTypeMediaError
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
typeGType _ = gTypeMediaKeyError
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
typeGType _ = gTypeMediaKeyEvent
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
typeGType _ = gTypeMediaKeyMessageEvent
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
typeGType _ = gTypeMediaKeyNeededEvent
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
typeGType _ = gTypeMediaKeySession
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
typeGType _ = gTypeMediaKeys
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
typeGType _ = gTypeMediaList
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
typeGType _ = gTypeMediaQueryList
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
typeGType _ = gTypeMediaSource
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
typeGType _ = gTypeMediaSourceStates
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
typeGType _ = gTypeMediaStream
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
typeGType _ = gTypeMediaStreamAudioDestinationNode
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
typeGType _ = gTypeMediaStreamAudioSourceNode
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 = MediaStreamCapabilities . coerce
instance IsMediaStreamCapabilities MediaStreamCapabilities
instance IsGObject MediaStreamCapabilities where
typeGType _ = gTypeMediaStreamCapabilities
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
typeGType _ = gTypeMediaStreamEvent
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 = MediaStreamTrack . coerce
instance IsMediaStreamTrack MediaStreamTrack
instance IsEventTarget MediaStreamTrack
instance IsGObject MediaStreamTrack where
typeGType _ = gTypeMediaStreamTrack
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
typeGType _ = gTypeMediaStreamTrackEvent
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
typeGType _ = gTypeMediaTrackConstraint
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
typeGType _ = gTypeMediaTrackConstraintSet
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
typeGType _ = gTypeMediaTrackConstraints
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
typeGType _ = gTypeMemoryInfo
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
typeGType _ = gTypeMessageChannel
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
typeGType _ = gTypeMessageEvent
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
typeGType _ = gTypeMessagePort
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
typeGType _ = gTypeMimeType
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
typeGType _ = gTypeMimeTypeArray
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 = MouseEvent . coerce
instance IsMouseEvent MouseEvent
instance IsUIEvent MouseEvent
instance IsEvent MouseEvent
instance IsGObject MouseEvent where
typeGType _ = gTypeMouseEvent
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
typeGType _ = gTypeMutationEvent
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
typeGType _ = gTypeMutationObserver
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
typeGType _ = gTypeMutationRecord
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
typeGType _ = gTypeNamedNodeMap
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
typeGType _ = gTypeNavigator
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
typeGType _ = gTypeNavigatorUserMediaError
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 = Node . coerce
instance IsNode Node
instance IsEventTarget Node
instance IsGObject Node where
typeGType _ = gTypeNode
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
typeGType _ = gTypeNodeFilter
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
typeGType _ = gTypeNodeIterator
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 = NodeList . coerce
instance IsNodeList NodeList
instance IsGObject NodeList where
typeGType _ = gTypeNodeList
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
typeGType _ = gTypeNotification
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
typeGType _ = gTypeNotificationCenter
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
typeGType _ = gTypeOESElementIndexUint
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
typeGType _ = gTypeOESStandardDerivatives
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
typeGType _ = gTypeOESTextureFloat
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
typeGType _ = gTypeOESTextureFloatLinear
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
typeGType _ = gTypeOESTextureHalfFloat
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
typeGType _ = gTypeOESTextureHalfFloatLinear
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
typeGType _ = gTypeOESVertexArrayObject
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
typeGType _ = gTypeOfflineAudioCompletionEvent
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
typeGType _ = gTypeOfflineAudioContext
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
typeGType _ = gTypeOscillatorNode
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
typeGType _ = gTypeOverflowEvent
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
typeGType _ = gTypePageTransitionEvent
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
typeGType _ = gTypePannerNode
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
typeGType _ = gTypePath2D
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
typeGType _ = gTypePerformance
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 = PerformanceEntry . coerce
instance IsPerformanceEntry PerformanceEntry
instance IsGObject PerformanceEntry where
typeGType _ = gTypePerformanceEntry
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
typeGType _ = gTypePerformanceEntryList
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
typeGType _ = gTypePerformanceMark
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
typeGType _ = gTypePerformanceMeasure
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
typeGType _ = gTypePerformanceNavigation
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
typeGType _ = gTypePerformanceResourceTiming
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
typeGType _ = gTypePerformanceTiming
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
typeGType _ = gTypePeriodicWave
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
typeGType _ = gTypePlugin
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
typeGType _ = gTypePluginArray
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
typeGType _ = gTypePopStateEvent
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
typeGType _ = gTypePositionError
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
typeGType _ = gTypeProcessingInstruction
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 = ProgressEvent . coerce
instance IsProgressEvent ProgressEvent
instance IsEvent ProgressEvent
instance IsGObject ProgressEvent where
typeGType _ = gTypeProgressEvent
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
typeGType _ = gTypeQuickTimePluginReplacement
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
typeGType _ = gTypeRGBColor
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
typeGType _ = gTypeRTCConfiguration
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
typeGType _ = gTypeRTCDTMFSender
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
typeGType _ = gTypeRTCDTMFToneChangeEvent
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
typeGType _ = gTypeRTCDataChannel
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
typeGType _ = gTypeRTCDataChannelEvent
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
typeGType _ = gTypeRTCIceCandidate
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
typeGType _ = gTypeRTCIceCandidateEvent
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
typeGType _ = gTypeRTCIceServer
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
typeGType _ = gTypeRTCPeerConnection
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
typeGType _ = gTypeRTCSessionDescription
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
typeGType _ = gTypeRTCStatsReport
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
typeGType _ = gTypeRTCStatsResponse
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
typeGType _ = gTypeRadioNodeList
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
typeGType _ = gTypeRange
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
typeGType _ = gTypeReadableStream
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
typeGType _ = gTypeRect
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
typeGType _ = gTypeSQLError
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
typeGType _ = gTypeSQLResultSet
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
typeGType _ = gTypeSQLResultSetRowList
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
typeGType _ = gTypeSQLTransaction
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
typeGType _ = gTypeSVGAElement
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
typeGType _ = gTypeSVGAltGlyphDefElement
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
typeGType _ = gTypeSVGAltGlyphElement
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
typeGType _ = gTypeSVGAltGlyphItemElement
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
typeGType _ = gTypeSVGAngle
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
typeGType _ = gTypeSVGAnimateColorElement
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
typeGType _ = gTypeSVGAnimateElement
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
typeGType _ = gTypeSVGAnimateMotionElement
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
typeGType _ = gTypeSVGAnimateTransformElement
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
typeGType _ = gTypeSVGAnimatedAngle
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
typeGType _ = gTypeSVGAnimatedBoolean
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
typeGType _ = gTypeSVGAnimatedEnumeration
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
typeGType _ = gTypeSVGAnimatedInteger
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
typeGType _ = gTypeSVGAnimatedLength
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
typeGType _ = gTypeSVGAnimatedLengthList
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
typeGType _ = gTypeSVGAnimatedNumber
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
typeGType _ = gTypeSVGAnimatedNumberList
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
typeGType _ = gTypeSVGAnimatedPreserveAspectRatio
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
typeGType _ = gTypeSVGAnimatedRect
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
typeGType _ = gTypeSVGAnimatedString
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
typeGType _ = gTypeSVGAnimatedTransformList
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 = SVGAnimationElement . coerce
instance IsSVGAnimationElement SVGAnimationElement
instance IsSVGElement SVGAnimationElement
instance IsElement SVGAnimationElement
instance IsNode SVGAnimationElement
instance IsEventTarget SVGAnimationElement
instance IsGObject SVGAnimationElement where
typeGType _ = gTypeSVGAnimationElement
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
typeGType _ = gTypeSVGCircleElement
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
typeGType _ = gTypeSVGClipPathElement
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 = SVGColor . coerce
instance IsSVGColor SVGColor
instance IsCSSValue SVGColor
instance IsGObject SVGColor where
typeGType _ = gTypeSVGColor
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 = SVGComponentTransferFunctionElement . coerce
instance IsSVGComponentTransferFunctionElement SVGComponentTransferFunctionElement
instance IsSVGElement SVGComponentTransferFunctionElement
instance IsElement SVGComponentTransferFunctionElement
instance IsNode SVGComponentTransferFunctionElement
instance IsEventTarget SVGComponentTransferFunctionElement
instance IsGObject SVGComponentTransferFunctionElement where
typeGType _ = gTypeSVGComponentTransferFunctionElement
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
typeGType _ = gTypeSVGCursorElement
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
typeGType _ = gTypeSVGDefsElement
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
typeGType _ = gTypeSVGDescElement
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
typeGType _ = gTypeSVGDocument
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 = SVGElement . coerce
instance IsSVGElement SVGElement
instance IsElement SVGElement
instance IsNode SVGElement
instance IsEventTarget SVGElement
instance IsGObject SVGElement where
typeGType _ = gTypeSVGElement
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
typeGType _ = gTypeSVGEllipseElement
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
typeGType _ = gTypeSVGExternalResourcesRequired
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
typeGType _ = gTypeSVGFEBlendElement
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
typeGType _ = gTypeSVGFEColorMatrixElement
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
typeGType _ = gTypeSVGFEComponentTransferElement
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
typeGType _ = gTypeSVGFECompositeElement
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
typeGType _ = gTypeSVGFEConvolveMatrixElement
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
typeGType _ = gTypeSVGFEDiffuseLightingElement
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
typeGType _ = gTypeSVGFEDisplacementMapElement
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
typeGType _ = gTypeSVGFEDistantLightElement
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
typeGType _ = gTypeSVGFEDropShadowElement
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
typeGType _ = gTypeSVGFEFloodElement
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
typeGType _ = gTypeSVGFEFuncAElement
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
typeGType _ = gTypeSVGFEFuncBElement
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
typeGType _ = gTypeSVGFEFuncGElement
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
typeGType _ = gTypeSVGFEFuncRElement
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
typeGType _ = gTypeSVGFEGaussianBlurElement
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
typeGType _ = gTypeSVGFEImageElement
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
typeGType _ = gTypeSVGFEMergeElement
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
typeGType _ = gTypeSVGFEMergeNodeElement
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
typeGType _ = gTypeSVGFEMorphologyElement
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
typeGType _ = gTypeSVGFEOffsetElement
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
typeGType _ = gTypeSVGFEPointLightElement
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
typeGType _ = gTypeSVGFESpecularLightingElement
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
typeGType _ = gTypeSVGFESpotLightElement
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
typeGType _ = gTypeSVGFETileElement
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
typeGType _ = gTypeSVGFETurbulenceElement
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
typeGType _ = gTypeSVGFilterElement
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
typeGType _ = gTypeSVGFilterPrimitiveStandardAttributes
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
typeGType _ = gTypeSVGFitToViewBox
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
typeGType _ = gTypeSVGFontElement
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
typeGType _ = gTypeSVGFontFaceElement
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
typeGType _ = gTypeSVGFontFaceFormatElement
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
typeGType _ = gTypeSVGFontFaceNameElement
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
typeGType _ = gTypeSVGFontFaceSrcElement
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
typeGType _ = gTypeSVGFontFaceUriElement
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
typeGType _ = gTypeSVGForeignObjectElement
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
typeGType _ = gTypeSVGGElement
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
typeGType _ = gTypeSVGGlyphElement
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
typeGType _ = gTypeSVGGlyphRefElement
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 = SVGGradientElement . coerce
instance IsSVGGradientElement SVGGradientElement
instance IsSVGElement SVGGradientElement
instance IsElement SVGGradientElement
instance IsNode SVGGradientElement
instance IsEventTarget SVGGradientElement
instance IsGObject SVGGradientElement where
typeGType _ = gTypeSVGGradientElement
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 = SVGGraphicsElement . coerce
instance IsSVGGraphicsElement SVGGraphicsElement
instance IsSVGElement SVGGraphicsElement
instance IsElement SVGGraphicsElement
instance IsNode SVGGraphicsElement
instance IsEventTarget SVGGraphicsElement
instance IsGObject SVGGraphicsElement where
typeGType _ = gTypeSVGGraphicsElement
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
typeGType _ = gTypeSVGHKernElement
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
typeGType _ = gTypeSVGImageElement
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
typeGType _ = gTypeSVGLength
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
typeGType _ = gTypeSVGLengthList
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
typeGType _ = gTypeSVGLineElement
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
typeGType _ = gTypeSVGLinearGradientElement
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
typeGType _ = gTypeSVGMPathElement
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
typeGType _ = gTypeSVGMarkerElement
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
typeGType _ = gTypeSVGMaskElement
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
typeGType _ = gTypeSVGMatrix
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
typeGType _ = gTypeSVGMetadataElement
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
typeGType _ = gTypeSVGMissingGlyphElement
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
typeGType _ = gTypeSVGNumber
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
typeGType _ = gTypeSVGNumberList
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
typeGType _ = gTypeSVGPaint
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
typeGType _ = gTypeSVGPathElement
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 = SVGPathSeg . coerce
instance IsSVGPathSeg SVGPathSeg
instance IsGObject SVGPathSeg where
typeGType _ = gTypeSVGPathSeg
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
typeGType _ = gTypeSVGPathSegArcAbs
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
typeGType _ = gTypeSVGPathSegArcRel
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
typeGType _ = gTypeSVGPathSegClosePath
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
typeGType _ = gTypeSVGPathSegCurvetoCubicAbs
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
typeGType _ = gTypeSVGPathSegCurvetoCubicRel
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
typeGType _ = gTypeSVGPathSegCurvetoCubicSmoothAbs
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
typeGType _ = gTypeSVGPathSegCurvetoCubicSmoothRel
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
typeGType _ = gTypeSVGPathSegCurvetoQuadraticAbs
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
typeGType _ = gTypeSVGPathSegCurvetoQuadraticRel
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
typeGType _ = gTypeSVGPathSegCurvetoQuadraticSmoothAbs
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
typeGType _ = gTypeSVGPathSegCurvetoQuadraticSmoothRel
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
typeGType _ = gTypeSVGPathSegLinetoAbs
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
typeGType _ = gTypeSVGPathSegLinetoHorizontalAbs
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
typeGType _ = gTypeSVGPathSegLinetoHorizontalRel
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
typeGType _ = gTypeSVGPathSegLinetoRel
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
typeGType _ = gTypeSVGPathSegLinetoVerticalAbs
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
typeGType _ = gTypeSVGPathSegLinetoVerticalRel
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
typeGType _ = gTypeSVGPathSegList
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
typeGType _ = gTypeSVGPathSegMovetoAbs
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
typeGType _ = gTypeSVGPathSegMovetoRel
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
typeGType _ = gTypeSVGPatternElement
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
typeGType _ = gTypeSVGPoint
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
typeGType _ = gTypeSVGPointList
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
typeGType _ = gTypeSVGPolygonElement
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
typeGType _ = gTypeSVGPolylineElement
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
typeGType _ = gTypeSVGPreserveAspectRatio
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
typeGType _ = gTypeSVGRadialGradientElement
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
typeGType _ = gTypeSVGRect
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
typeGType _ = gTypeSVGRectElement
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
typeGType _ = gTypeSVGRenderingIntent
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
typeGType _ = gTypeSVGSVGElement
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
typeGType _ = gTypeSVGScriptElement
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
typeGType _ = gTypeSVGSetElement
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
typeGType _ = gTypeSVGStopElement
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
typeGType _ = gTypeSVGStringList
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
typeGType _ = gTypeSVGStyleElement
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
typeGType _ = gTypeSVGSwitchElement
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
typeGType _ = gTypeSVGSymbolElement
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
typeGType _ = gTypeSVGTRefElement
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
typeGType _ = gTypeSVGTSpanElement
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
typeGType _ = gTypeSVGTests
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 = SVGTextContentElement . coerce
instance IsSVGTextContentElement SVGTextContentElement
instance IsSVGGraphicsElement SVGTextContentElement
instance IsSVGElement SVGTextContentElement
instance IsElement SVGTextContentElement
instance IsNode SVGTextContentElement
instance IsEventTarget SVGTextContentElement
instance IsGObject SVGTextContentElement where
typeGType _ = gTypeSVGTextContentElement
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
typeGType _ = gTypeSVGTextElement
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
typeGType _ = gTypeSVGTextPathElement
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 = SVGTextPositioningElement . coerce
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
typeGType _ = gTypeSVGTextPositioningElement
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
typeGType _ = gTypeSVGTitleElement
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
typeGType _ = gTypeSVGTransform
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
typeGType _ = gTypeSVGTransformList
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
typeGType _ = gTypeSVGURIReference
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
typeGType _ = gTypeSVGUnitTypes
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
typeGType _ = gTypeSVGUseElement
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
typeGType _ = gTypeSVGVKernElement
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
typeGType _ = gTypeSVGViewElement
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
typeGType _ = gTypeSVGViewSpec
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
typeGType _ = gTypeSVGZoomAndPan
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
typeGType _ = gTypeSVGZoomEvent
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
typeGType _ = gTypeScreen
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
typeGType _ = gTypeScriptProcessorNode
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
typeGType _ = gTypeScriptProfile
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
typeGType _ = gTypeScriptProfileNode
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
typeGType _ = gTypeSecurityPolicy
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
typeGType _ = gTypeSecurityPolicyViolationEvent
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
typeGType _ = gTypeSelection
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
typeGType _ = gTypeSourceBuffer
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
typeGType _ = gTypeSourceBufferList
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
typeGType _ = gTypeSourceInfo
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
typeGType _ = gTypeSpeechSynthesis
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
typeGType _ = gTypeSpeechSynthesisEvent
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
typeGType _ = gTypeSpeechSynthesisUtterance
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
typeGType _ = gTypeSpeechSynthesisVoice
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
typeGType _ = gTypeStorage
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
typeGType _ = gTypeStorageEvent
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
typeGType _ = gTypeStorageInfo
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
typeGType _ = gTypeStorageQuota
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
typeGType _ = gTypeStyleMedia
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 = StyleSheet . coerce
instance IsStyleSheet StyleSheet
instance IsGObject StyleSheet where
typeGType _ = gTypeStyleSheet
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
typeGType _ = gTypeStyleSheetList
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
typeGType _ = gTypeSubtleCrypto
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 = Text . coerce
instance IsText Text
instance IsCharacterData Text
instance IsNode Text
instance IsEventTarget Text
instance IsGObject Text where
typeGType _ = gTypeText
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
typeGType _ = gTypeTextEvent
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
typeGType _ = gTypeTextMetrics
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
typeGType _ = gTypeTextTrack
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 = TextTrackCue . coerce
instance IsTextTrackCue TextTrackCue
instance IsEventTarget TextTrackCue
instance IsGObject TextTrackCue where
typeGType _ = gTypeTextTrackCue
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
typeGType _ = gTypeTextTrackCueList
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
typeGType _ = gTypeTextTrackList
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
typeGType _ = gTypeTimeRanges
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
typeGType _ = gTypeTouch
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
typeGType _ = gTypeTouchEvent
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
typeGType _ = gTypeTouchList
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
typeGType _ = gTypeTrackEvent
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
typeGType _ = gTypeTransitionEvent
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
typeGType _ = gTypeTreeWalker
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
typeGType _ = gTypeTypeConversions
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 = UIEvent . coerce
instance IsUIEvent UIEvent
instance IsEvent UIEvent
instance IsGObject UIEvent where
typeGType _ = gTypeUIEvent
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
typeGType _ = gTypeUIRequestEvent
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
typeGType _ = gTypeURL
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
typeGType _ = gTypeURLUtils
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
typeGType _ = gTypeUserMessageHandler
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
typeGType _ = gTypeUserMessageHandlersNamespace
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
typeGType _ = gTypeVTTCue
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
typeGType _ = gTypeVTTRegion
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
typeGType _ = gTypeVTTRegionList
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
typeGType _ = gTypeValidityState
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
typeGType _ = gTypeVideoPlaybackQuality
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
typeGType _ = gTypeVideoStreamTrack
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
typeGType _ = gTypeVideoTrack
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
typeGType _ = gTypeVideoTrackList
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
typeGType _ = gTypeWaveShaperNode
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
typeGType _ = gTypeWebGL2RenderingContext
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
typeGType _ = gTypeWebGLActiveInfo
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
typeGType _ = gTypeWebGLBuffer
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
typeGType _ = gTypeWebGLCompressedTextureATC
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
typeGType _ = gTypeWebGLCompressedTexturePVRTC
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
typeGType _ = gTypeWebGLCompressedTextureS3TC
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
typeGType _ = gTypeWebGLContextAttributes
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
typeGType _ = gTypeWebGLContextEvent
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
typeGType _ = gTypeWebGLDebugRendererInfo
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
typeGType _ = gTypeWebGLDebugShaders
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
typeGType _ = gTypeWebGLDepthTexture
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
typeGType _ = gTypeWebGLDrawBuffers
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
typeGType _ = gTypeWebGLFramebuffer
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
typeGType _ = gTypeWebGLLoseContext
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
typeGType _ = gTypeWebGLProgram
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
typeGType _ = gTypeWebGLQuery
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
typeGType _ = gTypeWebGLRenderbuffer
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
typeGType _ = gTypeWebGLRenderingContext
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 = WebGLRenderingContextBase . coerce
instance IsWebGLRenderingContextBase WebGLRenderingContextBase
instance IsCanvasRenderingContext WebGLRenderingContextBase
instance IsGObject WebGLRenderingContextBase where
typeGType _ = gTypeWebGLRenderingContextBase
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
typeGType _ = gTypeWebGLSampler
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
typeGType _ = gTypeWebGLShader
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
typeGType _ = gTypeWebGLShaderPrecisionFormat
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
typeGType _ = gTypeWebGLSync
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
typeGType _ = gTypeWebGLTexture
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
typeGType _ = gTypeWebGLTransformFeedback
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
typeGType _ = gTypeWebGLUniformLocation
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
typeGType _ = gTypeWebGLVertexArrayObject
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
typeGType _ = gTypeWebGLVertexArrayObjectOES
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
typeGType _ = gTypeWebKitAnimationEvent
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
typeGType _ = gTypeWebKitCSSFilterValue
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
typeGType _ = gTypeWebKitCSSMatrix
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
typeGType _ = gTypeWebKitCSSRegionRule
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
typeGType _ = gTypeWebKitCSSTransformValue
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
typeGType _ = gTypeWebKitCSSViewportRule
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
typeGType _ = gTypeWebKitNamedFlow
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
typeGType _ = gTypeWebKitNamespace
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
typeGType _ = gTypeWebKitPlaybackTargetAvailabilityEvent
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
typeGType _ = gTypeWebKitPoint
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
typeGType _ = gTypeWebKitTransitionEvent
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
typeGType _ = gTypeWebSocket
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
typeGType _ = gTypeWheelEvent
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
typeGType _ = gTypeWindow
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
typeGType _ = gTypeWindowBase64
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
typeGType _ = gTypeWindowTimers
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
typeGType _ = gTypeWorker
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 = WorkerGlobalScope . coerce
instance IsWorkerGlobalScope WorkerGlobalScope
instance IsEventTarget WorkerGlobalScope
instance IsGObject WorkerGlobalScope where
typeGType _ = gTypeWorkerGlobalScope
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
typeGType _ = gTypeWorkerLocation
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
typeGType _ = gTypeWorkerNavigator
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
typeGType _ = gTypeXMLHttpRequest
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
typeGType _ = gTypeXMLHttpRequestProgressEvent
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
typeGType _ = gTypeXMLHttpRequestUpload
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
typeGType _ = gTypeXMLSerializer
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
typeGType _ = gTypeXPathEvaluator
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
typeGType _ = gTypeXPathExpression
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
typeGType _ = gTypeXPathNSResolver
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
typeGType _ = gTypeXPathResult
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
typeGType _ = gTypeXSLTProcessor
gTypeXSLTProcessor :: JSM GType
gTypeXSLTProcessor = GType . Object <$> jsg "XSLTProcessor"
#endif