module JSDOM.Generated.HTMLCanvasElement
(toDataURL, toDataURL_, getContext, getContext_,
probablySupportsContext, probablySupportsContext_, setWidth,
getWidth, setHeight, getHeight, HTMLCanvasElement(..),
gTypeHTMLCanvasElement)
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
toDataURL ::
(MonadDOM m, ToJSString type', FromJSString result) =>
HTMLCanvasElement -> Maybe type' -> m result
toDataURL self type'
= liftDOM
((self ^. jsf "toDataURL" [toJSVal type']) >>= fromJSValUnchecked)
toDataURL_ ::
(MonadDOM m, ToJSString type') =>
HTMLCanvasElement -> Maybe type' -> m ()
toDataURL_ self type'
= liftDOM (void (self ^. jsf "toDataURL" [toJSVal type']))
getContext ::
(MonadDOM m, ToJSString contextId) =>
HTMLCanvasElement -> contextId -> m JSVal
getContext self contextId
= liftDOM
((self ^. jsf "getContext" [toJSVal contextId]) >>= toJSVal)
getContext_ ::
(MonadDOM m, ToJSString contextId) =>
HTMLCanvasElement -> contextId -> m ()
getContext_ self contextId
= liftDOM (void (self ^. jsf "getContext" [toJSVal contextId]))
probablySupportsContext ::
(MonadDOM m, ToJSString contextId) =>
HTMLCanvasElement -> contextId -> m JSVal
probablySupportsContext self contextId
= liftDOM
((self ^. jsf "probablySupportsContext" [toJSVal contextId]) >>=
toJSVal)
probablySupportsContext_ ::
(MonadDOM m, ToJSString contextId) =>
HTMLCanvasElement -> contextId -> m ()
probablySupportsContext_ self contextId
= liftDOM
(void (self ^. jsf "probablySupportsContext" [toJSVal contextId]))
setWidth :: (MonadDOM m) => HTMLCanvasElement -> Int -> m ()
setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))
getWidth :: (MonadDOM m) => HTMLCanvasElement -> m Int
getWidth self
= liftDOM (round <$> ((self ^. js "width") >>= valToNumber))
setHeight :: (MonadDOM m) => HTMLCanvasElement -> Int -> m ()
setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))
getHeight :: (MonadDOM m) => HTMLCanvasElement -> m Int
getHeight self
= liftDOM (round <$> ((self ^. js "height") >>= valToNumber))