{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.InternalSettings (js_setTouchEventEmulationEnabled, setTouchEventEmulationEnabled, js_setStandardFontFamily, setStandardFontFamily, js_setSerifFontFamily, setSerifFontFamily, js_setSansSerifFontFamily, setSansSerifFontFamily, js_setFixedFontFamily, setFixedFontFamily, js_setCursiveFontFamily, setCursiveFontFamily, js_setFantasyFontFamily, setFantasyFontFamily, js_setPictographFontFamily, setPictographFontFamily, js_setFontFallbackPrefersPictographs, setFontFallbackPrefersPictographs, js_setTextAutosizingEnabled, setTextAutosizingEnabled, js_setTextAutosizingWindowSizeOverride, setTextAutosizingWindowSizeOverride, js_setTextAutosizingFontScaleFactor, setTextAutosizingFontScaleFactor, js_setCSSShapesEnabled, setCSSShapesEnabled, js_setCanStartMedia, setCanStartMedia, js_setShouldDisplayTrackKind, setShouldDisplayTrackKind, js_shouldDisplayTrackKind, shouldDisplayTrackKind, js_setDefaultVideoPosterURL, setDefaultVideoPosterURL, js_setTimeWithoutMouseMovementBeforeHidingControls, setTimeWithoutMouseMovementBeforeHidingControls, js_setMediaTypeOverride, setMediaTypeOverride, js_setPluginReplacementEnabled, setPluginReplacementEnabled, js_setEditingBehavior, setEditingBehavior, js_setShouldConvertPositionStyleOnCopy, setShouldConvertPositionStyleOnCopy, js_setLangAttributeAwareFormControlUIEnabled, setLangAttributeAwareFormControlUIEnabled, js_setStorageBlockingPolicy, setStorageBlockingPolicy, js_setImagesEnabled, setImagesEnabled, js_setUseLegacyBackgroundSizeShorthandBehavior, setUseLegacyBackgroundSizeShorthandBehavior, js_setAutoscrollForDragAndDropEnabled, setAutoscrollForDragAndDropEnabled, js_setBackgroundShouldExtendBeyondPage, setBackgroundShouldExtendBeyondPage, js_setScrollingTreeIncludesFrames, setScrollingTreeIncludesFrames, js_setMinimumTimerInterval, setMinimumTimerInterval, InternalSettings, castToInternalSettings, gTypeInternalSettings) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (JSRef(..), JSString, castRef) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "$1[\"setTouchEventEmulationEnabled\"]($2)" js_setTouchEventEmulationEnabled :: JSRef InternalSettings -> Bool -> IO () -- | setTouchEventEmulationEnabled :: (MonadIO m) => InternalSettings -> Bool -> m () setTouchEventEmulationEnabled self enabled = liftIO (js_setTouchEventEmulationEnabled (unInternalSettings self) enabled) foreign import javascript unsafe "$1[\"setStandardFontFamily\"]($2,\n$3)" js_setStandardFontFamily :: JSRef InternalSettings -> JSString -> JSString -> IO () -- | setStandardFontFamily :: (MonadIO m, ToJSString family', ToJSString script) => InternalSettings -> family' -> script -> m () setStandardFontFamily self family' script = liftIO (js_setStandardFontFamily (unInternalSettings self) (toJSString family') (toJSString script)) foreign import javascript unsafe "$1[\"setSerifFontFamily\"]($2, $3)" js_setSerifFontFamily :: JSRef InternalSettings -> JSString -> JSString -> IO () -- | setSerifFontFamily :: (MonadIO m, ToJSString family', ToJSString script) => InternalSettings -> family' -> script -> m () setSerifFontFamily self family' script = liftIO (js_setSerifFontFamily (unInternalSettings self) (toJSString family') (toJSString script)) foreign import javascript unsafe "$1[\"setSansSerifFontFamily\"]($2,\n$3)" js_setSansSerifFontFamily :: JSRef InternalSettings -> JSString -> JSString -> IO () -- | setSansSerifFontFamily :: (MonadIO m, ToJSString family', ToJSString script) => InternalSettings -> family' -> script -> m () setSansSerifFontFamily self family' script = liftIO (js_setSansSerifFontFamily (unInternalSettings self) (toJSString family') (toJSString script)) foreign import javascript unsafe "$1[\"setFixedFontFamily\"]($2, $3)" js_setFixedFontFamily :: JSRef InternalSettings -> JSString -> JSString -> IO () -- | setFixedFontFamily :: (MonadIO m, ToJSString family', ToJSString script) => InternalSettings -> family' -> script -> m () setFixedFontFamily self family' script = liftIO (js_setFixedFontFamily (unInternalSettings self) (toJSString family') (toJSString script)) foreign import javascript unsafe "$1[\"setCursiveFontFamily\"]($2,\n$3)" js_setCursiveFontFamily :: JSRef InternalSettings -> JSString -> JSString -> IO () -- | setCursiveFontFamily :: (MonadIO m, ToJSString family', ToJSString script) => InternalSettings -> family' -> script -> m () setCursiveFontFamily self family' script = liftIO (js_setCursiveFontFamily (unInternalSettings self) (toJSString family') (toJSString script)) foreign import javascript unsafe "$1[\"setFantasyFontFamily\"]($2,\n$3)" js_setFantasyFontFamily :: JSRef InternalSettings -> JSString -> JSString -> IO () -- | setFantasyFontFamily :: (MonadIO m, ToJSString family', ToJSString script) => InternalSettings -> family' -> script -> m () setFantasyFontFamily self family' script = liftIO (js_setFantasyFontFamily (unInternalSettings self) (toJSString family') (toJSString script)) foreign import javascript unsafe "$1[\"setPictographFontFamily\"]($2,\n$3)" js_setPictographFontFamily :: JSRef InternalSettings -> JSString -> JSString -> IO () -- | setPictographFontFamily :: (MonadIO m, ToJSString family', ToJSString script) => InternalSettings -> family' -> script -> m () setPictographFontFamily self family' script = liftIO (js_setPictographFontFamily (unInternalSettings self) (toJSString family') (toJSString script)) foreign import javascript unsafe "$1[\"setFontFallbackPrefersPictographs\"]($2)" js_setFontFallbackPrefersPictographs :: JSRef InternalSettings -> Bool -> IO () -- | setFontFallbackPrefersPictographs :: (MonadIO m) => InternalSettings -> Bool -> m () setFontFallbackPrefersPictographs self preferPictographs = liftIO (js_setFontFallbackPrefersPictographs (unInternalSettings self) preferPictographs) foreign import javascript unsafe "$1[\"setTextAutosizingEnabled\"]($2)" js_setTextAutosizingEnabled :: JSRef InternalSettings -> Bool -> IO () -- | setTextAutosizingEnabled :: (MonadIO m) => InternalSettings -> Bool -> m () setTextAutosizingEnabled self enabled = liftIO (js_setTextAutosizingEnabled (unInternalSettings self) enabled) foreign import javascript unsafe "$1[\"setTextAutosizingWindowSizeOverride\"]($2,\n$3)" js_setTextAutosizingWindowSizeOverride :: JSRef InternalSettings -> Int -> Int -> IO () -- | setTextAutosizingWindowSizeOverride :: (MonadIO m) => InternalSettings -> Int -> Int -> m () setTextAutosizingWindowSizeOverride self width height = liftIO (js_setTextAutosizingWindowSizeOverride (unInternalSettings self) width height) foreign import javascript unsafe "$1[\"setTextAutosizingFontScaleFactor\"]($2)" js_setTextAutosizingFontScaleFactor :: JSRef InternalSettings -> Float -> IO () -- | setTextAutosizingFontScaleFactor :: (MonadIO m) => InternalSettings -> Float -> m () setTextAutosizingFontScaleFactor self fontScaleFactor = liftIO (js_setTextAutosizingFontScaleFactor (unInternalSettings self) fontScaleFactor) foreign import javascript unsafe "$1[\"setCSSShapesEnabled\"]($2)" js_setCSSShapesEnabled :: JSRef InternalSettings -> Bool -> IO () -- | setCSSShapesEnabled :: (MonadIO m) => InternalSettings -> Bool -> m () setCSSShapesEnabled self enabled = liftIO (js_setCSSShapesEnabled (unInternalSettings self) enabled) foreign import javascript unsafe "$1[\"setCanStartMedia\"]($2)" js_setCanStartMedia :: JSRef InternalSettings -> Bool -> IO () -- | setCanStartMedia :: (MonadIO m) => InternalSettings -> Bool -> m () setCanStartMedia self enabled = liftIO (js_setCanStartMedia (unInternalSettings self) enabled) foreign import javascript unsafe "$1[\"setShouldDisplayTrackKind\"]($2,\n$3)" js_setShouldDisplayTrackKind :: JSRef InternalSettings -> JSString -> Bool -> IO () -- | setShouldDisplayTrackKind :: (MonadIO m, ToJSString kind) => InternalSettings -> kind -> Bool -> m () setShouldDisplayTrackKind self kind enabled = liftIO (js_setShouldDisplayTrackKind (unInternalSettings self) (toJSString kind) enabled) foreign import javascript unsafe "($1[\"shouldDisplayTrackKind\"]($2) ? 1 : 0)" js_shouldDisplayTrackKind :: JSRef InternalSettings -> JSString -> IO Bool -- | shouldDisplayTrackKind :: (MonadIO m, ToJSString trackKind) => InternalSettings -> trackKind -> m Bool shouldDisplayTrackKind self trackKind = liftIO (js_shouldDisplayTrackKind (unInternalSettings self) (toJSString trackKind)) foreign import javascript unsafe "$1[\"setDefaultVideoPosterURL\"]($2)" js_setDefaultVideoPosterURL :: JSRef InternalSettings -> JSString -> IO () -- | setDefaultVideoPosterURL :: (MonadIO m, ToJSString poster) => InternalSettings -> poster -> m () setDefaultVideoPosterURL self poster = liftIO (js_setDefaultVideoPosterURL (unInternalSettings self) (toJSString poster)) foreign import javascript unsafe "$1[\"setTimeWithoutMouseMovementBeforeHidingControls\"]($2)" js_setTimeWithoutMouseMovementBeforeHidingControls :: JSRef InternalSettings -> Double -> IO () -- | setTimeWithoutMouseMovementBeforeHidingControls :: (MonadIO m) => InternalSettings -> Double -> m () setTimeWithoutMouseMovementBeforeHidingControls self time = liftIO (js_setTimeWithoutMouseMovementBeforeHidingControls (unInternalSettings self) time) foreign import javascript unsafe "$1[\"setMediaTypeOverride\"]($2)" js_setMediaTypeOverride :: JSRef InternalSettings -> JSString -> IO () -- | setMediaTypeOverride :: (MonadIO m, ToJSString mediaTypeOverride) => InternalSettings -> mediaTypeOverride -> m () setMediaTypeOverride self mediaTypeOverride = liftIO (js_setMediaTypeOverride (unInternalSettings self) (toJSString mediaTypeOverride)) foreign import javascript unsafe "$1[\"setPluginReplacementEnabled\"]($2)" js_setPluginReplacementEnabled :: JSRef InternalSettings -> Bool -> IO () -- | setPluginReplacementEnabled :: (MonadIO m) => InternalSettings -> Bool -> m () setPluginReplacementEnabled self enabled = liftIO (js_setPluginReplacementEnabled (unInternalSettings self) enabled) foreign import javascript unsafe "$1[\"setEditingBehavior\"]($2)" js_setEditingBehavior :: JSRef InternalSettings -> JSString -> IO () -- | setEditingBehavior :: (MonadIO m, ToJSString behavior) => InternalSettings -> behavior -> m () setEditingBehavior self behavior = liftIO (js_setEditingBehavior (unInternalSettings self) (toJSString behavior)) foreign import javascript unsafe "$1[\"setShouldConvertPositionStyleOnCopy\"]($2)" js_setShouldConvertPositionStyleOnCopy :: JSRef InternalSettings -> Bool -> IO () -- | setShouldConvertPositionStyleOnCopy :: (MonadIO m) => InternalSettings -> Bool -> m () setShouldConvertPositionStyleOnCopy self convert = liftIO (js_setShouldConvertPositionStyleOnCopy (unInternalSettings self) convert) foreign import javascript unsafe "$1[\"setLangAttributeAwareFormControlUIEnabled\"]($2)" js_setLangAttributeAwareFormControlUIEnabled :: JSRef InternalSettings -> Bool -> IO () -- | setLangAttributeAwareFormControlUIEnabled :: (MonadIO m) => InternalSettings -> Bool -> m () setLangAttributeAwareFormControlUIEnabled self enabled = liftIO (js_setLangAttributeAwareFormControlUIEnabled (unInternalSettings self) enabled) foreign import javascript unsafe "$1[\"setStorageBlockingPolicy\"]($2)" js_setStorageBlockingPolicy :: JSRef InternalSettings -> JSString -> IO () -- | setStorageBlockingPolicy :: (MonadIO m, ToJSString policy) => InternalSettings -> policy -> m () setStorageBlockingPolicy self policy = liftIO (js_setStorageBlockingPolicy (unInternalSettings self) (toJSString policy)) foreign import javascript unsafe "$1[\"setImagesEnabled\"]($2)" js_setImagesEnabled :: JSRef InternalSettings -> Bool -> IO () -- | setImagesEnabled :: (MonadIO m) => InternalSettings -> Bool -> m () setImagesEnabled self enabled = liftIO (js_setImagesEnabled (unInternalSettings self) enabled) foreign import javascript unsafe "$1[\"setUseLegacyBackgroundSizeShorthandBehavior\"]($2)" js_setUseLegacyBackgroundSizeShorthandBehavior :: JSRef InternalSettings -> Bool -> IO () -- | setUseLegacyBackgroundSizeShorthandBehavior :: (MonadIO m) => InternalSettings -> Bool -> m () setUseLegacyBackgroundSizeShorthandBehavior self enabled = liftIO (js_setUseLegacyBackgroundSizeShorthandBehavior (unInternalSettings self) enabled) foreign import javascript unsafe "$1[\"setAutoscrollForDragAndDropEnabled\"]($2)" js_setAutoscrollForDragAndDropEnabled :: JSRef InternalSettings -> Bool -> IO () -- | setAutoscrollForDragAndDropEnabled :: (MonadIO m) => InternalSettings -> Bool -> m () setAutoscrollForDragAndDropEnabled self enabled = liftIO (js_setAutoscrollForDragAndDropEnabled (unInternalSettings self) enabled) foreign import javascript unsafe "$1[\"setBackgroundShouldExtendBeyondPage\"]($2)" js_setBackgroundShouldExtendBeyondPage :: JSRef InternalSettings -> Bool -> IO () -- | setBackgroundShouldExtendBeyondPage :: (MonadIO m) => InternalSettings -> Bool -> m () setBackgroundShouldExtendBeyondPage self hasExtendedBackground = liftIO (js_setBackgroundShouldExtendBeyondPage (unInternalSettings self) hasExtendedBackground) foreign import javascript unsafe "$1[\"setScrollingTreeIncludesFrames\"]($2)" js_setScrollingTreeIncludesFrames :: JSRef InternalSettings -> Bool -> IO () -- | setScrollingTreeIncludesFrames :: (MonadIO m) => InternalSettings -> Bool -> m () setScrollingTreeIncludesFrames self enabled = liftIO (js_setScrollingTreeIncludesFrames (unInternalSettings self) enabled) foreign import javascript unsafe "$1[\"setMinimumTimerInterval\"]($2)" js_setMinimumTimerInterval :: JSRef InternalSettings -> Double -> IO () -- | setMinimumTimerInterval :: (MonadIO m) => InternalSettings -> Double -> m () setMinimumTimerInterval self intervalInSeconds = liftIO (js_setMinimumTimerInterval (unInternalSettings self) intervalInSeconds)