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

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from SVG2 (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.SVGBoundingBoxOptions
       (js_newSVGBoundingBoxOptions, js_setFill, js_getFill, js_setStroke, js_getStroke, js_setMarkers, js_getMarkers, js_setClipped, js_getClipped, newSVGBoundingBoxOptions, setFill, getFill, getFillUnsafe, getFillUnchecked, setStroke, getStroke, getStrokeUnsafe, getStrokeUnchecked, setMarkers, getMarkers, getMarkersUnsafe, getMarkersUnchecked, setClipped, getClipped, getClippedUnsafe, getClippedUnchecked, SVGBoundingBoxOptions(..), gTypeSVGBoundingBoxOptions)
       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 "(() => { return ({}); })"
        js_newSVGBoundingBoxOptions :: IO SVGBoundingBoxOptions
-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dictdef-svgboundingboxoptions SVGBoundingBoxOptions specification>
newSVGBoundingBoxOptions :: (MonadDOM m) => m SVGBoundingBoxOptions
newSVGBoundingBoxOptions = liftDOM ((js_newSVGBoundingBoxOptions))

foreign import javascript safe "(($1, $2) => { $1[\"fill\"] = $2; })"
        js_setFill :: SVGBoundingBoxOptions -> Bool -> IO ()
-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-fill SVGBoundingBoxOptions.fill specification>
setFill :: (MonadDOM m) => SVGBoundingBoxOptions -> Bool -> m ()
setFill self val = liftDOM (void ((js_setFill (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"fill\"]; })"
        js_getFill :: SVGBoundingBoxOptions -> IO JSVal
-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-fill SVGBoundingBoxOptions.fill specification>
getFill :: (MonadDOM m) => SVGBoundingBoxOptions -> m (Maybe Bool)
getFill self = liftDOM (((js_getFill (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-fill SVGBoundingBoxOptions.fill specification>
getFillUnsafe :: (MonadDOM m, HasCallStack) => SVGBoundingBoxOptions -> m Bool
getFillUnsafe self = liftDOM ((((js_getFill (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-fill SVGBoundingBoxOptions.fill specification>
getFillUnchecked :: (MonadDOM m) => SVGBoundingBoxOptions -> m Bool
getFillUnchecked self = liftDOM ((pFromJSVal <$> (js_getFill (self))))

foreign import javascript safe "(($1, $2) => { $1[\"stroke\"] = $2; })"
        js_setStroke :: SVGBoundingBoxOptions -> Bool -> IO ()
-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-stroke SVGBoundingBoxOptions.stroke specification>
setStroke :: (MonadDOM m) => SVGBoundingBoxOptions -> Bool -> m ()
setStroke self val = liftDOM (void ((js_setStroke (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"stroke\"]; })"
        js_getStroke :: SVGBoundingBoxOptions -> IO JSVal
-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-stroke SVGBoundingBoxOptions.stroke specification>
getStroke :: (MonadDOM m) => SVGBoundingBoxOptions -> m (Maybe Bool)
getStroke self = liftDOM (((js_getStroke (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-stroke SVGBoundingBoxOptions.stroke specification>
getStrokeUnsafe :: (MonadDOM m, HasCallStack) => SVGBoundingBoxOptions -> m Bool
getStrokeUnsafe self = liftDOM ((((js_getStroke (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-stroke SVGBoundingBoxOptions.stroke specification>
getStrokeUnchecked :: (MonadDOM m) => SVGBoundingBoxOptions -> m Bool
getStrokeUnchecked self = liftDOM ((pFromJSVal <$> (js_getStroke (self))))

foreign import javascript safe "(($1, $2) => { $1[\"markers\"] = $2; })"
        js_setMarkers :: SVGBoundingBoxOptions -> Bool -> IO ()
-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-markers SVGBoundingBoxOptions.markers specification>
setMarkers :: (MonadDOM m) => SVGBoundingBoxOptions -> Bool -> m ()
setMarkers self val = liftDOM (void ((js_setMarkers (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"markers\"]; })"
        js_getMarkers :: SVGBoundingBoxOptions -> IO JSVal
-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-markers SVGBoundingBoxOptions.markers specification>
getMarkers :: (MonadDOM m) => SVGBoundingBoxOptions -> m (Maybe Bool)
getMarkers self = liftDOM (((js_getMarkers (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-markers SVGBoundingBoxOptions.markers specification>
getMarkersUnsafe :: (MonadDOM m, HasCallStack) => SVGBoundingBoxOptions -> m Bool
getMarkersUnsafe self = liftDOM ((((js_getMarkers (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-markers SVGBoundingBoxOptions.markers specification>
getMarkersUnchecked :: (MonadDOM m) => SVGBoundingBoxOptions -> m Bool
getMarkersUnchecked self = liftDOM ((pFromJSVal <$> (js_getMarkers (self))))

foreign import javascript safe "(($1, $2) => { $1[\"clipped\"] = $2; })"
        js_setClipped :: SVGBoundingBoxOptions -> Bool -> IO ()
-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-clipped SVGBoundingBoxOptions.clipped specification>
setClipped :: (MonadDOM m) => SVGBoundingBoxOptions -> Bool -> m ()
setClipped self val = liftDOM (void ((js_setClipped (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"clipped\"]; })"
        js_getClipped :: SVGBoundingBoxOptions -> IO JSVal
-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-clipped SVGBoundingBoxOptions.clipped specification>
getClipped :: (MonadDOM m) => SVGBoundingBoxOptions -> m (Maybe Bool)
getClipped self = liftDOM (((js_getClipped (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-clipped SVGBoundingBoxOptions.clipped specification>
getClippedUnsafe :: (MonadDOM m, HasCallStack) => SVGBoundingBoxOptions -> m Bool
getClippedUnsafe self = liftDOM ((((js_getClipped (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-clipped SVGBoundingBoxOptions.clipped specification>
getClippedUnchecked :: (MonadDOM m) => SVGBoundingBoxOptions -> m Bool
getClippedUnchecked self = liftDOM ((pFromJSVal <$> (js_getClipped (self))))