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

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from mediacapture-extensions (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.Segment
       (js_newSegment, js_setType, js_getType, js_setId, js_getId, js_setPartOf, js_getPartOf, js_setProbability, js_getProbability, js_setCenterPoint, js_getCenterPoint, js_setBoundingBox, js_getBoundingBox, newSegment, setType, getType, setId, getId, setPartOf, getPartOf, getPartOfUnsafe, getPartOfUnchecked, setProbability, getProbability, setCenterPoint, getCenterPoint, getCenterPointUnsafe, getCenterPointUnchecked, setBoundingBox, getBoundingBox, getBoundingBoxUnsafe, getBoundingBoxUnchecked, Segment(..), gTypeSegment)
       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, $2, $3) => { return ({\"type\": $1, \"id\": $2, \"probability\": $3}); })"
        js_newSegment :: JSVal -> Int -> Float -> IO Segment
-- | <https://w3c.github.io/mediacapture-extensions/#dom-segment Segment specification>
newSegment :: (MonadDOM m) => SegmentType -> Int -> Float -> m Segment
newSegment type' id probability = liftDOM (((toJSVal type') >>= \a1' -> js_newSegment a1' (id) (probability)))

foreign import javascript safe "(($1, $2) => { $1[\"type\"] = $2; })"
        js_setType :: Segment -> JSVal -> IO ()
-- | <https://w3c.github.io/mediacapture-extensions/#dom-segment-type Segment.type specification>
setType :: (MonadDOM m) => Segment -> SegmentType -> m ()
setType self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setType (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"
        js_getType :: Segment -> IO JSVal
-- | <https://w3c.github.io/mediacapture-extensions/#dom-segment-type Segment.type specification>
getType :: (MonadDOM m) => Segment -> m SegmentType
getType self = liftDOM (((js_getType (self)) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"id\"] = $2; })"
        js_setId :: Segment -> Int -> IO ()
-- | <https://w3c.github.io/mediacapture-extensions/#dom-segment-id Segment.id specification>
setId :: (MonadDOM m) => Segment -> Int -> m ()
setId self val = liftDOM (void ((js_setId (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"id\"]; })"
        js_getId :: Segment -> IO Int
-- | <https://w3c.github.io/mediacapture-extensions/#dom-segment-id Segment.id specification>
getId :: (MonadDOM m) => Segment -> m Int
getId self = liftDOM ((js_getId (self)))

foreign import javascript safe "(($1, $2) => { $1[\"partOf\"] = $2; })"
        js_setPartOf :: Segment -> Int -> IO ()
-- | <https://w3c.github.io/mediacapture-extensions/#dom-segment-partof Segment.partOf specification>
setPartOf :: (MonadDOM m) => Segment -> Int -> m ()
setPartOf self val = liftDOM (void ((js_setPartOf (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"partOf\"]; })"
        js_getPartOf :: Segment -> IO JSVal
-- | <https://w3c.github.io/mediacapture-extensions/#dom-segment-partof Segment.partOf specification>
getPartOf :: (MonadDOM m) => Segment -> m (Maybe Int)
getPartOf self = liftDOM (((js_getPartOf (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/mediacapture-extensions/#dom-segment-partof Segment.partOf specification>
getPartOfUnsafe :: (MonadDOM m, HasCallStack) => Segment -> m Int
getPartOfUnsafe self = liftDOM ((((js_getPartOf (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/mediacapture-extensions/#dom-segment-partof Segment.partOf specification>
getPartOfUnchecked :: (MonadDOM m) => Segment -> m Int
getPartOfUnchecked self = liftDOM ((pFromJSVal <$> (js_getPartOf (self))))

foreign import javascript safe "(($1, $2) => { $1[\"probability\"] = $2; })"
        js_setProbability :: Segment -> Float -> IO ()
-- | <https://w3c.github.io/mediacapture-extensions/#dom-segment-probability Segment.probability specification>
setProbability :: (MonadDOM m) => Segment -> Float -> m ()
setProbability self val = liftDOM (void ((js_setProbability (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"probability\"]; })"
        js_getProbability :: Segment -> IO Float
-- | <https://w3c.github.io/mediacapture-extensions/#dom-segment-probability Segment.probability specification>
getProbability :: (MonadDOM m) => Segment -> m Float
getProbability self = liftDOM ((js_getProbability (self)))

foreign import javascript safe "(($1, $2) => { $1[\"centerPoint\"] = $2; })"
        js_setCenterPoint :: Segment -> Point2D -> IO ()
-- | <https://w3c.github.io/mediacapture-extensions/#dom-segment-centerpoint Segment.centerPoint specification>
setCenterPoint :: (MonadDOM m) => Segment -> Point2D -> m ()
setCenterPoint self val = liftDOM (void ((js_setCenterPoint (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"centerPoint\"]; })"
        js_getCenterPoint :: Segment -> IO JSVal
-- | <https://w3c.github.io/mediacapture-extensions/#dom-segment-centerpoint Segment.centerPoint specification>
getCenterPoint :: (MonadDOM m) => Segment -> m (Maybe Point2D)
getCenterPoint self = liftDOM (((js_getCenterPoint (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/mediacapture-extensions/#dom-segment-centerpoint Segment.centerPoint specification>
getCenterPointUnsafe :: (MonadDOM m, HasCallStack) => Segment -> m Point2D
getCenterPointUnsafe self = liftDOM ((((js_getCenterPoint (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/mediacapture-extensions/#dom-segment-centerpoint Segment.centerPoint specification>
getCenterPointUnchecked :: (MonadDOM m) => Segment -> m Point2D
getCenterPointUnchecked self = liftDOM ((pFromJSVal <$> (js_getCenterPoint (self))))

foreign import javascript safe "(($1, $2) => { $1[\"boundingBox\"] = $2; })"
        js_setBoundingBox :: Segment -> DOMRectInit -> IO ()
-- | <https://w3c.github.io/mediacapture-extensions/#dom-segment-boundingbox Segment.boundingBox specification>
setBoundingBox :: (MonadDOM m) => Segment -> DOMRectInit -> m ()
setBoundingBox self val = liftDOM (void ((js_setBoundingBox (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"boundingBox\"]; })"
        js_getBoundingBox :: Segment -> IO JSVal
-- | <https://w3c.github.io/mediacapture-extensions/#dom-segment-boundingbox Segment.boundingBox specification>
getBoundingBox :: (MonadDOM m) => Segment -> m (Maybe DOMRectInit)
getBoundingBox self = liftDOM (((js_getBoundingBox (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/mediacapture-extensions/#dom-segment-boundingbox Segment.boundingBox specification>
getBoundingBoxUnsafe :: (MonadDOM m, HasCallStack) => Segment -> m DOMRectInit
getBoundingBoxUnsafe self = liftDOM ((((js_getBoundingBox (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/mediacapture-extensions/#dom-segment-boundingbox Segment.boundingBox specification>
getBoundingBoxUnchecked :: (MonadDOM m) => Segment -> m DOMRectInit
getBoundingBoxUnchecked self = liftDOM ((pFromJSVal <$> (js_getBoundingBox (self))))