{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.WebKitCSSMatrix (newWebKitCSSMatrix, setMatrixValue, multiply, multiply_, multiplyUnsafe, multiplyUnchecked, inverse, inverse_, inverseUnsafe, inverseUnchecked, translate, translate_, translateUnsafe, translateUnchecked, scale, scale_, scaleUnsafe, scaleUnchecked, rotate, rotate_, rotateUnsafe, rotateUnchecked, rotateAxisAngle, rotateAxisAngle_, rotateAxisAngleUnsafe, rotateAxisAngleUnchecked, skewX, skewX_, skewXUnsafe, skewXUnchecked, skewY, skewY_, skewYUnsafe, skewYUnchecked, toString, toString_, setA, getA, setB, getB, setC, getC, setD, getD, setE, getE, setF, getF, setM11, getM11, setM12, getM12, setM13, getM13, setM14, getM14, setM21, getM21, setM22, getM22, setM23, getM23, setM24, getM24, setM31, getM31, setM32, getM32, setM33, getM33, setM34, getM34, setM41, getM41, setM42, getM42, setM43, getM43, setM44, getM44, WebKitCSSMatrix(..), gTypeWebKitCSSMatrix) 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 -- | newWebKitCSSMatrix :: (MonadDOM m, ToJSString cssValue) => cssValue -> m WebKitCSSMatrix newWebKitCSSMatrix cssValue = liftDOM (WebKitCSSMatrix <$> new (jsg "WebKitCSSMatrix") [toJSVal cssValue]) -- | setMatrixValue :: (MonadDOM m, ToJSString string) => WebKitCSSMatrix -> string -> m () setMatrixValue self string = liftDOM (void (self ^. jsf "setMatrixValue" [toJSVal string])) -- | multiply :: (MonadDOM m) => WebKitCSSMatrix -> Maybe WebKitCSSMatrix -> m (Maybe WebKitCSSMatrix) multiply self secondMatrix = liftDOM ((self ^. jsf "multiply" [toJSVal secondMatrix]) >>= fromJSVal) -- | multiply_ :: (MonadDOM m) => WebKitCSSMatrix -> Maybe WebKitCSSMatrix -> m () multiply_ self secondMatrix = liftDOM (void (self ^. jsf "multiply" [toJSVal secondMatrix])) -- | multiplyUnsafe :: (MonadDOM m, HasCallStack) => WebKitCSSMatrix -> Maybe WebKitCSSMatrix -> m WebKitCSSMatrix multiplyUnsafe self secondMatrix = liftDOM (((self ^. jsf "multiply" [toJSVal secondMatrix]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | multiplyUnchecked :: (MonadDOM m) => WebKitCSSMatrix -> Maybe WebKitCSSMatrix -> m WebKitCSSMatrix multiplyUnchecked self secondMatrix = liftDOM ((self ^. jsf "multiply" [toJSVal secondMatrix]) >>= fromJSValUnchecked) -- | inverse :: (MonadDOM m) => WebKitCSSMatrix -> m (Maybe WebKitCSSMatrix) inverse self = liftDOM ((self ^. jsf "inverse" ()) >>= fromJSVal) -- | inverse_ :: (MonadDOM m) => WebKitCSSMatrix -> m () inverse_ self = liftDOM (void (self ^. jsf "inverse" ())) -- | inverseUnsafe :: (MonadDOM m, HasCallStack) => WebKitCSSMatrix -> m WebKitCSSMatrix inverseUnsafe self = liftDOM (((self ^. jsf "inverse" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | inverseUnchecked :: (MonadDOM m) => WebKitCSSMatrix -> m WebKitCSSMatrix inverseUnchecked self = liftDOM ((self ^. jsf "inverse" ()) >>= fromJSValUnchecked) -- | translate :: (MonadDOM m) => WebKitCSSMatrix -> Double -> Double -> Double -> m (Maybe WebKitCSSMatrix) translate self x y z = liftDOM ((self ^. jsf "translate" [toJSVal x, toJSVal y, toJSVal z]) >>= fromJSVal) -- | translate_ :: (MonadDOM m) => WebKitCSSMatrix -> Double -> Double -> Double -> m () translate_ self x y z = liftDOM (void (self ^. jsf "translate" [toJSVal x, toJSVal y, toJSVal z])) -- | translateUnsafe :: (MonadDOM m, HasCallStack) => WebKitCSSMatrix -> Double -> Double -> Double -> m WebKitCSSMatrix translateUnsafe self x y z = liftDOM (((self ^. jsf "translate" [toJSVal x, toJSVal y, toJSVal z]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | translateUnchecked :: (MonadDOM m) => WebKitCSSMatrix -> Double -> Double -> Double -> m WebKitCSSMatrix translateUnchecked self x y z = liftDOM ((self ^. jsf "translate" [toJSVal x, toJSVal y, toJSVal z]) >>= fromJSValUnchecked) -- | scale :: (MonadDOM m) => WebKitCSSMatrix -> Double -> Double -> Double -> m (Maybe WebKitCSSMatrix) scale self scaleX scaleY scaleZ = liftDOM ((self ^. jsf "scale" [toJSVal scaleX, toJSVal scaleY, toJSVal scaleZ]) >>= fromJSVal) -- | scale_ :: (MonadDOM m) => WebKitCSSMatrix -> Double -> Double -> Double -> m () scale_ self scaleX scaleY scaleZ = liftDOM (void (self ^. jsf "scale" [toJSVal scaleX, toJSVal scaleY, toJSVal scaleZ])) -- | scaleUnsafe :: (MonadDOM m, HasCallStack) => WebKitCSSMatrix -> Double -> Double -> Double -> m WebKitCSSMatrix scaleUnsafe self scaleX scaleY scaleZ = liftDOM (((self ^. jsf "scale" [toJSVal scaleX, toJSVal scaleY, toJSVal scaleZ]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | scaleUnchecked :: (MonadDOM m) => WebKitCSSMatrix -> Double -> Double -> Double -> m WebKitCSSMatrix scaleUnchecked self scaleX scaleY scaleZ = liftDOM ((self ^. jsf "scale" [toJSVal scaleX, toJSVal scaleY, toJSVal scaleZ]) >>= fromJSValUnchecked) -- | rotate :: (MonadDOM m) => WebKitCSSMatrix -> Double -> Double -> Double -> m (Maybe WebKitCSSMatrix) rotate self rotX rotY rotZ = liftDOM ((self ^. jsf "rotate" [toJSVal rotX, toJSVal rotY, toJSVal rotZ]) >>= fromJSVal) -- | rotate_ :: (MonadDOM m) => WebKitCSSMatrix -> Double -> Double -> Double -> m () rotate_ self rotX rotY rotZ = liftDOM (void (self ^. jsf "rotate" [toJSVal rotX, toJSVal rotY, toJSVal rotZ])) -- | rotateUnsafe :: (MonadDOM m, HasCallStack) => WebKitCSSMatrix -> Double -> Double -> Double -> m WebKitCSSMatrix rotateUnsafe self rotX rotY rotZ = liftDOM (((self ^. jsf "rotate" [toJSVal rotX, toJSVal rotY, toJSVal rotZ]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | rotateUnchecked :: (MonadDOM m) => WebKitCSSMatrix -> Double -> Double -> Double -> m WebKitCSSMatrix rotateUnchecked self rotX rotY rotZ = liftDOM ((self ^. jsf "rotate" [toJSVal rotX, toJSVal rotY, toJSVal rotZ]) >>= fromJSValUnchecked) -- | rotateAxisAngle :: (MonadDOM m) => WebKitCSSMatrix -> Double -> Double -> Double -> Double -> m (Maybe WebKitCSSMatrix) rotateAxisAngle self x y z angle = liftDOM ((self ^. jsf "rotateAxisAngle" [toJSVal x, toJSVal y, toJSVal z, toJSVal angle]) >>= fromJSVal) -- | rotateAxisAngle_ :: (MonadDOM m) => WebKitCSSMatrix -> Double -> Double -> Double -> Double -> m () rotateAxisAngle_ self x y z angle = liftDOM (void (self ^. jsf "rotateAxisAngle" [toJSVal x, toJSVal y, toJSVal z, toJSVal angle])) -- | rotateAxisAngleUnsafe :: (MonadDOM m, HasCallStack) => WebKitCSSMatrix -> Double -> Double -> Double -> Double -> m WebKitCSSMatrix rotateAxisAngleUnsafe self x y z angle = liftDOM (((self ^. jsf "rotateAxisAngle" [toJSVal x, toJSVal y, toJSVal z, toJSVal angle]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | rotateAxisAngleUnchecked :: (MonadDOM m) => WebKitCSSMatrix -> Double -> Double -> Double -> Double -> m WebKitCSSMatrix rotateAxisAngleUnchecked self x y z angle = liftDOM ((self ^. jsf "rotateAxisAngle" [toJSVal x, toJSVal y, toJSVal z, toJSVal angle]) >>= fromJSValUnchecked) -- | skewX :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m (Maybe WebKitCSSMatrix) skewX self angle = liftDOM ((self ^. jsf "skewX" [toJSVal angle]) >>= fromJSVal) -- | skewX_ :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () skewX_ self angle = liftDOM (void (self ^. jsf "skewX" [toJSVal angle])) -- | skewXUnsafe :: (MonadDOM m, HasCallStack) => WebKitCSSMatrix -> Double -> m WebKitCSSMatrix skewXUnsafe self angle = liftDOM (((self ^. jsf "skewX" [toJSVal angle]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | skewXUnchecked :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m WebKitCSSMatrix skewXUnchecked self angle = liftDOM ((self ^. jsf "skewX" [toJSVal angle]) >>= fromJSValUnchecked) -- | skewY :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m (Maybe WebKitCSSMatrix) skewY self angle = liftDOM ((self ^. jsf "skewY" [toJSVal angle]) >>= fromJSVal) -- | skewY_ :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () skewY_ self angle = liftDOM (void (self ^. jsf "skewY" [toJSVal angle])) -- | skewYUnsafe :: (MonadDOM m, HasCallStack) => WebKitCSSMatrix -> Double -> m WebKitCSSMatrix skewYUnsafe self angle = liftDOM (((self ^. jsf "skewY" [toJSVal angle]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | skewYUnchecked :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m WebKitCSSMatrix skewYUnchecked self angle = liftDOM ((self ^. jsf "skewY" [toJSVal angle]) >>= fromJSValUnchecked) -- | toString :: (MonadDOM m, FromJSString result) => WebKitCSSMatrix -> m result toString self = liftDOM ((self ^. jsf "toString" ()) >>= fromJSValUnchecked) -- | toString_ :: (MonadDOM m) => WebKitCSSMatrix -> m () toString_ self = liftDOM (void (self ^. jsf "toString" ())) -- | setA :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setA self val = liftDOM (self ^. jss "a" (toJSVal val)) -- | getA :: (MonadDOM m) => WebKitCSSMatrix -> m Double getA self = liftDOM ((self ^. js "a") >>= valToNumber) -- | setB :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setB self val = liftDOM (self ^. jss "b" (toJSVal val)) -- | getB :: (MonadDOM m) => WebKitCSSMatrix -> m Double getB self = liftDOM ((self ^. js "b") >>= valToNumber) -- | setC :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setC self val = liftDOM (self ^. jss "c" (toJSVal val)) -- | getC :: (MonadDOM m) => WebKitCSSMatrix -> m Double getC self = liftDOM ((self ^. js "c") >>= valToNumber) -- | setD :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setD self val = liftDOM (self ^. jss "d" (toJSVal val)) -- | getD :: (MonadDOM m) => WebKitCSSMatrix -> m Double getD self = liftDOM ((self ^. js "d") >>= valToNumber) -- | setE :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setE self val = liftDOM (self ^. jss "e" (toJSVal val)) -- | getE :: (MonadDOM m) => WebKitCSSMatrix -> m Double getE self = liftDOM ((self ^. js "e") >>= valToNumber) -- | setF :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setF self val = liftDOM (self ^. jss "f" (toJSVal val)) -- | getF :: (MonadDOM m) => WebKitCSSMatrix -> m Double getF self = liftDOM ((self ^. js "f") >>= valToNumber) -- | setM11 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM11 self val = liftDOM (self ^. jss "m11" (toJSVal val)) -- | getM11 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM11 self = liftDOM ((self ^. js "m11") >>= valToNumber) -- | setM12 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM12 self val = liftDOM (self ^. jss "m12" (toJSVal val)) -- | getM12 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM12 self = liftDOM ((self ^. js "m12") >>= valToNumber) -- | setM13 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM13 self val = liftDOM (self ^. jss "m13" (toJSVal val)) -- | getM13 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM13 self = liftDOM ((self ^. js "m13") >>= valToNumber) -- | setM14 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM14 self val = liftDOM (self ^. jss "m14" (toJSVal val)) -- | getM14 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM14 self = liftDOM ((self ^. js "m14") >>= valToNumber) -- | setM21 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM21 self val = liftDOM (self ^. jss "m21" (toJSVal val)) -- | getM21 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM21 self = liftDOM ((self ^. js "m21") >>= valToNumber) -- | setM22 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM22 self val = liftDOM (self ^. jss "m22" (toJSVal val)) -- | getM22 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM22 self = liftDOM ((self ^. js "m22") >>= valToNumber) -- | setM23 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM23 self val = liftDOM (self ^. jss "m23" (toJSVal val)) -- | getM23 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM23 self = liftDOM ((self ^. js "m23") >>= valToNumber) -- | setM24 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM24 self val = liftDOM (self ^. jss "m24" (toJSVal val)) -- | getM24 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM24 self = liftDOM ((self ^. js "m24") >>= valToNumber) -- | setM31 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM31 self val = liftDOM (self ^. jss "m31" (toJSVal val)) -- | getM31 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM31 self = liftDOM ((self ^. js "m31") >>= valToNumber) -- | setM32 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM32 self val = liftDOM (self ^. jss "m32" (toJSVal val)) -- | getM32 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM32 self = liftDOM ((self ^. js "m32") >>= valToNumber) -- | setM33 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM33 self val = liftDOM (self ^. jss "m33" (toJSVal val)) -- | getM33 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM33 self = liftDOM ((self ^. js "m33") >>= valToNumber) -- | setM34 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM34 self val = liftDOM (self ^. jss "m34" (toJSVal val)) -- | getM34 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM34 self = liftDOM ((self ^. js "m34") >>= valToNumber) -- | setM41 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM41 self val = liftDOM (self ^. jss "m41" (toJSVal val)) -- | getM41 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM41 self = liftDOM ((self ^. js "m41") >>= valToNumber) -- | setM42 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM42 self val = liftDOM (self ^. jss "m42" (toJSVal val)) -- | getM42 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM42 self = liftDOM ((self ^. js "m42") >>= valToNumber) -- | setM43 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM43 self val = liftDOM (self ^. jss "m43" (toJSVal val)) -- | getM43 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM43 self = liftDOM ((self ^. js "m43") >>= valToNumber) -- | setM44 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM44 self val = liftDOM (self ^. jss "m44" (toJSVal val)) -- | getM44 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM44 self = liftDOM ((self ^. js "m44") >>= valToNumber)