DocumentPictureInPictureEventInit.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from document-picture-in-picture (webref). Do not edit.
module JSDOM.Generated.DocumentPictureInPictureEventInit
       (newDocumentPictureInPictureEventInit, setWindow, getWindow, DocumentPictureInPictureEventInit(..), gTypeDocumentPictureInPictureEventInit)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle (JSM, JSVal, JSString, toJSVal, valToBool, valToNumber, js, jss, jsf, jsg, new, function, asyncFunction, jsUndefined, jsNull)
import JSDOM.Types
import qualified JSDOM.Types as Types
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Generated.Enums

-- | <https://wicg.github.io/document-picture-in-picture/#dictdef-documentpictureinpictureeventinit DocumentPictureInPictureEventInit specification>
newDocumentPictureInPictureEventInit :: (MonadDOM m) => Window -> m DocumentPictureInPictureEventInit
newDocumentPictureInPictureEventInit window = liftDOM ((((new (jsg "Object") () >>= \o -> (o ^. jss "window" (toJSVal window)) P.>> P.return o)) >>= fromJSValUnchecked))

-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureeventinit-window DocumentPictureInPictureEventInit.window specification>
setWindow :: (MonadDOM m) => DocumentPictureInPictureEventInit -> Window -> m ()
setWindow self val = liftDOM (void (self ^. jss "window" (toJSVal val)))

-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureeventinit-window DocumentPictureInPictureEventInit.window specification>
getWindow :: (MonadDOM m) => DocumentPictureInPictureEventInit -> m Window
getWindow self = liftDOM (((self ^. js "window") >>= fromJSValUnchecked))