ghcjs-dom-javascript-0.10.0.0: src/GHCJS/DOM/JSFFI/Generated/CanvasPathDrawingStyles.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.CanvasPathDrawingStyles
       (js_getLineDash, js_setLineDash, js_setLineWidth, js_getLineWidth, js_setLineCap, js_getLineCap, js_setLineJoin, js_getLineJoin, js_setMiterLimit, js_getMiterLimit, js_setLineDashOffset, js_getLineDashOffset, getLineDash, getLineDash_, setLineDash, setLineWidth, getLineWidth, setLineCap, getLineCap, setLineJoin, getLineJoin, setMiterLimit, getMiterLimit, setLineDashOffset, getLineDashOffset, CanvasPathDrawingStyles(..), gTypeCanvasPathDrawingStyles, IsCanvasPathDrawingStyles, toCanvasPathDrawingStyles)
       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) => { return $1[\"getLineDash\"](); })"
        js_getLineDash :: CanvasPathDrawingStyles -> IO JSVal
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getLineDash MDN CanvasPathDrawingStyles.getLineDash documentation>
getLineDash :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m [Double]
getLineDash self = liftDOM (((js_getLineDash ((Types.toCanvasPathDrawingStyles self))) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getLineDash MDN CanvasPathDrawingStyles.getLineDash documentation>
getLineDash_ :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m ()
getLineDash_ self = liftDOM (void ((js_getLineDash ((Types.toCanvasPathDrawingStyles self)))))

foreign import javascript safe "(($1, $2) => { return $1[\"setLineDash\"]($2); })"
        js_setLineDash :: CanvasPathDrawingStyles -> JSVal -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/setLineDash MDN CanvasPathDrawingStyles.setLineDash documentation>
setLineDash :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> [Double] -> m ()
setLineDash self segments = liftDOM (void (((toJSVal segments) >>= \a2' -> js_setLineDash ((Types.toCanvasPathDrawingStyles self)) a2')))

foreign import javascript safe "(($1, $2) => { $1[\"lineWidth\"] = $2; })"
        js_setLineWidth :: CanvasPathDrawingStyles -> Double -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineWidth MDN CanvasPathDrawingStyles.lineWidth documentation>
setLineWidth :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> Double -> m ()
setLineWidth self val = liftDOM (void ((js_setLineWidth ((Types.toCanvasPathDrawingStyles self)) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"lineWidth\"]; })"
        js_getLineWidth :: CanvasPathDrawingStyles -> IO Double
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineWidth MDN CanvasPathDrawingStyles.lineWidth documentation>
getLineWidth :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m Double
getLineWidth self = liftDOM ((js_getLineWidth ((Types.toCanvasPathDrawingStyles self))))

foreign import javascript safe "(($1, $2) => { $1[\"lineCap\"] = $2; })"
        js_setLineCap :: CanvasPathDrawingStyles -> JSVal -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineCap MDN CanvasPathDrawingStyles.lineCap documentation>
setLineCap :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> CanvasLineCap -> m ()
setLineCap self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setLineCap ((Types.toCanvasPathDrawingStyles self)) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"lineCap\"]; })"
        js_getLineCap :: CanvasPathDrawingStyles -> IO JSVal
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineCap MDN CanvasPathDrawingStyles.lineCap documentation>
getLineCap :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m CanvasLineCap
getLineCap self = liftDOM (((js_getLineCap ((Types.toCanvasPathDrawingStyles self))) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"lineJoin\"] = $2; })"
        js_setLineJoin :: CanvasPathDrawingStyles -> JSVal -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineJoin MDN CanvasPathDrawingStyles.lineJoin documentation>
setLineJoin :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> CanvasLineJoin -> m ()
setLineJoin self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setLineJoin ((Types.toCanvasPathDrawingStyles self)) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"lineJoin\"]; })"
        js_getLineJoin :: CanvasPathDrawingStyles -> IO JSVal
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineJoin MDN CanvasPathDrawingStyles.lineJoin documentation>
getLineJoin :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m CanvasLineJoin
getLineJoin self = liftDOM (((js_getLineJoin ((Types.toCanvasPathDrawingStyles self))) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"miterLimit\"] = $2; })"
        js_setMiterLimit :: CanvasPathDrawingStyles -> Double -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/miterLimit MDN CanvasPathDrawingStyles.miterLimit documentation>
setMiterLimit :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> Double -> m ()
setMiterLimit self val = liftDOM (void ((js_setMiterLimit ((Types.toCanvasPathDrawingStyles self)) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"miterLimit\"]; })"
        js_getMiterLimit :: CanvasPathDrawingStyles -> IO Double
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/miterLimit MDN CanvasPathDrawingStyles.miterLimit documentation>
getMiterLimit :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m Double
getMiterLimit self = liftDOM ((js_getMiterLimit ((Types.toCanvasPathDrawingStyles self))))

foreign import javascript safe "(($1, $2) => { $1[\"lineDashOffset\"] = $2; })"
        js_setLineDashOffset :: CanvasPathDrawingStyles -> Double -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineDashOffset MDN CanvasPathDrawingStyles.lineDashOffset documentation>
setLineDashOffset :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> Double -> m ()
setLineDashOffset self val = liftDOM (void ((js_setLineDashOffset ((Types.toCanvasPathDrawingStyles self)) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"lineDashOffset\"]; })"
        js_getLineDashOffset :: CanvasPathDrawingStyles -> IO Double
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineDashOffset MDN CanvasPathDrawingStyles.lineDashOffset documentation>
getLineDashOffset :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m Double
getLineDashOffset self = liftDOM ((js_getLineDashOffset ((Types.toCanvasPathDrawingStyles self))))