module JSDOM.Generated.SVGViewSpec
(getTransform, getTransformUnsafe, getTransformUnchecked,
getViewTarget, getViewTargetUnsafe, getViewTargetUnchecked,
getViewBoxString, getPreserveAspectRatioString, getTransformString,
getViewTargetString, setZoomAndPan, getZoomAndPan, SVGViewSpec(..),
gTypeSVGViewSpec)
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
getTransform ::
(MonadDOM m) => SVGViewSpec -> m (Maybe SVGTransformList)
getTransform self
= liftDOM ((self ^. js "transform") >>= fromJSVal)
getTransformUnsafe ::
(MonadDOM m, HasCallStack) => SVGViewSpec -> m SVGTransformList
getTransformUnsafe self
= liftDOM
(((self ^. js "transform") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getTransformUnchecked ::
(MonadDOM m) => SVGViewSpec -> m SVGTransformList
getTransformUnchecked self
= liftDOM ((self ^. js "transform") >>= fromJSValUnchecked)
getViewTarget ::
(MonadDOM m) => SVGViewSpec -> m (Maybe SVGElement)
getViewTarget self
= liftDOM ((self ^. js "viewTarget") >>= fromJSVal)
getViewTargetUnsafe ::
(MonadDOM m, HasCallStack) => SVGViewSpec -> m SVGElement
getViewTargetUnsafe self
= liftDOM
(((self ^. js "viewTarget") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getViewTargetUnchecked ::
(MonadDOM m) => SVGViewSpec -> m SVGElement
getViewTargetUnchecked self
= liftDOM ((self ^. js "viewTarget") >>= fromJSValUnchecked)
getViewBoxString ::
(MonadDOM m, FromJSString result) => SVGViewSpec -> m result
getViewBoxString self
= liftDOM ((self ^. js "viewBoxString") >>= fromJSValUnchecked)
getPreserveAspectRatioString ::
(MonadDOM m, FromJSString result) => SVGViewSpec -> m result
getPreserveAspectRatioString self
= liftDOM
((self ^. js "preserveAspectRatioString") >>= fromJSValUnchecked)
getTransformString ::
(MonadDOM m, FromJSString result) => SVGViewSpec -> m result
getTransformString self
= liftDOM ((self ^. js "transformString") >>= fromJSValUnchecked)
getViewTargetString ::
(MonadDOM m, FromJSString result) => SVGViewSpec -> m result
getViewTargetString self
= liftDOM ((self ^. js "viewTargetString") >>= fromJSValUnchecked)
setZoomAndPan :: (MonadDOM m) => SVGViewSpec -> Word -> m ()
setZoomAndPan self val
= liftDOM (self ^. jss "zoomAndPan" (toJSVal val))
getZoomAndPan :: (MonadDOM m) => SVGViewSpec -> m Word
getZoomAndPan self
= liftDOM (round <$> ((self ^. js "zoomAndPan") >>= valToNumber))