DOMQuadInit.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from geometry-1 (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.DOMQuadInit
       (js_newDOMQuadInit, js_setP1, js_getP1, js_setP2, js_getP2, js_setP3, js_getP3, js_setP4, js_getP4, newDOMQuadInit, setP1, getP1, getP1Unsafe, getP1Unchecked, setP2, getP2, getP2Unsafe, getP2Unchecked, setP3, getP3, getP3Unsafe, getP3Unchecked, setP4, getP4, getP4Unsafe, getP4Unchecked, DOMQuadInit(..), gTypeDOMQuadInit)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(() => { return ({}); })"
        js_newDOMQuadInit :: IO DOMQuadInit
-- | <https://drafts.csswg.org/geometry-1/#dictdef-domquadinit DOMQuadInit specification>
newDOMQuadInit :: (MonadDOM m) => m DOMQuadInit
newDOMQuadInit = liftDOM ((js_newDOMQuadInit))

foreign import javascript safe "(($1, $2) => { $1[\"p1\"] = $2; })"
        js_setP1 :: DOMQuadInit -> DOMPointInit -> IO ()
-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p1 DOMQuadInit.p1 specification>
setP1 :: (MonadDOM m) => DOMQuadInit -> DOMPointInit -> m ()
setP1 self val = liftDOM (void ((js_setP1 (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"p1\"]; })"
        js_getP1 :: DOMQuadInit -> IO JSVal
-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p1 DOMQuadInit.p1 specification>
getP1 :: (MonadDOM m) => DOMQuadInit -> m (Maybe DOMPointInit)
getP1 self = liftDOM (((js_getP1 (self)) >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p1 DOMQuadInit.p1 specification>
getP1Unsafe :: (MonadDOM m, HasCallStack) => DOMQuadInit -> m DOMPointInit
getP1Unsafe self = liftDOM ((((js_getP1 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p1 DOMQuadInit.p1 specification>
getP1Unchecked :: (MonadDOM m) => DOMQuadInit -> m DOMPointInit
getP1Unchecked self = liftDOM ((pFromJSVal <$> (js_getP1 (self))))

foreign import javascript safe "(($1, $2) => { $1[\"p2\"] = $2; })"
        js_setP2 :: DOMQuadInit -> DOMPointInit -> IO ()
-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p2 DOMQuadInit.p2 specification>
setP2 :: (MonadDOM m) => DOMQuadInit -> DOMPointInit -> m ()
setP2 self val = liftDOM (void ((js_setP2 (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"p2\"]; })"
        js_getP2 :: DOMQuadInit -> IO JSVal
-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p2 DOMQuadInit.p2 specification>
getP2 :: (MonadDOM m) => DOMQuadInit -> m (Maybe DOMPointInit)
getP2 self = liftDOM (((js_getP2 (self)) >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p2 DOMQuadInit.p2 specification>
getP2Unsafe :: (MonadDOM m, HasCallStack) => DOMQuadInit -> m DOMPointInit
getP2Unsafe self = liftDOM ((((js_getP2 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p2 DOMQuadInit.p2 specification>
getP2Unchecked :: (MonadDOM m) => DOMQuadInit -> m DOMPointInit
getP2Unchecked self = liftDOM ((pFromJSVal <$> (js_getP2 (self))))

foreign import javascript safe "(($1, $2) => { $1[\"p3\"] = $2; })"
        js_setP3 :: DOMQuadInit -> DOMPointInit -> IO ()
-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p3 DOMQuadInit.p3 specification>
setP3 :: (MonadDOM m) => DOMQuadInit -> DOMPointInit -> m ()
setP3 self val = liftDOM (void ((js_setP3 (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"p3\"]; })"
        js_getP3 :: DOMQuadInit -> IO JSVal
-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p3 DOMQuadInit.p3 specification>
getP3 :: (MonadDOM m) => DOMQuadInit -> m (Maybe DOMPointInit)
getP3 self = liftDOM (((js_getP3 (self)) >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p3 DOMQuadInit.p3 specification>
getP3Unsafe :: (MonadDOM m, HasCallStack) => DOMQuadInit -> m DOMPointInit
getP3Unsafe self = liftDOM ((((js_getP3 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p3 DOMQuadInit.p3 specification>
getP3Unchecked :: (MonadDOM m) => DOMQuadInit -> m DOMPointInit
getP3Unchecked self = liftDOM ((pFromJSVal <$> (js_getP3 (self))))

foreign import javascript safe "(($1, $2) => { $1[\"p4\"] = $2; })"
        js_setP4 :: DOMQuadInit -> DOMPointInit -> IO ()
-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p4 DOMQuadInit.p4 specification>
setP4 :: (MonadDOM m) => DOMQuadInit -> DOMPointInit -> m ()
setP4 self val = liftDOM (void ((js_setP4 (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"p4\"]; })"
        js_getP4 :: DOMQuadInit -> IO JSVal
-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p4 DOMQuadInit.p4 specification>
getP4 :: (MonadDOM m) => DOMQuadInit -> m (Maybe DOMPointInit)
getP4 self = liftDOM (((js_getP4 (self)) >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p4 DOMQuadInit.p4 specification>
getP4Unsafe :: (MonadDOM m, HasCallStack) => DOMQuadInit -> m DOMPointInit
getP4Unsafe self = liftDOM ((((js_getP4 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p4 DOMQuadInit.p4 specification>
getP4Unchecked :: (MonadDOM m) => DOMQuadInit -> m DOMPointInit
getP4Unchecked self = liftDOM ((pFromJSVal <$> (js_getP4 (self))))