{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLCanvasElement (js_toDataURL, toDataURL, js_getContext, getContext, js_probablySupportsContext, probablySupportsContext, js_setWidth, setWidth, js_getWidth, getWidth, js_setHeight, setHeight, js_getHeight, getHeight, HTMLCanvasElement, castToHTMLCanvasElement, gTypeHTMLCanvasElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "$1[\"toDataURL\"]($2)" js_toDataURL :: HTMLCanvasElement -> Nullable JSString -> IO JSString -- | toDataURL :: (MonadIO m, ToJSString type', FromJSString result) => HTMLCanvasElement -> Maybe type' -> m result toDataURL self type' = liftIO (fromJSString <$> (js_toDataURL (self) (toMaybeJSString type'))) foreign import javascript unsafe "$1[\"getContext\"]($2)" js_getContext :: HTMLCanvasElement -> JSString -> IO JSRef -- | getContext :: (MonadIO m, ToJSString contextId) => HTMLCanvasElement -> contextId -> m JSRef getContext self contextId = liftIO (js_getContext (self) (toJSString contextId)) foreign import javascript unsafe "$1[\"probablySupportsContext\"]($2)" js_probablySupportsContext :: HTMLCanvasElement -> JSString -> IO JSRef -- | probablySupportsContext :: (MonadIO m, ToJSString contextId) => HTMLCanvasElement -> contextId -> m JSRef probablySupportsContext self contextId = liftIO (js_probablySupportsContext (self) (toJSString contextId)) foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth :: HTMLCanvasElement -> Int -> IO () -- | setWidth :: (MonadIO m) => HTMLCanvasElement -> Int -> m () setWidth self val = liftIO (js_setWidth (self) val) foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: HTMLCanvasElement -> IO Int -- | getWidth :: (MonadIO m) => HTMLCanvasElement -> m Int getWidth self = liftIO (js_getWidth (self)) foreign import javascript unsafe "$1[\"height\"] = $2;" js_setHeight :: HTMLCanvasElement -> Int -> IO () -- | setHeight :: (MonadIO m) => HTMLCanvasElement -> Int -> m () setHeight self val = liftIO (js_setHeight (self) val) foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: HTMLCanvasElement -> IO Int -- | getHeight :: (MonadIO m) => HTMLCanvasElement -> m Int getHeight self = liftIO (js_getHeight (self))