CSSTranslate.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.CSSTranslate
       (js_newCSSTranslate, js_setX, js_getX, js_setY, js_getY, js_setZ, js_getZ, newCSSTranslate, setX, getX, setY, getY, setZ, getZ, CSSTranslate(..), gTypeCSSTranslate)
       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 "(($1, $2, $3) => { return new globalThis[\"CSSTranslate\"]($1, $2, $3); })"
        js_newCSSTranslate :: CSSNumericValue -> CSSNumericValue -> JSVal -> IO CSSTranslate
-- | <https://developer.mozilla.org/docs/Web/API/CSSTranslate/CSSTranslate MDN CSSTranslate. documentation>
newCSSTranslate :: (MonadDOM m, IsCSSNumericValue x, IsCSSNumericValue y, IsCSSNumericValue z) => x -> y -> Maybe z -> m CSSTranslate
newCSSTranslate x y z = liftDOM (((P.maybe (P.return jsUndefined) toJSVal z) >>= \a3' -> js_newCSSTranslate (Types.toCSSNumericValue x) (Types.toCSSNumericValue y) a3'))

foreign import javascript safe "(($1, $2) => { $1[\"x\"] = $2; })"
        js_setX :: CSSTranslate -> CSSNumericValue -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/CSSTranslate/x MDN CSSTranslate.x documentation>
setX :: (MonadDOM m, IsCSSNumericValue val) => CSSTranslate -> val -> m ()
setX self val = liftDOM (void ((js_setX (self) (Types.toCSSNumericValue val))))

foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })"
        js_getX :: CSSTranslate -> IO CSSNumericValue
-- | <https://developer.mozilla.org/docs/Web/API/CSSTranslate/x MDN CSSTranslate.x documentation>
getX :: (MonadDOM m) => CSSTranslate -> m CSSNumericValue
getX self = liftDOM ((js_getX (self)))

foreign import javascript safe "(($1, $2) => { $1[\"y\"] = $2; })"
        js_setY :: CSSTranslate -> CSSNumericValue -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/CSSTranslate/y MDN CSSTranslate.y documentation>
setY :: (MonadDOM m, IsCSSNumericValue val) => CSSTranslate -> val -> m ()
setY self val = liftDOM (void ((js_setY (self) (Types.toCSSNumericValue val))))

foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })"
        js_getY :: CSSTranslate -> IO CSSNumericValue
-- | <https://developer.mozilla.org/docs/Web/API/CSSTranslate/y MDN CSSTranslate.y documentation>
getY :: (MonadDOM m) => CSSTranslate -> m CSSNumericValue
getY self = liftDOM ((js_getY (self)))

foreign import javascript safe "(($1, $2) => { $1[\"z\"] = $2; })"
        js_setZ :: CSSTranslate -> CSSNumericValue -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/CSSTranslate/z MDN CSSTranslate.z documentation>
setZ :: (MonadDOM m, IsCSSNumericValue val) => CSSTranslate -> val -> m ()
setZ self val = liftDOM (void ((js_setZ (self) (Types.toCSSNumericValue val))))

foreign import javascript unsafe "(($1) => { return $1[\"z\"]; })"
        js_getZ :: CSSTranslate -> IO CSSNumericValue
-- | <https://developer.mozilla.org/docs/Web/API/CSSTranslate/z MDN CSSTranslate.z documentation>
getZ :: (MonadDOM m) => CSSTranslate -> m CSSNumericValue
getZ self = liftDOM ((js_getZ (self)))