{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Internals (address, address_, nodeNeedsStyleRecalc, nodeNeedsStyleRecalc_, description, description_, hasPausedImageAnimations, hasPausedImageAnimations_, elementRenderTreeAsText, elementRenderTreeAsText_, isPreloaded, isPreloaded_, isLoadingFromMemoryCache, isLoadingFromMemoryCache_, xhrResponseSource, xhrResponseSource_, clearMemoryCache, pruneMemoryCacheToSize, memoryCacheSize, memoryCacheSize_, clearPageCache, pageCacheSize, pageCacheSize_, computedStyleIncludingVisitedInfo, computedStyleIncludingVisitedInfo_, computedStyleIncludingVisitedInfoUnsafe, computedStyleIncludingVisitedInfoUnchecked, ensureShadowRoot, ensureShadowRoot_, ensureShadowRootUnsafe, ensureShadowRootUnchecked, createShadowRoot, createShadowRoot_, createShadowRootUnsafe, createShadowRootUnchecked, shadowRoot, shadowRoot_, shadowRootUnsafe, shadowRootUnchecked, shadowRootType, shadowRootType_, includerFor, includerFor_, includerForUnsafe, includerForUnchecked, shadowPseudoId, shadowPseudoId_, setShadowPseudoId, treeScopeRootNode, treeScopeRootNode_, treeScopeRootNodeUnsafe, treeScopeRootNodeUnchecked, parentTreeScope, parentTreeScope_, parentTreeScopeUnsafe, parentTreeScopeUnchecked, lastSpatialNavigationCandidateCount, lastSpatialNavigationCandidateCount_, numberOfActiveAnimations, numberOfActiveAnimations_, suspendAnimations, resumeAnimations, animationsAreSuspended, animationsAreSuspended_, pauseAnimationAtTimeOnElement, pauseAnimationAtTimeOnElement_, pauseAnimationAtTimeOnPseudoElement, pauseAnimationAtTimeOnPseudoElement_, pauseTransitionAtTimeOnElement, pauseTransitionAtTimeOnElement_, pauseTransitionAtTimeOnPseudoElement, pauseTransitionAtTimeOnPseudoElement_, attached, attached_, visiblePlaceholder, visiblePlaceholder_, selectColorInColorChooser, formControlStateOfPreviousHistoryItem, formControlStateOfPreviousHistoryItem_, setFormControlStateOfPreviousHistoryItem, absoluteCaretBounds, absoluteCaretBounds_, absoluteCaretBoundsUnsafe, absoluteCaretBoundsUnchecked, boundingBox, boundingBox_, boundingBoxUnsafe, boundingBoxUnchecked, inspectorHighlightRects, inspectorHighlightRects_, inspectorHighlightRectsUnsafe, inspectorHighlightRectsUnchecked, inspectorHighlightObject, inspectorHighlightObject_, markerCountForNode, markerCountForNode_, markerRangeForNode, markerRangeForNode_, markerRangeForNodeUnsafe, markerRangeForNodeUnchecked, markerDescriptionForNode, markerDescriptionForNode_, addTextMatchMarker, setMarkedTextMatchesAreHighlighted, invalidateFontCache, setScrollViewPosition, setPagination, configurationForViewport, configurationForViewport_, wasLastChangeUserEdit, wasLastChangeUserEdit_, elementShouldAutoComplete, elementShouldAutoComplete_, setEditingValue, setAutofilled, countMatchesForText, countMatchesForText_, paintControlTints, scrollElementToRect, rangeFromLocationAndLength, rangeFromLocationAndLength_, rangeFromLocationAndLengthUnsafe, rangeFromLocationAndLengthUnchecked, locationFromRange, locationFromRange_, lengthFromRange, lengthFromRange_, rangeAsText, rangeAsText_, subrange, subrange_, subrangeUnsafe, subrangeUnchecked, rangeForDictionaryLookupAtLocation, rangeForDictionaryLookupAtLocation_, rangeForDictionaryLookupAtLocationUnsafe, rangeForDictionaryLookupAtLocationUnchecked, setDelegatesScrolling, lastSpellCheckRequestSequence, lastSpellCheckRequestSequence_, lastSpellCheckProcessedSequence, lastSpellCheckProcessedSequence_, userPreferredLanguages, userPreferredLanguages_, setUserPreferredLanguages, wheelEventHandlerCount, wheelEventHandlerCount_, touchEventHandlerCount, touchEventHandlerCount_, nodesFromRect, nodesFromRect_, nodesFromRectUnsafe, nodesFromRectUnchecked, parserMetaData, parserMetaData_, updateEditorUINowIfScheduled, hasSpellingMarker, hasSpellingMarker_, hasGrammarMarker, hasGrammarMarker_, hasAutocorrectedMarker, hasAutocorrectedMarker_, setContinuousSpellCheckingEnabled, setAutomaticQuoteSubstitutionEnabled, setAutomaticLinkDetectionEnabled, setAutomaticDashSubstitutionEnabled, setAutomaticTextReplacementEnabled, setAutomaticSpellingCorrectionEnabled, isOverwriteModeEnabled, isOverwriteModeEnabled_, toggleOverwriteModeEnabled, numberOfScrollableAreas, numberOfScrollableAreas_, isPageBoxVisible, isPageBoxVisible_, layerTreeAsText, layerTreeAsText_, scrollingStateTreeAsText, scrollingStateTreeAsText_, mainThreadScrollingReasons, mainThreadScrollingReasons_, nonFastScrollableRects, nonFastScrollableRects_, nonFastScrollableRectsUnsafe, nonFastScrollableRectsUnchecked, repaintRectsAsText, repaintRectsAsText_, garbageCollectDocumentResources, allowRoundingHacks, insertAuthorCSS, insertUserCSS, setBatteryStatus, setDeviceProximity, numberOfLiveNodes, numberOfLiveNodes_, numberOfLiveDocuments, numberOfLiveDocuments_, consoleMessageArgumentCounts, consoleMessageArgumentCounts_, openDummyInspectorFrontend, openDummyInspectorFrontend_, openDummyInspectorFrontendUnsafe, openDummyInspectorFrontendUnchecked, closeDummyInspectorFrontend, setJavaScriptProfilingEnabled, setInspectorIsUnderTest, counterValue, counterValue_, pageNumber, pageNumber_, shortcutIconURLs, shortcutIconURLs_, allIconURLs, allIconURLs_, numberOfPages, numberOfPages_, pageProperty, pageProperty_, pageSizeAndMarginsInPixels, pageSizeAndMarginsInPixels_, setPageScaleFactor, setPageZoomFactor, setHeaderHeight, setFooterHeight, setTopContentInset, webkitWillEnterFullScreenForElement, webkitDidEnterFullScreenForElement, webkitWillExitFullScreenForElement, webkitDidExitFullScreenForElement, setApplicationCacheOriginQuota, registerURLSchemeAsBypassingContentSecurityPolicy, removeURLSchemeRegisteredAsBypassingContentSecurityPolicy, mallocStatistics, mallocStatistics_, mallocStatisticsUnsafe, mallocStatisticsUnchecked, typeConversions, typeConversions_, typeConversionsUnsafe, typeConversionsUnchecked, memoryInfo, memoryInfo_, memoryInfoUnsafe, memoryInfoUnchecked, getReferencedFilePaths, getReferencedFilePaths_, startTrackingRepaints, stopTrackingRepaints, isTimerThrottled, isTimerThrottled_, updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks, getCurrentCursorInfo, getCurrentCursorInfo_, markerTextForListItem, markerTextForListItem_, toolTipFromElement, toolTipFromElement_, deserializeBuffer, deserializeBuffer_, deserializeBufferUnsafe, deserializeBufferUnchecked, serializeObject, serializeObject_, serializeObjectUnsafe, serializeObjectUnchecked, setUsesOverlayScrollbars, forceReload, simulateAudioInterruption, mediaElementHasCharacteristic, mediaElementHasCharacteristic_, initializeMockCDM, enableMockSpeechSynthesizer, getImageSourceURL, getImageSourceURL_, captionsStyleSheetOverride, captionsStyleSheetOverride_, setCaptionsStyleSheetOverride, setPrimaryAudioTrackLanguageOverride, setCaptionDisplayMode, createTimeRanges, createTimeRanges_, createTimeRangesUnsafe, createTimeRangesUnchecked, closestTimeToTimeRanges, closestTimeToTimeRanges_, isSelectPopupVisible, isSelectPopupVisible_, isVibrating, isVibrating_, isPluginUnavailabilityIndicatorObscured, isPluginUnavailabilityIndicatorObscured_, isPluginSnapshotted, isPluginSnapshotted_, selectionBounds, selectionBounds_, selectionBoundsUnsafe, selectionBoundsUnchecked, initializeMockMediaSource, bufferedSamplesForTrackID, bufferedSamplesForTrackID_, beginMediaSessionInterruption, endMediaSessionInterruption, applicationWillEnterForeground, applicationWillEnterBackground, setMediaSessionRestrictions, postRemoteControlCommand, simulateSystemSleep, simulateSystemWake, elementIsBlockingDisplaySleep, elementIsBlockingDisplaySleep_, installMockPageOverlay, pageOverlayLayerTreeAsText, pageOverlayLayerTreeAsText_, setPageMuted, isPagePlayingAudio, isPagePlayingAudio_, pattern LAYER_TREE_INCLUDES_VISIBLE_RECTS, pattern LAYER_TREE_INCLUDES_TILE_CACHES, pattern LAYER_TREE_INCLUDES_REPAINT_RECTS, pattern LAYER_TREE_INCLUDES_PAINTING_PHASES, pattern LAYER_TREE_INCLUDES_CONTENT_LAYERS, getSettings, getSettingsUnsafe, getSettingsUnchecked, getWorkerThreadCount, getConsoleProfiles, Internals(..), gTypeInternals) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types import Control.Applicative ((<$>)) import Control.Monad (void) import Control.Lens.Operators ((^.)) import JSDOM.EventTargetClosures (EventName, unsafeEventName) import JSDOM.Enums -- | address :: (MonadDOM m, IsNode node, FromJSString result) => Internals -> Maybe node -> m result address self node = liftDOM ((self ^. jsf "address" [toJSVal node]) >>= fromJSValUnchecked) -- | address_ :: (MonadDOM m, IsNode node) => Internals -> Maybe node -> m () address_ self node = liftDOM (void (self ^. jsf "address" [toJSVal node])) -- | nodeNeedsStyleRecalc :: (MonadDOM m, IsNode node) => Internals -> Maybe node -> m Bool nodeNeedsStyleRecalc self node = liftDOM ((self ^. jsf "nodeNeedsStyleRecalc" [toJSVal node]) >>= valToBool) -- | nodeNeedsStyleRecalc_ :: (MonadDOM m, IsNode node) => Internals -> Maybe node -> m () nodeNeedsStyleRecalc_ self node = liftDOM (void (self ^. jsf "nodeNeedsStyleRecalc" [toJSVal node])) -- | description :: (MonadDOM m, FromJSString result) => Internals -> JSVal -> m result description self value = liftDOM ((self ^. jsf "description" [toJSVal value]) >>= fromJSValUnchecked) -- | description_ :: (MonadDOM m) => Internals -> JSVal -> m () description_ self value = liftDOM (void (self ^. jsf "description" [toJSVal value])) -- | hasPausedImageAnimations :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> m Bool hasPausedImageAnimations self element = liftDOM ((self ^. jsf "hasPausedImageAnimations" [toJSVal element]) >>= valToBool) -- | hasPausedImageAnimations_ :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> m () hasPausedImageAnimations_ self element = liftDOM (void (self ^. jsf "hasPausedImageAnimations" [toJSVal element])) -- | elementRenderTreeAsText :: (MonadDOM m, IsElement element, FromJSString result) => Internals -> Maybe element -> m result elementRenderTreeAsText self element = liftDOM ((self ^. jsf "elementRenderTreeAsText" [toJSVal element]) >>= fromJSValUnchecked) -- | elementRenderTreeAsText_ :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> m () elementRenderTreeAsText_ self element = liftDOM (void (self ^. jsf "elementRenderTreeAsText" [toJSVal element])) -- | isPreloaded :: (MonadDOM m, ToJSString url) => Internals -> url -> m Bool isPreloaded self url = liftDOM ((self ^. jsf "isPreloaded" [toJSVal url]) >>= valToBool) -- | isPreloaded_ :: (MonadDOM m, ToJSString url) => Internals -> url -> m () isPreloaded_ self url = liftDOM (void (self ^. jsf "isPreloaded" [toJSVal url])) -- | isLoadingFromMemoryCache :: (MonadDOM m, ToJSString url) => Internals -> url -> m Bool isLoadingFromMemoryCache self url = liftDOM ((self ^. jsf "isLoadingFromMemoryCache" [toJSVal url]) >>= valToBool) -- | isLoadingFromMemoryCache_ :: (MonadDOM m, ToJSString url) => Internals -> url -> m () isLoadingFromMemoryCache_ self url = liftDOM (void (self ^. jsf "isLoadingFromMemoryCache" [toJSVal url])) -- | xhrResponseSource :: (MonadDOM m, FromJSString result) => Internals -> Maybe XMLHttpRequest -> m result xhrResponseSource self xhr = liftDOM ((self ^. jsf "xhrResponseSource" [toJSVal xhr]) >>= fromJSValUnchecked) -- | xhrResponseSource_ :: (MonadDOM m) => Internals -> Maybe XMLHttpRequest -> m () xhrResponseSource_ self xhr = liftDOM (void (self ^. jsf "xhrResponseSource" [toJSVal xhr])) -- | clearMemoryCache :: (MonadDOM m) => Internals -> m () clearMemoryCache self = liftDOM (void (self ^. jsf "clearMemoryCache" ())) -- | pruneMemoryCacheToSize :: (MonadDOM m) => Internals -> Int -> m () pruneMemoryCacheToSize self size = liftDOM (void (self ^. jsf "pruneMemoryCacheToSize" [toJSVal size])) -- | memoryCacheSize :: (MonadDOM m) => Internals -> m Int memoryCacheSize self = liftDOM (round <$> ((self ^. jsf "memoryCacheSize" ()) >>= valToNumber)) -- | memoryCacheSize_ :: (MonadDOM m) => Internals -> m () memoryCacheSize_ self = liftDOM (void (self ^. jsf "memoryCacheSize" ())) -- | clearPageCache :: (MonadDOM m) => Internals -> m () clearPageCache self = liftDOM (void (self ^. jsf "clearPageCache" ())) -- | pageCacheSize :: (MonadDOM m) => Internals -> m Word pageCacheSize self = liftDOM (round <$> ((self ^. jsf "pageCacheSize" ()) >>= valToNumber)) -- | pageCacheSize_ :: (MonadDOM m) => Internals -> m () pageCacheSize_ self = liftDOM (void (self ^. jsf "pageCacheSize" ())) -- | computedStyleIncludingVisitedInfo :: (MonadDOM m, IsNode node) => Internals -> Maybe node -> m (Maybe CSSStyleDeclaration) computedStyleIncludingVisitedInfo self node = liftDOM ((self ^. jsf "computedStyleIncludingVisitedInfo" [toJSVal node]) >>= fromJSVal) -- | computedStyleIncludingVisitedInfo_ :: (MonadDOM m, IsNode node) => Internals -> Maybe node -> m () computedStyleIncludingVisitedInfo_ self node = liftDOM (void (self ^. jsf "computedStyleIncludingVisitedInfo" [toJSVal node])) -- | computedStyleIncludingVisitedInfoUnsafe :: (MonadDOM m, IsNode node, HasCallStack) => Internals -> Maybe node -> m CSSStyleDeclaration computedStyleIncludingVisitedInfoUnsafe self node = liftDOM (((self ^. jsf "computedStyleIncludingVisitedInfo" [toJSVal node]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | computedStyleIncludingVisitedInfoUnchecked :: (MonadDOM m, IsNode node) => Internals -> Maybe node -> m CSSStyleDeclaration computedStyleIncludingVisitedInfoUnchecked self node = liftDOM ((self ^. jsf "computedStyleIncludingVisitedInfo" [toJSVal node]) >>= fromJSValUnchecked) -- | ensureShadowRoot :: (MonadDOM m, IsElement host) => Internals -> Maybe host -> m (Maybe Node) ensureShadowRoot self host = liftDOM ((self ^. jsf "ensureShadowRoot" [toJSVal host]) >>= fromJSVal) -- | ensureShadowRoot_ :: (MonadDOM m, IsElement host) => Internals -> Maybe host -> m () ensureShadowRoot_ self host = liftDOM (void (self ^. jsf "ensureShadowRoot" [toJSVal host])) -- | ensureShadowRootUnsafe :: (MonadDOM m, IsElement host, HasCallStack) => Internals -> Maybe host -> m Node ensureShadowRootUnsafe self host = liftDOM (((self ^. jsf "ensureShadowRoot" [toJSVal host]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | ensureShadowRootUnchecked :: (MonadDOM m, IsElement host) => Internals -> Maybe host -> m Node ensureShadowRootUnchecked self host = liftDOM ((self ^. jsf "ensureShadowRoot" [toJSVal host]) >>= fromJSValUnchecked) -- | createShadowRoot :: (MonadDOM m, IsElement host) => Internals -> Maybe host -> m (Maybe Node) createShadowRoot self host = liftDOM ((self ^. jsf "createShadowRoot" [toJSVal host]) >>= fromJSVal) -- | createShadowRoot_ :: (MonadDOM m, IsElement host) => Internals -> Maybe host -> m () createShadowRoot_ self host = liftDOM (void (self ^. jsf "createShadowRoot" [toJSVal host])) -- | createShadowRootUnsafe :: (MonadDOM m, IsElement host, HasCallStack) => Internals -> Maybe host -> m Node createShadowRootUnsafe self host = liftDOM (((self ^. jsf "createShadowRoot" [toJSVal host]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createShadowRootUnchecked :: (MonadDOM m, IsElement host) => Internals -> Maybe host -> m Node createShadowRootUnchecked self host = liftDOM ((self ^. jsf "createShadowRoot" [toJSVal host]) >>= fromJSValUnchecked) -- | shadowRoot :: (MonadDOM m, IsElement host) => Internals -> Maybe host -> m (Maybe Node) shadowRoot self host = liftDOM ((self ^. jsf "shadowRoot" [toJSVal host]) >>= fromJSVal) -- | shadowRoot_ :: (MonadDOM m, IsElement host) => Internals -> Maybe host -> m () shadowRoot_ self host = liftDOM (void (self ^. jsf "shadowRoot" [toJSVal host])) -- | shadowRootUnsafe :: (MonadDOM m, IsElement host, HasCallStack) => Internals -> Maybe host -> m Node shadowRootUnsafe self host = liftDOM (((self ^. jsf "shadowRoot" [toJSVal host]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | shadowRootUnchecked :: (MonadDOM m, IsElement host) => Internals -> Maybe host -> m Node shadowRootUnchecked self host = liftDOM ((self ^. jsf "shadowRoot" [toJSVal host]) >>= fromJSValUnchecked) -- | shadowRootType :: (MonadDOM m, IsNode root, FromJSString result) => Internals -> Maybe root -> m result shadowRootType self root = liftDOM ((self ^. jsf "shadowRootType" [toJSVal root]) >>= fromJSValUnchecked) -- | shadowRootType_ :: (MonadDOM m, IsNode root) => Internals -> Maybe root -> m () shadowRootType_ self root = liftDOM (void (self ^. jsf "shadowRootType" [toJSVal root])) -- | includerFor :: (MonadDOM m, IsNode node) => Internals -> Maybe node -> m (Maybe Element) includerFor self node = liftDOM ((self ^. jsf "includerFor" [toJSVal node]) >>= fromJSVal) -- | includerFor_ :: (MonadDOM m, IsNode node) => Internals -> Maybe node -> m () includerFor_ self node = liftDOM (void (self ^. jsf "includerFor" [toJSVal node])) -- | includerForUnsafe :: (MonadDOM m, IsNode node, HasCallStack) => Internals -> Maybe node -> m Element includerForUnsafe self node = liftDOM (((self ^. jsf "includerFor" [toJSVal node]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | includerForUnchecked :: (MonadDOM m, IsNode node) => Internals -> Maybe node -> m Element includerForUnchecked self node = liftDOM ((self ^. jsf "includerFor" [toJSVal node]) >>= fromJSValUnchecked) -- | shadowPseudoId :: (MonadDOM m, IsElement element, FromJSString result) => Internals -> Maybe element -> m result shadowPseudoId self element = liftDOM ((self ^. jsf "shadowPseudoId" [toJSVal element]) >>= fromJSValUnchecked) -- | shadowPseudoId_ :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> m () shadowPseudoId_ self element = liftDOM (void (self ^. jsf "shadowPseudoId" [toJSVal element])) -- | setShadowPseudoId :: (MonadDOM m, IsElement element, ToJSString id) => Internals -> Maybe element -> id -> m () setShadowPseudoId self element id = liftDOM (void (self ^. jsf "setShadowPseudoId" [toJSVal element, toJSVal id])) -- | treeScopeRootNode :: (MonadDOM m, IsNode node) => Internals -> Maybe node -> m (Maybe Node) treeScopeRootNode self node = liftDOM ((self ^. jsf "treeScopeRootNode" [toJSVal node]) >>= fromJSVal) -- | treeScopeRootNode_ :: (MonadDOM m, IsNode node) => Internals -> Maybe node -> m () treeScopeRootNode_ self node = liftDOM (void (self ^. jsf "treeScopeRootNode" [toJSVal node])) -- | treeScopeRootNodeUnsafe :: (MonadDOM m, IsNode node, HasCallStack) => Internals -> Maybe node -> m Node treeScopeRootNodeUnsafe self node = liftDOM (((self ^. jsf "treeScopeRootNode" [toJSVal node]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | treeScopeRootNodeUnchecked :: (MonadDOM m, IsNode node) => Internals -> Maybe node -> m Node treeScopeRootNodeUnchecked self node = liftDOM ((self ^. jsf "treeScopeRootNode" [toJSVal node]) >>= fromJSValUnchecked) -- | parentTreeScope :: (MonadDOM m, IsNode node) => Internals -> Maybe node -> m (Maybe Node) parentTreeScope self node = liftDOM ((self ^. jsf "parentTreeScope" [toJSVal node]) >>= fromJSVal) -- | parentTreeScope_ :: (MonadDOM m, IsNode node) => Internals -> Maybe node -> m () parentTreeScope_ self node = liftDOM (void (self ^. jsf "parentTreeScope" [toJSVal node])) -- | parentTreeScopeUnsafe :: (MonadDOM m, IsNode node, HasCallStack) => Internals -> Maybe node -> m Node parentTreeScopeUnsafe self node = liftDOM (((self ^. jsf "parentTreeScope" [toJSVal node]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | parentTreeScopeUnchecked :: (MonadDOM m, IsNode node) => Internals -> Maybe node -> m Node parentTreeScopeUnchecked self node = liftDOM ((self ^. jsf "parentTreeScope" [toJSVal node]) >>= fromJSValUnchecked) -- | lastSpatialNavigationCandidateCount :: (MonadDOM m) => Internals -> m Word lastSpatialNavigationCandidateCount self = liftDOM (round <$> ((self ^. jsf "lastSpatialNavigationCandidateCount" ()) >>= valToNumber)) -- | lastSpatialNavigationCandidateCount_ :: (MonadDOM m) => Internals -> m () lastSpatialNavigationCandidateCount_ self = liftDOM (void (self ^. jsf "lastSpatialNavigationCandidateCount" ())) -- | numberOfActiveAnimations :: (MonadDOM m) => Internals -> m Word numberOfActiveAnimations self = liftDOM (round <$> ((self ^. jsf "numberOfActiveAnimations" ()) >>= valToNumber)) -- | numberOfActiveAnimations_ :: (MonadDOM m) => Internals -> m () numberOfActiveAnimations_ self = liftDOM (void (self ^. jsf "numberOfActiveAnimations" ())) -- | suspendAnimations :: (MonadDOM m) => Internals -> m () suspendAnimations self = liftDOM (void (self ^. jsf "suspendAnimations" ())) -- | resumeAnimations :: (MonadDOM m) => Internals -> m () resumeAnimations self = liftDOM (void (self ^. jsf "resumeAnimations" ())) -- | animationsAreSuspended :: (MonadDOM m) => Internals -> m Bool animationsAreSuspended self = liftDOM ((self ^. jsf "animationsAreSuspended" ()) >>= valToBool) -- | animationsAreSuspended_ :: (MonadDOM m) => Internals -> m () animationsAreSuspended_ self = liftDOM (void (self ^. jsf "animationsAreSuspended" ())) -- | pauseAnimationAtTimeOnElement :: (MonadDOM m, ToJSString animationName, IsElement element) => Internals -> animationName -> Double -> Maybe element -> m Bool pauseAnimationAtTimeOnElement self animationName pauseTime element = liftDOM ((self ^. jsf "pauseAnimationAtTimeOnElement" [toJSVal animationName, toJSVal pauseTime, toJSVal element]) >>= valToBool) -- | pauseAnimationAtTimeOnElement_ :: (MonadDOM m, ToJSString animationName, IsElement element) => Internals -> animationName -> Double -> Maybe element -> m () pauseAnimationAtTimeOnElement_ self animationName pauseTime element = liftDOM (void (self ^. jsf "pauseAnimationAtTimeOnElement" [toJSVal animationName, toJSVal pauseTime, toJSVal element])) -- | pauseAnimationAtTimeOnPseudoElement :: (MonadDOM m, ToJSString animationName, IsElement element, ToJSString pseudoId) => Internals -> animationName -> Double -> Maybe element -> pseudoId -> m Bool pauseAnimationAtTimeOnPseudoElement self animationName pauseTime element pseudoId = liftDOM ((self ^. jsf "pauseAnimationAtTimeOnPseudoElement" [toJSVal animationName, toJSVal pauseTime, toJSVal element, toJSVal pseudoId]) >>= valToBool) -- | pauseAnimationAtTimeOnPseudoElement_ :: (MonadDOM m, ToJSString animationName, IsElement element, ToJSString pseudoId) => Internals -> animationName -> Double -> Maybe element -> pseudoId -> m () pauseAnimationAtTimeOnPseudoElement_ self animationName pauseTime element pseudoId = liftDOM (void (self ^. jsf "pauseAnimationAtTimeOnPseudoElement" [toJSVal animationName, toJSVal pauseTime, toJSVal element, toJSVal pseudoId])) -- | pauseTransitionAtTimeOnElement :: (MonadDOM m, ToJSString propertyName, IsElement element) => Internals -> propertyName -> Double -> Maybe element -> m Bool pauseTransitionAtTimeOnElement self propertyName pauseTime element = liftDOM ((self ^. jsf "pauseTransitionAtTimeOnElement" [toJSVal propertyName, toJSVal pauseTime, toJSVal element]) >>= valToBool) -- | pauseTransitionAtTimeOnElement_ :: (MonadDOM m, ToJSString propertyName, IsElement element) => Internals -> propertyName -> Double -> Maybe element -> m () pauseTransitionAtTimeOnElement_ self propertyName pauseTime element = liftDOM (void (self ^. jsf "pauseTransitionAtTimeOnElement" [toJSVal propertyName, toJSVal pauseTime, toJSVal element])) -- | pauseTransitionAtTimeOnPseudoElement :: (MonadDOM m, ToJSString property, IsElement element, ToJSString pseudoId) => Internals -> property -> Double -> Maybe element -> pseudoId -> m Bool pauseTransitionAtTimeOnPseudoElement self property pauseTime element pseudoId = liftDOM ((self ^. jsf "pauseTransitionAtTimeOnPseudoElement" [toJSVal property, toJSVal pauseTime, toJSVal element, toJSVal pseudoId]) >>= valToBool) -- | pauseTransitionAtTimeOnPseudoElement_ :: (MonadDOM m, ToJSString property, IsElement element, ToJSString pseudoId) => Internals -> property -> Double -> Maybe element -> pseudoId -> m () pauseTransitionAtTimeOnPseudoElement_ self property pauseTime element pseudoId = liftDOM (void (self ^. jsf "pauseTransitionAtTimeOnPseudoElement" [toJSVal property, toJSVal pauseTime, toJSVal element, toJSVal pseudoId])) -- | attached :: (MonadDOM m, IsNode node) => Internals -> Maybe node -> m Bool attached self node = liftDOM ((self ^. jsf "attached" [toJSVal node]) >>= valToBool) -- | attached_ :: (MonadDOM m, IsNode node) => Internals -> Maybe node -> m () attached_ self node = liftDOM (void (self ^. jsf "attached" [toJSVal node])) -- | visiblePlaceholder :: (MonadDOM m, IsElement element, FromJSString result) => Internals -> Maybe element -> m result visiblePlaceholder self element = liftDOM ((self ^. jsf "visiblePlaceholder" [toJSVal element]) >>= fromJSValUnchecked) -- | visiblePlaceholder_ :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> m () visiblePlaceholder_ self element = liftDOM (void (self ^. jsf "visiblePlaceholder" [toJSVal element])) -- | selectColorInColorChooser :: (MonadDOM m, IsElement element, ToJSString colorValue) => Internals -> Maybe element -> colorValue -> m () selectColorInColorChooser self element colorValue = liftDOM (void (self ^. jsf "selectColorInColorChooser" [toJSVal element, toJSVal colorValue])) -- | formControlStateOfPreviousHistoryItem :: (MonadDOM m, FromJSString result) => Internals -> m [result] formControlStateOfPreviousHistoryItem self = liftDOM ((self ^. jsf "formControlStateOfPreviousHistoryItem" ()) >>= fromJSArrayUnchecked) -- | formControlStateOfPreviousHistoryItem_ :: (MonadDOM m) => Internals -> m () formControlStateOfPreviousHistoryItem_ self = liftDOM (void (self ^. jsf "formControlStateOfPreviousHistoryItem" ())) -- | setFormControlStateOfPreviousHistoryItem :: (MonadDOM m, ToJSString values) => Internals -> [values] -> m () setFormControlStateOfPreviousHistoryItem self values = liftDOM (void (self ^. jsf "setFormControlStateOfPreviousHistoryItem" [toJSVal (array values)])) -- | absoluteCaretBounds :: (MonadDOM m) => Internals -> m (Maybe ClientRect) absoluteCaretBounds self = liftDOM ((self ^. jsf "absoluteCaretBounds" ()) >>= fromJSVal) -- | absoluteCaretBounds_ :: (MonadDOM m) => Internals -> m () absoluteCaretBounds_ self = liftDOM (void (self ^. jsf "absoluteCaretBounds" ())) -- | absoluteCaretBoundsUnsafe :: (MonadDOM m, HasCallStack) => Internals -> m ClientRect absoluteCaretBoundsUnsafe self = liftDOM (((self ^. jsf "absoluteCaretBounds" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | absoluteCaretBoundsUnchecked :: (MonadDOM m) => Internals -> m ClientRect absoluteCaretBoundsUnchecked self = liftDOM ((self ^. jsf "absoluteCaretBounds" ()) >>= fromJSValUnchecked) -- | boundingBox :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> m (Maybe ClientRect) boundingBox self element = liftDOM ((self ^. jsf "boundingBox" [toJSVal element]) >>= fromJSVal) -- | boundingBox_ :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> m () boundingBox_ self element = liftDOM (void (self ^. jsf "boundingBox" [toJSVal element])) -- | boundingBoxUnsafe :: (MonadDOM m, IsElement element, HasCallStack) => Internals -> Maybe element -> m ClientRect boundingBoxUnsafe self element = liftDOM (((self ^. jsf "boundingBox" [toJSVal element]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | boundingBoxUnchecked :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> m ClientRect boundingBoxUnchecked self element = liftDOM ((self ^. jsf "boundingBox" [toJSVal element]) >>= fromJSValUnchecked) -- | inspectorHighlightRects :: (MonadDOM m) => Internals -> m (Maybe ClientRectList) inspectorHighlightRects self = liftDOM ((self ^. jsf "inspectorHighlightRects" ()) >>= fromJSVal) -- | inspectorHighlightRects_ :: (MonadDOM m) => Internals -> m () inspectorHighlightRects_ self = liftDOM (void (self ^. jsf "inspectorHighlightRects" ())) -- | inspectorHighlightRectsUnsafe :: (MonadDOM m, HasCallStack) => Internals -> m ClientRectList inspectorHighlightRectsUnsafe self = liftDOM (((self ^. jsf "inspectorHighlightRects" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | inspectorHighlightRectsUnchecked :: (MonadDOM m) => Internals -> m ClientRectList inspectorHighlightRectsUnchecked self = liftDOM ((self ^. jsf "inspectorHighlightRects" ()) >>= fromJSValUnchecked) -- | inspectorHighlightObject :: (MonadDOM m, FromJSString result) => Internals -> m result inspectorHighlightObject self = liftDOM ((self ^. jsf "inspectorHighlightObject" ()) >>= fromJSValUnchecked) -- | inspectorHighlightObject_ :: (MonadDOM m) => Internals -> m () inspectorHighlightObject_ self = liftDOM (void (self ^. jsf "inspectorHighlightObject" ())) -- | markerCountForNode :: (MonadDOM m, IsNode node, ToJSString markerType) => Internals -> Maybe node -> markerType -> m Word markerCountForNode self node markerType = liftDOM (round <$> ((self ^. jsf "markerCountForNode" [toJSVal node, toJSVal markerType]) >>= valToNumber)) -- | markerCountForNode_ :: (MonadDOM m, IsNode node, ToJSString markerType) => Internals -> Maybe node -> markerType -> m () markerCountForNode_ self node markerType = liftDOM (void (self ^. jsf "markerCountForNode" [toJSVal node, toJSVal markerType])) -- | markerRangeForNode :: (MonadDOM m, IsNode node, ToJSString markerType) => Internals -> Maybe node -> markerType -> Word -> m (Maybe Range) markerRangeForNode self node markerType index = liftDOM ((self ^. jsf "markerRangeForNode" [toJSVal node, toJSVal markerType, toJSVal index]) >>= fromJSVal) -- | markerRangeForNode_ :: (MonadDOM m, IsNode node, ToJSString markerType) => Internals -> Maybe node -> markerType -> Word -> m () markerRangeForNode_ self node markerType index = liftDOM (void (self ^. jsf "markerRangeForNode" [toJSVal node, toJSVal markerType, toJSVal index])) -- | markerRangeForNodeUnsafe :: (MonadDOM m, IsNode node, ToJSString markerType, HasCallStack) => Internals -> Maybe node -> markerType -> Word -> m Range markerRangeForNodeUnsafe self node markerType index = liftDOM (((self ^. jsf "markerRangeForNode" [toJSVal node, toJSVal markerType, toJSVal index]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | markerRangeForNodeUnchecked :: (MonadDOM m, IsNode node, ToJSString markerType) => Internals -> Maybe node -> markerType -> Word -> m Range markerRangeForNodeUnchecked self node markerType index = liftDOM ((self ^. jsf "markerRangeForNode" [toJSVal node, toJSVal markerType, toJSVal index]) >>= fromJSValUnchecked) -- | markerDescriptionForNode :: (MonadDOM m, IsNode node, ToJSString markerType, FromJSString result) => Internals -> Maybe node -> markerType -> Word -> m result markerDescriptionForNode self node markerType index = liftDOM ((self ^. jsf "markerDescriptionForNode" [toJSVal node, toJSVal markerType, toJSVal index]) >>= fromJSValUnchecked) -- | markerDescriptionForNode_ :: (MonadDOM m, IsNode node, ToJSString markerType) => Internals -> Maybe node -> markerType -> Word -> m () markerDescriptionForNode_ self node markerType index = liftDOM (void (self ^. jsf "markerDescriptionForNode" [toJSVal node, toJSVal markerType, toJSVal index])) -- | addTextMatchMarker :: (MonadDOM m) => Internals -> Maybe Range -> Bool -> m () addTextMatchMarker self range isActive = liftDOM (void (self ^. jsf "addTextMatchMarker" [toJSVal range, toJSVal isActive])) -- | setMarkedTextMatchesAreHighlighted :: (MonadDOM m) => Internals -> Bool -> m () setMarkedTextMatchesAreHighlighted self flag = liftDOM (void (self ^. jsf "setMarkedTextMatchesAreHighlighted" [toJSVal flag])) -- | invalidateFontCache :: (MonadDOM m) => Internals -> m () invalidateFontCache self = liftDOM (void (self ^. jsf "invalidateFontCache" ())) -- | setScrollViewPosition :: (MonadDOM m) => Internals -> Int -> Int -> m () setScrollViewPosition self x y = liftDOM (void (self ^. jsf "setScrollViewPosition" [toJSVal x, toJSVal y])) -- | setPagination :: (MonadDOM m, ToJSString mode) => Internals -> mode -> Int -> Int -> m () setPagination self mode gap pageLength = liftDOM (void (self ^. jsf "setPagination" [toJSVal mode, toJSVal gap, toJSVal pageLength])) -- | configurationForViewport :: (MonadDOM m, FromJSString result) => Internals -> Float -> Int -> Int -> Int -> Int -> m result configurationForViewport self devicePixelRatio deviceWidth deviceHeight availableWidth availableHeight = liftDOM ((self ^. jsf "configurationForViewport" [toJSVal devicePixelRatio, toJSVal deviceWidth, toJSVal deviceHeight, toJSVal availableWidth, toJSVal availableHeight]) >>= fromJSValUnchecked) -- | configurationForViewport_ :: (MonadDOM m) => Internals -> Float -> Int -> Int -> Int -> Int -> m () configurationForViewport_ self devicePixelRatio deviceWidth deviceHeight availableWidth availableHeight = liftDOM (void (self ^. jsf "configurationForViewport" [toJSVal devicePixelRatio, toJSVal deviceWidth, toJSVal deviceHeight, toJSVal availableWidth, toJSVal availableHeight])) -- | wasLastChangeUserEdit :: (MonadDOM m, IsElement textField) => Internals -> Maybe textField -> m Bool wasLastChangeUserEdit self textField = liftDOM ((self ^. jsf "wasLastChangeUserEdit" [toJSVal textField]) >>= valToBool) -- | wasLastChangeUserEdit_ :: (MonadDOM m, IsElement textField) => Internals -> Maybe textField -> m () wasLastChangeUserEdit_ self textField = liftDOM (void (self ^. jsf "wasLastChangeUserEdit" [toJSVal textField])) -- | elementShouldAutoComplete :: (MonadDOM m, IsElement inputElement) => Internals -> Maybe inputElement -> m Bool elementShouldAutoComplete self inputElement = liftDOM ((self ^. jsf "elementShouldAutoComplete" [toJSVal inputElement]) >>= valToBool) -- | elementShouldAutoComplete_ :: (MonadDOM m, IsElement inputElement) => Internals -> Maybe inputElement -> m () elementShouldAutoComplete_ self inputElement = liftDOM (void (self ^. jsf "elementShouldAutoComplete" [toJSVal inputElement])) -- | setEditingValue :: (MonadDOM m, IsElement inputElement, ToJSString value) => Internals -> Maybe inputElement -> value -> m () setEditingValue self inputElement value = liftDOM (void (self ^. jsf "setEditingValue" [toJSVal inputElement, toJSVal value])) -- | setAutofilled :: (MonadDOM m, IsElement inputElement) => Internals -> Maybe inputElement -> Bool -> m () setAutofilled self inputElement enabled = liftDOM (void (self ^. jsf "setAutofilled" [toJSVal inputElement, toJSVal enabled])) -- | countMatchesForText :: (MonadDOM m, ToJSString text, ToJSString markMatches) => Internals -> text -> Word -> markMatches -> m Word countMatchesForText self text findOptions markMatches = liftDOM (round <$> ((self ^. jsf "countMatchesForText" [toJSVal text, toJSVal findOptions, toJSVal markMatches]) >>= valToNumber)) -- | countMatchesForText_ :: (MonadDOM m, ToJSString text, ToJSString markMatches) => Internals -> text -> Word -> markMatches -> m () countMatchesForText_ self text findOptions markMatches = liftDOM (void (self ^. jsf "countMatchesForText" [toJSVal text, toJSVal findOptions, toJSVal markMatches])) -- | paintControlTints :: (MonadDOM m) => Internals -> m () paintControlTints self = liftDOM (void (self ^. jsf "paintControlTints" ())) -- | scrollElementToRect :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> Int -> Int -> Int -> Int -> m () scrollElementToRect self element x y w h = liftDOM (void (self ^. jsf "scrollElementToRect" [toJSVal element, toJSVal x, toJSVal y, toJSVal w, toJSVal h])) -- | rangeFromLocationAndLength :: (MonadDOM m, IsElement scope) => Internals -> Maybe scope -> Int -> Int -> m (Maybe Range) rangeFromLocationAndLength self scope rangeLocation rangeLength = liftDOM ((self ^. jsf "rangeFromLocationAndLength" [toJSVal scope, toJSVal rangeLocation, toJSVal rangeLength]) >>= fromJSVal) -- | rangeFromLocationAndLength_ :: (MonadDOM m, IsElement scope) => Internals -> Maybe scope -> Int -> Int -> m () rangeFromLocationAndLength_ self scope rangeLocation rangeLength = liftDOM (void (self ^. jsf "rangeFromLocationAndLength" [toJSVal scope, toJSVal rangeLocation, toJSVal rangeLength])) -- | rangeFromLocationAndLengthUnsafe :: (MonadDOM m, IsElement scope, HasCallStack) => Internals -> Maybe scope -> Int -> Int -> m Range rangeFromLocationAndLengthUnsafe self scope rangeLocation rangeLength = liftDOM (((self ^. jsf "rangeFromLocationAndLength" [toJSVal scope, toJSVal rangeLocation, toJSVal rangeLength]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | rangeFromLocationAndLengthUnchecked :: (MonadDOM m, IsElement scope) => Internals -> Maybe scope -> Int -> Int -> m Range rangeFromLocationAndLengthUnchecked self scope rangeLocation rangeLength = liftDOM ((self ^. jsf "rangeFromLocationAndLength" [toJSVal scope, toJSVal rangeLocation, toJSVal rangeLength]) >>= fromJSValUnchecked) -- | locationFromRange :: (MonadDOM m, IsElement scope) => Internals -> Maybe scope -> Maybe Range -> m Word locationFromRange self scope range = liftDOM (round <$> ((self ^. jsf "locationFromRange" [toJSVal scope, toJSVal range]) >>= valToNumber)) -- | locationFromRange_ :: (MonadDOM m, IsElement scope) => Internals -> Maybe scope -> Maybe Range -> m () locationFromRange_ self scope range = liftDOM (void (self ^. jsf "locationFromRange" [toJSVal scope, toJSVal range])) -- | lengthFromRange :: (MonadDOM m, IsElement scope) => Internals -> Maybe scope -> Maybe Range -> m Word lengthFromRange self scope range = liftDOM (round <$> ((self ^. jsf "lengthFromRange" [toJSVal scope, toJSVal range]) >>= valToNumber)) -- | lengthFromRange_ :: (MonadDOM m, IsElement scope) => Internals -> Maybe scope -> Maybe Range -> m () lengthFromRange_ self scope range = liftDOM (void (self ^. jsf "lengthFromRange" [toJSVal scope, toJSVal range])) -- | rangeAsText :: (MonadDOM m, FromJSString result) => Internals -> Maybe Range -> m result rangeAsText self range = liftDOM ((self ^. jsf "rangeAsText" [toJSVal range]) >>= fromJSValUnchecked) -- | rangeAsText_ :: (MonadDOM m) => Internals -> Maybe Range -> m () rangeAsText_ self range = liftDOM (void (self ^. jsf "rangeAsText" [toJSVal range])) -- | subrange :: (MonadDOM m) => Internals -> Maybe Range -> Int -> Int -> m (Maybe Range) subrange self range rangeLocation rangeLength = liftDOM ((self ^. jsf "subrange" [toJSVal range, toJSVal rangeLocation, toJSVal rangeLength]) >>= fromJSVal) -- | subrange_ :: (MonadDOM m) => Internals -> Maybe Range -> Int -> Int -> m () subrange_ self range rangeLocation rangeLength = liftDOM (void (self ^. jsf "subrange" [toJSVal range, toJSVal rangeLocation, toJSVal rangeLength])) -- | subrangeUnsafe :: (MonadDOM m, HasCallStack) => Internals -> Maybe Range -> Int -> Int -> m Range subrangeUnsafe self range rangeLocation rangeLength = liftDOM (((self ^. jsf "subrange" [toJSVal range, toJSVal rangeLocation, toJSVal rangeLength]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | subrangeUnchecked :: (MonadDOM m) => Internals -> Maybe Range -> Int -> Int -> m Range subrangeUnchecked self range rangeLocation rangeLength = liftDOM ((self ^. jsf "subrange" [toJSVal range, toJSVal rangeLocation, toJSVal rangeLength]) >>= fromJSValUnchecked) -- | rangeForDictionaryLookupAtLocation :: (MonadDOM m) => Internals -> Int -> Int -> m (Maybe Range) rangeForDictionaryLookupAtLocation self x y = liftDOM ((self ^. jsf "rangeForDictionaryLookupAtLocation" [toJSVal x, toJSVal y]) >>= fromJSVal) -- | rangeForDictionaryLookupAtLocation_ :: (MonadDOM m) => Internals -> Int -> Int -> m () rangeForDictionaryLookupAtLocation_ self x y = liftDOM (void (self ^. jsf "rangeForDictionaryLookupAtLocation" [toJSVal x, toJSVal y])) -- | rangeForDictionaryLookupAtLocationUnsafe :: (MonadDOM m, HasCallStack) => Internals -> Int -> Int -> m Range rangeForDictionaryLookupAtLocationUnsafe self x y = liftDOM (((self ^. jsf "rangeForDictionaryLookupAtLocation" [toJSVal x, toJSVal y]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | rangeForDictionaryLookupAtLocationUnchecked :: (MonadDOM m) => Internals -> Int -> Int -> m Range rangeForDictionaryLookupAtLocationUnchecked self x y = liftDOM ((self ^. jsf "rangeForDictionaryLookupAtLocation" [toJSVal x, toJSVal y]) >>= fromJSValUnchecked) -- | setDelegatesScrolling :: (MonadDOM m) => Internals -> Bool -> m () setDelegatesScrolling self enabled = liftDOM (void (self ^. jsf "setDelegatesScrolling" [toJSVal enabled])) -- | lastSpellCheckRequestSequence :: (MonadDOM m) => Internals -> m Int lastSpellCheckRequestSequence self = liftDOM (round <$> ((self ^. jsf "lastSpellCheckRequestSequence" ()) >>= valToNumber)) -- | lastSpellCheckRequestSequence_ :: (MonadDOM m) => Internals -> m () lastSpellCheckRequestSequence_ self = liftDOM (void (self ^. jsf "lastSpellCheckRequestSequence" ())) -- | lastSpellCheckProcessedSequence :: (MonadDOM m) => Internals -> m Int lastSpellCheckProcessedSequence self = liftDOM (round <$> ((self ^. jsf "lastSpellCheckProcessedSequence" ()) >>= valToNumber)) -- | lastSpellCheckProcessedSequence_ :: (MonadDOM m) => Internals -> m () lastSpellCheckProcessedSequence_ self = liftDOM (void (self ^. jsf "lastSpellCheckProcessedSequence" ())) -- | userPreferredLanguages :: (MonadDOM m, FromJSString result) => Internals -> m [result] userPreferredLanguages self = liftDOM ((self ^. jsf "userPreferredLanguages" ()) >>= fromJSArrayUnchecked) -- | userPreferredLanguages_ :: (MonadDOM m) => Internals -> m () userPreferredLanguages_ self = liftDOM (void (self ^. jsf "userPreferredLanguages" ())) -- | setUserPreferredLanguages :: (MonadDOM m, ToJSString languages) => Internals -> [languages] -> m () setUserPreferredLanguages self languages = liftDOM (void (self ^. jsf "setUserPreferredLanguages" [toJSVal (array languages)])) -- | wheelEventHandlerCount :: (MonadDOM m) => Internals -> m Word wheelEventHandlerCount self = liftDOM (round <$> ((self ^. jsf "wheelEventHandlerCount" ()) >>= valToNumber)) -- | wheelEventHandlerCount_ :: (MonadDOM m) => Internals -> m () wheelEventHandlerCount_ self = liftDOM (void (self ^. jsf "wheelEventHandlerCount" ())) -- | touchEventHandlerCount :: (MonadDOM m) => Internals -> m Word touchEventHandlerCount self = liftDOM (round <$> ((self ^. jsf "touchEventHandlerCount" ()) >>= valToNumber)) -- | touchEventHandlerCount_ :: (MonadDOM m) => Internals -> m () touchEventHandlerCount_ self = liftDOM (void (self ^. jsf "touchEventHandlerCount" ())) -- | nodesFromRect :: (MonadDOM m, IsDocument document) => Internals -> Maybe document -> Int -> Int -> Word -> Word -> Word -> Word -> Bool -> Bool -> Bool -> m (Maybe NodeList) nodesFromRect self document x y topPadding rightPadding bottomPadding leftPadding ignoreClipping allowShadowContent allowChildFrameContent = liftDOM ((self ^. jsf "nodesFromRect" [toJSVal document, toJSVal x, toJSVal y, toJSVal topPadding, toJSVal rightPadding, toJSVal bottomPadding, toJSVal leftPadding, toJSVal ignoreClipping, toJSVal allowShadowContent, toJSVal allowChildFrameContent]) >>= fromJSVal) -- | nodesFromRect_ :: (MonadDOM m, IsDocument document) => Internals -> Maybe document -> Int -> Int -> Word -> Word -> Word -> Word -> Bool -> Bool -> Bool -> m () nodesFromRect_ self document x y topPadding rightPadding bottomPadding leftPadding ignoreClipping allowShadowContent allowChildFrameContent = liftDOM (void (self ^. jsf "nodesFromRect" [toJSVal document, toJSVal x, toJSVal y, toJSVal topPadding, toJSVal rightPadding, toJSVal bottomPadding, toJSVal leftPadding, toJSVal ignoreClipping, toJSVal allowShadowContent, toJSVal allowChildFrameContent])) -- | nodesFromRectUnsafe :: (MonadDOM m, IsDocument document, HasCallStack) => Internals -> Maybe document -> Int -> Int -> Word -> Word -> Word -> Word -> Bool -> Bool -> Bool -> m NodeList nodesFromRectUnsafe self document x y topPadding rightPadding bottomPadding leftPadding ignoreClipping allowShadowContent allowChildFrameContent = liftDOM (((self ^. jsf "nodesFromRect" [toJSVal document, toJSVal x, toJSVal y, toJSVal topPadding, toJSVal rightPadding, toJSVal bottomPadding, toJSVal leftPadding, toJSVal ignoreClipping, toJSVal allowShadowContent, toJSVal allowChildFrameContent]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | nodesFromRectUnchecked :: (MonadDOM m, IsDocument document) => Internals -> Maybe document -> Int -> Int -> Word -> Word -> Word -> Word -> Bool -> Bool -> Bool -> m NodeList nodesFromRectUnchecked self document x y topPadding rightPadding bottomPadding leftPadding ignoreClipping allowShadowContent allowChildFrameContent = liftDOM ((self ^. jsf "nodesFromRect" [toJSVal document, toJSVal x, toJSVal y, toJSVal topPadding, toJSVal rightPadding, toJSVal bottomPadding, toJSVal leftPadding, toJSVal ignoreClipping, toJSVal allowShadowContent, toJSVal allowChildFrameContent]) >>= fromJSValUnchecked) -- | parserMetaData :: (MonadDOM m, FromJSString result) => Internals -> JSVal -> m result parserMetaData self func = liftDOM ((self ^. jsf "parserMetaData" [toJSVal func]) >>= fromJSValUnchecked) -- | parserMetaData_ :: (MonadDOM m) => Internals -> JSVal -> m () parserMetaData_ self func = liftDOM (void (self ^. jsf "parserMetaData" [toJSVal func])) -- | updateEditorUINowIfScheduled :: (MonadDOM m) => Internals -> m () updateEditorUINowIfScheduled self = liftDOM (void (self ^. jsf "updateEditorUINowIfScheduled" ())) -- | hasSpellingMarker :: (MonadDOM m) => Internals -> Int -> Int -> m Bool hasSpellingMarker self from length = liftDOM ((self ^. jsf "hasSpellingMarker" [toJSVal from, toJSVal length]) >>= valToBool) -- | hasSpellingMarker_ :: (MonadDOM m) => Internals -> Int -> Int -> m () hasSpellingMarker_ self from length = liftDOM (void (self ^. jsf "hasSpellingMarker" [toJSVal from, toJSVal length])) -- | hasGrammarMarker :: (MonadDOM m) => Internals -> Int -> Int -> m Bool hasGrammarMarker self from length = liftDOM ((self ^. jsf "hasGrammarMarker" [toJSVal from, toJSVal length]) >>= valToBool) -- | hasGrammarMarker_ :: (MonadDOM m) => Internals -> Int -> Int -> m () hasGrammarMarker_ self from length = liftDOM (void (self ^. jsf "hasGrammarMarker" [toJSVal from, toJSVal length])) -- | hasAutocorrectedMarker :: (MonadDOM m) => Internals -> Int -> Int -> m Bool hasAutocorrectedMarker self from length = liftDOM ((self ^. jsf "hasAutocorrectedMarker" [toJSVal from, toJSVal length]) >>= valToBool) -- | hasAutocorrectedMarker_ :: (MonadDOM m) => Internals -> Int -> Int -> m () hasAutocorrectedMarker_ self from length = liftDOM (void (self ^. jsf "hasAutocorrectedMarker" [toJSVal from, toJSVal length])) -- | setContinuousSpellCheckingEnabled :: (MonadDOM m) => Internals -> Bool -> m () setContinuousSpellCheckingEnabled self enabled = liftDOM (void (self ^. jsf "setContinuousSpellCheckingEnabled" [toJSVal enabled])) -- | setAutomaticQuoteSubstitutionEnabled :: (MonadDOM m) => Internals -> Bool -> m () setAutomaticQuoteSubstitutionEnabled self enabled = liftDOM (void (self ^. jsf "setAutomaticQuoteSubstitutionEnabled" [toJSVal enabled])) -- | setAutomaticLinkDetectionEnabled :: (MonadDOM m) => Internals -> Bool -> m () setAutomaticLinkDetectionEnabled self enabled = liftDOM (void (self ^. jsf "setAutomaticLinkDetectionEnabled" [toJSVal enabled])) -- | setAutomaticDashSubstitutionEnabled :: (MonadDOM m) => Internals -> Bool -> m () setAutomaticDashSubstitutionEnabled self enabled = liftDOM (void (self ^. jsf "setAutomaticDashSubstitutionEnabled" [toJSVal enabled])) -- | setAutomaticTextReplacementEnabled :: (MonadDOM m) => Internals -> Bool -> m () setAutomaticTextReplacementEnabled self enabled = liftDOM (void (self ^. jsf "setAutomaticTextReplacementEnabled" [toJSVal enabled])) -- | setAutomaticSpellingCorrectionEnabled :: (MonadDOM m) => Internals -> Bool -> m () setAutomaticSpellingCorrectionEnabled self enabled = liftDOM (void (self ^. jsf "setAutomaticSpellingCorrectionEnabled" [toJSVal enabled])) -- | isOverwriteModeEnabled :: (MonadDOM m) => Internals -> m Bool isOverwriteModeEnabled self = liftDOM ((self ^. jsf "isOverwriteModeEnabled" ()) >>= valToBool) -- | isOverwriteModeEnabled_ :: (MonadDOM m) => Internals -> m () isOverwriteModeEnabled_ self = liftDOM (void (self ^. jsf "isOverwriteModeEnabled" ())) -- | toggleOverwriteModeEnabled :: (MonadDOM m) => Internals -> m () toggleOverwriteModeEnabled self = liftDOM (void (self ^. jsf "toggleOverwriteModeEnabled" ())) -- | numberOfScrollableAreas :: (MonadDOM m) => Internals -> m Word numberOfScrollableAreas self = liftDOM (round <$> ((self ^. jsf "numberOfScrollableAreas" ()) >>= valToNumber)) -- | numberOfScrollableAreas_ :: (MonadDOM m) => Internals -> m () numberOfScrollableAreas_ self = liftDOM (void (self ^. jsf "numberOfScrollableAreas" ())) -- | isPageBoxVisible :: (MonadDOM m) => Internals -> Int -> m Bool isPageBoxVisible self pageNumber = liftDOM ((self ^. jsf "isPageBoxVisible" [toJSVal pageNumber]) >>= valToBool) -- | isPageBoxVisible_ :: (MonadDOM m) => Internals -> Int -> m () isPageBoxVisible_ self pageNumber = liftDOM (void (self ^. jsf "isPageBoxVisible" [toJSVal pageNumber])) -- | layerTreeAsText :: (MonadDOM m, IsDocument document, FromJSString result) => Internals -> Maybe document -> Word -> m result layerTreeAsText self document flags = liftDOM ((self ^. jsf "layerTreeAsText" [toJSVal document, toJSVal flags]) >>= fromJSValUnchecked) -- | layerTreeAsText_ :: (MonadDOM m, IsDocument document) => Internals -> Maybe document -> Word -> m () layerTreeAsText_ self document flags = liftDOM (void (self ^. jsf "layerTreeAsText" [toJSVal document, toJSVal flags])) -- | scrollingStateTreeAsText :: (MonadDOM m, FromJSString result) => Internals -> m result scrollingStateTreeAsText self = liftDOM ((self ^. jsf "scrollingStateTreeAsText" ()) >>= fromJSValUnchecked) -- | scrollingStateTreeAsText_ :: (MonadDOM m) => Internals -> m () scrollingStateTreeAsText_ self = liftDOM (void (self ^. jsf "scrollingStateTreeAsText" ())) -- | mainThreadScrollingReasons :: (MonadDOM m, FromJSString result) => Internals -> m result mainThreadScrollingReasons self = liftDOM ((self ^. jsf "mainThreadScrollingReasons" ()) >>= fromJSValUnchecked) -- | mainThreadScrollingReasons_ :: (MonadDOM m) => Internals -> m () mainThreadScrollingReasons_ self = liftDOM (void (self ^. jsf "mainThreadScrollingReasons" ())) -- | nonFastScrollableRects :: (MonadDOM m) => Internals -> m (Maybe ClientRectList) nonFastScrollableRects self = liftDOM ((self ^. jsf "nonFastScrollableRects" ()) >>= fromJSVal) -- | nonFastScrollableRects_ :: (MonadDOM m) => Internals -> m () nonFastScrollableRects_ self = liftDOM (void (self ^. jsf "nonFastScrollableRects" ())) -- | nonFastScrollableRectsUnsafe :: (MonadDOM m, HasCallStack) => Internals -> m ClientRectList nonFastScrollableRectsUnsafe self = liftDOM (((self ^. jsf "nonFastScrollableRects" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | nonFastScrollableRectsUnchecked :: (MonadDOM m) => Internals -> m ClientRectList nonFastScrollableRectsUnchecked self = liftDOM ((self ^. jsf "nonFastScrollableRects" ()) >>= fromJSValUnchecked) -- | repaintRectsAsText :: (MonadDOM m, FromJSString result) => Internals -> m result repaintRectsAsText self = liftDOM ((self ^. jsf "repaintRectsAsText" ()) >>= fromJSValUnchecked) -- | repaintRectsAsText_ :: (MonadDOM m) => Internals -> m () repaintRectsAsText_ self = liftDOM (void (self ^. jsf "repaintRectsAsText" ())) -- | garbageCollectDocumentResources :: (MonadDOM m) => Internals -> m () garbageCollectDocumentResources self = liftDOM (void (self ^. jsf "garbageCollectDocumentResources" ())) -- | allowRoundingHacks :: (MonadDOM m) => Internals -> m () allowRoundingHacks self = liftDOM (void (self ^. jsf "allowRoundingHacks" ())) -- | insertAuthorCSS :: (MonadDOM m, ToJSString css) => Internals -> css -> m () insertAuthorCSS self css = liftDOM (void (self ^. jsf "insertAuthorCSS" [toJSVal css])) -- | insertUserCSS :: (MonadDOM m, ToJSString css) => Internals -> css -> m () insertUserCSS self css = liftDOM (void (self ^. jsf "insertUserCSS" [toJSVal css])) -- | setBatteryStatus :: (MonadDOM m, ToJSString eventType) => Internals -> eventType -> Bool -> Double -> Double -> Double -> m () setBatteryStatus self eventType charging chargingTime dischargingTime level = liftDOM (void (self ^. jsf "setBatteryStatus" [toJSVal eventType, toJSVal charging, toJSVal chargingTime, toJSVal dischargingTime, toJSVal level])) -- | setDeviceProximity :: (MonadDOM m, ToJSString eventType) => Internals -> eventType -> Double -> Double -> Double -> m () setDeviceProximity self eventType value min max = liftDOM (void (self ^. jsf "setDeviceProximity" [toJSVal eventType, toJSVal value, toJSVal min, toJSVal max])) -- | numberOfLiveNodes :: (MonadDOM m) => Internals -> m Word numberOfLiveNodes self = liftDOM (round <$> ((self ^. jsf "numberOfLiveNodes" ()) >>= valToNumber)) -- | numberOfLiveNodes_ :: (MonadDOM m) => Internals -> m () numberOfLiveNodes_ self = liftDOM (void (self ^. jsf "numberOfLiveNodes" ())) -- | numberOfLiveDocuments :: (MonadDOM m) => Internals -> m Word numberOfLiveDocuments self = liftDOM (round <$> ((self ^. jsf "numberOfLiveDocuments" ()) >>= valToNumber)) -- | numberOfLiveDocuments_ :: (MonadDOM m) => Internals -> m () numberOfLiveDocuments_ self = liftDOM (void (self ^. jsf "numberOfLiveDocuments" ())) -- | consoleMessageArgumentCounts :: (MonadDOM m, FromJSString result) => Internals -> m [result] consoleMessageArgumentCounts self = liftDOM ((self ^. jsf "consoleMessageArgumentCounts" ()) >>= fromJSArrayUnchecked) -- | consoleMessageArgumentCounts_ :: (MonadDOM m) => Internals -> m () consoleMessageArgumentCounts_ self = liftDOM (void (self ^. jsf "consoleMessageArgumentCounts" ())) -- | openDummyInspectorFrontend :: (MonadDOM m, ToJSString url) => Internals -> url -> m (Maybe Window) openDummyInspectorFrontend self url = liftDOM ((self ^. jsf "openDummyInspectorFrontend" [toJSVal url]) >>= fromJSVal) -- | openDummyInspectorFrontend_ :: (MonadDOM m, ToJSString url) => Internals -> url -> m () openDummyInspectorFrontend_ self url = liftDOM (void (self ^. jsf "openDummyInspectorFrontend" [toJSVal url])) -- | openDummyInspectorFrontendUnsafe :: (MonadDOM m, ToJSString url, HasCallStack) => Internals -> url -> m Window openDummyInspectorFrontendUnsafe self url = liftDOM (((self ^. jsf "openDummyInspectorFrontend" [toJSVal url]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | openDummyInspectorFrontendUnchecked :: (MonadDOM m, ToJSString url) => Internals -> url -> m Window openDummyInspectorFrontendUnchecked self url = liftDOM ((self ^. jsf "openDummyInspectorFrontend" [toJSVal url]) >>= fromJSValUnchecked) -- | closeDummyInspectorFrontend :: (MonadDOM m) => Internals -> m () closeDummyInspectorFrontend self = liftDOM (void (self ^. jsf "closeDummyInspectorFrontend" ())) -- | setJavaScriptProfilingEnabled :: (MonadDOM m) => Internals -> Bool -> m () setJavaScriptProfilingEnabled self creates = liftDOM (void (self ^. jsf "setJavaScriptProfilingEnabled" [toJSVal creates])) -- | setInspectorIsUnderTest :: (MonadDOM m) => Internals -> Bool -> m () setInspectorIsUnderTest self isUnderTest = liftDOM (void (self ^. jsf "setInspectorIsUnderTest" [toJSVal isUnderTest])) -- | counterValue :: (MonadDOM m, IsElement element, FromJSString result) => Internals -> Maybe element -> m result counterValue self element = liftDOM ((self ^. jsf "counterValue" [toJSVal element]) >>= fromJSValUnchecked) -- | counterValue_ :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> m () counterValue_ self element = liftDOM (void (self ^. jsf "counterValue" [toJSVal element])) -- | pageNumber :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> Float -> Float -> m Int pageNumber self element pageWidth pageHeight = liftDOM (round <$> ((self ^. jsf "pageNumber" [toJSVal element, toJSVal pageWidth, toJSVal pageHeight]) >>= valToNumber)) -- | pageNumber_ :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> Float -> Float -> m () pageNumber_ self element pageWidth pageHeight = liftDOM (void (self ^. jsf "pageNumber" [toJSVal element, toJSVal pageWidth, toJSVal pageHeight])) -- | shortcutIconURLs :: (MonadDOM m, FromJSString result) => Internals -> m [result] shortcutIconURLs self = liftDOM ((self ^. jsf "shortcutIconURLs" ()) >>= fromJSArrayUnchecked) -- | shortcutIconURLs_ :: (MonadDOM m) => Internals -> m () shortcutIconURLs_ self = liftDOM (void (self ^. jsf "shortcutIconURLs" ())) -- | allIconURLs :: (MonadDOM m, FromJSString result) => Internals -> m [result] allIconURLs self = liftDOM ((self ^. jsf "allIconURLs" ()) >>= fromJSArrayUnchecked) -- | allIconURLs_ :: (MonadDOM m) => Internals -> m () allIconURLs_ self = liftDOM (void (self ^. jsf "allIconURLs" ())) -- | numberOfPages :: (MonadDOM m) => Internals -> Double -> Double -> m Int numberOfPages self pageWidthInPixels pageHeightInPixels = liftDOM (round <$> ((self ^. jsf "numberOfPages" [toJSVal pageWidthInPixels, toJSVal pageHeightInPixels]) >>= valToNumber)) -- | numberOfPages_ :: (MonadDOM m) => Internals -> Double -> Double -> m () numberOfPages_ self pageWidthInPixels pageHeightInPixels = liftDOM (void (self ^. jsf "numberOfPages" [toJSVal pageWidthInPixels, toJSVal pageHeightInPixels])) -- | pageProperty :: (MonadDOM m, ToJSString propertyName, FromJSString result) => Internals -> propertyName -> Int -> m result pageProperty self propertyName pageNumber = liftDOM ((self ^. jsf "pageProperty" [toJSVal propertyName, toJSVal pageNumber]) >>= fromJSValUnchecked) -- | pageProperty_ :: (MonadDOM m, ToJSString propertyName) => Internals -> propertyName -> Int -> m () pageProperty_ self propertyName pageNumber = liftDOM (void (self ^. jsf "pageProperty" [toJSVal propertyName, toJSVal pageNumber])) -- | pageSizeAndMarginsInPixels :: (MonadDOM m, FromJSString result) => Internals -> Int -> Int -> Int -> Int -> Int -> Int -> Int -> m result pageSizeAndMarginsInPixels self pageIndex width height marginTop marginRight marginBottom marginLeft = liftDOM ((self ^. jsf "pageSizeAndMarginsInPixels" [toJSVal pageIndex, toJSVal width, toJSVal height, toJSVal marginTop, toJSVal marginRight, toJSVal marginBottom, toJSVal marginLeft]) >>= fromJSValUnchecked) -- | pageSizeAndMarginsInPixels_ :: (MonadDOM m) => Internals -> Int -> Int -> Int -> Int -> Int -> Int -> Int -> m () pageSizeAndMarginsInPixels_ self pageIndex width height marginTop marginRight marginBottom marginLeft = liftDOM (void (self ^. jsf "pageSizeAndMarginsInPixels" [toJSVal pageIndex, toJSVal width, toJSVal height, toJSVal marginTop, toJSVal marginRight, toJSVal marginBottom, toJSVal marginLeft])) -- | setPageScaleFactor :: (MonadDOM m) => Internals -> Float -> Int -> Int -> m () setPageScaleFactor self scaleFactor x y = liftDOM (void (self ^. jsf "setPageScaleFactor" [toJSVal scaleFactor, toJSVal x, toJSVal y])) -- | setPageZoomFactor :: (MonadDOM m) => Internals -> Float -> m () setPageZoomFactor self zoomFactor = liftDOM (void (self ^. jsf "setPageZoomFactor" [toJSVal zoomFactor])) -- | setHeaderHeight :: (MonadDOM m) => Internals -> Float -> m () setHeaderHeight self height = liftDOM (void (self ^. jsf "setHeaderHeight" [toJSVal height])) -- | setFooterHeight :: (MonadDOM m) => Internals -> Float -> m () setFooterHeight self height = liftDOM (void (self ^. jsf "setFooterHeight" [toJSVal height])) -- | setTopContentInset :: (MonadDOM m) => Internals -> Float -> m () setTopContentInset self contentInset = liftDOM (void (self ^. jsf "setTopContentInset" [toJSVal contentInset])) -- | webkitWillEnterFullScreenForElement :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> m () webkitWillEnterFullScreenForElement self element = liftDOM (void (self ^. jsf "webkitWillEnterFullScreenForElement" [toJSVal element])) -- | webkitDidEnterFullScreenForElement :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> m () webkitDidEnterFullScreenForElement self element = liftDOM (void (self ^. jsf "webkitDidEnterFullScreenForElement" [toJSVal element])) -- | webkitWillExitFullScreenForElement :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> m () webkitWillExitFullScreenForElement self element = liftDOM (void (self ^. jsf "webkitWillExitFullScreenForElement" [toJSVal element])) -- | webkitDidExitFullScreenForElement :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> m () webkitDidExitFullScreenForElement self element = liftDOM (void (self ^. jsf "webkitDidExitFullScreenForElement" [toJSVal element])) -- | setApplicationCacheOriginQuota :: (MonadDOM m) => Internals -> Word64 -> m () setApplicationCacheOriginQuota self quota = liftDOM (void (self ^. jsf "setApplicationCacheOriginQuota" [integralToDoubleToJSVal quota])) -- | registerURLSchemeAsBypassingContentSecurityPolicy :: (MonadDOM m, ToJSString scheme) => Internals -> scheme -> m () registerURLSchemeAsBypassingContentSecurityPolicy self scheme = liftDOM (void (self ^. jsf "registerURLSchemeAsBypassingContentSecurityPolicy" [toJSVal scheme])) -- | removeURLSchemeRegisteredAsBypassingContentSecurityPolicy :: (MonadDOM m, ToJSString scheme) => Internals -> scheme -> m () removeURLSchemeRegisteredAsBypassingContentSecurityPolicy self scheme = liftDOM (void (self ^. jsf "removeURLSchemeRegisteredAsBypassingContentSecurityPolicy" [toJSVal scheme])) -- | mallocStatistics :: (MonadDOM m) => Internals -> m (Maybe MallocStatistics) mallocStatistics self = liftDOM ((self ^. jsf "mallocStatistics" ()) >>= fromJSVal) -- | mallocStatistics_ :: (MonadDOM m) => Internals -> m () mallocStatistics_ self = liftDOM (void (self ^. jsf "mallocStatistics" ())) -- | mallocStatisticsUnsafe :: (MonadDOM m, HasCallStack) => Internals -> m MallocStatistics mallocStatisticsUnsafe self = liftDOM (((self ^. jsf "mallocStatistics" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | mallocStatisticsUnchecked :: (MonadDOM m) => Internals -> m MallocStatistics mallocStatisticsUnchecked self = liftDOM ((self ^. jsf "mallocStatistics" ()) >>= fromJSValUnchecked) -- | typeConversions :: (MonadDOM m) => Internals -> m (Maybe TypeConversions) typeConversions self = liftDOM ((self ^. jsf "typeConversions" ()) >>= fromJSVal) -- | typeConversions_ :: (MonadDOM m) => Internals -> m () typeConversions_ self = liftDOM (void (self ^. jsf "typeConversions" ())) -- | typeConversionsUnsafe :: (MonadDOM m, HasCallStack) => Internals -> m TypeConversions typeConversionsUnsafe self = liftDOM (((self ^. jsf "typeConversions" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | typeConversionsUnchecked :: (MonadDOM m) => Internals -> m TypeConversions typeConversionsUnchecked self = liftDOM ((self ^. jsf "typeConversions" ()) >>= fromJSValUnchecked) -- | memoryInfo :: (MonadDOM m) => Internals -> m (Maybe MemoryInfo) memoryInfo self = liftDOM ((self ^. jsf "memoryInfo" ()) >>= fromJSVal) -- | memoryInfo_ :: (MonadDOM m) => Internals -> m () memoryInfo_ self = liftDOM (void (self ^. jsf "memoryInfo" ())) -- | memoryInfoUnsafe :: (MonadDOM m, HasCallStack) => Internals -> m MemoryInfo memoryInfoUnsafe self = liftDOM (((self ^. jsf "memoryInfo" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | memoryInfoUnchecked :: (MonadDOM m) => Internals -> m MemoryInfo memoryInfoUnchecked self = liftDOM ((self ^. jsf "memoryInfo" ()) >>= fromJSValUnchecked) -- | getReferencedFilePaths :: (MonadDOM m, FromJSString result) => Internals -> m [result] getReferencedFilePaths self = liftDOM ((self ^. jsf "getReferencedFilePaths" ()) >>= fromJSArrayUnchecked) -- | getReferencedFilePaths_ :: (MonadDOM m) => Internals -> m () getReferencedFilePaths_ self = liftDOM (void (self ^. jsf "getReferencedFilePaths" ())) -- | startTrackingRepaints :: (MonadDOM m) => Internals -> m () startTrackingRepaints self = liftDOM (void (self ^. jsf "startTrackingRepaints" ())) -- | stopTrackingRepaints :: (MonadDOM m) => Internals -> m () stopTrackingRepaints self = liftDOM (void (self ^. jsf "stopTrackingRepaints" ())) -- | isTimerThrottled :: (MonadDOM m) => Internals -> Int -> m Bool isTimerThrottled self timerHandle = liftDOM ((self ^. jsf "isTimerThrottled" [toJSVal timerHandle]) >>= valToBool) -- | isTimerThrottled_ :: (MonadDOM m) => Internals -> Int -> m () isTimerThrottled_ self timerHandle = liftDOM (void (self ^. jsf "isTimerThrottled" [toJSVal timerHandle])) -- | updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks :: (MonadDOM m, IsNode node) => Internals -> Maybe node -> m () updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks self node = liftDOM (void (self ^. jsf "updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks" [toJSVal node])) -- | getCurrentCursorInfo :: (MonadDOM m, FromJSString result) => Internals -> m result getCurrentCursorInfo self = liftDOM ((self ^. jsf "getCurrentCursorInfo" ()) >>= fromJSValUnchecked) -- | getCurrentCursorInfo_ :: (MonadDOM m) => Internals -> m () getCurrentCursorInfo_ self = liftDOM (void (self ^. jsf "getCurrentCursorInfo" ())) -- | markerTextForListItem :: (MonadDOM m, IsElement element, FromJSString result) => Internals -> Maybe element -> m result markerTextForListItem self element = liftDOM ((self ^. jsf "markerTextForListItem" [toJSVal element]) >>= fromJSValUnchecked) -- | markerTextForListItem_ :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> m () markerTextForListItem_ self element = liftDOM (void (self ^. jsf "markerTextForListItem" [toJSVal element])) -- | toolTipFromElement :: (MonadDOM m, IsElement element, FromJSString result) => Internals -> Maybe element -> m result toolTipFromElement self element = liftDOM ((self ^. jsf "toolTipFromElement" [toJSVal element]) >>= fromJSValUnchecked) -- | toolTipFromElement_ :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> m () toolTipFromElement_ self element = liftDOM (void (self ^. jsf "toolTipFromElement" [toJSVal element])) -- | deserializeBuffer :: (MonadDOM m, IsArrayBuffer buffer) => Internals -> Maybe buffer -> m (Maybe SerializedScriptValue) deserializeBuffer self buffer = liftDOM ((self ^. jsf "deserializeBuffer" [toJSVal buffer]) >>= fromJSVal) -- | deserializeBuffer_ :: (MonadDOM m, IsArrayBuffer buffer) => Internals -> Maybe buffer -> m () deserializeBuffer_ self buffer = liftDOM (void (self ^. jsf "deserializeBuffer" [toJSVal buffer])) -- | deserializeBufferUnsafe :: (MonadDOM m, IsArrayBuffer buffer, HasCallStack) => Internals -> Maybe buffer -> m SerializedScriptValue deserializeBufferUnsafe self buffer = liftDOM (((self ^. jsf "deserializeBuffer" [toJSVal buffer]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | deserializeBufferUnchecked :: (MonadDOM m, IsArrayBuffer buffer) => Internals -> Maybe buffer -> m SerializedScriptValue deserializeBufferUnchecked self buffer = liftDOM ((self ^. jsf "deserializeBuffer" [toJSVal buffer]) >>= fromJSValUnchecked) -- | serializeObject :: (MonadDOM m, IsSerializedScriptValue obj) => Internals -> Maybe obj -> m (Maybe ArrayBuffer) serializeObject self obj = liftDOM ((self ^. jsf "serializeObject" [toJSVal obj]) >>= fromJSVal) -- | serializeObject_ :: (MonadDOM m, IsSerializedScriptValue obj) => Internals -> Maybe obj -> m () serializeObject_ self obj = liftDOM (void (self ^. jsf "serializeObject" [toJSVal obj])) -- | serializeObjectUnsafe :: (MonadDOM m, IsSerializedScriptValue obj, HasCallStack) => Internals -> Maybe obj -> m ArrayBuffer serializeObjectUnsafe self obj = liftDOM (((self ^. jsf "serializeObject" [toJSVal obj]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | serializeObjectUnchecked :: (MonadDOM m, IsSerializedScriptValue obj) => Internals -> Maybe obj -> m ArrayBuffer serializeObjectUnchecked self obj = liftDOM ((self ^. jsf "serializeObject" [toJSVal obj]) >>= fromJSValUnchecked) -- | setUsesOverlayScrollbars :: (MonadDOM m) => Internals -> Bool -> m () setUsesOverlayScrollbars self enabled = liftDOM (void (self ^. jsf "setUsesOverlayScrollbars" [toJSVal enabled])) -- | forceReload :: (MonadDOM m) => Internals -> Bool -> m () forceReload self endToEnd = liftDOM (void (self ^. jsf "forceReload" [toJSVal endToEnd])) -- | simulateAudioInterruption :: (MonadDOM m, IsNode node) => Internals -> Maybe node -> m () simulateAudioInterruption self node = liftDOM (void (self ^. jsf "simulateAudioInterruption" [toJSVal node])) -- | mediaElementHasCharacteristic :: (MonadDOM m, IsNode node, ToJSString characteristic) => Internals -> Maybe node -> characteristic -> m Bool mediaElementHasCharacteristic self node characteristic = liftDOM ((self ^. jsf "mediaElementHasCharacteristic" [toJSVal node, toJSVal characteristic]) >>= valToBool) -- | mediaElementHasCharacteristic_ :: (MonadDOM m, IsNode node, ToJSString characteristic) => Internals -> Maybe node -> characteristic -> m () mediaElementHasCharacteristic_ self node characteristic = liftDOM (void (self ^. jsf "mediaElementHasCharacteristic" [toJSVal node, toJSVal characteristic])) -- | initializeMockCDM :: (MonadDOM m) => Internals -> m () initializeMockCDM self = liftDOM (void (self ^. jsf "initializeMockCDM" ())) -- | enableMockSpeechSynthesizer :: (MonadDOM m) => Internals -> m () enableMockSpeechSynthesizer self = liftDOM (void (self ^. jsf "enableMockSpeechSynthesizer" ())) -- | getImageSourceURL :: (MonadDOM m, IsElement element, FromJSString result) => Internals -> Maybe element -> m result getImageSourceURL self element = liftDOM ((self ^. jsf "getImageSourceURL" [toJSVal element]) >>= fromJSValUnchecked) -- | getImageSourceURL_ :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> m () getImageSourceURL_ self element = liftDOM (void (self ^. jsf "getImageSourceURL" [toJSVal element])) -- | captionsStyleSheetOverride :: (MonadDOM m, FromJSString result) => Internals -> m result captionsStyleSheetOverride self = liftDOM ((self ^. jsf "captionsStyleSheetOverride" ()) >>= fromJSValUnchecked) -- | captionsStyleSheetOverride_ :: (MonadDOM m) => Internals -> m () captionsStyleSheetOverride_ self = liftDOM (void (self ^. jsf "captionsStyleSheetOverride" ())) -- | setCaptionsStyleSheetOverride :: (MonadDOM m, ToJSString override) => Internals -> override -> m () setCaptionsStyleSheetOverride self override = liftDOM (void (self ^. jsf "setCaptionsStyleSheetOverride" [toJSVal override])) -- | setPrimaryAudioTrackLanguageOverride :: (MonadDOM m, ToJSString language) => Internals -> language -> m () setPrimaryAudioTrackLanguageOverride self language = liftDOM (void (self ^. jsf "setPrimaryAudioTrackLanguageOverride" [toJSVal language])) -- | setCaptionDisplayMode :: (MonadDOM m, ToJSString mode) => Internals -> mode -> m () setCaptionDisplayMode self mode = liftDOM (void (self ^. jsf "setCaptionDisplayMode" [toJSVal mode])) -- | createTimeRanges :: (MonadDOM m, IsFloat32Array startTimes, IsFloat32Array endTimes) => Internals -> Maybe startTimes -> Maybe endTimes -> m (Maybe TimeRanges) createTimeRanges self startTimes endTimes = liftDOM ((self ^. jsf "createTimeRanges" [toJSVal startTimes, toJSVal endTimes]) >>= fromJSVal) -- | createTimeRanges_ :: (MonadDOM m, IsFloat32Array startTimes, IsFloat32Array endTimes) => Internals -> Maybe startTimes -> Maybe endTimes -> m () createTimeRanges_ self startTimes endTimes = liftDOM (void (self ^. jsf "createTimeRanges" [toJSVal startTimes, toJSVal endTimes])) -- | createTimeRangesUnsafe :: (MonadDOM m, IsFloat32Array startTimes, IsFloat32Array endTimes, HasCallStack) => Internals -> Maybe startTimes -> Maybe endTimes -> m TimeRanges createTimeRangesUnsafe self startTimes endTimes = liftDOM (((self ^. jsf "createTimeRanges" [toJSVal startTimes, toJSVal endTimes]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createTimeRangesUnchecked :: (MonadDOM m, IsFloat32Array startTimes, IsFloat32Array endTimes) => Internals -> Maybe startTimes -> Maybe endTimes -> m TimeRanges createTimeRangesUnchecked self startTimes endTimes = liftDOM ((self ^. jsf "createTimeRanges" [toJSVal startTimes, toJSVal endTimes]) >>= fromJSValUnchecked) -- | closestTimeToTimeRanges :: (MonadDOM m) => Internals -> Double -> Maybe TimeRanges -> m Double closestTimeToTimeRanges self time ranges = liftDOM ((self ^. jsf "closestTimeToTimeRanges" [toJSVal time, toJSVal ranges]) >>= valToNumber) -- | closestTimeToTimeRanges_ :: (MonadDOM m) => Internals -> Double -> Maybe TimeRanges -> m () closestTimeToTimeRanges_ self time ranges = liftDOM (void (self ^. jsf "closestTimeToTimeRanges" [toJSVal time, toJSVal ranges])) -- | isSelectPopupVisible :: (MonadDOM m, IsNode node) => Internals -> Maybe node -> m Bool isSelectPopupVisible self node = liftDOM ((self ^. jsf "isSelectPopupVisible" [toJSVal node]) >>= valToBool) -- | isSelectPopupVisible_ :: (MonadDOM m, IsNode node) => Internals -> Maybe node -> m () isSelectPopupVisible_ self node = liftDOM (void (self ^. jsf "isSelectPopupVisible" [toJSVal node])) -- | isVibrating :: (MonadDOM m) => Internals -> m Bool isVibrating self = liftDOM ((self ^. jsf "isVibrating" ()) >>= valToBool) -- | isVibrating_ :: (MonadDOM m) => Internals -> m () isVibrating_ self = liftDOM (void (self ^. jsf "isVibrating" ())) -- | isPluginUnavailabilityIndicatorObscured :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> m Bool isPluginUnavailabilityIndicatorObscured self element = liftDOM ((self ^. jsf "isPluginUnavailabilityIndicatorObscured" [toJSVal element]) >>= valToBool) -- | isPluginUnavailabilityIndicatorObscured_ :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> m () isPluginUnavailabilityIndicatorObscured_ self element = liftDOM (void (self ^. jsf "isPluginUnavailabilityIndicatorObscured" [toJSVal element])) -- | isPluginSnapshotted :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> m Bool isPluginSnapshotted self element = liftDOM ((self ^. jsf "isPluginSnapshotted" [toJSVal element]) >>= valToBool) -- | isPluginSnapshotted_ :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> m () isPluginSnapshotted_ self element = liftDOM (void (self ^. jsf "isPluginSnapshotted" [toJSVal element])) -- | selectionBounds :: (MonadDOM m) => Internals -> m (Maybe ClientRect) selectionBounds self = liftDOM ((self ^. jsf "selectionBounds" ()) >>= fromJSVal) -- | selectionBounds_ :: (MonadDOM m) => Internals -> m () selectionBounds_ self = liftDOM (void (self ^. jsf "selectionBounds" ())) -- | selectionBoundsUnsafe :: (MonadDOM m, HasCallStack) => Internals -> m ClientRect selectionBoundsUnsafe self = liftDOM (((self ^. jsf "selectionBounds" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | selectionBoundsUnchecked :: (MonadDOM m) => Internals -> m ClientRect selectionBoundsUnchecked self = liftDOM ((self ^. jsf "selectionBounds" ()) >>= fromJSValUnchecked) -- | initializeMockMediaSource :: (MonadDOM m) => Internals -> m () initializeMockMediaSource self = liftDOM (void (self ^. jsf "initializeMockMediaSource" ())) -- | bufferedSamplesForTrackID :: (MonadDOM m, ToJSString trackID, FromJSString result) => Internals -> Maybe SourceBuffer -> trackID -> m [result] bufferedSamplesForTrackID self buffer trackID = liftDOM ((self ^. jsf "bufferedSamplesForTrackID" [toJSVal buffer, toJSVal trackID]) >>= fromJSArrayUnchecked) -- | bufferedSamplesForTrackID_ :: (MonadDOM m, ToJSString trackID) => Internals -> Maybe SourceBuffer -> trackID -> m () bufferedSamplesForTrackID_ self buffer trackID = liftDOM (void (self ^. jsf "bufferedSamplesForTrackID" [toJSVal buffer, toJSVal trackID])) -- | beginMediaSessionInterruption :: (MonadDOM m) => Internals -> m () beginMediaSessionInterruption self = liftDOM (void (self ^. jsf "beginMediaSessionInterruption" ())) -- | endMediaSessionInterruption :: (MonadDOM m, ToJSString flags) => Internals -> flags -> m () endMediaSessionInterruption self flags = liftDOM (void (self ^. jsf "endMediaSessionInterruption" [toJSVal flags])) -- | applicationWillEnterForeground :: (MonadDOM m) => Internals -> m () applicationWillEnterForeground self = liftDOM (void (self ^. jsf "applicationWillEnterForeground" ())) -- | applicationWillEnterBackground :: (MonadDOM m) => Internals -> m () applicationWillEnterBackground self = liftDOM (void (self ^. jsf "applicationWillEnterBackground" ())) -- | setMediaSessionRestrictions :: (MonadDOM m, ToJSString mediaType, ToJSString restrictions) => Internals -> mediaType -> restrictions -> m () setMediaSessionRestrictions self mediaType restrictions = liftDOM (void (self ^. jsf "setMediaSessionRestrictions" [toJSVal mediaType, toJSVal restrictions])) -- | postRemoteControlCommand :: (MonadDOM m, ToJSString command) => Internals -> command -> m () postRemoteControlCommand self command = liftDOM (void (self ^. jsf "postRemoteControlCommand" [toJSVal command])) -- | simulateSystemSleep :: (MonadDOM m) => Internals -> m () simulateSystemSleep self = liftDOM (void (self ^. jsf "simulateSystemSleep" ())) -- | simulateSystemWake :: (MonadDOM m) => Internals -> m () simulateSystemWake self = liftDOM (void (self ^. jsf "simulateSystemWake" ())) -- | elementIsBlockingDisplaySleep :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> m Bool elementIsBlockingDisplaySleep self element = liftDOM ((self ^. jsf "elementIsBlockingDisplaySleep" [toJSVal element]) >>= valToBool) -- | elementIsBlockingDisplaySleep_ :: (MonadDOM m, IsElement element) => Internals -> Maybe element -> m () elementIsBlockingDisplaySleep_ self element = liftDOM (void (self ^. jsf "elementIsBlockingDisplaySleep" [toJSVal element])) -- | installMockPageOverlay :: (MonadDOM m) => Internals -> PageOverlayType -> m () installMockPageOverlay self type' = liftDOM (void (self ^. jsf "installMockPageOverlay" [toJSVal type'])) -- | pageOverlayLayerTreeAsText :: (MonadDOM m, FromJSString result) => Internals -> m result pageOverlayLayerTreeAsText self = liftDOM ((self ^. jsf "pageOverlayLayerTreeAsText" ()) >>= fromJSValUnchecked) -- | pageOverlayLayerTreeAsText_ :: (MonadDOM m) => Internals -> m () pageOverlayLayerTreeAsText_ self = liftDOM (void (self ^. jsf "pageOverlayLayerTreeAsText" ())) -- | setPageMuted :: (MonadDOM m) => Internals -> Bool -> m () setPageMuted self muted = liftDOM (void (self ^. jsf "setPageMuted" [toJSVal muted])) -- | isPagePlayingAudio :: (MonadDOM m) => Internals -> m Bool isPagePlayingAudio self = liftDOM ((self ^. jsf "isPagePlayingAudio" ()) >>= valToBool) -- | isPagePlayingAudio_ :: (MonadDOM m) => Internals -> m () isPagePlayingAudio_ self = liftDOM (void (self ^. jsf "isPagePlayingAudio" ())) pattern LAYER_TREE_INCLUDES_VISIBLE_RECTS = 1 pattern LAYER_TREE_INCLUDES_TILE_CACHES = 2 pattern LAYER_TREE_INCLUDES_REPAINT_RECTS = 4 pattern LAYER_TREE_INCLUDES_PAINTING_PHASES = 8 pattern LAYER_TREE_INCLUDES_CONTENT_LAYERS = 16 -- | getSettings :: (MonadDOM m) => Internals -> m (Maybe InternalSettings) getSettings self = liftDOM ((self ^. js "settings") >>= fromJSVal) -- | getSettingsUnsafe :: (MonadDOM m, HasCallStack) => Internals -> m InternalSettings getSettingsUnsafe self = liftDOM (((self ^. js "settings") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getSettingsUnchecked :: (MonadDOM m) => Internals -> m InternalSettings getSettingsUnchecked self = liftDOM ((self ^. js "settings") >>= fromJSValUnchecked) -- | getWorkerThreadCount :: (MonadDOM m) => Internals -> m Word getWorkerThreadCount self = liftDOM (round <$> ((self ^. js "workerThreadCount") >>= valToNumber)) -- | getConsoleProfiles :: (MonadDOM m) => Internals -> m [Maybe ScriptProfile] getConsoleProfiles self = liftDOM ((self ^. js "consoleProfiles") >>= fromJSArray)